アーティクル

#11 Article 187 Posted at 1987/06/13 05:53:01 by Tomo (MAP292) [PRG.NL2]
Subject: NLOADER2 ｺﾝｿｸﾊﾞｰｼﾞｮﾝ For FM-7ｼﾘｰｽﾞ
10 ' nloader2 ｺｳｿｸﾊﾞｰｼﾞｮﾝ for FM-7/new7/77/AV/AV20/40 (F-BASIC V3.0)
20 '
30 '                                           By Tomo
40 GOSUB 130
50 LINE INPUT "file name=";FL$
60 OPEN"I",#1,FL$
70 CLS
80 COLOR=(1,7)
90 EXEC&H5000
100 CLOSE
110 A$=INPUT$(1)
120 END
130 '
140 ' ﾏｼﾝｺﾞ ﾖﾐｺﾐ
150 '
160 FOR I=&H5000 TO &H51F4
170 READ A$
180 POKE I,VAL("&H"+A$)
190 NEXT:RETURN
200 DATA CC,00,00,FD,51,E6,FD,51,E8,BE,51,E6,30,89,FD,80
210 DATA 26,01,39,86,01,97,BF,BD,D0,72,81,20,25,F5,81,9F
220 DATA 23,02,80,20,80,20,B7,51,DF,81,40,24,07,C6,01,F7
230 DATA 51,E2,20,1D,B6,51,DF,80,40,B7,51,DF,86,01,97,BF
240 DATA BD,D0,72,80,1E,B7,51,E2,81,9F,23,02,80,20,B7,51
250 DATA E2,B6,51,DF,44,44,44,B7,51,E0,B6,51,DF,C6,08,8D
260 DATA 50,B6,51,EA,B7,51,E1,B6,51,E2,7F,51,E5,B6,51,E5
270 DATA B1,51,E2,27,94,7C,51,E5,BD,DB,59,F6,51,E0,BE,51
280 DATA E6,10,BE,51,E8,8D,3B,F6,51,E1,BE,51,E6,10,BE,51
290 DATA E8,31,22,8D,2D,F6,51,E9,CB,04,F7,51,E9,C1,BE,25
300 DATA 0B,7F,51,E9,BE,51,E6,30,04,BF,51,E6,20,BF,16,FF
310 DATA 58,F7,51,E3,B1,51,E3,25,05,B0,51,E3,20,F6,B7,51
320 DATA EA,39,34,06,1F,10,54,54,C5,01,26,05,7F,51,EC,20
330 DATA 05,86,01,B7,51,EC,1F,20,86,50,3D,FD,51,E3,1F,10
340 DATA 44,56,44,56,44,56,F3,51,E3,FD,51,DB,35,06,30,8D
350 DATA 00,FB,3A,31,8D,00,E6,B6,51,EC,26,12,A6,84,84,F0
360 DATA A7,A0,A6,84,84,0F,48,48,48,48,A7,A4,20,10,A6,84
370 DATA 84,F0,44,44,44,44,A7,A0,A6,84,84,0F,A7,A4,B6,FD
380 DATA 05,2B,FB,86,80,B7,FD,05,B6,FD,05,2A,FB,10,8E,FC
390 DATA 80,30,8C,74,EC,81,ED,A1,EC,81,ED,A1,EC,81,ED,A1
400 DATA EC,81,ED,A1,EC,81,ED,A1,EC,81,ED,A1,EC,81,ED,A1
410 DATA EC,81,ED,A1,EC,81,ED,A1,EC,81,ED,A1,EC,81,ED,A1
420 DATA EC,81,ED,A1,EC,81,ED,A1,EC,81,ED,A1,EC,81,ED,A1
430 DATA EC,81,ED,A1,EC,81,ED,A1,EC,81,ED,A1,EC,81,ED,A1
440 DATA EC,81,ED,A1,EC,81,ED,A1,EC,81,ED,A1,EC,81,ED,A1
450 DATA EC,81,ED,A1,EC,81,ED,A1,EC,81,ED,A1,EC,81,ED,A1
460 DATA EC,81,ED,A1,7F,FD,05,39,00,00,3F,59,41,4D,41,55
470 DATA 43,48,49,93,D3,8F,90,33,8C,21,AE,C4,31,8C,1E,A6
480 DATA A0,F6,D4,09,AA,84,A7,84,F7,D4,09,30,88,50,A6,A0
490 DATA F6,D4,09,AA,84,A7,84,F7,D4,09,39,00,00,00,00,00
500 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,40,41
510 DATA 45,55,57,D7,FF,00,00,00,00,00,00,00,00,00,00,00
@