       10 // Substring test program
       20 //
       30 DIM a$ OF 26
       40 DIM letter$(26) OF 1
       50 FOR char#:=1 TO 26 DO
       60   letter$(char#):=CHR$(char#+ORD("A")-1)
       70   a$(:char#:):=letter$(char#)
       80 ENDFOR char#
       90 SYS assert, a$="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
      100 PRINT "Ok"
