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
|