1 'PERPROD3.BAS---uses Basica or QBasic
100 DIM A(42)
110   FOR I = 1 TO 42
120   READ A(I)
130   NEXT I
140 KEY OFF: CLS
150 PRINT TAB(22); "PERFECT PRODUCT NUMBERS ..... hh    1985"
160 PRINT TAB(22); "****************************************"
170 PRINT "A Perfect-Product Number is one whose prime factors are all Prime"
180 PRINT "Numbers and are all different i.e squares, cubes,etc, don't qualify."
190 PRINT
200 PRINT "This program finds all such numbers from 3 to 32767.": PRINT
210 INPUT "What number to start (less then 3 to stop)  "; Z
220 IF Z > 32767 THEN 210
230 IF Z < 3 THEN 360
240 LOCATE 25, 10: PRINT "Press 'PAUSE' (or ^S) to stop--'SPACEBAR' to resume--'M' for menu."
250 LOCATE 12, 1
260 FOR X = Z TO 32767
270 J = 1: Y = 1
280 S% = SQR(X) + 1
290 FOR I = 1 TO 42
300 IF INKEY$ = "M" OR INKEY$ = "m" THEN 140
305 IF INKEY$ = "^S" OR INKEY$ = "^s" THEN 140
310 IF A(I) > S% THEN 340
320 IF X MOD A(I) = 0 THEN F(J) = A(I): J = J + 1: Y = Y * A(I): S% = X / A(I)
330 NEXT I
340 IF J > 2 AND Y = X THEN 370
350 NEXT X
360 KEY ON: END
370 PRINT
380 PRINT "Prime factors of "; X; " : ";
390 FOR I = 1 TO J - 1
400 PRINT TAB(20 + I * 9); F(I);
410 NEXT I
420 GOTO 350
430 DATA 2,3,5,7,11,13,17,19,23,29,31,37,41
440 DATA 43,47,53,59,61,67,71,73,79,83,89,97,101,103
450 DATA 107,109,113,127,131,137,139,149,151,157,163
460 DATA 167,173,179,181
470 'H.Heinz---