home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / PASCAL / DOORDR50.ZIP / UNITINTR.ARJ / COMIO.INT < prev    next >
Encoding:
Text File  |  1992-02-02  |  805 b   |  32 lines
  1. unit comio;
  2. {$V-,S-,R-}
  3.  
  4. interface
  5.  
  6. uses ddfossil, async;
  7.  
  8. procedure AsyncSelectPort(n: word);
  9. procedure AsyncSendChar(ch: char);
  10. procedure AsyncReceiveChar(var ch: char);
  11. function AsyncCarrierPresent: boolean;
  12. function AsyncCharPresent: boolean;
  13. procedure AsyncSelectFossil;
  14. procedure AsyncSelectInternal;
  15. procedure AsyncCloseUp;
  16. procedure AsyncSetBaud(n: word);
  17. procedure AsyncSetDTR(state: boolean);
  18. procedure AsyncFlushOutput;
  19. procedure AsyncPurgeOutput;
  20. procedure AsyncSendString(s: string);
  21. procedure AsyncSetFlow(SoftTran,Hard,SoftRecv: boolean);
  22. Procedure AsyncBufferStatus(var Insize,infree,outsize,outfree: word);
  23.  
  24. type
  25.  AsyncIoTypes=(Fossil,Internal,Bios);
  26. var
  27.  AsyncIoType: AsyncIotypes;
  28.  comport: word;
  29.  initok: boolean;
  30.  internalinsize,internaloutsize: word;
  31.  
  32.