Dynapro Technologies Dynapro ET TCS, Application Developer'S Manual

Page: 275 / 337

A-3
295 PRINT #1, es$;”[12h”; ‘ Local Echo mode off
300 PRINT #1, es$;”[1v”; ‘ Turn off cursor
305 PRINT #1, es$;”[3z”; ‘ Display activity on
310 ‘
315 ‘ Set up TCS character sizes and touch panel
320 ‘
325 PRINT #1, es$;”[1;1H”; ‘ Position cursor
330 PRINT #1, es$;”#2”; ‘ Double-sized line
335 ‘
340 PRINT #1, es$;”[>2n”; : INPUT #1, touch$ ‘ Wait for buffer to clear
345 ‘
350 PRINT #1, es$;”[5;1H”; ‘ Position cursor
355 FOR i% = 1 TO 19 ‘ Create double wide region
360 PRINT #1, es$;”6”; ‘ Double-width lines
365 PRINT #1, es$;”[B”; ‘ Move down one line
370 NEXT i%
375 ‘
380 PRINT #1, es$;”[>2n”; : INPUT #1, touch$ ‘ Wait for buffer to clear
385 ‘
390 ‘ *********************************************
395 ‘
400 ‘ Initialize Touchkeys
405 ‘
410 PRINT #1, es$;”[4u”; ‘ Set all touchkeys to dead
415 ‘
420 FOR i% = 1 TO 3
425 PRINT #1, es$;”[5;”;tkey$(i%);”;3;2u”; ‘ Build touchkey
430 PRINT #1, es$;”[4;”;tkey$(i%);”;1u”; ‘ Set touchkey type
435 PRINT #1, es$;”[6;”;tkey$(i%);”;4u”; ‘ Draw target
440 ‘
445 PRINT #1, es$;”[>2n”; : INPUT #1, touch$ ‘ Wait for buffer to clear
450 NEXT i%
455 ‘
460 PRINT #1, es$;”[>“;tkey$(1);”H”; ‘ Position cursor
465 PRINT #1, cd$;cd$;cr$;”ONE”; ‘ Label first target
470 PRINT #1, es$;”[>“;tkey$(2);”H”; ‘ Position cursor
475 PRINT #1, cd$; cd$; cr$; “TWO”; ‘ Label second target
480 PRINT #1, es$;”[>“;tkey$(3);”H”; ‘ Position cursor
485 PRINT #1, cd$;cd$;cr$;”THREE”; ‘ Label third target
490 ‘
495 PRINT #1, es$;”[>2n”; : INPUT #1, touch$ ‘ Wait for buffer to clear
500 ‘