#11 Article 106 Posted at 1987/05/06 08:49:11 by NOZOMU (MAP041) [PRG.SHI]
Subject: SHINOBU.LOADER #103 for N88-BASIC
1000 ' 1010 ' loader.#103 for N88-BASIC 1020 ' 1030 DEFINT A-Z:CLS:OPEN "ﾏｲﾁｬﾝ" FOR INPUT AS #1 1040 DIM D(7),D1%(2),D2%(2) 1050 D1(0)=4:D1(1)=2:D2(0)=4:D2(1)=2 1060 D(0)=&H0 :D(1)=&H8020:D(2)=&HA020:D(3)=&HA050 1070 D(4)=&HE050:D(5)=&HE0B0:D(6)=&HF0B0:D(7)=&HFFFF 1080 FOR X=0 TO 159 STEP 5 1090 LINE INPUT #1,A$:IF A$="" THEN 1090 1100 FOR BF=0 TO 4 1110 FOR Y=0 TO 95 STEP 2 1120 CM=ASC(MID$(A$,BF*48+INT(Y/2)+12,1))-&H20:C1=CM \8:C2=CM MOD 8 1130 X2=(X+BF)*4:Y2=Y*2:D1%(2)=D(C1):D2%(2)=D(C2) 1140 PUT@(X2,Y2 ),D1,PSET 1150 PUT@(X2,Y2+2),D2,PSET 1160 NEXT Y 1170 NEXT BF 1180 NEXT X 1190 CLOSE #1 1200 GOTO 1200