Listing of file='NEW.BAS;01' on disk='vmedia/catalog_32-sector.ccvf'
90 REM ** RND FILE INITIALIZER FOR CATALOG 32 ** 100 PLOT 12,6,48,14,3,8,0:PRINT " F I L E I N I T I A L I Z E R ":PLOT 6,2,15,3,0,5:GOSUB 370 110 PRINT "CHECKING EXISTENCE OF FILES, CREATING NEW FILES AS NECESSARY," 120 PRINT "AND OPENING THE FILES FOR INITIALIZATION":PRINT 130 DD= 1:SB= 10:N1= 0:N2= 0:DMY= 0:ZE$= CHR$ (0) 140 FILE "T",150:GOTO 210 150 FILE "E",F,E,L:IF E< > 14THEN 200 160 IF L= 210THEN 220 170 IF L= 230THEN 240 180 IF L= 250THEN 260 200 PRINT "DISC ERROR ":FOR I= 1TO 5000:NEXT :GOTO 350 210 FILE "R",1,"INDEX.INF",1:GOTO 230 220 FILE "N","INDEX.INF",1,128,1:GOTO 210 230 FILE "R",2,"INDEX",1:GOTO 250 240 FILE "N","INDEX",200,16,200:GOTO 230 250 FILE "R",3,"FILER",1:GOTO 290 260 FILE "N","FILER",2304,11,128:GOTO 250 290 PRINT "ALL FILES OPEN.":PRINT 300 PRINT "PUTTING INITIAL VALUES.":PRINT 310 PUT 1;DD,SB,N1,N2,DMY 320 FOR I= 1TO 200:PUT 2,I;ZE$[1]:NEXT I 330 PUT 3,2304;ZE$[1],ZE$[1] 340 PRINT "FILES INITIALIZED.":PRINT 350 FILE "C",1,2,3 360 PLOT 1 370 PRINT "AS THIS ROUTINE CREATES AND/OR CLEARS ALL RANDOM FILES," 380 PRINT :PRINT "ENSURE THAT THE DISK IN CD0: DOES NOT CONTAIN RECORDS":PRINT 390 PRINT "THAT NEED TO BE KEPT.":PRINT 400 INPUT "DO YOU STILL WISH TO PROCEED Y/N? ";YN$:PRINT 410 IF YN$= "N"THEN PLOT 1 420 IF YN$< > "Y"THEN 400 430 RETURN