1 REM ›100 REM PROGRAM TO PRINT THE TOKENS ›110 REM WHICH BEGIN BASIC STATEMENTS ›120 REM Get the beginning of program ›130 BASE=PEEK(136)+PEEK(137)*256›140 REM Change statement terminator ›150 POKE BASE+5,22›160 ? CHR$(125):REM CLEAR SCREEN ›170 REM PRINT TOKENS ›180 FOR I=0 TO 54›190 REM Change line number and token ›200 POKE BASE,I:POKE BASE+4,I›210 LIST I:REM Print token ›220 REM Undo line feed if needed ›230 IF I>1 THEN ? CHR$(28);›240 REM Change left margin for columns  ›250 IF I=19 THEN POKE 82,12:POSITION 12,1›260 IF I=39 THEN POKE 82,24:POSITION 24,1›270 NEXT I›280 REM Put Program back to normal ›290 POKE BASE,1:POKE BASE+4,0›300 POKE BASE+5,155›310 POKE 82,2:POSITION 2,22›