1 REM A›100 BASE=PEEK(136)+PEEK(137)*256›110 REM Change beginning token ›120 POKE BASE+4,54:POKE BASE+6,22›130 REM Print operator and function tokens›140 PRINT CHR$(125)›150 FOR I=20 TO 84›160 POKE BASE,I:POKE BASE+5,I›170 LIST I›180 REM Undo line feeds ›190 ? CHR$(28);:IF I=22 THEN ? CHR$(28);›200 IF I=39 THEN POKE 82,11:POSITION 11,1›210 IF I=59 THEN POKE 82,19:POSITION 19,1›220 IF I=79 THEN POKE 82,28:POSITION 28,1›230 NEXT I›240 POKE BASE,1:POKE BASE+4,0›250 POKE BASE+5,65:POKE BASE+6,155›260 POKE 82,2:POSITION 2,22›