24 lines
691 B
QBasic
24 lines
691 B
QBasic
|
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
|