#11 Article 293 Posted at 1987/08/19 06:04:47 by SHINOBU (MAP055) [PRG.NL3]
Subject: NLOADER 3 FM ﾊﾞｰｼﾞｮﾝ
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,D1,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
1355 DATA 00,04,24,26,66,6E,7E,F7,FF
1356 ' ^ ^
1357 ' ｺｺｶﾞ ﾊﾟﾀｰﾝﾉ ﾃｰﾌﾞﾙﾆ ﾅｯﾃｲﾏｽ｡ ｲﾏﾉ ﾊﾟﾀｰﾝ ｶﾞ ｷﾆｲﾗﾅｲ ｶﾀﾊ
1358 ' ﾃｷﾄｳﾆ ﾍﾝｺｳｼﾃﾐﾃ ｸﾀﾞｻｲ
1359 '
1360 DATA 20,02,20,1B,86,A0,A7,8D,01,5E,8E,00,00,AF
1370 DATA 8D,01,50,AF,8D,01,4E,6F,8D,01,4E,6F,8D,01,48,20
1380 DATA 0C,6D,8D,01,44,10,26,01,39,AE,8D,01,36,CE,C4,00
1390 DATA 31,8D,01,37,A6,8D,01,30,6D,8D,01,2B,26,24,11,83
1400 DATA CC,00,10,27,01,19,C6,01,A6,C0,A7,8D,01,1A,85,40
1410 DATA 26,0A,AB,8D,01,12,AB,8D,01,0E,20,1E,80,40,A7,8D
1420 DATA 01,06,AB,8D,01,02,AB,8D,00,FE,11,83,CC,00,10,27
1430 DATA 00,EA,6F,8D,00,F1,E6,C0,CB,02,34,06,E6,8D,00,EA
1440 DATA 54,25,53,20,02,34,06,7D,D4,09,E6,A6,C4,F0,E7,89
1450 DATA 40,00,E6,A6,58,58,58,58,E7,89,40,50,4C,E6,A6,C4
1460 DATA F0,E7,89,80,00,E6,A6,58,58,58,58,E7,89,80,50,4C
1470 DATA E6,A6,C4,F0,E7,84,E6,A6,58,58,58,58,E7,89,00,50
1480 DATA 7F,D4,09,35,06,30,89,00,A0,8C,3E,80,24,6B,5A,26
1490 DATA B4,16,FF,6A,34,06,7D,D4,09,E6,A6,54,54,54,54,EA
1500 DATA 89,40,00,E7,89,40,00,E6,A6,C4,0F,EA,89,40,50,E7
1510 DATA 89,40,50,4C,E6,A6,54,54,54,54,EA,89,80,00,E7,89
1520 DATA 80,00,E6,A6,C4,0F,EA,89,80,50,E7,89,80,50,4C,E6
1530 DATA A6,54,54,54,54,EA,84,E7,84,E6,A6,C4,0F,EA,89,00
1540 DATA 50,E7,89,00,50,7F,D4,09,35,06,30,89,00,A0,8C,3E
1550 DATA 80,24,06,5A,26,9E,16,FF,05,6A,8C,2E,27,1A,34,04
1560 DATA AE,8C,22,E6,8C,24,54,25,05,30,01,AF,8C,17,35,04
1570 DATA 5A,10,27,FE,E9,16,FF,22,6A,8C,0E,39,6A,8C,08,AF
1580 DATA 8C,01,39,SHINOBU