Angle.bas €ÞРȀÞÐ ‘ P <ª[ <ïF<<ã< TEXTSmBa `@¹0 d@¹0 H S Main €S ¨[Ä ðö ØA 5 ðÿÿ ÷ "çw 5 ðÿ'Angle ? CAT(87);"1 - DEGREES" ? "2 - RADIANS" ? "3 - PROTRACTOR MODE" INPUT "KNOWN: ";d CLS IF d=1 INPUT "ENTER DEGREES: ";a IF a>360 CIRCLE 80,85,40 FI c=RAD(a) ? c;" RADIANS" LINE 80,30,80,140 LINE 0,85,160,85 AT 110,110 ARC 80,85,50,6.28-c,0 ELIF d=2 INPUT "ENTER RADIANS: ";a IF a>6.28 CIRCLE 80,85,40 FI c=DEG(a) ? c;" DEGREES" LINE 80,30,80,140 LINE 0,85,160,85 AT 110,110 ARC 80,85,50,6.28-a,0 ELIF d=3 PEN ON LINE 10,30,10,140 LINE 0,85,160,85 REPEAT y=1 UNTIL PEN(3)=1 LINE 10,85,PEN(1),PEN(2) e=ATAN((85-PEN(2))/(PEN(1)-10)) ? DEG(e);" DEGREES" ? e;" RADIANS" PEN OFF FI