home *** CD-ROM | disk | FTP | other *** search
/ Fatal Distractions! / fataldistractions.bin / chap01 / adventur / drop.for < prev    next >
Text File  |  1990-11-11  |  630b  |  21 lines
  1.       SUBROUTINE DROP(OBJECT,WHERE)
  2.       
  3. C  PLACE AN OBJECT AT A GIVEN LOC, PREFIXING IT ONTO THE ATLOC LIST.  DECR
  4. C  HOLDNG IF THE OBJECT WAS BEING TOTED.
  5.  
  6.       IMPLICIT INTEGER*4 (A-Z)
  7. C     INTEGER*2 ATLOC,LINK,PLACE,FIXED,ASCVAR
  8.       COMMON /PLACOM/ ATLOC,LINK,PLACE,FIXED,HOLDNG
  9.       DIMENSION ATLOC(150),LINK(200),PLACE(100),FIXED(100)
  10.       
  11.       IF(OBJECT.GT.100) GOTO 1
  12.       IF(PLACE(OBJECT).EQ.-1) HOLDNG=HOLDNG-1
  13.       PLACE(OBJECT)=WHERE
  14.       GOTO 2
  15.     1 FIXED(OBJECT-100)=WHERE
  16.     2 IF(WHERE.LE.0) RETURN
  17.       LINK(OBJECT)=ATLOC(WHERE)
  18.       ATLOC(WHERE)=OBJECT
  19.       RETURN
  20.       END
  21.