#11 Article 301 Posted at 1987/08/19 23:56:04 by SHINOBU (MAP055) [PRG.NL3]
Subject: NLOADER 3 FM ﾊﾞｰｼﾞｮﾝ BUG FIX
1000 '*********************************************
1010 ' NLOADER 3 for FM ｼﾘｰｽﾞ Ver 1.0
1020 ' MAP055 SHINOBU
1030 '*********************************************
1040 CLEAR 300,&H1FFF:ADR=&H2000
1050 IF PEEK(&H2000)=&H1A THEN 1080
1060 READ A$:IF A$="SHINOBU" THEN 1080
1070 POKE ADR,VAL("&H"+A$):ADR=ADR+1:GOTO 1060
1080 LINE INPUT "FILE NAME = ";FL$
1090 OPEN "I",#1,FL$
1100 EXEC&H2000
1110 CLOSE
1120 GOTO 1120
1130 DATA 1A,50,30,8D,01,63,33,8D,02,D4,10,8E,00,40,17,00
1140 DATA B0,A7,C4,17,00,AB,5F,44,56,EB,C4,6F,C4,83,00,51
1150 DATA 2B,04,6C,C4,20,F7,34,06,E6,C4,A6,85,A7,C0,35,06
1160 DATA C3,00,51,6F,C4,83,00,09,2B,04,6C,C4,20,F7,34,06
1170 DATA E6,C4,A6,85,A7,C0,35,06,CB,09,A6,85,A7,C0,31,3F
1180 DATA 26,BC,30,8D,01,1C,10,8E,C0,00,10,AF,8D,01,07,17
1190 DATA 00,92,30,8D,02,0C,10,8E,C1,00,17,00,87,30,8D,03
1200 DATA 01,10,8E,C2,00,17,00,7C,30,8D,11,84,10,8E,08,00
1210 DATA 8D,58,7D,00,C0,26,06,A7,80,31,3F,26,F3,34,20,C6
1220 DATA 08,E0,E4,35,20,C6,08,30,8D,11,65,10,8E,C4,00,34
1230 DATA 34,8D,51,35,34,30,89,01,00,31,A9,01,00,5A,26,EF
1240 DATA 8D,70,8E,C0,02,AF,8D,00,AD,7D,00,C0,27,BA,1C,AF
1250 DATA 39,8D,29,7D,00,C0,26,0B,81,20,25,F5,80,20,2A,02
1260 DATA 80,20,39,1C,AF,C6,36,7E,8D,D1,8D,10,7D,00,C0,26
1270 DATA 0A,81,20,25,F5,80,20,2A,02,80,20,39,34,74,F6,07
1280 DATA 0D,7E,79,F9,C6,04,10,AF,8C,5D,34,24,31,8C,4C,CE
1290 DATA FC,82,C6,11,8D,31,A6,A0,A7,C0,5A,26,F9,C6,40,A6
1300 DATA 80,A7,C0,5A,26,F9,7F,FD,05,35,24,31,A8,40,5A,26
1310 DATA D5,39,30,8C,37,CE,FC,82,C6,0D,8D,0B,A6,80,A7,C0
1320 DATA 5A,26,F9,7F,FD,05,39,12,12,7D,FD,05,2B,FB,86,80
1330 DATA B7,FD,05,12,12,7D,FD,05,2A,FB,39,3F,59,41,4D,41
1340 DATA 55,43,48,49,91,D3,93,CB,C0,00,40,90,3F,59,41,4D
1350 DATA 41,55,43,48,49,93,C0,02,90
1360 DATA 00,04,24,26,66,6E,7E,FE,FF
1370 ' ^ ^
1380 ' ｺｺｶﾞ ﾊﾟﾀｰﾝﾉ ﾃｰﾌﾞﾙﾆ ﾅｯﾃｲﾏｽ｡ ｲﾏﾉ ﾊﾟﾀｰﾝ ｶﾞ ｷﾆｲﾗﾅｲ ｶﾀﾊ
1390 ' ﾃｷﾄｳﾆ ﾍﾝｺｳｼﾃﾐﾃ ｸﾀﾞｻｲ
1400 '
1410 DATA 20,02,20,1B,86,A0,A7,8D,01,61,8E,00,00,AF
1420 DATA 8D,01,53,AF,8D,01,51,6F,8D,01,51,6F,8D,01,4B,20
1430 DATA 0C,6D,8D,01,47,10,26,01,3C,AE,8D,01,39,CE,C4,00
1440 DATA A6,8D,01,37,6D,8D,01,32,26,24,11,83,CC,00,10,27
1450 DATA 01,20,C6,01,A6,C0,A7,8D,01,21,85,40,26,0A,AB,8D
1460 DATA 01,19,AB,8D,01,15,20,1E,80,40,A7,8D,01,0D,AB,8D
1470 DATA 01,09,AB,8D,01,05,11,83,CC,00,10,27,00,F1,6F,8D
1480 DATA 00,F8,E6,C0,CB,02,34,06,1E,12,1E,89,30,8D,00,EE
1490 DATA 3A,1E,12,E6,8D,00,E6,54,25,51,20,02,34,06,7D,D4
1500 DATA 09,E6,A4,C4,F0,E7,89,40,00,E6,A4,58,58,58,58,E7
1510 DATA 89,40,50,E6,21,C4,F0,E7,89,80,00,E6,21,58,58,58
1520 DATA 58,E7,89,80,50,E6,22,C4,F0,E7,84,E6,22,58,58,58
1530 DATA 58,E7,89,00,50,7F,D4,09,35,06,30,89,00,A0,8C,3E
1540 DATA 80,24,69,5A,26,B6,16,FF,61,34,06,7D,D4,09,E6,A4
1550 DATA 54,54,54,54,EA,89,40,00,E7,89,40,00,E6,A4,C4,0F
1560 DATA EA,89,40,50,E7,89,40,50,E6,21,54,54,54,54,EA,89
1570 DATA 80,00,E7,89,80,00,E6,21,C4,0F,EA,89,80,50,E7,89
1580 DATA 80,50,E6,22,54,54,54,54,EA,84,E7,84,E6,22,C4,0F
1590 DATA EA,89,00,50,E7,89,00,50,7F,D4,09,35,06,30,89,00
1600 DATA A0,8C,3E,80,24,06,5A,26,A0,16,FE,FE,6A,8C,2E,27
1610 DATA 1A,34,04,AE,8C,22,E6,8C,24,54,25,05,30,01,AF,8C
1620 DATA 17,35,04,5A,10,27,FE,E2,16,FF,1B,6A,8C,0E,39,6A
1630 DATA 8C,08,AF,8C,01,39,SHINOBU
ｱｯﾄ ﾊﾞｰｼﾞｮﾝｶﾞ ｱｶﾞｯﾃ ｲﾅｲﾅｰ ﾏｧ ｲｲｶ!