home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / VDL020D.ZIP / VSERTD.DOC < prev    next >
Encoding:
Text File  |  1993-04-14  |  1.4 KB  |  58 lines
  1. (*
  2. ────────────────────────────────────────────────────────────────────────────}
  3.  
  4.      lpg     03/16/93     Added Source Documentation
  5.  
  6. ────────────────────────────────────────────────────────────────────────────}
  7. *)
  8.  
  9.  
  10. UNIT VSerLo;  { FOSSIL VERSION }
  11.  
  12.  
  13. Uses DOS, FosLo;
  14.  
  15. {────────────────────────────────────────────────────────────────────────────}
  16.  
  17. Procedure AssignCom( Var F         : Text;
  18.                          ComPort   : BYTE;
  19.                          Baud      : LONGINT;
  20.                          Parity    : CHAR;
  21.                          DataBits  : BYTE;
  22.                          StopBits  : BYTE  );
  23.  
  24. {────────────────────────────────────────────────────────────────────────────}
  25.  
  26.  
  27. ──────────────────────────────────────────────────────────────────────────────
  28.  
  29.  
  30. [FUNCTION]
  31.  
  32. Procedure AssignCom( Var F         : Text;
  33.                          ComPort   : BYTE;
  34.                          Baud      : LONGINT;
  35.                          Parity    : CHAR;
  36.                          DataBits  : BYTE;
  37.                          StopBits  : BYTE  );
  38.  
  39. [PARAMETERS]
  40.  
  41. F           VAR Text File Handle
  42. ComPort     Communications Port Number
  43. Buad        Desired Baud Rate for Port
  44. Parity      Desired Parity for Port
  45. DataBits    Desired Number of Data Bits for Port
  46. StopBits    Desired Number of Stop Bits for Port
  47.  
  48. [RETURNS]
  49.  
  50. (None)
  51.  
  52. [DESCRIPTION]
  53.  
  54. [SEE-ALSO]
  55.  
  56. [EXAMPLE]
  57.  
  58.