3 ! ** INTEGAL FACTORIZATION **

2 ! *****************************
3 ! ** INTEGAL FACTORIZATION **
4 ! *****************************
5 DIM P(100)
10 ! PROGRAM WRITTEN BY DON PENLAND
20 ! SURPRISE VALLEY HIGH SCHOOL, CEDARVILLE CA 96104
30 ? "THIS PROGRAM WILL FIND THE INTERGAL FACTORS OF ANY NUMBER."
40 ? "TO USE THIS PROGRAM JUST ANSWER THE QUESTIONS."
50 ?:?
60 ? "WHAT IS THE NUMBER YOU WANT TO FIND THE INTERGAL "
70 INPUT "FACTORS OF ";A
80 ?:?:?
90 ? "THE INTERGAL FACTORS OF ";A;" ARE:"
100 ? "( 1,";
110 P(1)=1:N=2
120 B$=" ########"
130 FOR I=2 TO A
140 IF A/I<> INT(A/I) THEN 190
150 P(N)=I
155 IF P(N)*P(N)=A THEN 195
160 IF P(N-1)*P(N)=A THEN 200
170 N=N+1
180 PRINT USING B$,I;
185 ? ",";
190 NEXT I
195 PRINT USING B$,I;
196 PRINT ",";
200 FOR J=N-1 TO 2 STEP -1
210 X=A/P(J)
220 PRINT USING B$,X;
225 ? ",";
230 NEXT J
235 PRINT USING B$,A;
240 ? ")"
250 ?:?
260 INPUT "DO YOU HAVE ANOTHER NUMBER ";A$
270 ?:?
280 IF A$="YES" OR A$="Y" THEN 60
999 CHAIN "MATH2"
1000 END