\start83\
\comment=Program file dated 10/07/97, 14:24
\name=UCIRCLE
\file=J:\UCIRCLE.AS3
prgmFACSU
Fix 4
Disp "WHICH MODE ?"
Disp ""
Disp "(1) DEGREE"
Disp "(2) RADIAN"
Input "ENTER 1 OR 2",C
ClrHome
Param
\(-)\1\->\Xmin
1\->\Xmax
\(-)\1\->\Ymin
1\->\Ymax
If C=1
Then
Degree
360\->\Tmax
10\->\Tstep
Else
Radian
2\pi\\->\Tmax
\pi\/12\->\Tstep
End
"cos(T)"\->\X\1\\t\
"sin(T)"\->\Y\1\\t\
ZSquare
Trace
Float
\stop83\