       10 // CHR$() sample program
       20 //
       30 a$:="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
       40 FOR f#:=ORD("A") TO ORD("Z") DO
       50   SYS assert, CHR$(f#)=a$(f#-64:f#-64)
       60 ENDFOR f#
       70 PRINT "Ok"
