#11 Article 103 Posted at 1987/05/05 23:42:19 by SHINOBU (MAP055) [PRG.SHI]
Subject: SHINOBU.LOADER
1000 CLEAR 1000,&H1FFF:DEFINT A-Z:CLS:OPEN "I",#1,"1:ﾏｲﾁｬﾝ" 1010 DIM D(7),D1%(0),D2%(0) 1020 D(0)=&H0000:D(1)=&H4000:D(2)=&H4100:D(3)=&H4500 1030 D(4)=&H5500:D(5)=&H5700:D(6)=-10496:D(7)=-1 1040 FOR X=0 TO 159 STEP 5 1050 LINEINPUT #1,A$:IF A$="" THEN 1050 1060 FOR BF=0 TO 4:FOR Y=0 TO 95 STEP 2 1070 CM=ASC(MID$(A$,BF*48+INT(Y/2)+12,1))-&H20:C1=CM \8:C2=CM MOD 8 1080 X2=(X+BF)*4:Y2=Y*2:D1%(0)=D(C1):D2%(0)=D(C2) 1090 PUT@(X2,Y2)-(X2+3,Y2+1),D1%,PSET,7 1100 PUT@(X2,Y2+2)-(X2+3,Y2+3),D2%,PSET,7 1110 NEXT Y,BF,X 1120 GOTO 1120