10 CLS
20 PRINT "ANGLE CONVERSION: RADIANS TO DEGREES" 
30 DEFDBL A-Z
40 PRINT 
50 PRINT "ANGLE IN RADIANS (ENTER 0 TO END PROGRAM)"; 
60 GOTO 80   
70 PRINT "ANGLE IN RADIANS"; 
80 INPUT R 
90 IF R=0 THEN 190  
100 A=3600*180*R/3.1415927 
110 D=INT(A/3600) 
120 D1=INT(D/360) 
130 PRINT"   dEGREES =";D-360*D1 
140 PRINT "   MINUTES =";INT((A-D*3600)/60)
150 S=A-D*3600-(INT((A-D*3600)/60))*60
160 PRINT "   SECONDS =";INT(100*S+.5)/100
170 PRINT
180 GOTO 70   
190 END