|
1 | 1 | 1 ' Test for m100-jumps.lex which
|
2 | 2 | 2 ' emits all lines which are targets
|
3 | 3 | 3 ' of GOTO or similar commands.
|
4 |
| -4 ' Line numbers <500 should be printed. >= 500 should not. |
5 |
| -5 ' |
6 |
| -6 ' When testing m100-decommenter, |
7 |
| -7 ' lines 500--1000 will be removed. |
8 |
| -8 ' |
| 4 | +4 ' |
| 5 | +5 ' Line numbers <500 should be printed. >= 500 should not. |
| 6 | +6 ' |
| 7 | +7 ' When testing m100-decommenter, |
| 8 | +8 ' lines 500--1000 will be removed. |
| 9 | +9 ' |
9 | 10 | 10 REM ERL Equals
|
10 | 11 | 20 REM ERL Less than
|
11 | 12 | 30 REM ERL Less than or equal to
|
|
23 | 24 | 150 REM ALL CATS ARE GREY
|
24 | 25 | 160 REM RUN 160
|
25 | 26 | 170 REM GOSUB 170
|
26 |
| -180 REM ON A GO TO 1,2,3, 180, 4,5,6,7,8,9 |
| 27 | +180 REM ON A GO TO 1,2,3, 180, 4,5,6 |
| 28 | +190 REM ON COM GOSUB 1,2,3, 190, 7,8,9 |
27 | 29 | 500 '
|
28 | 30 | 510 REM DATA GOTO 510
|
29 | 31 | 520 REM DATA "GOTO 520"
|
|
45 | 47 | 1150 GOTO 150
|
46 | 48 | 1160 RUN 160
|
47 | 49 | 1170 GOSUB 170
|
48 |
| -1170 ON A GO TO 1,2,3, 180, 4,5,6,7,8,9 |
| 50 | +1180 ON A GO TO 1,2,3, 180, 4,5,6 |
| 51 | +1190 ON COM GOSUB 1,2,3, 190, 7,8,9 |
49 | 52 | 1500 '
|
50 | 53 | 1510 DATA GOTO 510
|
51 | 54 | 1520 DATA "GOTO 520"
|
0 commit comments