\START\
\COMMENT=Program file dated 08/06/95, 22:05
\NAME=Trig
\FILE=TRIG.85P
Disp "  Trig Function"
Disp "    Displayer"
Disp ""
Disp "Select mode:"
Disp ""
0\->\DS
Menu(1,"Dynamic",DYN,5,"Stepped",STP)
Lbl STP
1\->\DS
Disp "Use ^ and v to rotate"
Lbl DYN
Disp "Hit ENTER to begin"
Pause "and when done."
\(-)\2\->\xMin
2\->\xMax
\(-)\1.2\->\yMin
1.2\->\yMax
FnOff 
ClDrw
Circl(0,0,1)
StPic CPic
Radian
0\->\A
Lbl REDRAW
cos A\->\cA
sin A\->\sA
ClDrw
RcPic CPic
Line(cA,sA,0,0)
Line(cA,sA,0,sA)
Line(cA,sA,cA,0)
Lbl WAITKEY
getKy\->\K
If K==105
Goto EXIT
If DS==0
25\->\K
If K==0
Goto WAITKEY
If K==25
A+0.15\->\A
If K==34
A-0.15\->\A
Goto REDRAW
Lbl EXIT
\STOP\