home *** CD-ROM | disk | FTP | other *** search
/ Fatal Distractions! / fataldistractions.bin / chap01 / adventur / carry.for < prev    next >
Text File  |  1990-11-11  |  828b  |  26 lines
  1.       SUBROUTINE CARRY(OBJECT,WHERE)
  2.       
  3. C  START TOTING AN OBJECT, REMOVING IT FROM THE LIST OF THINGS AT ITS FORMER
  4. C  LOCATION.  INCR HOLDNG UNLESS IT WAS ALREADY BEING TOTED.  IF OBJECT>100
  5. C  (MOVING "FIXED" SECOND LOC), DON'T CHANGE PLACE OR HOLDNG.
  6.  
  7.       IMPLICIT INTEGER*4 (A-Z)
  8. C     INTEGER*2 ATLOC,LINK,PLACE,FIXED,ASCVAR
  9.       COMMON /PLACOM/ ATLOC,LINK,PLACE,FIXED,HOLDNG
  10.       DIMENSION ATLOC(150),LINK(200),PLACE(100),FIXED(100)
  11.       
  12.       IF(OBJECT.GT.100) GOTO 5
  13.       IF(PLACE(OBJECT).EQ.-1) RETURN
  14.       PLACE(OBJECT)=-1
  15.       HOLDNG=HOLDNG+1
  16.     5 IF(ATLOC(WHERE).NE.OBJECT) GOTO 6
  17.       ATLOC(WHERE)=LINK(OBJECT)
  18.       RETURN
  19.     6 TEMP=ATLOC(WHERE)
  20.     7 IF(LINK(TEMP).EQ.OBJECT) GOTO 8
  21.       TEMP=LINK(TEMP)
  22.       GOTO 7
  23.     8 LINK(TEMP)=LINK(OBJECT)
  24.       RETURN
  25.       END
  26.