0 'LOCATE.BA 1.01 25Oct85 Andrew Moore 1 'CLUB 100 Library - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE 2 CLS:PRINT"> LOCATE 1.00":PRINT"> Copyright 1985 Andrew Moore":PRINT@120,"String: ";:LINEINPUT A$:R$=CHR$(27)+"K":Q$=CHR$(34):B$=CHR$(8) 3 PRINT"Scan 1)ROM or 2)RAM? ";:I$=INPUT$(1):IF I$="1" THEN Y=0 ELSE IF I$="2"THEN Y=32768 ELSE PRINT CHR$(13);:GOTO 3 4 PRINT:PRINT"[Scanning";Y;"to";Y+32767;B$;"]":FOR A=Y TO Y+32767:FOR B=A TO A+LEN(A$)-1:C1$=C1$+CHR$(PEEK(B)):NEXT B:IF INKEY$<>"" THEN PRINT@199,A;"of";Y+32767;R$; 5 IFC1$=A$THEN PRINT@200,"[Found at";A;B$;"]";R$:GOSUB7 6 C1$="":NEXTA:PRINTCHR$(13);"Not found";R$:END 7 BEEP:PRINT"Continue? ";:I$=INPUT$(1):IFI$="Y"ORI$="y"THENPRINTCHR$(13);R$:PRINT@200,R$:RETURN 8 IFI$="N"ORI$="n"THENPRINT"N":PRINT:END 9 PRINTCHR$(13);:GOTO7