       10 // LEN() test program
       20 //
       30 WHILE NOT(EOD) DO
       40   READ a$, b
       50   SYS assert, LEN(a$)=b
       60 ENDWHILE
       70 //
       80 PRINT "Ok"
       90 //
      100 DATA "Jos", 3, "Visser", 6, "", 0, SPC$(70000)+"a", 70001
