home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / EDUCATON / GEO_MATH.ZIP / M1.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-04-15  |  384 b   |  20 lines
  1. 10  PRINT "GREATEST COMMON DENOMINATOR"
  2. 20  PRINT
  3. 30  PRINT "(ENTER 0,0 TO END PROGRAM)"
  4. 40  PRINT "ENTER TWO NUMBERS";
  5. 50  INPUT A,B
  6. 60  IF A <> 0  THEN  90
  7. 70  IF B <> 0   THEN 90
  8. 80  GOTO 190
  9. 90  A = ABS (A)
  10. 100  B = ABS (B)
  11. 110  R = A - B * INT (A/B)
  12. 120  IF R = 0  THEN 160
  13. 130  A = B
  14. 140  B = R
  15. 150  GOTO 110
  16. 160  PRINT "G.C.D: ";B
  17. 170  PRINT
  18. 180  GOTO  40
  19. 190  RUN "MATH"
  20.