注意事項と覚書き
・new diskは本プログラムの実行前に
　format.nipで2Dの物理フォーマットを行うこと
・470から520までの行は省略可能

100 CLS
110 PRINT "Make 2D version of PC-98H39-4W"
120 PRINT " "
130 PRINT "Mount PC-98H39-4W(2DD) on drive"
140 INPUT "Master drive#";DFR
150 PRINT " "
160 PRINT "Mount new disk (2D) on drive"
170 INPUT "New drive#";DTR
180 PRINT "Formatting disk in drive";DTR
190 FIELD #0, 128 AS A$,128 AS B$
200 LSET A$=STRING$(128,CHR$(&HFF))
210 LSET B$=STRING$(128,CHR$(&HFF))
220 FOR TRK=0 TO 39
230  FOR SIDE=0 TO 1
240   FOR SECS=1 TO 16
250   DSKO$ DTR,SIDE,TRK,SECS
260   NEXT SECS
270  NEXT SIDE
280 NEXT TRK
290 PRINT "Copying DISK-CODE"
300 FOR TRK=0 TO 8
310  FOR SIDE=0 TO 1
320   FOR SECS=1 TO 16
330   D$=DSKI$(DFR,SIDE,TRK,SECS)
340   DSKO$ DTR,SIDE,TRK,SECS
350   NEXT SECS
360  NEXT SIDE
370 NEXT TRK
380 PRINT "Making FAT"
390 FIELD #0, 18 AS A$,56 AS B$,2 AS C$,180 AS D$
400 LSET A$=STRING$(18,CHR$(&HFE))
410 LSET B$=STRING$(56,CHR$(&HFF))
420 LSET C$=STRING$(2,CHR$(&HFE))
430 LSET D$=STRING$(180,CHR$(&HFF))
440 FOR SECS=14 TO 16
450  DSKO$ DTR,1,18,SECS
460 NEXT SECS
470 PRINT "Making Directories"
480 LSET A$=STRING$(18,CHR$(&HFF))
490 LSET C$=STRING$(2,CHR$(&HFF))
500 FOR SECS=1 TO 12
510  DSKO$ DTR,1,18,SECS
520 NEXT SECS
530 PRINT "Making ID"
540 FIELD #0, 1 AS A$,1 AS B$, 254 AS C$
550 LSET A$=STRING$(1,CHR$(&H00))
560 LSET B$=STRING$(1,CHR$(&HFF))
570 LSET C$=STRING$(254,CHR$(&H20))
580 DSKO$ DTR,1,18,13
590 END