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