10     REM ***
12     REM Example Communication Program for F0-CP128
14     REM
16     REM This is a generic example showing how to 
18     REM trigger a request to a serial device using C0,
20     REM input the response, parse the numeric data, and
22     REM write the parsed data to V2000
24     REM
30     REM This example assumes that response is in the following format:
32     REM ####.##gCRLF
100    REM ***
102    STRING 2551,254 :  REM Allocate String Space 10*254 Strings
104    SETPORT 1,9600,N,8,1,N :  REM Programming/Monitoring
106    SETPORT 3,9600,N,8,1,N :  REM Scale
108    SETINPUT 1,1,10,0,1000,20 :  REM Define how INPUT will work
110    REM ---
112    PRINT1 "Waiting for C0 Trigger"
114    DO : UNTIL S06_C(0) : REM Ladder SETs C0 to trigger request
116    S06_C(0)=0 :  REM CoPro Turns off C0
120    REM ---
122    PRINT1 "Requesting Data"
124    PRINT3 "S" : REM Send Request S plus CRLF
130    REM ---
132    INPUT3 ,$(0) :  REM Input Data to String 0 ($(0))
134    IF INPLEN=0 THEN  PRINT1 "Device Timed Out" :  GOTO 110
136    PRINT1 "Response= ",$(0)
138   SDTA=VAL(MID$($(0),1,7)) :  REM Parse Data from String
140   S06_VB(2000)=INT(SDTA) : REM Write Integer Data to PLC in BCD Format
150    PRINT1 "Parsed Data= ",SDTA
160    REM ---
162    GOTO 110 :  REM Loop to wait for next trigger