I change the funtion:
I$= NETCMD$(3,"@02RU0C") 'Read SPEED-COUNTER (#13) preset value
IF LEN(I$)= 0 RETURN: ENDIF 'Not getting response
DM[102]= VAL(MID$(I$,1,3)) 'Keep the value temporarily
I$= NETCMD$(3,"@02RU0D") 'Read SPEED-COUNTER (#14) preset value
IF LEN(I$)= 0 RETURN: ENDIF 'Not getting response
DM[103]= VAL(MID$(I$,1,3)) 'Keep the value temporarily
I$= NETCMD$(3,"@02RU0E") 'Read SPEED-COUNTER (#15) preset value
IF LEN(I$)= 0 RETURN: ENDIF 'Not getting response
DM[104]= VAL(MID$(I$,1,3)) 'Keep the value temporarily
I$= NETCMD$(3,"@02WU0C0000") 'Clear the SPEED-COUNTER #13 preset value.
I$= NETCMD$(3,"@02WU0D0000") 'Clear the SPEED-COUNTER #14 preset value.
I$= NETCMD$(3,"@02WU0E0000") 'Clear the SPEED-COUNTER #15 preset value.
SETLCD 1,1,"SPEED: "
SETLCD 2,1,"NO CLP: "
SETLCD 3,1,"COUNT: "
SETLCD 1,10," "
SETLCD 2,10," "
SETLCD 3,10," "
SETLCD 1,10,STR$(DM[102])
SETLCD 2,10,STR$(DM[103])
SETLCD 3,10,STR$(DM[104])
However, the display and the DM's don't change. The value is always 0. Where is the problem?
Philip.