       10 // Checking whether a string bigger than 64K can be used
       20 //
       30 a$:="x"
       40 l:=LEN(a$)
       50 WHILE l<70000 DO
       60   a$:=a$+a$
       70   l:=l*2
       80 ENDWHILE
       90 //
      100 SYS assert, LEN(a$)=l
      110 //
      120 FOR f:=1 TO l DO
      130   a$(f:f):=CHR$(f MOD 26+ORD("A"))
      140 ENDFOR f
      150 //
      160 FOR f:=1 TO l DO
      170   SYS assert, a$(f:f)=CHR$(f MOD 26+ORD("A"))
      180 ENDFOR f
      190 //
      200 PRINT "Ok"
