Compucolor.org – Virtual Media

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