注意事項と覚書き
・new diskは本プログラムの実行前に
　format.nipで2Dの物理フォーマットを行うこと
・180から280までの行は省略可能
・450から490までの行も省略可能
・本物の5"1Dドライブを所持していないため
　560行以降の処置が必要かどうか不明。
　このクラックは2Dドライブを1Dドライブとして
　誤認させるものです。DSKF等で確認可能。

100 CLS
110 PRINT "Make 1D version of PC-98H39-2W"
120 PRINT " "
130 PRINT "Mount PC-98H39-2W(2D) on drive"
140 INPUT "Master drive#";DFR
150 PRINT " "
160 PRINT "Mount new disk (1D) 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,0,TRK*2+SIDE,SECS
350   NEXT SECS
360  NEXT SIDE
370 NEXT TRK
380 PRINT "Making FAT"
390 FIELD #0, 38 AS A$,218 AS B$
400 LSET A$=STRING$(38,CHR$(&HFE))
410 LSET B$=STRING$(218,CHR$(&HFF))
420 FOR SECS=14 TO 16
430  DSKO$ DTR,0,18,SECS
440 NEXT SECS
450 PRINT "Making Directories"
460 LSET A$=STRING$(38,CHR$(&HFF))
470 FOR SECS=1 TO 12
480  DSKO$ DTR,0,18,SECS
490 NEXT SECS
500 PRINT "Making ID"
510 FIELD #0, 1 AS A$,1 AS B$, 254 AS C$
520 LSET A$=STRING$(1,CHR$(&H00))
530 LSET B$=STRING$(1,CHR$(&HFF))
540 LSET C$=STRING$(254,CHR$(&H20))
550  DSKO$ DTR,0,18,13
560 PRINT "Cracking IPL from 2D to 1D"
570 DUMMY$=DSKI$(DFR,0,0,1)
580 FIELD #0,9 AS A$,1 AS B$,68 AS C$,3 AS D$,175 AS E$
590 LSET B$=STRING$(1,CHR$(&H50))
600 LSET D$=STRING$(3,CHR$(&H90))
610 DSKO$ DTR,0,0,1
620 END