2 / SUBROUTINE CARRY(OBJECT,WHERE)
4 / C START TOTING AN OBJECT, REMOVING IT FROM THE LIST OF THINGS AT ITS FORMER
5 / C LOCATION. INCR HOLDNG UNLESS IT WAS ALREADY BEING TOTED. IF OBJECT>100
6 / C (MOVING "FIXED" SECOND LOC), DON'T CHANGE PLACE OR HOLDNG.
8 / IMPLICIT INTEGER (A-Z)
9 / COMMON /PLACOM/ ATLOC,LINK,PLACE,FIXED,HOLDNG
10 / DIMENSION ATLOC(150),LINK(200),PLACE(100),FIXED(100)
53 FLDA% WHERE /Pre-load indexes
56 ATX 7 /Fall thru with OBJECT in AC
57 / IF(OBJECT.GT.100)GOTO 5
60 / IF(PLACE(OBJECT).EQ.-1)RETURN
71 / 5 IF(ATLOC(WHERE).NE.OBJECT)GOTO 6
75 / ATLOC(WHERE)=LINK(OBJECT)
83 / 7 IF(LINK(TEMP).EQ.OBJECT)GOTO 8
93 / 8 LINK(TEMP)=LINK(OBJECT)