Listing of file='INI4TH.BAS;01' on disk='vmedia/chip_120-sector.ccvf'
10 GOTO 80: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 49:PRINT N; 50 PLOT 27,4:PRINT "SAVE EMPTY.SCR 0 400 0":PLOT 27,27 60 NEXT N:END 70 REM PLOT 27,4:PRINT "SAVE LETTER.SCR;2E 0 1000 0":PLOT 27,27 80 REM PLOT 27,4:PRINT "READ 0 B000 400":PLOT 27,27 90 REM PLOT 27,4:PRINT "WRITE 188 B000 400":PLOT 27,27 100 REM PRINT:PRINT "FINISHED" 110 END