; PRZMDEMO.ACT BY DARRYL YONG 3/11/90;; ; 堠䬠; 塡; ӠMODULEBYTE VBION=1747,LUM2=1756,RAMTOP=106, COL1,COL2,RANDOM=53770CARD DLI1=1749,DLI2=1751,DLI=560, SCR=88,SCR1,SCR2, LENGTH1,LENGTH2BYTE ARRAY AINT DPX1,DPY1,DQY1,DQX1,PX1,PY1,QX1, QY1,DPX2,DPY2,DQY2,DQX2,PX2,PY2, QX2,QY2PROC ALINE(BYTE ZX,ZY,PX,PY,COL)BYTE HU,LUHU=COL RSH 4LU=COL MOD 16SCR=SCR1 COLOR=LU PLOT(ZX,ZY) DRAWTO(PX,PY)SCR=SCR2 COLOR=HUPLOT(ZX,ZY) DRAWTO(PX,PY)RETURNPROC SETUP()A="hL\{$I01oL_01oL_@"MOVEBLOCK(1663,A,94)RAMTOP=160GRAPHICS(11)DLI2=DLI SCR2=SCRRAMTOP=128GRAPHICS(9)DLI1=DLI SCR1=SCRRAMTOP=96[32 1665]LUM2=4RETURNPROC MAIN()SETUP()GRAPHICS(0) POKE(710,0) POKE(752,1)PRINTE("͠Ρ ٠̠")PRINTE("Ԡ٠̠")PUTE()PRINTE("Press Ԉ to begin!")DO UNTIL PEEK(53279)=6 ODPOKE(87,9) VBION=123PX1=10 PY1=10 QX1=10 QY1=10 COL1=RANDOMDPX1=0 DPY1=0 DQX1=0 DQY1=0PX2=69 PY2=181 QX2=69 QY2=181 COL2=RANDOMDPX2=0 DPY2=0 DQX2=0 DQY2=0DOIF RANDOM<10 THEN DPX1=RAND(3) DPX1==-1 DPY1=RAND(3) DPY1==-1 DQX1=RAND(3) DQX1==-1 DQY1=RAND(3) DQY1==-1FIPX1=PX1+DPX1 PY1=PY1+DPY1QX1=QX1+DQX1 QY1=QY1+DQY1IF PX1<0 THEN PX1=0 FIIF PX1>79 THEN PX1=79 FIIF QX1<0 THEN QX1=0 FIIF QX1>79 THEN QX1=79 FIIF QY1<0 THEN QY1=0 FIIF QY1>191 THEN QY1=191 FIIF PY1<0 THEN PY1=0 FIIF PY1>191 THEN PY1=191 FICOL1==+1ALINE(PX1,PY1,QX1,QY1,COL1)LENGTH1=(PX1-QX1)*(PX1-QX1)LENGTH1==+(PY1-QY1)*(PY1-QY1)IF LENGTH1>2500 THEN PX1=(PX1+QX1)/2PY1=(PY1+QY1)/2 QX1=PX1 QY1=PY1 FIIF RANDOM<10 THEN DPX2=RAND(3) DPX2==-1 DPY2=RAND(3) DPY2==-1 DQX2=RAND(3) DQX2==-1 DQY2=RAND(3) DQY2==-1FIPX2=PX2+DPX2 PY2=PY2+DPY2QX2=QX2+DQX2 QY2=QY2+DQY2IF PX2<0 THEN PX2=0 FIIF PX2>79 THEN PX2=79 FIIF QX2<0 THEN QX2=0 FIIF QX2>79 THEN QX2=79 FIIF QY2<0 THEN QY2=0 FIIF QY2>191 THEN QY2=191 FIIF PY2<0 THEN PY2=0 FIIF PY2>191 THEN PY2=191 FICOL2==+2ALINE(PX2,PY2,QX2,QY2,COL2)LENGTH2=(PX2-QX2)*(PX2-QX2)LENGTH2==+(PY2-QY2)*(PY2-QY2)IF LENGTH2>2500 THEN PX2=(PX2+QX2)/2PY2=(PY2+QY2)/2 QX2=PX2 QY2=PY2 FIIF PEEK(53279)=6 THENZERO(SCR1,7680)ZERO(SCR2,7680)FIOD RETURN