home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / MAXONPASCAL2.DMS / in.adf / INCLUDE / graphics / gels_Functions.h < prev    next >
Encoding:
Text File  |  1994-07-25  |  495 b   |  16 lines
  1. {$if not def GRAPHICS_GELS_MACROS_H} CONST GRAPHICS_GELS_MACROS_H=0;
  2.  
  3. { *****************************************************************
  4.   ** KickPascal-Include-Datei "graphics/gels.h" zu Kickstart 3.0 **
  5.   ** Ergänzung der MACROs als Pascal FUNCTIONen            by JS **
  6.   ***************************************************************** }
  7.  
  8. {$if not def GRAPHICS_GELS_H; incl "graphics/gels.h";endif}
  9.  
  10. procedure RemBob(b:p_Bob);
  11. begin
  12.  b^.Flags:=b^.Flags and ($ffff-BOBSAWAY)
  13. end;
  14.  
  15. {$endif}
  16.