home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware 1 2 the Maxx
/
sw_1.zip
/
sw_1
/
PROGRAM
/
DOORDR50.ZIP
/
UNITINTR.ARJ
/
COMIO.INT
< prev
next >
Wrap
Text File
|
1992-02-02
|
805b
|
32 lines
unit comio;
{$V-,S-,R-}
interface
uses ddfossil, async;
procedure AsyncSelectPort(n: word);
procedure AsyncSendChar(ch: char);
procedure AsyncReceiveChar(var ch: char);
function AsyncCarrierPresent: boolean;
function AsyncCharPresent: boolean;
procedure AsyncSelectFossil;
procedure AsyncSelectInternal;
procedure AsyncCloseUp;
procedure AsyncSetBaud(n: word);
procedure AsyncSetDTR(state: boolean);
procedure AsyncFlushOutput;
procedure AsyncPurgeOutput;
procedure AsyncSendString(s: string);
procedure AsyncSetFlow(SoftTran,Hard,SoftRecv: boolean);
Procedure AsyncBufferStatus(var Insize,infree,outsize,outfree: word);
type
AsyncIoTypes=(Fossil,Internal,Bios);
var
AsyncIoType: AsyncIotypes;
comport: word;
initok: boolean;
internalinsize,internaloutsize: word;