100 REMark =============================================== 110 REMark *** PROGRAM * CLONE * ver. 1.0 *** 120 REMark formats cartridge in mdv1_ as "Robot" then 130 REMark copies robot files from mdv2_ to mdv1_ 140 REMark copyright David Buckley. February 1986 150 CSIZE 3,0 :MODE 8 :DIM r$(1) 160 PRINT 'Formats cartridge in mdv1_ then' 170 PRINT 'copies from mdv2_ to mdv1_' 180 PRINT 'OK to continue? y/n'!! r$ 190 CSIZE 0,0 200 IF r$(1)=='y' THEN 210 RESTORE :READ cartridge$ 220 FOR i=1 TO 3 :FORMAT 'mdv_' & cartridge$ 230 RESTORE 240 REPeat copy_file 250 IF EOF THEN EXIT copy_file 260 READ file$ 270 PRINT 'Copying' ! file$ ! 'from mdv2_ to mdv1_' 280 COPY 'mdv2_' & file$ TO 'mdv1_' & file$ 290 END REPeat copy_files 300 PRINT \'Copying complete' 310 DIR mdv1_ 320 ELSE 330 PRINT \'OK, aborted' 340 END IF 350 DATA 'Robot', 'Initmem', 'Clone', 'Zmem', 'Zmem_names' 360 DATA 'Boot','Help_doc' 370 REMark *** END PROGRAM "CLONE" *** 380 REMark ===============================================