100 CLS
110 RESTORE 
120 PRINT "Format flp1 - type space to continue"
130 REPeat loop:IF INKEY$(-1)=" " THEN EXIT loop
140 READ tape$:FORMAT "flp1_"&tape$
150 PRINT "Saving..."
160 SAVE flp1_clone
170 READ f
180 FOR n=1 TO f
190 READ a$
200 PRINT "Copying ";a$;"..."
210 COPY "flp2_"&a$ TO "flp1_"&a$
220 END FOR n
230 DIR flp1_
240 DATA "QUILL2.35",7,"BOOT","QUILL","QUIL_HOB","INSTALL_BAS","INSTALL_DAT","PRINTER_DAT","CONVERT_BAS"
