C-PS/8 FOCAL, 1971
 1.01 C     FACTOR BY STEVE POULSEN & JOHN HUISMAN
 1.02 C     OMSI SOFTWARE DEVELOPMENT GROUP
 1.03 C     LAST CHANGE: 9/11/71
 1.04 
 1.05 C THE PRIME FACTORS OF POSITIVE INTEGERS WILL BE
 1.06 C OUTPUT.  INPUT ZERO, THEN ANOTHER NUMBER AND
 1.07 C THE FIRST PRIME NOT LESS THAN THAT NUMBER WILL
 1.08 C BE PRINTED.
 1.09 
 1.10 A !! "NUMBER TO BE FACTORED
 ",N;I (N)1.1,2.1,1.2
 1.20 S C=0;S L=0;S S=FSQT(N);S X=2; G 1.4
 1.30 I (2-X)1.35;S X=1
 1.35 S X=X+2
 1.36 I (N-X)1.8
 1.40 I (N/X-FITR(N/X))1.6,1.5,1.6
 1.50 S N=N/X;S C=C+1;I (N-1)1.6,1.6;G 1.4
 1.60 I (C) 1.7,1.7;T %FITR(FLOG(X)/FLOG(10)+1),X
 1.61 I (C-1)1.62,1.62;T " ^",%FITR(FLOG(C)/FLOG(10)+1),C
 1.62 I (N-1)1.1,1.1;T " *"
 1.65 S C=0;S L=L+1;I (L-3)1.7
 1.70 I (X-S)1.3
 1.80 T %FITR(FLOG(N)/FLOG(10)+1),N;G
 2.10 A !"NUMBER
 ",N
 2.20 S C=FITR(FSQT(N));S A=1
 2.30 S A=A+1;I (A-C)2.4,2.4,2.5
 2.40 I ((FITR(N/A)-(N/A)))2.3;S N=N+1;G 2.2
 2.50 T %6,!"FIRST PRIME IS",N,!!!
 2.60 G 1.1