home *** CD-ROM | disk | FTP | other *** search
/ Frostbyte's 1980s DOS Shareware Collection / floppyshareware.zip / floppyshareware / USCX / DOSUT-01.ZIP / UTSCAN.BAS < prev   
BASIC Source File  |  1982-08-22  |  1KB  |  22 lines
  1. 1010 PROG$="UTSCAN.BAS":VERS$="82/08/03/2100"
  2. 1020 '
  3. 1030 ' Scans lines of an ASCII file for a given character string
  4. 1040 '
  5. 1050 DEFINT A-Z:CLS:PRINT"             U T S C A N . B A S":PRINT:PRINT
  6. 1060 PRINT "ENTER FILE NAME (MUST BE AN ASCII FILE) ";:INPUT "",N$
  7. 1070 OPEN N$ FOR INPUT AS #1
  8. 1080 PRINT:PRINT "ENTER STRING TO SEARCH FOR ";
  9. 1090 LINE INPUT ;"",A$:IF A$="" THEN 1080
  10. 1100 LA=LEN(A$)
  11. 1110 PRINT:PRINT:PRINT:PRINT "          L  O  O  K  I  N  G   .  .  .  ."
  12. 1120 LPRINT CHR$(27);"E";CHR$(27);"G  STATEMENT SCAN OF "N$" FOR '"A$;
  13. 1130 LPRINT "'";CHR$(27);"F";CHR$(27);"H":LPRINT
  14. 1140 IF EOF(1) THEN 1180 ' End the program
  15. 1150 LINE INPUT #1,F$:IF INSTR(F$,A$)>0 THEN 1160 ELSE 1140
  16. 1160 LPRINT F$ ' Found the string, so print it
  17. 1170 GOTO 1140 ' Loop back to try next line, if any
  18. 1180 LPRINT:LPRINT "   E N D   O F   F I L E"
  19. 1190 PRINT:PRINT:PRINT "  J O B   F I N I S H E D":END
  20.  try next line, if any
  21. 1180 LPRINT:LPRINT "   E N D   O F   F I L E"
  22. 1190 PRINT:PRINT:PRINT "  J O B   F I