1 FOR JRZQ=1705 TO 1779:READ A:POKE JRZQ,A:NEXT JRZQ:FOR I=1536 TO 1702:READ A:POKE I,A:NEXT I:GOTO 29035›2 DATA 104,169,0,170,168,133,207,133,204,177,205,221,244,6,208,19,32,222,6,200,169,0,197,204,240,1,96,232›3 DATA 228,203,208,233,230,207,96,32,222,6,177,205,200,56,233,128,48,245,230,207,162,0,76,178,6,192,255,208›4 DATA 2,230,206,152,101,205,197,134,208,8,165,206,197,135,208,2,230,204,96›5 DATA 104,160,0,177,205,133,207,32,141,6,177,205,133,208,32,141,6,177,205,170,133,203,32,141,6,202,169,14›6 DATA 209,205,208,71,197,204,208,29,32,148,6,138,72,162,0,177,205,221,159,6,208,4,169,6,133,209,232,32,141›7 DATA 6,224,8,208,239,76,93,6,138,72,162,0,32,141,6,224,6,240,17,232,196,204,208,244,189,243,6,209,205,208›8 DATA 237,230,209,76,69,6,104,233,7,170,165,209,201,6,240,29,152,133,209,196,204,240,6,177,205,197,204,240›9 DATA 16,224,3,208,158,32,141,6,165,208,201,113,240,11,76,3,6,32,141,6,202,224,2,208,248,96,230,205,208›10 DATA 2,230,206,96,198,205,165,205,201,255,208,2,198,206,96,4,10,12,13,23,24,27,35›29000 CLR ›29005 REM PROGRAM NAME "FINDVAR.LST"›29010 REM ROBERT EYERMAN,JR. 4/15/84›29015 REM ›29030 GRAPHICS 0:F=1:GOTO 1›29035 DIM A$(10),Z9$(10)›29040 NAMSTRT=PEEK(130)+PEEK(131)*256›29045 NAMEND=PEEK(132)+PEEK(133)*256›29050 IF F=0 THEN 29075›29055 ? :? :? "29030":? "29055":? "1":? "2":? "3":? "4":? "5":? "6":? "7":? "8":? "9":? "10":? "CONT"›29060 POSITION 0,0›29065 POKE 842,13:STOP ›29070 POKE 842,12›29075 GRAPHICS 0:F=0›29080 REM BEGIN,END VAR. NAME TABLE›29085 ? :? "   ***VARIABLE LOCATE PROGRAM***":? :? ›29090 ? "DO YOU WANT LIST OF VARIABLES(1)":? "            LOCATE A VARIABLE(2)"›29095 ? "            LOCATE A CONSTANT(3)":? "            LOCATE LINE REFS.(4)":? :? :? "HIT 1,2,3,OR 4"›29100 INPUT A$:IF A$<"1" OR A$>"4" THEN ? "INPUT EITHER 1,2,3 OR 4":GOTO 29100›29105 IF A$="1" THEN 29295›29110 IF A$="3" THEN 29365›29115 IF A$="4" THEN 29440›29120 GRAPHICS 0:? :? :? "INPUT VARIABLE NAME"›29125 ? "ARRAY NAME MUST END WITH ("›29130 INPUT A$›29135 ALEN=LEN(A$)›29140 A=ASC(A$(ALEN,ALEN))›29145 A=A+128:REM SET LAST CHAR. TO IN      VERSE VIDEO›29150 A$(ALEN,ALEN)=CHR$(A)›29155 REM FIND VARIABLE NO. IN TABLE›29160 POKE 205,PEEK(130):POKE 206,PEEK(131):POKE 203,ALEN:POKE 208,PEEK(132):POKE 209,PEEK(133)›29165 C=1›29170 FOR I=1780 TO 1779+ALEN:POKE I,ASC(A$(C,C)):C=C+1:NEXT I›29175 A=USR(1705)›29180 NAME=127+PEEK(207)›29185 IF PEEK(204)=1 THEN ? :? "**VARIABLE ";A$;" NOT USED**":GOTO 29265›29190 GRAPHICS 0›29195 POKE 204,NAME:POKE 205,PEEK(136):POKE 206,PEEK(137)›29200 IF A$="N" THEN END ›29205 A=USR(1536):REM FIND LINES›29210 LINEN0=PEEK(207)+PEEK(208)*256›29215 IF LINEN0>28999 THEN 29265›29220 IF LINEN0=LSTLIN THEN 29230›29225 REM AVOID PRINT DUPLICATE LINES›29230 LINELOC=PEEK(205)+PEEK(206)*256-PEEK(203)›29235 IF PEEK(LINELOC+4)=0 THEN 29205›29240 REM SKIP LINE STARTING WITH REM›29245 IF NAME=155 THEN IF PEEK(LINELOC+PEEK(LINELOC+2)-1)=155 THEN 29205›29250 REM SKIP EOL CHARACTER IF ONE AT           END OF LINE›29255 LIST LINEN0:LSTLIN=LINEN0›29260 GOTO 29205›29265 ? "WANT TO CONTINUE? Y OR N":GOTO 29270›29270 INPUT A$›29275 IF A$="N" THEN END ›29280 IF A$<>"Y" THEN 29265›29285 GOTO 29000›29290 REM LIST ALL VARIABLE NAMES OF        USER PROGRAM›29295 GRAPHICS 0:C=1:? "     ***VARIABLE NAME LIST***":? ›29300 FOR I=1 TO 10:Z9$(I,I)="0":NEXT I›29305 FOR I=NAMSTRT TO NAMEND›29310 IF PEEK(I)>128 THEN A=PEEK(I)-128:Z9=PEEK(I):Z9$(C,C)=CHR$(A):GOTO 29320›29315 Z9=PEEK(I):Z9$(C,C)=CHR$(Z9):C=C+1:GOTO 29345›29320 IF Z9$(1,4)="JRZQ" THEN 29350›29325 C2=C2+1›29330 IF C1=2 THEN 29340›29335 ? Z9$(1,C),"  ";:C=1:C1=C1+1:GOTO 29345›29340 ? Z9$(1,C):C=1:C1=0›29345 NEXT I›29350 ? :? :? " TOTAL NUMBER OF VARIABLES=";C2›29355 GOTO 29265›29360 REM **************************›29365 REM FIND CONSTANT›29370 REM **************************›29375 XXX=1780:POKE 209,0:POKE 204,0›29380 POKE 205,PEEK(136):POKE 206,PEEK(137)›29385 C=1:C1=1:GRAPHICS 0:? :? "INPUT CONSTANT"›29390 INPUT A:A$=STR$(A):ALEN=LEN(A$):Z9$=A$›29395 I=ALEN/2:IF I<>INT(I) THEN I=INT(I+1):ALEN=ALEN+1:A$(2,ALEN)=Z9$:A$(1,1)="0"›29400 POKE XXX,63+I›29405 Z9$=A$(ALEN-C,ALEN-C+1):A=VAL(Z9$(1,1))*16+VAL(Z9$(2,2)):POKE XXX+PEEK(XXX)-63-C1+1,A›29410 IF ALEN-C=1 THEN 29420›29415 C1=C1+1:C=C+2:GOTO 29405›29420 FOR I=6 TO C1+1 STEP -1:POKE XXX+I,0:NEXT I›29425 A=USR(1536)›29430 LINEN0=PEEK(207)+PEEK(208)*256:IF LINEN0>28999 THEN 29265›29435 LIST LINEN0:GOTO 29425›29437 REM ****************›29438 REM FIND LINE REFERENCES›29439 REM ****************›29440 GRAPHICS 0:POKE 205,PEEK(136):POKE 206,PEEK(137)›29455 POKE 209,0:POKE 204,14›29460 A=USR(1536)›29465 LINEN0=PEEK(207)+PEEK(208)*256:IF LINEN0>28999 THEN 29265›29470 LIST LINEN0:GOTO 29455›