CONNECT TCP,127.0.0.1,9999
 
SUB EVENT_CONNECTION_ESTABLISHED
     SEND "system ready"
     CALL SCANNER
END SUB
 
SUB SCANNER
     LABEL LUS
     IF IO01 = 1 Then
          TEXTVAR = "(($AD02*0.0196)/0.02)-24.1"
          VAR1 = $CALC(TEXTVAR)
          SEND "the temperature is $VAR1 degrees"
          LABEL WACHT_TOT_UIT
          IF IO01 = 1 Then GOTO WACHT_TOT_UIT
     END IF
     GOTO LUS
END SUB
 
 
 
 

BACK TO SAMPLE OVERVIEW