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