ON ERROR REPORT: PRINT ERL: END
LIBRARY"Library"

PROCAssemble
INPUT"Network: " Net%
INPUT"Station: " Stat%
 REPEAT
  MOUSE X%, Y%, Z%
   IF Z% THEN
    PROCClick(Stat%, Net%, X%, Y%, Z%)
   ELSE
    PROCMove(Stat%, Net%, X%, Y%)
   ENDIF
 UNTIL 0
