home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 14 / 014.d81 / lk.textmaker < prev    next >
Text File  |  2022-08-26  |  446b  |  16 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. 0080   slashes#:=("//" in line$)+2
  9. 0090   if slashes#>2 then
  10. 0100     line$:=line$(slashes#:len(line$)-(slashes#-3))
  11. 0110     print line$
  12. 0120     print file 3: line$
  13. 0130   endif 
  14. 0140 endwhile 
  15. 0150 close
  16.