PROGRAM:UNITCIRC
:Lbl 10
:ClrHome
:Menu("UNIT CIRCLE","CONVERSIONS",11,"UNIT CIRCLE",3,"QUIT",4)
:Lbl 11
:ClrHome
:Menu("CONVERSIONS","DEGREES -> RADIANS",1,"RADIANS -> DEGREES",2,"BACK",10)
:Lbl 1
:Input "DEGREE MEASURE: ",D
:Radian
:Disp Dº
:Pause
:Goto 11
:Lbl 2
:Input "RADIAN MEASURE :",R
:Degree
:Disp R^^r^^
:Pause
:Goto 11
:Lbl 3
:ClrHome
:Menu("UNIT CIRCLE FUNCTIONS","ANGLE FROM DEGREE",5,"ANGLE FROM RADIAN",6,"ANGLE FROM COORDINATE",7,"BACK",10)
:Lbl 5
:Input "DEGREE MEASURE: ",A
:Degree
:Goto 9
:Lbl 6
:Input "RADIAN MEASURE: ",A
:Radian
:Goto 9
:Lbl 7
:Input "X=",X
:Input "Y=",Y
:Degree
:R▶Pθ(X,Y)→A
:Lbl 9
:StoreGDB 1
:ClrDraw
:AxesOff
:ZStandard
:ZSquare
:Horizontal 0,BLACK
:Vertical 0,BLACK
:Circle(0,0,9,BLUE)
:Line(0,0,P▶Rx(9,A),P▶Ry(9,A),RED)
:Pause
:RecallGDB 1
:Goto 3
:Lbl 4
:Stop