1 SELECT R
5 PRINT 
10 PRINT "ANGLE? (TO END PROGRAM INPUT 99999)"
15 INPUT X 
20 IF X=99999 THEN 99
25 A=3600*180*X/3.1415927
30 D=INT(A/3600) 
35 D1=INT(D/360) 
40 M=INT((A-D*3600)/60)
45 PRINT D-360*D1,"DEG." 
50 PRINT M,"MIN."
55 PRINT A-D*3600-M*60,"SEC."
60 PRINT 
65 PRINT "ANGLE?"
70 GOTO 15 
99 SELECT D :END 

