home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Hack-Phreak Scene Programs
/
cleanhpvac.zip
/
cleanhpvac
/
ADV350.ZIP
/
put.for
< prev
next >
Wrap
Text File
|
1990-11-11
|
318b
|
13 lines
INTEGER FUNCTION PUT(OBJECT,WHERE,PVAL)
C PUT IS THE SAME AS MOVE, EXCEPT IT RETURNS A VALUE USED TO SET UP THE
C NEGATED PROP VALUES FOR THE REPOSITORY OBJECTS.
IMPLICIT INTEGER*4 (A-Z)
C INTEGER*2 ASCVAR
CALL MOVE(OBJECT,WHERE)
PUT=(-1)-PVAL
RETURN
END