home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 16 / 016.d81 / lk.textmaker < prev    next >
Text File  |  2022-08-26  |  452b  |  17 lines
  1. 0010 DIM infile$ OF 32, outfile$ OF 32, line$ OF 120
  2. 0020 INPUT "input file: ": infile$
  3. 0030 INPUT "output file: ": outfile$
  4. 0040 OPEN FILE 2,infile$,READ
  5. 0050 OPEN FILE 3,outfile$,WRITE
  6. 0060 WHILE NOT EOF(2) DO
  7. 0070   INPUT FILE 2: line$
  8. 0075   PRINT line$
  9. 0080   slashes#:=("//" IN line$)+2
  10. 0090   IF slashes#>2 THEN
  11. 0100     line$:=line$(slashes#:LEN(line$))
  12. 0110     PRINT line$
  13. 0120     PRINT FILE 3: line$
  14. 0130   ENDIF 
  15. 0140 ENDWHILE 
  16. 0150 CLOSE
  17.