#11 Article 113 Posted at 1987/05/07 21:29:57 by W.M. (MAP009) [PRG.SHI]
Subject: SHINOBU.LOADER Hi-speed
10 '
20 ' SHINOBU LOADER for FM series (Mapletown Network CG #103)
30 '
40 ' (high speed by W.M.)
50 '
100 CLEAR 1000,&H1FFF:DEFINT A-Z
110 U=&H6000:FOR I=U TO U+&H6F:READ A$:POKE I,VAL("&H"+A$):NEXT:DEFUSR=U
120 '
130 LINEINPUT "Input filename of picture data : ";F$:OPEN "I",#1,F$
140 CLS
150 FOR X=0 TO 639 STEP 20
160 LINEINPUT #1,A$:IF A$="" THEN 160 ELSE DUMMY$=USR(MID$(A$,12))
170 NEXT
180 CLOSE
190 '
200 DATA AE,01,C6,05,34,04,33,8D,00,65,C6,30,34,04,A6,80
210 DATA 80,20,34,02,44,44,44,8D,2F,35,02,8D,2B,6A,E4,26
220 DATA ED,35,04,34,10,30,8D,00,32,31,8D,00,34,10,AF,02
230 DATA EC,23,C3,00,04,ED,23,C3,00,03,ED,27,AD,9F,FB,FA
240 DATA 35,10,6A,E4,26,C0,35,84,31,8D,00,07,84,07,E6,A6
250 DATA E7,C0,39,00,40,41,45,55,57,D7,FF,10,00,AA,AA,00
260 DATA 6E,00,00,1C,FF,FC,00,00,00,00,00,BF,07,00,60,AA
270 GOTO 270