10 REM Zebra Windmills 20 REM by Steven Loze 30 REM --------------- 40 RANDOMIZE TIME 50 GOSUB 280:REM initialise 60 WHILE NOT finished 70 FOR change=1 TO 2 80 RAD:IF change=2 THEN DEG 90 CLS 100 FOR amstrad=1 TO 360 STEP 10*RND 110 PLOT 320,200 120 DRAW 320+250*SIN(amstrad),((amstrad MOD(3))+1) 130 NEXT amstrad 140 GOSUB 170:REM pen changes 150 NEXT change 160 WEND 170 REM pen changes 180 FOR j=1 TO 26 190 FOR k=1 TO 3 200 INK k,j 210 FOR z=1 TO 100:NEXT z 220 INK k,0 230 NEXT k 240 NEXT j 250 GOSUB 280 260 RETURN 270 REM ---------- 280 REM initialise 290 MODE 1 300 INK 0,0:INK 1,26:INK 2,24:INK 3,6:BORDER 0 310 RETURN