home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / utl / locate.ba < prev    next >
Text File  |  2006-10-19  |  815b  |  11 lines
  1. 0 'LOCATE.BA 1.01 25Oct85 Andrew Moore
  2. 1 'CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  3. 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)
  4. 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
  5. 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$;
  6. 5 IFC1$=A$THEN PRINT@200,"[Found at";A;B$;"]";R$:GOSUB7
  7. 6 C1$="":NEXTA:PRINTCHR$(13);"Not found";R$:END
  8. 7 BEEP:PRINT"Continue? ";:I$=INPUT$(1):IFI$="Y"ORI$="y"THENPRINTCHR$(13);R$:PRINT@200,R$:RETURN
  9. 8 IFI$="N"ORI$="n"THENPRINT"N":PRINT:END
  10. 9 PRINTCHR$(13);:GOTO7
  11.