5  ?:?:?
10 ! PROGRAM WRITTEN BY DON PENLAND
20 ! SURPRISE VALLEY HIGH SCHOOL, CEDARVILLE  CA  96104
30 ? "THIS PROGRAM WILL SIMPLIFY OR REDUCE FRACTIONS"
40 ? "IF IT IS POSSIBLE.  TO USE IT JUST ANSWER THE QUESTIONS ASKED."
50 ?:?
60 INPUT "ENTER THE NUMBERATOR OF YOUR FRACTION ";N
70 INPUT "ENTER THE DENOMENATOR OF YOUR FRACTION ";D
75 ?:?
80 FOR I=N TO 1 STEP -1
90 IF I=1 THEN 120
100 IF N/I=INT(N/I) AND D/I=INT(D/I) THEN 140
110 NEXT I
120 ? "THE FRACTION ";N;"/";D;" CAN NOT BE REDUCED."
130 GOTO 150
140 ? "THE FRACTION ";N;"/";D;" CAN BE REDUCED TO ";N/I;"/";D/I;" ."
150 ?:?
160 INPUT "DO YOU HAVE ANOTHER FRACTION YOU WANT REDUCED? ";A$
170 IF A$="YES" OR A$="Y" THEN 50
180 ? "BYE FOR NOW.  I HAVE ENJOYED WORKING FOR YOU."
999 CHAIN "MATH2"
1000 END