10 PRINT "ANGLE CONVERSION: DEGREES TO RADIANS"
20 PRINT
30 PRINT "(TO END PROGRAM ENTER 0,0,0)"
40 PRINT "ANGLE IN DEGREES,MINUTES,SECONDS";
50 INPUT D,M,S
59 REM - TEST FOR END OF PROGRAM
60 IF D<>0 THEN 100
70 IF M<>0 THEN 100
80 IF S<>O THEN 100
90 GOTO 150
99 REM - CONVERT DEGREES, MINUTES, SECONDS TO DEGREES
100 A=D+M/60+S/3600
109 REM - CALCULATE NUMBER OF COMPLETE CIRCLES
110 R=INT(A/360)
119 REM - CALCULATE ANGLE WITHIN 360 DEGREES, PRINT
120 PRINT "RADIANS =";A*.01745329-R*6.2831853
130 PRINT
139 REM - RESTART PROGRAM
140 GOTO 40
150 END
