Listing of file='INI4TH.BAS;02' on disk='vmedia/chip_120-sector.ccvf'
0 REM INITIALIZES DISK & DIRECTORY BY PROVIDING 1 REM A DIRECTORY IN SCREEN 0, USABLE SCREENS IN 2 REM SCREENS 1 - 48, AND A COPY OF DIRECTORY IN SCREEN 49. 10 PLOT 12,15,3,0,16:INPUT "ENTER DISK VOLUME NAME (10 CHAR. MAX)--> ";DN$ 20 PLOT 3,0,18:INPUT "ENTER DISK DRIVE FOR INITIALIZATION ";D$ 25 CD$= "INI CD"+ D$+ ":"+ DN$+ " 8" 30 PLOT 27,4:PRINT CD$:PLOT 27,27 40 PLOT 22:FOR N= 1TO 45:PRINT N; 50 PLOT 27,4:PRINT "SAVE EMPTY.SCR 0 400 0":PLOT 27,27 60 NEXT N:END 65 REM NAME SCREENS 46-46 BELOW: 70 PLOT 27,4:PRINT "SAVE EMPTY.SCR;2E 0 1000 0":PLOT 27,27 75 REM PUT COPY OF DIRECTORY ABOVE SCREEN 48 80 PLOT 27,4:PRINT "READ 0 B000 400":PLOT 27,27 90 PLOT 27,4:PRINT "WRITE 188 B000 400":PLOT 27,27 100 PRINT :PRINT "FINISHED" 110 END