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›