home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
dbsalvag.zip
/
FILTER.BAS
next >
Wrap
BASIC Source File
|
1986-10-19
|
1KB
|
41 lines
100 rem Filter
101 rem
102 rem This program will scan a file and will change
103 rem every end-of-file marker (1A hex) to a space (20 hex)
105 rem
107 print:print:print
110 EF$=CHR$(26)
120 SP$=CHR$(32)
121 PRINT "This Program will scan an input file, change every 1A hex"
122 print "encountered to 20 hex, and write the result to an output file."
123 print:print
130 line input "Enter input filename (including extension) : ";file1$
140 OPEN "R",1,FILE1$
150 FIELD #1, 128 AS A$
160 LINE INPUT "Enter output filename (including extension) : ";file2$
165 print:print
170 open"R",2,FILE2$
180 FIELD #2, 128 AS B$
190 GET #1
200 IF EOF(1) THEN 250
210 GOSUB 500
220 LSET B$=A$
230 PUT #2
235 PRINT ".";
240 GOTO 190
250 CLOSE #1
260 CLOSE #2
265 PRINT:PRINT
270 END
500 REM: ***FILTER ***
510 REM:
520 X=INSTR(A$,EF$)
530 IF X=0 THEN RETURN
540 C$=A$
550 MID$(C$,X,1)=SP$
560 X=INSTR(C$,EF$)
570 IF X<>0 THEN 550
580 LSET A$=C$
590 RETURN