10 CLS
20 PRINT "ANGLE CONVERSION: DEGREES TO RADIANS" 
30 DEFDBL A-Z
40 PRINT 
50 PRINT "(TO END PROGRAM ENNTER 0,0,0)" 
60 PRINT "ANGLE IN DEGREES,MINUTES,SECONDS";
70 INPUT D,M,S
80 IF D<>0 THEN 120  
90 IF M<>0 THEN 120  
100 IF S<>0 THEN 120  
110 GOTO 170  
120 A=D+M/60+S/3600 
130 R=INT(A/360)
140 PRINT "RADIANS =";A*.01745329-R*6.2831853 
150 PRINT 
160 GOTO 60   
170 END