10 WDIR \'ram1_tmp_dir','jan1_'
20 OPEN_IN #3,'ram1_tmp_dir'
30 REPeat Cpy
35    IF EOF(#3) THEN EXIT Cpy
40    INPUT #3,a$
45    IF a$="" THEN NEXT Cpy
47    IF "--DIR--" INSTR a$ THEN NEXT Cpy
50    n='.' INSTR a$
60    IF n>0 THEN a$(n)='_'
70    PRINT 'copy jan1_';a$;' to flp1_';a$
80    COPY 'jan1_'&a$ TO 'flp1_'&a$
90 END REPeat Cpy
100 CLOSE #3 : DELETE 'ram1_tmp_dir'
