
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 ‘
Содержание Dynapro ET TCS
Страница 1: ......
Страница 127: ...5 40 LJXUH QFRGLQJ WKH 6L HOV...
Страница 194: ...6 4 LJXUH 7RXFKNH 9LVXDO WHQW...
Страница 310: ......
Страница 311: ......
Страница 312: ......
Страница 313: ......
Страница 314: ...ASCII Code Custom Character Pattern Chart ASCII Code ASCII Code ASCII Code...