Annotation 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	james	27	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