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