5 SCREEN 8
6 CLS
9 FOR C = 1 TO 100
10 FOR X = 1 TO 1310 STEP .1
20 CIRCLE(X,SIN(X/C)*C+66),1,C MOD 15
30 NEXT X
31 'FOR X = 1 TO 1310 STEP .1
32 'CIRCLE(X,SIN(X/C)*10+66),1,0
33 'NEXT X
40 NEXT C