home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
progm
/
tptools.zip
/
FIRSTED.ZIP
/
INT24.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1987-12-21
|
919b
|
46 lines
{ INT24.PAS
ED 4.0
Copyright (c) 1985, 87 by Borland International, Inc. }
{$I-}
{$R-}
{$S-}
{$V-}
{$D-}
unit Int24;
interface
uses
Dos; {DOS calls - standard unit}
function EdINT24Result : Word;
{-Return the latest result from the int 24 checker}
procedure EdINT24On;
{-Install our critical error handler (hidden in INT24.OBJ)}
procedure EdINT24Off;
{-Restore previous critical error handler}
{==========================================================================}
implementation
function IoResultPrim : Word;
{-Calls IoResult for EdInt24Result}
begin
IoResultPrim := IoResult;
end;
{$L INT24}
function EdINT24Result : Word; external;
procedure EdINT24On; external;
procedure EdINT24Off; external;
begin
EdINT24On;
end.