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