10 REM -----------------------------------------------------------------
20 REM  Mini PD-DOS INSTALLATION PROGRAM PART 1
30 REM    Convert HEX DATA FILE to BINARY DATA FILE
40 REM
50 REM     INPUT FILE : TRK01.HEX, TRK234.HEX, TRK5.HEX
60 REM                  TRK6.HEX, TRK7.HEX, TRK8.HEX
70 REM
80 REM    OUTPUT FILE : TRK01.DAT, TRK234.DAT, MDM903.DAT
90 REM
100 REM                                By 8-MAN (J&P HOTLINE) 4/MAY/1990
110 REM -----------------------------------------------------------------
120 GOTO 160
130 INPUT #1,DT$ : PRINT "*";
140 FOR J=0 TO 31 : Z$=MID$(DT$,J*2+1,2)
150 D=VAL("&H"+Z$) : PRINT #2,CHR$(D); : NEXT J : RETURN
160 OPEN "TRK01.HEX" FOR INPUT AS #1 : OPEN "TRK01.DAT" FOR OUTPUT AS #2
170 PRINT : PRINT "TRK01.DAT ";
180 FOR I=1 TO 8*24 : GOSUB 130 : NEXT I : CLOSE #1,#2
190 OPEN "TRK234.HEX" FOR INPUT AS #1 : OPEN "TRK234.DAT" FOR OUTPUT AS #2
200 PRINT : PRINT "TRK234.DAT ";
210 FOR I=1 TO 8*23 : GOSUB 130 : NEXT I : CLOSE #1,#2
220 OPEN "TRK5.HEX" FOR INPUT AS #1 : OPEN "MDM903.DAT" FOR OUTPUT AS #2
230 PRINT : PRINT "MDM903.DAT ";
240 FOR I=1 TO 8*16 : GOSUB 130 : NEXT I : CLOSE #1
250 OPEN "TRK6.HEX" FOR INPUT AS #1
260 FOR I=1 TO 8*16 : GOSUB 130 : NEXT I : CLOSE #1
270 OPEN "TRK7.HEX" FOR INPUT AS #1
280 FOR I=1 TO 8*16 : GOSUB 130 : NEXT I : CLOSE #1
290 OPEN "TRK8.HEX" FOR INPUT AS #1
300 FOR I=1 TO 8*16 : GOSUB 130 : NEXT I : CLOSE #1,#2



＄Ｒ／Ｏ属性のファイルの場合　ＢＤＯＳエラーが表示され
　　　　　　　処理は中断されます。

　ＧＥＴ