10 ! PROGRAM WRITTEN BY DON PENLAND
20 ! SURPRISE VALLEY HIGH SCHOOL, CEDARVILLE  CA  96104
30 ?TAB(-1,0)
40 PRINT "         THESE ARE THE MATH UTILITY PROGRAMS"
50 PRINT "         ***********************************"
60 ?
70 PRINT "THIS PROGRAM CAN FIND PRIME NUMBERS, DO PRIME"
80 PRINT "FACTORIZATION, INTERGAL FACTORIZATION, FIND GREATEST"
90 PRINT "COMMON FACTORS, LEAST COMMON MULTIPLES, REDUCE FRACTIONS,"
100 PRINT "AND DO VERY LONG DIVISION."
110 ?
120 ?:? "ENTER THE NUMBER OF THE PROGRAM YOU WANT TO USE."
130 ?:?
140 ? "           0 = TO END AND GET OUT OF THE MATH PROGRAM"
150 ? "           1 = PRIME NUMBER GENERATOR"
160 ? "           2 = PRIME FACTORIZATION PROGRAM"
170 ? "           3 = INTERGAL FACTORIZATION PROGRAM"
180 ? "           4 = VERY LONG DIVISION"
190 ? "           5 = REDUCE FRACTIONS"
200 ? "           6 = FIND GREATEST COMMON FACTORS"
210 ? "           7 = FIND LEAST COMMON MULTIPLES"
300 ?:?
310 INPUT "WHAT PROGRAM WOULD YOU LIKE? ";A
320 IF A=0 GOTO 900
330 IF A=1 THEN CHAIN "PRIME"
340 IF A=2 THEN CHAIN "PFACT"
350 IF A=3 THEN CHAIN "NFACT"
360 IF A=4 THEN CHAIN "DIVIDE"
370 IF A=5 THEN CHAIN "FRACRD"
380 IF A=6 THEN CHAIN "GCF"
390 IF A=7 THEN CHAIN "LCM"
500 IF A<0 OR A>7 THEN PRINT "PLEASE USE ONLY THE NUMBERS 1 THRU 7."
510 GOTO 110
900 END

You are viewing proxied material from gopher.floodgap.com. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.