33 lines
894 B
Plaintext
33 lines
894 B
Plaintext
|
|
|||
|
|
{*******************************************************}
|
|||
|
|
{ }
|
|||
|
|
{ Turbo Pascal Version 5.5 }
|
|||
|
|
{ 3.0 Compatibility Unit }
|
|||
|
|
{ }
|
|||
|
|
{ Copyright (C) 1987, 1989 Borland International }
|
|||
|
|
{ }
|
|||
|
|
{*******************************************************}
|
|||
|
|
|
|||
|
|
unit Turbo3;
|
|||
|
|
|
|||
|
|
{$D-,I-,S-}
|
|||
|
|
|
|||
|
|
interface
|
|||
|
|
|
|||
|
|
uses Crt;
|
|||
|
|
|
|||
|
|
var
|
|||
|
|
Kbd: Text;
|
|||
|
|
CBreak: Boolean absolute CheckBreak;
|
|||
|
|
|
|||
|
|
procedure AssignKbd(var F: Text);
|
|||
|
|
function MemAvail: Integer;
|
|||
|
|
function MaxAvail: Integer;
|
|||
|
|
function LongFileSize(var F): Real;
|
|||
|
|
function LongFilePos(var F): Real;
|
|||
|
|
procedure LongSeek(var F; Pos: Real);
|
|||
|
|
procedure NormVideo;
|
|||
|
|
procedure HighVideo;
|
|||
|
|
procedure LowVideo;
|
|||
|
|
function IOresult: Integer;
|
|||
|
|
|