0 REM BEAULIEU

10 HCOLOR=3:ROT=0:SCALE=10:FOR Z=1 TO 3:READ A:READ B:POKE 232,A: POKE 233,B:AN= RND(1)*3+.5:HGR2:FOR ZZ=1 TO 99:I=I+.05-64*(I=64)
20 DRAW 1 AT 140 + 110 * COS(I),90 + 80 * SIN (AN*I):NEXT ZZ: NEXT Z:RESTORE: GOTO 10:DATA 45,212,118,222,202,254