home *** CD-ROM | disk | FTP | other *** search
/ Fatal Distractions! / fataldistractions.bin / chap01 / adventur / move.for < prev    next >
Text File  |  1990-11-11  |  704b  |  20 lines
  1.       SUBROUTINE MOVE(OBJECT,WHERE)
  2.       
  3. C  PLACE ANY OBJECT ANYWHERE BY PICKING IT UP AND DROPPING IT.  MAY ALREADY BE
  4. C  TOTING, IN WHICH CASE THE CARRY IS A NO-OP.  MUSTN'T PICK UP OBJECTS WHICH
  5. C  ARE NOT AT ANY LOC, SINCE CARRY WANTS TO REMOVE OBJECTS FROM ATLOC CHAINS.
  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 1
  13.       FROM=PLACE(OBJECT)
  14.       GOTO 2
  15.     1 FROM=FIXED(OBJECT-100)
  16.     2 IF(FROM.GT.0.AND.FROM.LE.300) CALL CARRY(OBJECT,FROM)
  17.       CALL DROP(OBJECT,WHERE)
  18.       RETURN
  19.       END
  20.