注意事項と覚書き
・new diskは本プログラムの実行前に
　format.nipで物理フォーマットを行うこと
　ディレクトリ・IDはフォーマット時生成のものを使用します
・FATをいじるのでファイルが無い状態で実行すること
・400行以降のパッチはエミュレータ上では不要。
　実機では動作モードをh50で初期化しないと動作× (430行目)
　お好みで440行目は削除できるはず？

100 CLS
110 PRINT "Make 1D 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 a new disk (1D) on drive"
170 INPUT "New drive#";DTR

200 PRINT "Copying DISK-CODE"
210 FOR TRK=0 TO 8
220  FOR SIDE=0 TO 1
230   FOR SECS=1 TO 16
240   D$=DSKI$(DFR,SIDE,TRK,SECS)
250   DSKO$ DTR,TRK*2+SIDE,SECS
260   NEXT SECS
270  NEXT SIDE
280 NEXT TRK

300 PRINT "Making FAT"
310 FIELD #0, 38 AS A$,218 AS B$
320 LSET A$=STRING$(38,CHR$(&HFE))
330 LSET B$=STRING$(218,CHR$(&HFF))
340 FOR SECS=14 TO 16
350  DSKO$ DTR,18,SECS
360 NEXT SECS

400 PRINT "Cracking IPL from 2D to 1D"
410 DUMMY$=DSKI$(DFR,0,0,1)
420 FIELD #0,9 AS A$,1 AS B$,68 AS C$,3 AS D$,175 AS E$
430 LSET B$=STRING$(1,CHR$(&H50))
440 LSET D$=STRING$(3,CHR$(&H90))
450 DSKO$ DTR,0,0,1
460 END