31000 REM RENUMBERING UTILITY›31002 REM BY JERRY WHITE›31004 REM AND FERNANDO HERRERA›31006 REM ANTIC MAGAZINE›31010 GOTO 31560›31020 FOR I=0 TO 5:B(I)=PEEK(A+I):NEXT I:IF B(0)=0 THEN D=0:GOTO 31050›31030 FOR I=1 TO 5:C\$(I*2-1,I*2-1)=STR\$(INT(B(I)/16)):C\$(I*2,I*2)=STR\$(B(I)-INT(B(I)/16)*16):NEXT I›31040 D=INT(VAL(C\$)/INT(100^(68-B(0)))):REM IF USING NON-XL, CHANGE ABOVE TO 68-B(0))+1.0E-03)).›31050 H=INT(D/256):L=D-H*256:FOR I=1 TO J*2 STEP 2›31060 IF L=ASC(A\$(I,I)) AND H=ASC(A\$(I+1,I+1)) THEN L=ASC(B\$(I,I)):H=ASC(B\$(I+1,I+1)):POP :GOTO 31080›31070 NEXT I:GOSUB 31710:GOSUB 31540:? "L.";D;" NOT FOUND":RETURN ›31080 D=L+H*256:IF D=0 THEN 31120›31090 C\$="0000000000":L=LEN(STR\$(D)):IF L/2=INT(L/2) THEN C\$(1,L)=STR\$(D):GOTO 31110›31100 C\$(2,L+1)=STR\$(D)›31110 FOR I=1 TO 9 STEP 2:K=VAL(C\$(I,I+1)):B(INT(I/2+1))=INT(K/10)*16+K-INT(K/10)*10:NEXT I:B(0)=63+INT((L+1)/2)›31120 FOR I=0 TO 5:POKE (A+I),B(I):NEXT I:RETURN ›31130 FOR I=1 TO 128:IF V\$(I,I)=CHR\$(X) THEN POP :RETURN ›31140 NEXT I:V\$(X-127,X-127)=CHR\$(X):Y=R:L=0›31150 L=L+1:IF L>J THEN GOSUB 31710:GOSUB 31540:? "VAR. NOT DEFINED":RETURN ›31160 I=Y+3›31170 IF (PEEK(I+1)=54 OR PEEK(I+1)=6) AND PEEK(I+2)=X AND PEEK(I+4)=14 THEN 31200›31180 IF PEEK(Y+2)<>PEEK(I) THEN I=Y+PEEK(I):GOTO 31170›31190 Y=Y+PEEK(Y+2):GOTO 31150›31200 IF PEEK(I+11)=20 OR PEEK(I+11)=22 THEN A=I+5:GOSUB 31020:RETURN ›31210 GOTO 31180›31220 IF M<>Z THEN RETURN ›31230 A=P+M-7:GOSUB 31020:RETURN ›31240 T=S+3›31250 IF PEEK(T)=23 OR PEEK(T)=24 THEN T=T+1:GOTO 31270›31260 T=T+1:GOTO 31250›31270 IF PEEK(T)=14 AND (PEEK(T+7)=18 OR PEEK(T+7)=22 OR PEEK(T+7)=20) THEN GOTO 31330›31280 IF PEEK(T)>127 AND (PEEK(T+1)=18 OR PEEK(T+1)=22 OR PEEK(T+1)=20) THEN 31350›31290 GOSUB 31710:GOSUB 31540:? "LOG. OR ARIT. EXP"›31300 T=T+1:IF PEEK(T)=18 THEN T=T+1:GOTO 31270›31310 IF PEEK(T)=22 OR PEEK(T)=20 THEN RETURN ›31320 GOTO 31300›31330 A=T+1:GOSUB 31020:IF PEEK(T+7)=18 THEN T=T+8:GOTO 31270›31340 RETURN ›31350 X=PEEK(T):GOSUB 31130:IF PEEK(T+1)=18 THEN T=T+2:GOTO 31270›31360 RETURN ›31370 T=S+2:IF PEEK(T)=22 OR PEEK(T)=20 THEN RETURN ›31380 IF PEEK(T)=15 AND (PEEK(T+PEEK(T+1)+2)=22 OR PEEK(T+PEEK(T+1)+2)=20) THEN RETURN ›31390 IF PEEK(T)=15 THEN T=T+PEEK(T+1)+3›31400 GOSUB 31270:RETURN ›31410 Q=Q+1:IF Q>J THEN 31500›31420 M=PEEK(P+2):S=P+3›31430 Z=PEEK(S):N=PEEK(S+1)›31440 IF N=10 OR N=11 OR N=12 OR N=13 THEN T=S+2:GOSUB 31270:GOTO 31480›31450 IF N=7 THEN GOSUB 31220:GOTO 31480›31460 IF N=30 THEN GOSUB 31240:GOTO 31480›31470 IF N=4 OR N=35 THEN GOSUB 31370›31480 IF M<>Z THEN S=P+Z:GOTO 31430›31490 P=P+M:GOTO 31410›31500 GOSUB 31690:IF PEEK(84)<5 THEN POKE 764,43:GOTO 31520›31510 ? " ×ÒÉÔÅ ÄÏ×Î ÔÈÅÓÅ ÎÏÔÅÓ ÔÏ ÆÉØ ÙÏÕÒ   ÐÒÏÇÒÁÍ ÁÎÄ ÔÈÅÎ ÔÙÐÅ §Ù§ ÔÏ ÌÉÓÔ ÉÔ "›31520 IF PEEK(764)<>43 THEN 31520›31530 ? :? " ÒÅÖÉÅ× ÁÎÄ ÔÅÓÔ ÙÏÕÒ ÐÒÏÇÒÁÍ ":? " ÂÅÆÏÒÅ ÓÁÖÉÎÇ ÉÔ ":POKE 764,255:END ›31540 H=ASC(A\$(Q*2,Q*2)):L=ASC(A\$(Q*2-1,Q*2-1)):K=ASC(B\$(Q*2,Q*2))›31550 I=ASC(B\$(Q*2-1,Q*2-1)):? L+H*256,I+K*256,:RETURN ›31560 CLR :TRAP 31560:? CHR\$(125):? :? "NEW STARTING LINE";›31570 INPUT T:IF T<0 OR T>30999 OR T<>INT(T) THEN 31560›31580 ? "LINE INCREMENT";:INPUT S:IF S<1 OR S<>INT(S) THEN 31560›31590 TRAP 31700:GOSUB 31680:R=PEEK(136)+PEEK(137)*256:P=R:J=0:Q=J›31600 D=PEEK(P)+PEEK(P+1)*256:IF D=31000 THEN GOTO 31620›31610 J=J+1:P=P+PEEK(P+2):GOTO 31600›31620 IF T+S*J>30999 THEN GOSUB 31690:? "INCREMENT TOO BIG"›31630 IF PEEK(540) THEN 31630›31640 DIM C\$(10),B(6),V\$(128),A\$(J*2),B\$(J*2):FOR I=1 TO 128:V\$(I,I)=CHR\$(0):NEXT I:P=R:FOR I=1 TO J*2 STEP 2›31650 H=INT(T/256):L=T-H*256:A\$(I)=CHR\$(PEEK(P)):POKE P,L:B\$(I)=CHR\$(L):A\$(I+1)=CHR\$(PEEK(P+1)):POKE P+1,H›31660 B\$(I+1)=CHR\$(H):T=T+S:P=P+PEEK(P+2):NEXT I:? CHR\$(125);" ÂÁÓÉÃ ÒÅÎÕÍÂÅÒÉÎÇ ÐÒÏÇÒÁÍ "›31670 ? "OLD LINE","NEW LINE","NOTES":? "--------","--------","-----":P=R:GOTO 31410›31680 POKE 559,0:RETURN ›31690 POKE 559,34:RETURN ›31700 GOSUB 31690:? "ERROR ";PEEK(195);" LINE # ";PEEK(186)+PEEK(187)*256:END ›31710 IF PEEK(84)<20 THEN RETURN ›31720 GOSUB 31690:? " ×ÒÉÔÅ ÄÏ×Î ÔÈÅ ÁÂÏÖÅ ÎÏÔÅÓ ":? "THEN TYPE 'G'TO CONTINUE":POKE 764,255›31730 IF PEEK(764)=61 THEN ? CHR\$(125):GOSUB 31680:RETURN ›31740 GOTO 31730›