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›