5 SELECT R
10 PRINT
20 PRINT "ANGLE (DEG,MIN,SEC,CARRIAGE RETURN)?"
30 INPUT D,M,S 
40 A=D+M/60+S/3600 
50 R=INT(A/360)
60 PRINT "ANGLE=";A*.17453293E-1-R*6.2831853,"RADIANS" 
70 PRINT 
80 PRINT "MORE INPUT? (1=YES,0=NO)"
90 INPUT D 
100 IF D=1 THEN 10 
110 SELECT D :END 

