home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / MISC / GAMES / ADV350.ZIP / PUT.FOR < prev    next >
Encoding:
Text File  |  1990-11-11  |  318 b   |  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.