10 VDU20,26,29,48;32;
20 *REFRESH OFF
30 DIM bub% 15
40 bub%!0=&8F8F8977
50 bub%!4=&F8F89877
60 bub%!8=&8F8F8977
70 bub%!12=&F8F89877
80 PT=PI/3
90 REPEAT
100 T%=TIME
110 GCOLPAT bub%+((TIME/8)AND7)
120 CLG
130 GCOL 0
140 a=(T%AND1023)/512*PI
150 S%=40*(.5+SIN((T%AND2047)/1024*PI))
160 FOR P%=0 TO 1
170 MOVE S%*SIN(a),S%*COS(a)
180 MOVE S%*SIN(a+2*PT),S%*COS(a+2*PT)
190 PLOT 85,S%*SIN(a+4*PT),S%*COS(a+4*PT)
200 a=a+PT
210 NEXT P%
220 *REFRESH
230 UNTIL INKEY(0)<>-1
240 *REFRESH ON