home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TOOL-INC.ZIP / FLAGS.INT < prev    next >
Encoding:
Text File  |  1989-06-02  |  324 b   |  8 lines
  1. function getflag(flag: byte; bitval: byte): boolean;
  2.    {return true/false for specified is set}
  3. procedure setflag(var flag: byte; bitval: byte; value: boolean);
  4.    {set the specified bit in a flagbyte}
  5. function toggleflag(var flag: byte; bitval: byte): boolean;
  6.    {toggle the specified bit and return new setting}
  7.  
  8.