Shareware Grab Bag/Shareware Grab Bag.iso/007/function.arc/FUNC2E.INC

Text File | 1985-06-15 | 384 b | 15 lines

{ Set or reset the verify flag                                         }

PROCEDURE Func2E (Flag : BOOLEAN);
 BEGIN
  WITH Registers DO
   BEGIN
    IF Flag THEN
     AX:=$0001
    ELSE
     AX:=$0000;
    AX:=(AX OR ($2E SHL 8));
    MSDOS (Registers);
   END;
 END;