A()0I*D?C-PS/8 FOCAL, 1971?MF,BTS C=0;S L=0;S S=FSQT(N);S X=2; G 1.4?MF8BS X=X+2?MF\BBC     OMSI SOFTWARE DEVELOPMENT GROUP?MHPBD?MCLBI?MBTBJA !! "NUMBER TO BE FACTORED
 ",N;I (N)1.1,2.1,1.2?MDYDJA !"NUMBER
 ",N?MDCD^S A=A+1;I (A-C)2.4,2.4,2.5?MD.D(I ((FITR(N/A)-(N/A)))2.3;S N=N+1;G 2.2?MC3DTS C=FITR(FSQT(N));S A=1?MD<G 1.1?MD(D2T %6,!"FIRST PRIME IS",N,!!!?MB0BAC     FACTOR BY STEVE POULSEN & JOHN HUISMAN?ME1B<I (C) 1.7,1.7;T %FITR(FLOG(X)/FLOG(10)+1),X?MFN
=I (C-1)1.62,1.62;T " ^",%FITR(FLOG(C)/FLOG(10)+1),C?MG&B>I (N-1)1.1,1.1;T " *"?MCFBCC     LAST CHANGE: 9/11/71?MB)B^I (2-X)1.35;S X=1?MGB$I (N-X)1.8?MGQB(I (N/X-FITR(N/X))1.6,1.5,1.6?MEXB2S N=N/X;S C=C+1;I (N-1)1.6,1.6;G 1.4?MG5CAS C=0;S L=L+1;I (L-3)1.7
MG=CFI (X-S)1.3?MC(CPT %FITR(FLOG(N)/FLOG(10)+1),N;G?MH+BEC THE PRIME FACTORS OF POSITIVE INTEGERS WILL BE?MIEBFC OUTPUT.  INPUT ZERO, THEN ANOTHER NUMBER AND?MI BGC THE FIRST PRIME NOT LESS THAN THAT NUMBER WILL?MCIBHC BE PRINTED.?MLLL S FACTOR?M?MNTED.?
ME NOT LESS THAN THAT

Note: Lines longer than 256 characters were wrapped