39 lines
1.1 KiB
Plaintext
39 lines
1.1 KiB
Plaintext
NORMAL MODE IS INTEGER
|
|
VECTOR VALUES ELEMF = $2HA(,I2,4H) = ,I2*$
|
|
DIMENSION A(100)
|
|
A(0) = 0
|
|
|
|
PRINT COMMENT $ FIRST 15 ELEMENTS$
|
|
PRINT FORMAT ELEMF,0,0
|
|
THROUGH EL, FOR I=1, 1, I.GE.15
|
|
EL PRINT FORMAT ELEMF,I,NEXT.(I)
|
|
|
|
PRINT COMMENT $ $
|
|
PRINT COMMENT $ FIRST REPEATED ELEMENT$
|
|
RPT THROUGH RPT, FOR I=I, 1, FIND.(I,NEXT.(I))
|
|
PRINT FORMAT ELEMF,I,A(I)
|
|
|
|
INTERNAL FUNCTION(N,TOP)
|
|
ENTRY TO FIND.
|
|
FI=0
|
|
SRCH WHENEVER FI.GE.TOP, FUNCTION RETURN 0B
|
|
WHENEVER A(FI).E.N, FUNCTION RETURN 1B
|
|
FI=FI+1
|
|
TRANSFER TO SRCH
|
|
END OF FUNCTION
|
|
|
|
INTERNAL FUNCTION(N)
|
|
ENTRY TO NEXT.
|
|
HI=A(N-1)+N
|
|
LO=A(N-1)-N
|
|
WHENEVER LO.L.0
|
|
A(N)=HI
|
|
OR WHENEVER FIND.(LO,N)
|
|
A(N)=HI
|
|
OTHERWISE
|
|
A(N)=LO
|
|
END OF CONDITIONAL
|
|
FUNCTION RETURN A(N)
|
|
END OF FUNCTION
|
|
END OF PROGRAM
|