IBM 1130 User Manual page 607

Start
NEXS = 0
J=LARRY-NRL
NEX= 0
K
=
1
NCOMP
NARAY,K+KS-1,
K+KE-1,NARAY,
K+NRL+KS-1
MOVE
NARAY,K,
K+NRL-1,ITEMP
1
MOVE
NARAY,K+NRL,
K+NRL+NRL-l,
NARAY,K
MOVE
ITEMP,1,NRL,
NARAY,K+NRL
NEX = NEX+1
Section Subsections
Page
75
40
I
00 06
K=K+NRL
J=J-NRL
NEXS=NEXS+NEX