32400 REM **************************›32410 REM * THIS REM IS TO LET YOU *›32415 REM * KNOW THAT THIS VERSION *›32420 REM * OF BUNCRUSH HAS BEEN   *›32430 REM * IMPROVED TO HANDLE ALL *›32440 REM * CASES OF IF/THEN. DON'T*›32450 REM * TYPE IN THIS REM, JUST *›32460 REM * READ FOR INFORMATION.. *›32470 REM **************************›32480 REM *›32500 CLR :DIM VAR$(80),NUM$(5):CA=PEEK(130)+PEEK(131)*256:CC=1:POKE 1699,0›32502 ? "}":LPRINT "CROSS REFERENCE UTILITY VER. 2.6 BY TONY MESSINA NEWPORT, RI"›32503 LPRINT :LPRINT :LPRINT "VAR            LINE NUMBERS":LPRINT :GOSUB 32542›32504 TP=PEEK(CA):IF TP>=128 THEN TP=TP-128:POKE 1699,1›32506 VAR$(CC,CC)=CHR$(TP)›32508 IF PEEK(1699) THEN GOSUB 32526›32510 CA=CA+1:CC=CC+1:GOTO 32504›32512 LPRINT :LPRINT "# OF VARIABLES= ";PEEK(1695)-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(1694) THEN GOTO 32536›32534 VAR$(X-1,X-1)=" ":IF X<=16 THEN VAR$(LEN(VAR$)+1)="NO REFERENCES"›32535 LPRINT VAR$:LPRINT :CC=0:POKE 1699,0:VAR$="":NUM$="":RETURN ›32536 CL=PEEK(1697)+PEEK(1698)*256›32538 NUM$=STR$(CL):IF LEN(VAR$)+LEN(NUM$)+2>80 THEN LPRINT VAR$:VAR$="               "›32540 VAR$(LEN(VAR$)+1)=NUM$:VAR$(LEN(VAR$)+1)=", ":X=LEN(VAR$):GOTO 32530›32542 RESTORE 32546:? "าลมฤษฮว อฬ ะาฯวามอ":FOR X=1536 TO 1699:READ TP:POKE X,TP:NEXT X›32544 ? CHR$(125):? "วฯฯฯฯฯก":RETURN ›32546 DATA 169,0,205,158,6,208,8,165,136,133›32548 DATA 205,165,137,133,206,160,0,177,205,141›32550 DATA 161,6,200,177,205,141,162,6,201,126›32552 DATA 208,7,173,161,6,201,244,240,96,200›32554 DATA 177,205,141,157,6,160,4,177,205,201›32556 DATA 20,208,9,192,4,240,1,200,200,76›32558 DATA 115,6,205,159,6,240,59,201,0,240›32560 DATA 49,201,1,240,45,201,14,208,8,152›32562 DATA 24,105,7,168,76,115,6,200,201,15›32564 DATA 208,23,136,136,177,205,200,200,201,27›32566 DATA 240,13,177,205,140,160,6,238,160,6›32568 DATA 24,109,160,6,168,204,157,6,144,183›32570 DATA 32,144,6,76,15,6,141,158,6,32›32572 DATA 144,6,76,142,6,136,238,159,6,140›32574 DATA 158,6,104,96,165,205,24,109,157,6›32576 DATA 133,205,144,2,230,206,96,0,0,128›32578 DATA 0,0,0,0,0,0›