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