Atari 8-bit Source code

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	

• Download link 1
• Download link 2