home *** CD-ROM | disk | FTP | other *** search
/ Play and Learn 2 / 19941.ZIP / 19941 / EDUCTORY / GEOGRAPY / M9.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1994-02-04  |  640 b   |  24 lines
  1. 5   CLS
  2. 10   PRINT "ANGLE CONVERSION:"
  3. 20   PRINT 
  4. 30   PRINT "1. DEGREES TO RADIANS": PRINT "2. RADIANS TO DEGREES"
  5. 35   PRINT "3. END PROGRAM"
  6. 40  C = 180 / 3.14159
  7. 50   INPUT "WHICH OPTION? (BY NUMBER):";O
  8. 60   ON O GOTO 70,150
  9. 65   GOTO 240
  10. 70   INPUT "INPUT THE ANGLE IN DEGREES, MINUTES, SECONDS?";D,M,S
  11. 80  A = D + M / 60 + S / 3600
  12. 90   PRINT "RADIANS =";A / C
  13. 100   GOTO 50
  14. 150   INPUT "INPUT THE ANGLE IN RADIANS?";A
  15. 160   PRINT 
  16. 170  A = A * C
  17. 180   PRINT "DEGREES = "; INT (A)
  18. 190  A = A -  INT (A)
  19. 200   PRINT "MINUTES = "; INT (A * 60)
  20. 210  A = A * 60 -  INT (A * 60)
  21. 220   PRINT "SECONDS = "; INT (A * 60)
  22. 230   GOTO 50
  23. 240   RUN "MATH"
  24.