20MODE1 30VDU5 40PROCANDES 50C%=1:L%=FALSE 60ANGLE=0 70REPEAT 80ANGLE=ANGLE+0.2 90C%=C%EOR3:GCOL1,C% 100OX%=640+500*COS(ANGLE/12) 110OY%=712+200*SIN(ANGLE/12) 120X%=(OY%-1030)/4:Y%=X%*COS(ANGLE) 130A%=X%*1.5:B%=A%*COS(ANGLE-0.4) 140PROCBIRD(X%,Y%,A%,B%,OX%,OY%) 150VDU19,C%,2;0;19,3-C%,0;0; 160IF L% THEN GCOL2,C%:PROCBIRD(X1%,Y1 %,A1%,B1%,OX1%,OY1%) ELSE L%=TRUE 170X1%=X%:Y1%=Y% 180A1%=A%:B1%=B% 190OX1%=OX%:OY1%=OY% 200UNTIL FALSE 210DEF PROCANDES 220GCOL0,3 230VDU19,3,2;0; 240MOVE0,0:DRAW1279,0:DRAW1267,1020:DR AW0,1020:DRAW0,0 250FOR J%=-50 TO 100 STEP 4 260MOVE0,J% 270FOR I%=0 TO 130 280PLOT1,10,RND(25)-12 290NEXT I%,J% 300ENDPROC 310DEF PROCBIRD(X%,Y%,A%,B%,OX%,OY%) 320VDU29,OX%;OY%; 330MOVE-A%,B%:DRAW-X%,Y%:DRAW0,0:DRAWX %,Y%:DRAWA%,B% 340ENDPROC