home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 8 / amigaformatcd08.iso / in_the_mag / emulation / ql / qdos4amiga3.lha / JanToFlp_BAS < prev    next >
Text File  |  1995-09-20  |  378b  |  14 lines
  1. 10 WDIR \'ram1_tmp_dir','jan1_'
  2. 20 OPEN_IN #3,'ram1_tmp_dir'
  3. 30 REPeat Cpy
  4. 35    IF EOF(#3) THEN EXIT Cpy
  5. 40    INPUT #3,a$
  6. 45    IF a$="" THEN NEXT Cpy
  7. 47    IF "--DIR--" INSTR a$ THEN NEXT Cpy
  8. 50    n='.' INSTR a$
  9. 60    IF n>0 THEN a$(n)='_'
  10. 70    PRINT 'copy jan1_';a$;' to flp1_';a$
  11. 80    COPY 'jan1_'&a$ TO 'flp1_'&a$
  12. 90 END REPeat Cpy
  13. 100 CLOSE #3 : DELETE 'ram1_tmp_dir'
  14.