Apple-2-Tools
/
dmolony-DiskBrowser
mirror of https://github.com/dmolony/DiskBrowser.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

don't include goto, gosub, on

This commit is contained in:
Denis Molony 2021-01-05 13:42:59 +10:00
parent d801e85736
commit 6e70142f59
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/com/bytezone/diskbrowser/applefile/SubLine.java
View File

@ -43,7 +43,10 @@ public class SubLine
if (Utility.isHighBitSet (firstByte))
doToken (firstByte);
else if (Utility.isDigit (firstByte))
{
doDigit ();
return;
}
else
doAlpha ();
@ -137,8 +140,13 @@ public class SubLine
if (!Utility.isLetter ((byte) var.charAt (0)))
{
if (!constants.contains (var))
constants.add (Integer.parseInt (var));
if (is (ApplesoftConstants.TOKEN_GOTO) || is (ApplesoftConstants.TOKEN_GOSUB)
|| is (ApplesoftConstants.TOKEN_ON))
return;
int varInt = Integer.parseInt (var);
if (!constants.contains (varInt))
constants.add (varInt);
return;
}