32000 CLR :PRINT CHR$(125);"       ÒÅÎÕÍÂÅÒ ÕÔÉÌÉÔÙ "›32005 REM BY W. A. BELL  MAY 1981›32010 REM " Englewood, Colorado›32015 DIM OPCODE(10),REFNAME$(7)›32025 REFNAME$="REFLINÅ"›32030 REFADR=PEEK(130)+256*PEEK(131)›32035 REFCOUNT=0›32045 FOR I=1 TO 7›32050 IF PEEK(REFADR+I-1)<>ASC(REFNAME$(I,I)) THEN 32090›32055 NEXT I›32070 REFADR=PEEK(134)+256*PEEK(135)+8*REFCOUNT›32080 GOTO 32120›32090 REFCOUNT=REFCOUNT+1›32095 IF REFCOUNT>127 THEN PRINT "ÆÁÔÁÌ ÐÒÏÇÒÁÍ ÅÒÒÏÒ":END ›32100 REFADR=REFADR+1›32105 IF PEEK(REFADR-1)>127 THEN 32045›32110 GOTO 32100›32120 RESTORE 32125›32125 DATA 10,12,23,24,13,4,35,27,18›32130 FOR I=1 TO 9›32135 READ X›32140 OPCODE(I)=X›32145 NEXT I›32150 STARTADR=PEEK(136)+256*PEEK(137)›32160 LINEADR=STARTADR:REFLINE=0›32165 OLDLINE=-1:LINECOUNT=0›32170 NULINE=PEEK(LINEADR)+256*PEEK(LINEADR+1)›32175 IF NULINE>31999 THEN 32220›32180 IF OLDLINE<NULINE THEN 32200›32185 PRINT "SEQUENCE ERROR AFTER ";OLDLINE›32190 LIST OLDLINE-1,OLDLINE+10›32195 END ›32200 LINEADR=LINEADR+PEEK(LINEADR+2)›32205 LINECOUNT=LINECOUNT+1›32210 OLDLINE=NULINE›32215 GOTO 32170›32220 PRINT "LINE SEQUENCE VALID"›32225 PRINT LINECOUNT;" LINES"›32235 PRINT "ENTER START, INCREMENT";:INPUT BASE,INCR›32240 IF BASE+INCR*LINECOUNT<32000 THEN 32255›32245 PRINT "INPUT ERROR - WILL EXCEED MAXIMUM LINE NUMBER ALLOWED":END ›32255 LINEADR=STARTADR›32260 NULINE=PEEK(LINEADR)+256*PEEK(LINEADR+1)›32265 IF NULINE>31999 THEN 32470›32270 LINEEND=LINEADR+PEEK(LINEADR+2)›32275 STMTSTART=LINEADR+4›32280 STMTEND=LINEADR+PEEK(LINEADR+3)›32285 FOR I=STMTSTART TO STMTEND-1›32290 IF PEEK(I)<>14 THEN 32430›32300 FOR J=1 TO 9›32305 IF PEEK(I-1)=OPCODE(J) THEN 32325›32310 NEXT J›32315 GOTO 32430›32325 FOR K=1 TO 6›32330 POKE REFADR+K+1,PEEK(I+K)›32335 NEXT K›32340 PRINT "LINE ";NULINE;" REFERENCES LINE ";REFLINE›32345 IF REFLINE<32000 AND REFLINE>-1 AND REFLINE=INT(REFLINE) THEN 32355›32350 PRINT "ÇÁÒÂÁÇÅ ÌÉÎÅ ÎÕÍÂÅÒ":GOTO 32430›32355 OLDADR=STARTADR:REFCOUNT=0›32360 OLDLINE=PEEK(OLDADR)+256*PEEK(OLDADR+1)›32365 IF OLDLINE=REFLINE THEN 32410›32370 IF OLDLINE>REFLINE THEN 32390›32375 OLDADR=OLDADR+PEEK(OLDADR+2)›32380 REFCOUNT=REFCOUNT+1›32385 GOTO 32360›32390 PRINT "ÅÒÒÏÒ - REFERENCED LINE DOESN'T EXIST"›32395 LIST NULINE›32400 GOTO 32430›32410 REFLINE=BASE+INCR*REFCOUNT›32415 FOR K=1 TO 6›32420 POKE I+K,PEEK(REFADR+K+1)›32425 NEXT K›32430 NEXT I›32435 STMTSTART=STMTEND+1›32440 IF STMTSTART>LINEEND THEN 32455›32445 STMTEND=LINEADR+PEEK(STMTEND)›32450 GOTO 32285›32455 LINEADR=LINEADR+PEEK(LINEADR+2)›32460 GOTO 32260›32470 LINEADR=STARTADR›32475 FOR I=1 TO LINECOUNT›32480 BASE1=INT(BASE/256):BASE0=BASE-256*BASE1›32485 POKE LINEADR,BASE0›32490 POKE LINEADR+1,BASE1›32495 BASE=BASE+INCR›32500 LINEADR=LINEADR+PEEK(LINEADR+2)›32505 NEXT I›32510 PRINT "*** RENUMBER COMPLETE ***":END ›