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;
|
||
|