#11 Article 138 Posted at 1987/06/03 14:43:14 by Tomo (MAP292) [PRG.CHA2]
Subject: PLEﾛｰﾀﾞｰ
10 'GLOADER by ﾁｬｲ Ver.1.2/ｲｼｮｸｼｬ Tomo 20 '640*200*1 for FM-7/new7/77/AV/AV20/AV40 30 CLS:X=0:Y=0 40 DIM PU1%(80),PU2%(80),PU3%(80),PU4%(80) 50 D(0)=0 60 D(1)=&H5555 70 D(2)=-21846 80 D(3)=&H-1 90 PU%(0)=-21846 100 FOR I=0 TO 80 110 PU1%(I)=D(0) 120 PU2%(I)=D(1) 130 PU3%(I)=D(2) 140 PU4%(I)=D(3) 150 NEXT 160 OPEN "I",#1,"1:PLE.D" 170 A%=ASC(INPUT$(1,1))-&H20:IF A%<0 THEN 170 180 D=A% MOD 4 190 C=A% \ 4 200 GOSUB 240:X=X+C*2+2 210 IF X>409 THEN Y=Y+.5:IF Y<199 THEN X=X-410:GOSUB 310:ELSE 230 220 GOTO 170 230 GOTO 230 240 ' 250 IF Y<>INT(Y) THEN RETURN 260 ON D+1 GOTO 270,280,290,300 270 PUT@(X,Y)-(X+C+C+1,Y),PU1%,PSET,7:RETURN 280 PUT@(X,Y)-(X+C+C+1,Y),PU2%,PSET,7:RETURN 290 PUT@(X,Y)-(X+C+C+1,Y),PU3%,PSET,7:RETURN 300 PUT@(X,Y)-(X+C+C+1,Y),PU4%,PSET,7:RETURN 310 ' 320 ON D+1 GOTO 330,340,350,360 330 PUT@(0,Y)-(X,Y),PU1%,PSET,7:RETURN 340 PUT@(0,Y)-(X,Y),PU2%,PSET,7:RETURN 350 PUT@(0,Y)-(X,Y),PU3%,PSET,7:RETURN 360 PUT@(0,Y)-(X,Y),PU4%,PSET,7:RETURN @