home *** CD-ROM | disk | FTP | other *** search
/ The Best of Mecomp Multimedia 2 / MECOMP-CD-II.iso / amiga / emulation / qlboot-data / jantoflp_bas < prev    next >
Encoding:
Text File  |  1998-02-12  |  378 b   |  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.