home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-387-Vol-3of3.iso / l / lllii.zip / LCM.BAS next >
BASIC Source File  |  1993-03-17  |  736b  |  29 lines
  1. 5 CLS
  2. 10 PRINT "THIS PROGRAM HAS BEEN WRITTEN BY: STEVEN SCHUSTER"
  3. 20 PRINT
  4. 25 PRINT "THIS PROGRAMS RIGHTS BELONG TO:MATHEMATICS STRUCTURE AND METHOD"
  5. 30 PRINT "IF YOU LIKE THIS PROGRAM THEN SEND A CHECK OR MONEY ORDER TO:"
  6. 35 PRINT
  7. 40 PRINT "STEVEN SCHUSTER"
  8. 45 PRINT
  9. 50 PRINT "P.O. BOX 16290"
  10. 55 PRINT
  11. 60 PRINT "MILWAUKEE, WI 53216"
  12. 70
  13. 75 PRINT
  14. 80 PRINT "WELECOME TO THE LEAST COMMON MULTIPLE FINDER!"
  15. 90 PRINT
  16. 100 PRINT "TO FIND THE L.C.M.;"
  17. 120 PRINT "TYPE A,B";
  18. 130 INPUT A, B
  19. 140 FOR X = 1 TO B
  20. 150 LET A1 = A * X
  21. 160 LET Q = A1 / B
  22. 170 IF Q = INT(Q) THEN GOTO 190
  23. 180 NEXT X
  24. 190 PRINT "LCM("; A; ","; B; " = "; A1
  25. 200 PRINT
  26. 210 PRINT "TO USE AGAIN PRESS THE F5 KEY TWICE OR ENTER TO ESCAPE!"
  27. 220 END
  28.  
  29.