home *** CD-ROM | disk | FTP | other *** search
/ Fatal Distractions! / fataldistractions.bin / chap01 / adventur / juggle.for < prev    next >
Text File  |  1990-11-11  |  525b  |  17 lines

  1.       SUBROUTINE JUGGLE(OBJECT)
  2.       
  3. C  JUGGLE AN OBJECT BY PICKING IT UP AND PUTTING IT DOWN AGAIN, THE PURPOSE
  4. C  BEING TO GET THE OBJECT TO THE FRONT OF THE CHAIN OF THINGS AT ITS LOC.
  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.       I=PLACE(OBJECT)
  12.       J=FIXED(OBJECT)
  13.       CALL MOVE(OBJECT,I)
  14.       CALL MOVE(OBJECT+100,J)
  15.       RETURN
  16.       END
  17.