/**************************************************************************\
   $VER: TimeClock PortCheck, v2.00 (14-Mar-97) by Dotoran of Frontiers!
\**************************************************************************/
options results;signal on SYNTAX;signal on ERROR;signal on IOERR
a=sourceline(2);parse var a . ", "ver" ("vdate")" .;tr=transmit;gu=getuser
a="rexxsupport.library";if ~show("l",a) then if ~addlib(a,0,-30) then exit
parse source . . fp .;df=left(fp,max(lastpos('/',fp),lastpos(':',fp)))

gu 40 ; id=result ; if getclip("CDtimer"id)getclip("TDtimer"id)="" then exit

gu 23 ; port=result ; v1=getclip("CDtimer"id) ; v2=getclip("TDtimer"id)

if v1>"" then do ; parse var v1 a1 a2
  if port~=a1 then a1=port ; v=a1||a2 ; call setclip("CDtimer"id,v) ; end

if v2>"" then do ; parse var v2 a1 a2
  if port~=a1 then a1=port ; v=a1||a2 ; call setclip("TDtimer"id,v) ; end

exit
CHECK:;if ARG() & ARG(1)~="###PANIC" then return ARG(1)
  getcarrier;if result="TRUE" then if ARG() then return ARG(1);else return
  logentry "Lost Carrier!!";bufferflush;exit
SYNTAX:;ERROR:;IOERR:;e1="n1 Error: "rc" ("errortext(rc)")"
  e2="  Line: "left(sigl,4)"File:";c="`"fp", "ver"'";e2=e2" "c;tr e1;tr e2
  logentry e1;logentry e2;e=strip(translate(sourceline(sigl),"\{",""))
  do while e~="";e3="Source: "left(e,37);tr e3;logentry e3;e=substr(e,38);end
  bufferflush
/**************************************************************************\
\****************************************** Frontiers BBS (716)/823-9892 **/