Atari 8-bit Source code

32500CLR:DIMVAR$(80),NUM$(5):CA=PEEK(130)+PEEK(131)*256:CC=1:POKE1690,0
32502?"":?"CROSSREFERENCEUTILITY"
32503?:?:?"VARLINENUMBERS":?:GOSUB32542
32504TP=PEEK(CA):IFTP>=128THENTP=TP-128:POKE1690,1
32506VAR$(CC,CC)=CHR$(TP)
32508IFPEEK(1690)THENGOSUB32526
32510CA=CA+1:CC=CC+1:GOTO32504
32512?:?"#OFVARIABLES=";PEEK(1681)-128
32513END
32526IFVAR$="VAR$"THENPOP:GOTO32512
32527FORX=CC+1TO15:VAR$(X,X)="":NEXTX:GOTO32530
32530A=USR(1536)
32532IFPEEK(1680)THENGOTO32536
32534VAR$(X-1,X-1)="":IFX<=16THENVAR$(LEN(VAR$)+1)="NOREFERENCES"
32535?VAR$:?:CC=0:POKE1690,0:VAR$="":NUM$="":RETURN
32536CL=PEEK(1683)+PEEK(1684)*256
32538NUM$=STR$(CL):IFLEN(VAR$)+LEN(NUM$)+2>39THEN?VAR$:VAR$=""
32540VAR$(LEN(VAR$)+1)=NUM$:VAR$(LEN(VAR$)+1)=",":X=LEN(VAR$):GOTO32530
32542RESTORE32546:?"":FORX=1536TO1684:READTP:POKEX,TP:NEXTX
32544?CHR$(125):?"":RETURN
32546DATA169,0,205,144,6,208,8,165,136,133,205,165,137,133,206,160
32548DATA0,177,205,141,147,6,200,177,205,141,148,6,201,126,208,7
32550DATA173,147,6,201,244,240,82,200,177,205,141,143,6,160,4,177
32552DATA205,201,20,208,5,200,200,76,101,6,205,145,6,240,49,201,0,240,39,201,1,240,35,201,14
32554DATA208,8,152,24,105,7,168,76,101,6,200,201,15,208,13,140
32556DATA146,6,177,205,238,146,6,24,109,146,6,168,204,143,6,144
32558DATA197,32,130,6,76,15,6,141,144,6,32,130,6,76,128,6
32560DATA136,238,145,6,140,144,6,104,96,165,205,24,109,143,6,133
32562DATA205,144,2,230,206,96,0,0,128,0,0,0	

• Download link 1
• Download link 2