100 CLS
110 RESTORE 
120 PRINT "Format mdv1 - type space to continue"
130 REPeat loop:IF INKEY$(-1)=" " THEN EXIT loop
140 READ tape$,v$:FORMAT "mdv1_"&tape$&v$
150 PRINT "Saving..."
160 SAVE mdv1_clone
170 READ f
180 FOR n=1 TO f
190 READ a$
200 PRINT "Copying ";a$;"..."
210 COPY "mdv2_"&a$ TO "mdv1_"&a$
220 END FOR n
230 DIR mdv1_
240 DATA "ARCH",2.3,6,"BOOT","ARCHIVE","ARCHV_HOB","GAZET_DBF","PRINTER_DAT","SCRCON_BAS"
