1010 PROG$="UTSCAN.BAS":VERS$="82/08/03/2100" 1020 ' 1030 ' Scans lines of an ASCII file for a given character string 1040 ' 1050 DEFINT A-Z:CLS:PRINT" U T S C A N . B A S":PRINT:PRINT 1060 PRINT "ENTER FILE NAME (MUST BE AN ASCII FILE) ";:INPUT "",N$ 1070 OPEN N$ FOR INPUT AS #1 1080 PRINT:PRINT "ENTER STRING TO SEARCH FOR "; 1090 LINE INPUT ;"",A$:IF A$="" THEN 1080 1100 LA=LEN(A$) 1110 PRINT:PRINT:PRINT:PRINT " L O O K I N G . . . ." 1120 LPRINT CHR$(27);"E";CHR$(27);"G STATEMENT SCAN OF "N$" FOR '"A$; 1130 LPRINT "'";CHR$(27);"F";CHR$(27);"H":LPRINT 1140 IF EOF(1) THEN 1180 ' End the program 1150 LINE INPUT #1,F$:IF INSTR(F$,A$)>0 THEN 1160 ELSE 1140 1160 LPRINT F$ ' Found the string, so print it 1170 GOTO 1140 ' Loop back to try next line, if any 1180 LPRINT:LPRINT " E N D O F F I L E" 1190 PRINT:PRINT:PRINT " J O B F I N I S H E D":END try next line, if any 1180 LPRINT:LPRINT " E N D O F F I L E" 1190 PRINT:PRINT:PRINT " J O B F I