Rockwell Automation 1746-BAS BASIC LANGUAGE - Manual (Page 206)

Publication 1746-RM001A-US-P
13-16 Input Functions
Example 2
>1 REM EXAMPLE PROGRAM
>10 REM PERIPHERAL PORT INPUT USING CALL 35
>20 STRING 200,20
>30 DIM D(254)
>40 CALL 35 : POP X
>50 IF X <>2 GOTO 40
>55 REM WAIT FOR DEVICE TO SEND START OF TEXT
>60 REM
>70 DO
>80 I=I+1
>90 CALL 35 : POP D(I): REM STORE DATA IN ARRAY
>100 UNTIL D(I)=3 : REM WAIT FOR DEVICE TO SEND END OF TEXT
>120 REM
>130 REM FORMAT AND PRINT DATA TYPES
>140 PRINT “RAW DATA=”
>150 FOR J=1 TO I : PRINT D(J),: NEXT J
>155 REM PRINT RAW DECIMAL DATA
>160 PRINT: PRINT: PRINT
>170 PRINT “ASCII DATA=”
>180 FOR J=1 TO I : PRINT CHR(D(J)),:NEXT J
>185 REM PRINT ASCII DATA
>190 PRINT: PRINT: PRINT
>200 PRINT “$(1)=”
>210 FOR J=1 TO I: ASC($(1),J)=D(J): NEXT J
>215 REM STORE DATA IN STRING
>220 PRINT $(1)
>230 PRINT: PRINT: PRINT
>240 I=0
>250 REM
>260 GOTO 40
READY
>RUN
RAW DATA=
65 66 67 68 69 70 71 49 50 51 52 53 54 55 56 57 3
ASCII DATA=
ABCDEFG123456789
$(1)=
ABCDEFG123456789