#11 Article 923 Posted at 1988/01/18 00:00:39 by SHINOBU (MAP055) [PRG.NLA]
Subject: NLA7.PRG
10 '*********************************************
20 ' NLOADER 3 for FM ｼﾘｰｽﾞ Ver 1.01
30 ' + ANIMESION MAP055 SHINOBU
40 '*********************************************
50 CLEAR 300,&H27FF:ADR=&H2800
60 IF PEEK(&H2800)=&H16 THEN 90
70 READ A$:IF A$="SHINOBU" THEN 90
80 FOR I=1 TO 64 STEP 2:POKE ADR,VAL("&H"+MID$(A$,I,2)):ADR=ADR+1:NEXT
85 GOTO 70
90 LINE INPUT "FILE NAME = ";FL$
100 OPEN "I",#1,FL$
110 EXEC&H2800
120 CLOSE
130 IF INKEY$<>"" THEN EXEC&H2803
140 GOTO 130
1000 DATA 1600031601F21A50308D0261338D04C0108E0040170114A7C417010F5F4456EB
1010 DATA C46FC48300512B046CC420F73406E6C458EC85EDC13506C300516FC48300092B
1020 DATA 046CC420F73406E6C458EC85EDC13506CB0958EC85EDC1313F26B9308D022010
1030 DATA 8EC00010AF8D02021700DD308D0310108EC1001700D2308D0405108EC2001700
1040 DATA C7308D04FA108EC3001700BC6F8D05C06F8D05BE6F8D05BB8614A78D05B68664
1050 DATA A78D05B1308D05AE108E07D08D7D818026066A8D059A2030854027201F89C43F
1060 DATA 1700688B02E780313F260C8D31271B308D0583108E07D04A26EB20D0A780313F
1070 DATA 26CA8D1A26BE20028D1417003E81801027009D6D8D0559102600951CAF393436
1080 DATA C608308D054C108EC40034348D3A35343089010031A901005A26EF8D5CA68D05
1090 DATA 318B14A78D052B81A035B64F7D00C0260E8D0D812025F48020817F2502802139
1100 DATA 3474F6070D7E79F9C60410AF8D010C3424318D00FACEFC82C6111700DEA6A0A7
1110 DATA C05A26F9C640A680A7C05A26F97FFD05352431A8405A26D239308D00E3CEFC82
1120 DATA C60D1700B6A680A7C05A26F97FFD05396A8D04BC308D0C8E338D0E0AEF818D8B
1130 DATA A7C08D87A7C08D83A7C01F8917FF7CA7C03D1F0217FF74854027141F89C43F17
1140 DATA FF698B02E7C0313F270B4A26F720E5A7C0313F26DFEF8117FF51818027C0308D
1150 DATA 0D446F8D046BC680A7806C8D04635A270717FF37818026F01A506D8D04522719
1160 DATA 338D0D22A68D0449E6C0308D0C183A3A34428D0835424A26EF1CAF391F13AEC1
1170 DATA 108EC400347017FF1F35703089010031A90100ACC425ED17FF3F3912127DFD05
1180 DATA 2BFB8680B7FD0512127DFD052AFB393F59414D415543484991D393C5C0004090
1190 DATA 3F59414D415543484993C0009000000110033007700FF01FF13FF37FF7FFFFCE
1200 DATA C404B6C401C6A08E00004D27043A4A26FCF6C40054308BB6C400A78D0230B6C4
1210 DATA 03A78D022A3410E68D022354102500ACB6C4024A10260148E6C4EBC4EBC04F58
1220 DATA 491E12308D0209308B1E127DD409A6894000840FA7894000E6A4C4F0EA894000
1230 DATA E7894000A6894050840FA7894050E621C4F0EA894050E7894050A6898000840F
1240 DATA A7898000E622C4F0EA898000E7898000A6898050840FA7898050E623C4F0EA89
1250 DATA 8050E7898050A684840FA784E624C4F0EA84E784A6890050840FA7890050E625
1260 DATA C4F0EA890050E78900507FD409308900A06A8D017A1026FF5F16015BE6C4EBC4
1270 DATA EBC04F58491E12308D0165308B1E127DD409A689400084F0A7894000E621C40F
1280 DATA EA894000E7894000A689405084F0A7894050E6A4C40FEA894050E7894050A689
1290 DATA 800084F0A7898000E623C40FEA898000E7898000A689805084F0A7898050E622
1300 DATA C40FEA898050E7898050A68484F0A784E625C40FEA84E784A689005084F0A789
1310 DATA 0050E624C40FEA890050E78900507FD409308900A06A8D00D61026FF5F1600B7
1320 DATA 34503410308D00C8E6C4EBC4EBC44F5849318BB6C403E6C6EBC6EBC64F584933
1330 DATA 8B35107DD409E6A4C4F0E7894000E641C40FEA894000E7894000E621C4F0E789
1340 DATA 4050E6C4C40FEA894050E7894050E622C4F0E7898000E643C40FEA898000E789
1350 DATA 8000E623C4F0E7898050E642C40FEA898050E7898050E624C4F0E784E645C40F
1360 DATA EA84E784E625C4F0E7890050E644C40FEA890050E78900507FD4093550334130
1370 DATA 8900A06A8D00281026FF55B6C40333C66C8D001A7AC40235106C8D0011A68D00
1380 DATA 0D44250230017AC4021026FDD139,SHINOBU