FUNCTION Serial_Time_Out(COM : byte) : byte;
{ DESCRIPTION:
    Time-Out values for RS232 communications lines.
  SAMPLE CALL:
    NB := Serial_Time_Out(1);
  NOTES:
    The allowed values for COM are: 1,2,3 or 4. }

BEGIN { Serial_Time_Out }
  Serial_Time_Out := Mem[$0000:$047C + Pred(COM)];
END; { Serial_Time_Out }