#super expander

10 GRAPHIC1 20 COLOR0,2,5,6 30 C=1 40 DA=32:DB=32:DX=32:DY=32 50 A=INT(RND(1)959)+32 60 B=INT(RND(1)959)+32 70 X=INT(RND(1)959)+32 80 Y=INT(RND(1)959)+32 90 IF A<32 THEN DA=-DA 100 IF A>991 THEN DA=-DA 110 A=A+DA 120 IF B<32 THEN DB=-DB 130 IF B>991 THEN DB=-DB 140 B=B+DB 150 IF X<32 THEN DX=-DX 160 IF X>991 THEN DX=-DX 170 X=X+DX 180 IF Y<32 THEN DY=-DY 190 IF Y>991 THEN DY=-DY 200 Y=Y+DY 210 C=C+1 220 IFC>3THENC=1 230 DRAW C,A,B TO X,Y 240 Q=Q+1 250 IF Q<160 GOTO 290 260 Q=0 270 SCNCLR 280 GOTO 50 290 GETA$:IFA$<>""THEN 310 300 GOTO90 310 COLOR1,5,0,2 320 GRAPHIC0 330 END