home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Hack-Phreak Scene Programs
/
cleanhpvac.zip
/
cleanhpvac
/
ADV350.ZIP
/
drop.for
< prev
next >
Wrap
Text File
|
1990-11-11
|
630b
|
21 lines
SUBROUTINE DROP(OBJECT,WHERE)
C PLACE AN OBJECT AT A GIVEN LOC, PREFIXING IT ONTO THE ATLOC LIST. DECR
C HOLDNG IF THE OBJECT WAS BEING TOTED.
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
IF(PLACE(OBJECT).EQ.-1) HOLDNG=HOLDNG-1
PLACE(OBJECT)=WHERE
GOTO 2
1 FIXED(OBJECT-100)=WHERE
2 IF(WHERE.LE.0) RETURN
LINK(OBJECT)=ATLOC(WHERE)
ATLOC(WHERE)=OBJECT
RETURN
END