bbc-basic/toktest

   1 LIBRARY "reader"
   2
   3 DIM tok$(255)
   4 WHILE TRUE
   5   LINE INPUT src$
   6   ntok% = FNtokenize(src$, tok$())
   7   FOR i% = 0 TO ntok% - 1
   8     PRINT tok$(i%)
   9   NEXT i%
  10 ENDWHILE