Solar eclipse RAM 16.07  FLASH 15.72  'lower better
Lines/second  RAM 295419 FLASH 294770 'higher better
Grainbench    RAM 14955  FLASH 14916  'higher better

Print "This program will print out the tokenized version of itself:"
'Note that comments are completely skiped becuase they are not needed by the parser

Print

' Get the address of the program in memory
Start = MM.Info(program)

'Loop through the next 500 bytes and display as ASCII
Print "ASCII:"
X = 0
for i = Start to Start + 500
 PrintAscii(Peek(BYTE i));
 X = X + 1
 if X Mod 24 = 0 then Print
next i

Print
Print

'Loop through and display as HEX
Print "HEX:"
X = 0
for i = Start to Start + 500
 Y = PrintHex(Peek(BYTE i))
 X = X + 1
 if X Mod 24 = 0 then Print
next i

' Sub and function used to show code in tokenized version
Sub PrintAscii(C)

 Print Chr$(C);

End Sub


Function PrintHex(H)

 Print Hex$(H,2),;  
 PrintHex = H

End Function