1 REM *************************
2 REM  FILE FROM JMOFFAT ARCHIVE
3 REM  MINOR CORRECTIONS, 9030 WAS B>1
4 REM  RUNS ON HP2116-HPBASIC / 2025 MAY, BH
5 REM *************************
9000  REM E TM IS FROM HP22A BASIC MANUAL SEP74 P A-4
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 D TO FACTOR NUMBERS"
9010  PRINT "OF 5 DIGITS UP TO 32767 OR LESS.  PLSE 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  STOP 
9018  LET C=2
9019  GOSUB 9023

9020  FOR C=3 TO A^.5 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>0 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  STOP 
9999  END