StoreX
Series
Remote Operation V0712 .doc
22
RKi, 26.11.2020
DISCONTINUED
PROCEDURE STX_WaitReadyTrace(portNbr:INTEGER);
VAR c:CHAR; x,y,err:INTEGER; n:WORD;
BEGIN
WRITE(' ');
x:=WhereX; y:=WhereY;
DelayMs(300);
WHILE (STX_Read(prtNbr,1915)='0') AND NOT(KeyPressed) DO
BEGIN
DelayMs(100);
GotoXY(x,y);
Val(STX_ReadDataMemory(portNbr,200,n,err); WRITE(n:3)
END
END;
1.5
Program Examples
