8999  IF  ERROR  THEN 9046
9000  REM  *****  FACTOR  *****  MATHEMATICS PROGRAM  *****
9001  REM  *****  VERSION 1  *****  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 AGAIN"
9011  GOTO 9005
9012  LET D=A
9013  PRINT 
9014  IF A=2 THEN 9044
9015  LET Q=0
9016  IF A>0 THEN 9018
9017  GOTO 9046
9018  LET C=2
9019  GOSUB 9023
9020  FOR C=3 TO SQR(A) STEP 2
9021  GOSUB 9023
9022  GOTO 9039
9023  LET B=0
9024  IF A=C*INT(A/C) THEN 9026
9025  GOTO 9029
9026  LET A=A/C
9027  LET B=B+1
9028  GOTO 9024
9029  IF B<1 THEN 9038
9030  IF Q=1 THEN 9037
9031  LET 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
9046  CHAIN R,"*HELP"
9047  SYSTEM X,"BYE"
9999  END 
