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