8999 REM REVISED APRIL,1972 ANDY ROTH C.C.G.
9000 REM ***** FACTOR ***** MATHEMATICS PROGRAM *****
9001 REM ***** VERSION1 ***** 7/31/69/ *****
9002 REM FINDS PRIME FACTORS
9003 PRINT "PROGRAM TO FIND PRIME FACTORS OF A POSITIVE INTEGER."
9004 PRINT "TO TERMINATE EXECUTION INPUT A '0'."
9005 PRINT
9006 PRINT "WHAT NUMBER IS TO BE FACTORED";
9007 INPUT A
9008 IF A <= 32767 THEN 9012
9009 PRINT "SORRY! THIS PROGRAM IS ONLY DESIGNED TO FACTOR NUMBERS"
9010 PRINT "OF 5 DIGITS UP TO 32767 OR LESS! PLEASE TRY ABAIN"
9011 GOTO 9005
9012  D=A
9013 PRINT
9014 IF A=2 THEN 9044
9015  Q=0
9016 IF A>0 THEN 9018
9017 GOTO9999
9018  C=2
9019 GOSUB 9023
9020 FOR C=3 TO SQR(A) STEP 2
9021 GOSUB 9023
9022 GOTO 9039
9023  B=0
9024 IF A=C*INT(A/C) THEN 9026
9025 GOTO 9029
9026  A=A/C
9027  B=B+1
9028 GOTO 9024
9029 IF B<1 THEN 9038
9030 IF Q=1 THEN 9037
9031  Q=1
9032 PRINT "THE PRIME FACTORS OF";D;"ARE:"
9033 PRINT
9034 PRINT "PRIME","MULTIPLICITY"
9035 PRINT "-----","------------"
9036 PRINT
9037 PRINT C,B
9038 RETURN
9039 NEXT C
9040 IF A=1 THEN 9005
9041 IF Q=0 THEN 9044
9042 PRINT A,1
9043 GOTO 9005
9044 PRINT "THE NUMBER";A;"IS PRIME"
9045 GOTO 9005
9999 END