home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fatal Distractions!
/
fataldistractions.bin
/
chap01
/
adventur
/
juggle.for
< prev
next >
Wrap
Text File
|
1990-11-11
|
525b
|
17 lines
SUBROUTINE JUGGLE(OBJECT)
C JUGGLE AN OBJECT BY PICKING IT UP AND PUTTING IT DOWN AGAIN, THE PURPOSE
C BEING TO GET THE OBJECT TO THE FRONT OF THE CHAIN OF THINGS AT ITS LOC.
IMPLICIT INTEGER*4 (A-Z)
C INTEGER*2 ATLOC,LINK,PLACE,FIXED,ASCVAR
COMMON /PLACOM/ ATLOC,LINK,PLACE,FIXED,HOLDNG
DIMENSION ATLOC(150),LINK(200),PLACE(100),FIXED(100)
I=PLACE(OBJECT)
J=FIXED(OBJECT)
CALL MOVE(OBJECT,I)
CALL MOVE(OBJECT+100,J)
RETURN
END