home *** CD-ROM | disk | FTP | other *** search
/ Fatal Distractions! / fataldistractions.bin / chap01 / adventur / put.for < prev    next >
Text File  |  1990-11-11  |  318b  |  13 lines
  1.       INTEGER FUNCTION PUT(OBJECT,WHERE,PVAL)
  2.       
  3. C  PUT IS THE SAME AS MOVE, EXCEPT IT RETURNS A VALUE USED TO SET UP THE
  4. C  NEGATED PROP VALUES FOR THE REPOSITORY OBJECTS.
  5.  
  6.       IMPLICIT INTEGER*4 (A-Z)
  7. C     INTEGER*2 ASCVAR
  8.  
  9.       CALL MOVE(OBJECT,WHERE)
  10.       PUT=(-1)-PVAL
  11.       RETURN
  12.       END
  13.