Contents of /archive/econet/Control

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
1	ON ERROR REPORT: PRINT ERL: END
2	LIBRARY"Library"
3
4	PROCAssemble
5	INPUT"Network: " Net%
6	INPUT"Station: " Stat%
7	REPEAT
8	MOUSE X%, Y%, Z%
9	IF Z% THEN
10	PROCClick(Stat%, Net%, X%, Y%, Z%)
11	ELSE
12	PROCMove(Stat%, Net%, X%, Y%)
13	ENDIF
14	UNTIL 0