#11 Article 127 Posted at 1987/05/19 05:06:27 by TA(O) (MAP269) [PRG.SHI]
Subject: SHINOBU.LOADER Hi-Speed(PC-88version)
10 ' Shinobu Loader (88 Version)
20 ' Programed by Magicl Creamy TA(O)
30 '
100 CLEAR,&HBF00 : SCREEN 1 : CONSOLE 0,25,0,0 : CLS 3 : GOSUB 200
110 DEF USR1=&HBF00 : DEF USR2=&HBF10 : A=USR1(0)
120 INPUT "File name";FI$:CLS
130 OPEN FI$ FOR INPUT AS #1
140 FOR I=0 TO 31
150 LINE INPUT #1,A$ : IF A$="" THEN 150
160 A$=USR2(MID$(A$,12))
180 NEXT
190 CLOSE : END
200 FOR I=&HBF00 TO &HBFBF STEP 16 : SUM=0
210 FOR J=0 TO 15
220 READ A$ : DAT=VAL("&H"+A$):POKE I+J,DAT : SUM=SUM+DAT
230 NEXT
240 READ A$ : IF VAL("&H"+A$)<>SUM THEN PRINT"Down-load error" : END
250 NEXT
255 RETURN
260 DATA 21,00,C0,22,AC,BF,22,AE,BF,3E,02,32,B0,BF,C9,00,6A7
270 DATA F3,FE,03,C2,B1,03,EB,23,5E,23,56,EB,D9,11,50,00,774
280 DATA DD,21,9C,BF,D9,0E,05,06,30,7E,D6,20,23,D9,D3,5C,71A
290 DATA 2A,AC,BF,F5,0F,0F,0F,E6,07,87,32,43,BF,3C,32,46,613
300 DATA BF,DD,46,00,DD,4E,00,7E,0F,0F,0F,0F,B0,77,19,7E,585
310 DATA 0F,0F,0F,0F,B1,77,19,F1,E6,07,87,32,64,BF,3C,32,5A5
320 DATA 67,BF,DD,46,00,DD,4E,00,7E,0F,0F,0F,0F,B0,77,19,56E
330 DATA 7E,0F,0F,0F,0F,B1,77,19,D3,5F,22,AC,BF,D9,10,A9,64C
340 DATA D9,2A,AE,BF,3A,B0,BF,3D,20,06,3E,02,23,22,AE,BF,66E
350 DATA 22,AC,BF,32,B0,BF,D9,0D,20,8D,FB,C9,00,00,08,02,68F
360 DATA 0A,02,0A,05,0E,05,0E,0B,0F,0B,0F,0F,00,C0,00,C0,1FF
370 DATA 02,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,002