[jackhill/mal.git] / bbc-basic / toktest

LIBRARY "reader"

DIM tok$(255)
WHILE TRUE
  LINE INPUT src$
  ntok% = FNtokenize(src$, tok$())
  FOR i% = 0 TO ntok% - 1
    PRINT tok$(i%)
  NEXT i%
ENDWHILE
Commit	Line	Data
9d27e709 BH	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