36 lines
1.1 KiB
Text
36 lines
1.1 KiB
Text
NORMAL MODE IS INTEGER
|
|
|
|
INTERNAL FUNCTION(NN,KK)
|
|
ENTRY TO KPRIME.
|
|
F = 0
|
|
N = NN
|
|
THROUGH SCAN, FOR P=2, 1, F.GE.KK .OR. P*P.G.N
|
|
DIV WHENEVER N.E.N/P*P
|
|
N = N/P
|
|
F = F+1
|
|
TRANSFER TO DIV
|
|
END OF CONDITIONAL
|
|
SCAN CONTINUE
|
|
WHENEVER N.G.1, F = F+1
|
|
FUNCTION RETURN F.E.KK
|
|
END OF FUNCTION
|
|
|
|
VECTOR VALUES KFMT = $5(S1,2HK=,I1,S1)*$
|
|
VECTOR VALUES PFMT = $5(I4,S1)*$
|
|
PRINT FORMAT KFMT, 1, 2, 3, 4, 5
|
|
|
|
DIMENSION KPR(50)
|
|
THROUGH FNDKPR, FOR K=1, 1, K.G.5
|
|
C=0
|
|
THROUGH FNDKPR, FOR I=2, 1, C.GE.10
|
|
WHENEVER KPRIME.(I,K)
|
|
KPR(C*5+K) = I
|
|
C = C+1
|
|
END OF CONDITIONAL
|
|
FNDKPR CONTINUE
|
|
|
|
THROUGH OUT, FOR C=0, 1, C.GE.10
|
|
OUT PRINT FORMAT PFMT, KPR(C*5+1), KPR(C*5+2), KPR(C*5+3),
|
|
0 KPR(C*5+4), KPR(C*5+5)
|
|
|
|
END OF PROGRAM
|