Dynapro Technologies Dynapro ET TCS, Application Developer'S Manual

Page: 276 / 337

A-4
505 ‘************************************************
510 ‘
515 ‘ Draw Rest of Display
520 ‘
525 PRINT #1, es$;”[1;11H”; ‘ Position cursor
530 PRINT #1, “Touch Control Screen”; ‘ Top of double-sized line
535 PRINT #1, es$;”#2; ‘ Copy to bottom half.
540 ‘
545 PRINT #1, es$;”[5;3H”; ‘ Position cursor
550 PRINT #1, es$;”[6; 10; 36; 2t”; ‘ Draw outline
555 ‘
560 PRINT #1, es$;”[20;7H”; ‘ Position cursor
565 PRINT #1, “A light touch is all it takes.”; ‘ Print text
570 ‘
575 ‘ ************************************************
580 ‘
585 ‘ Get user input
590 ‘
595 INPUT #1, touch$ ‘ Get touch input from TCS
600 ‘
605 start% = INSTR(1, touch$, es$+”[>2;”) + 5 ‘ Find touchkey number
610 touch$ = MID$(touch$, start%, 3) ‘ Extract touchkey touched
615 ‘
620 ‘ Update the display
625 FOR i% = 1 to 3
630 IF touch$ = tkey$(i%) THEN newt% = i%
635 NEXT i%
640 ‘
645 PRINT #1, es$;”[9;”tkey$(newt%);”;1;7u”; ‘ Reverse new touchkey
650 IF oldt% = 0 THEN GOTO 665 ‘ Determine if first use
655 PRINT #1, es$;”[9;”;tkey$(oldt%);”;1;7u”; ‘ Reset old touchkey
660 ‘
665 oldt% = newt% ‘ Old touch is now new touch
670 GOTO 595 ‘ Start over
675 END