1 1000 DIM L$(80),F$(1),C$(1),N$(16)
7 1060 PRINT "START,STEP";
9 1080 LET S1=INT(ABS(S1))
10 1090 LET S=INT(ABS(S))
16 1150 IFEND #1 THEN 1320
19 1180 IF N1>0 THEN 1220
20 1190 PRINT "NO LINE NUMBER"
23 1220 IF N1>N2 THEN 1260
24 1230 PRINT "OUT OF SEQUENCE"
30 1290 IF T<350 THEN 1130
31 1300 PRINT "TOO MANY LINES"
37 1360 IFEND #1 THEN 1730
43 1420 LET L$=SEG$(L$,I,80)
46 1450 LET D=POS(L$,F$,1) \ LET P=D
48 1470 LET L2$=SEG$(L$,P+1,80)
49 1480 LET L$=SEG$(L$,1,P-1)
50 1490 LET I=POS(L$,"GOTO",1)+4
52 1510 LET I=POS(L$,"GO TO",1)+5
54 1530 LET I=POS(L$,"THEN",1)+4
56 1550 LET I=POS(L$,"GOSUB",1)+5
58 1570 LET I=POS(L$,"GO SUB",1)+6
67 1660 LET D=POS(L2$,F$,1) \ LET P=D
71 1700 LET L$=SEG$(L2$,1,P-1)
72 1710 LET L2$=SEG$(L2$,P+1,80)
78 1770 IF C=32 THEN 1760
83 1820 IF N1=0 THEN 1890
85 1840 IF N1<>N(J) THEN 1880
86 1850 LET Q$=STR$(J*S-S+S1)
87 1860 LET L$=SEG$(L$,1,P-1)&Q$
90 1890 PRINT "BAD REFERENCE"
93 1920 IF I<=L THEN 1950
96 1950 LET C=ASC(SEG$(L$,I,I))
101 2000 IF C<48 THEN 2040
102 2010 IF C>57 THEN 2040
103 2020 LET N1=N1*10+C-48
105 2040 IF C<0 THEN 2060