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