Dynapro Technologies Dynapro ET TCS, Application Developer'S Manual

Page: 274 / 337

A-2
7KH6DPSOH3URJUDP
100 ‘ ********************************************
105 ‘
110 ‘ Set up constants
115
120 es$ = CHR$(27) ‘ Control string introducer
125 cr$ = es$ + “[C” ‘ Move cursor right command
130 cd$ = es$ + “[B” ‘ Move cursor down command
135 ‘
140 DIM tkey$(3) ‘ Define array of touchkey
145 ‘ ‘ positions
150 tkey$(1) = “032” ‘ Position of 1st touchkey
155 tkey$(2) = “035” ‘ Position of 2nd touchkey
160 tkey$(3) = “038” ‘ Position of 3rd touchkey
165 ‘
170 ‘ ********************************************
175 ‘
180 ‘ Initialize variables
185 ‘
190 oldt% = 0 ‘ Last touchkey value
195 touch$ = “” ‘ Input from TCS
200 newt% = 0 ‘ New touchkey value
205 ‘
210 ‘ ********************************************
215 ‘
220 ‘ Open serial communication channels to TCS
225 ‘
230 CLOSE ‘ Close communication ports
235 OPEN “COM1:9600, N, 8, 1, CSO, DSO” AS #1 ‘ Open communications port
240 ‘
245 ‘
250 ‘ *********************************************
255 ‘
260 ‘ Set up TCS modes
265 ‘
270 PRINT #1, es$;”[2s”; ‘ Select displayed screen
275 PRINT #1, es$;”[3s”; ‘ Initialize screen
280 PRINT #1, es$;”[;;13w; ‘ Set terminator char to <CR>
285 PRINT #1, es$;”[>1l”; ‘ Polled touch mode off
290 PRINT #1, es$;”[>2l”; ‘ Enable touch input