17 lines
557 B
Plaintext
17 lines
557 B
Plaintext
NORMAL MODE IS INTEGER
|
|
DIMENSION E(1000)
|
|
E(0)=0
|
|
THROUGH L1, FOR I=0, 1, I.GE.1000
|
|
THROUGH L2, FOR J=I-1, -1, J.L.0
|
|
WHENEVER E(J).E.E(I)
|
|
E(I+1) = I-J
|
|
TRANSFER TO L1
|
|
END OF CONDITIONAL
|
|
L2 CONTINUE
|
|
E(I+1)=0
|
|
L1 CONTINUE
|
|
THROUGH S, FOR I=0, 1, I.GE.10
|
|
S PRINT FORMAT FMT, I, E(I), I+990, E(I+990)
|
|
VECTOR VALUES FMT = $2HE(,I3,2H)=,I3,S5,2HE(,I3,2H)=,I3*$
|
|
END OF PROGRAM
|