Apple-2-Tools/dmolony-DiskBrowser
1
0
Fork 0
mirror of https://github.com/dmolony/DiskBrowser.git synced 2024-06-20 05:29:35 +00:00
Code Issues Projects Releases Wiki Activity

removed spaces from tokens

Browse Source
This commit is contained in:
Denis Molony 2021-01-11 08:04:08 +10:00
parent fdc15f7eb3
commit 18289f382c
3 changed files with 35 additions and 36 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/com/bytezone/diskbrowser/applefile/ApplesoftBasicProgram.java
View File

@ -942,8 +942,7 @@ public class ApplesoftBasicProgram extends BasicProgram implements ApplesoftCons
while ((b = buffer[ptr++]) != 0)
if (Utility.isHighBitSet (b))
text.append (
String.format (" %s ", ApplesoftConstants.tokens[b & 0x7F].trim ()));
text.append (String.format (" %s ", ApplesoftConstants.tokens[b & 0x7F]));
else
text.append ((char) b);

4
src/com/bytezone/diskbrowser/applefile/ApplesoftConstants.java
View File

@ -33,8 +33,8 @@ public interface ApplesoftConstants
"STR$", "VAL", "ASC", "CHR$", // 0xE4 - 0xE7
"LEFT$", "RIGHT$", "MID$", "", // 0xE8 - 0xEB
"", "", "", "", // 0xEC - 0xEF
"ELSE", "MOD", "INC", "DEC", // 0xF0 - 0xF3
"DEEK", "DOKE", "REPEAT", "UNTIL", // 0xF4 - 0xF7
"", "", "", "", // 0xF0 - 0xF3
"", "", "", "", // 0xF4 - 0xF7
"", "", "", "", // 0xF8 - 0xFB
"", "", "", "", // 0xFC - 0xFF
};

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

@ -543,7 +543,7 @@ public class SubLine implements ApplesoftConstants
for (int p = startPtr; p <= max; p++)
{
byte b = buffer[p];
if (Utility.isHighBitSet (b))
if (Utility.isHighBitSet (b)) // token
{
if (line.length () > 0 && line.charAt (line.length () - 1) != ' ')
line.append (' ');
@ -551,7 +551,7 @@ public class SubLine implements ApplesoftConstants
if (val < ApplesoftConstants.tokens.length)
{
if (b != TOKEN_THEN || ApplesoftBasicProgram.basicPreferences.showThen)
line.append (ApplesoftConstants.tokens[val]);
line.append (ApplesoftConstants.tokens[val] + " ");
}
}
else if (Utility.isControlCharacter (b))