Source Code 1992 March/Source_Code_CD-ROM_Walnut_Creek_March_1992.iso/msdos/pibterm/pibt41s1.arc/INT24.MOD

Text File | 1987-12-23 | 562 b | 25 lines

(*----------------------------------------------------------------------*)
(* Int24 handlers -- Essentially dummies now that TP4 has them built-in *)
(*----------------------------------------------------------------------*)

PROCEDURE Int24;

BEGIN (* Int24 *)
END   (* Int24 *);

PROCEDURE Int24On;

BEGIN (* Int24On *)
END   (* Int24On *);

PROCEDURE Int24Off( Flag : BOOLEAN );

BEGIN (* Int24Off *)
END   (* Int24Off *);

FUNCTION Int24Result : INTEGER;

BEGIN (* Int24Result *)
   Int24Result := IOResult;
END   (* Int24Result *);