' File: showasci.lst
'
' Show how strings are displayed in ASCII
'
CLS
OPEN "o",#1,"CON:"
'
text$="ASCII: EXAMPLE"
addr%=VARPTR(text$)
FOR i%=1 TO LEN(text$)
  PRINT #1,addr%,PEEK(addr%),CHR$(PEEK(addr%))
  INC addr%
NEXT i%