31900 REM SEARCH UTILITY¢31901 REM BY SCOTT SHECK¢31902 REM ANTIC MAGAZINE¢31903 GOSUB 31907:POKE 4,1:POKE 2,PEEK(136):POKE 3,PEEK(137)¢31904 ZZ=USR(1536):IF PEEK(4)=0 THEN 31925¢31905 A=PEEK(0)+PEEK(1)*256:IF X=10 THEN LIST "P",A:GOTO 31904¢31906 LIST A:GOTO 31904¢31907 RESTORE 31908:GRAPHICS 0:IF PEEK(1537)<>216 THEN FOR X=1536 TO 1638:READ A:POKE X,A:NEXT X¢31908 DATA 104,216,160,0,177,2,133,0,200,177,2,133,1,201,124,208,11,165,0,201,156,208,5,160,0¢31909 DATA 132,4,96,200,177,2,133,204,200,200,177,2,197,203,208,4,32,91,6,96,201,0,240,35,201,1¢31910 DATA 240,31,201,14,208,4,169,7,208,7,201,15,208,11,200,177,2,132,206,24,101,206,168,177,2,201,20¢31911 DATA 240,209,201,22,208,206,32,91,6,76,2,6,0¢31912 DATA 165,2,24,101,204,133,2,144,2,230,3,96¢31913 ? :? ,"SEARCH UTILITY":POKE 82,0:COUNT=128:ZZ=PEEK(130)+PEEK(131)*256:? :? COUNT;" ";¢31914 A=PEEK(ZZ):? CHR$(A-128*(A>=128));:IF A<128 THEN 31919¢31915 COUNT=COUNT+1:IF PEEK(ZZ+1)=90 AND PEEK(ZZ+2)=218 THEN 31920¢31916 IF COUNT=148 THEN POKE 82,14:POSITION 14,2¢31917 IF COUNT=168 THEN POKE 82,28:POSITION 28,2¢31918 ? :? COUNT;" ";¢31919 ZZ=ZZ+1:GOTO 31914¢31920 POKE 82,2:POSITION 2,23:? :? "NUMBER";:INPUT A:POKE 203,A:? "צCREEN OR סRINTER";¢31921 X=PEEK(764):IF X<>10 AND X<>62 THEN 31921¢31922 ? "}":RETURN ¢31923 ? "}":? :FOR ZZ=31900 TO 31914:? ZZ:NEXT ZZ:? "CLR:POKE842,12:CONT";:POSITION 2,0:POKE 842,13:STOP ¢31924 ? "}":? :FOR ZZ=31915 TO 31928:? ZZ:NEXT ZZ:? "CLR:POKE842,12:?CHR$(125)";:POSITION 2,0:POKE 842,13:END ¢31925 ? :? "END OF SEARCH":? :? " AGAIN (Y/N) ?";:POKE 764,255¢31926 IF PEEK(764)=43 THEN POKE 764,255:GOTO 31900¢31927 IF PEEK(764)=35 THEN POKE 764,255:GOTO 31923¢31928 GOTO 31926¢
