5      REM ***
10     REM Example Communication Program for F0-CP128
15     REM
20     REM This is a generic example showing how to read data
25     REM from a serial device (scale, bar code, etc), parse numeric
30     REM data from the string and write the numeric data to the PLC
35     REM
40     REM This example assumes that the data is in the following format:
45     REM ##########CRLF
50     REM ***
55     STRING 2551,254 :  REM Allocate String Space 10*254 Strings
60     SETPORT 1,9600,N,8,1,N :  REM Programming/Monitoring
65     SETPORT 3,9600,N,8,1,N :  REM Scale
70     SETINPUT 1,1,10,0,1000,20 :  REM Define how INPUT will work
75     REM ---
80     PRINT1 "Waiting for Data"
85     REM ---
90     INPUT3 ,$(0) : REM Input Data to String 0 ($(0))
100    IF INPLEN=0 THEN PRINT1 "Device Timed Out" : GOTO 130
105   XHI=VAL(MID$($(0),1,2)) :  REM Get High Word  
106   XMD=VAL(MID$($(0),3,4)) :  REM Get Mid Word
107   XLO=VAL(MID$($(0),7,4)) :  REM Get Low Word
110   S06_VB(2002)=XHI
111   S06_VB(2001)=XMD
112   S06_VB(2000)=XLO
145    REM ---
150    REM GOTO 130 : REM Loop