Listing of file='BKUPIX.BAS;01' on disk='vmedia/catalog_32-sector.ccvf'
100 REM BKUPIX 16/3/81 110 PLOT 12:CLEAR 5000 120 PLOT 6,48,14,3,8,0:PRINT " I N D E X B A C K U P U T I L I T Y ":PLOT 6,2,15,3,0,5 130 DIM R$(200) 140 FILE "T",330 150 PRINT "GETTING DATA:":PRINT 160 FILE "R",1,"INDEX.INF",1:GET 1;F$[128] 170 FILE "R",2,"INDEX",1 180 FOR I= 1TO 200:GET 2,I;R$(I)[16]:NEXT I 190 FILE "C",1,2 200 INPUT "INSERT BACKUP DISK IN CD0: ";YN$:PRINT 210 FILE "T",340 220 FILE "R",1,"INDEX.INF",1:GOTO 240 230 FILE "N","INDEX.INF",1,128,1:GOTO 220 240 FILE "R",2,"INDEX",1:GOTO 270 250 FILE "N","INDEX.RND",200,16,200:GOTO 240 260 PRINT "PUTTING DATA:":PRINT 270 PUT 1;F$[128] 280 FOR I= 1TO 200:PUT 2,I;R$(I)[16]:NEXT I 290 FILE "C",1,2 300 PRINT "FILES BACKED UP.":PRINT 310 INPUT "INSERT PROGRAM DISK IN CD0: ";YN$:PRINT 320 PLOT 1 330 PRINT "DISC ERROR! ":PRINT :FOR I= 1TO 5000:NEXT I:GOTO 320 340 FILE "E",F,E,L:IF E< > 14THEN 370 350 IF L= 220THEN 230 360 IF L= 240THEN 250 370 PRINT "DISC ERROR!...FILES NOT BACKED UP.":PRINT :GOTO 310