>TITLE[SWEEP]
>DIM[PI2,Q1,Q2,Q3,Y1,Y2,Y3,Y4]
>INICON[PI2=2*3.14159,Q1=40*PI2,Q3=0.05*Q1]
>TIMER[1,0.001]
>GRAPH[11:TIME,Y1/10+0.8,Y2/10+0.6,Y3/10+0.4,Y4/10+0.2]
Q3=0.05+TIME/1.0
Y1=CMPXPL(0,Q1,0,Q1,0)
Y2=SIN(0,Q1,0)
Y3=SWPSIN(Q3,Q1)
Y4=SWPCOS(Q3,Q1)