Denso BHT-200QW Specifikace stáhnout pdf (Strana 547)

.kb$ = input$(1)

while .kb$<>""

if instr(esc$, .kb$) then'Key designated in esc$?

fnbarkey$ = .kb$ 'Then, return the character.

case chr$(13)

fnbarkey$ = .rt$

case chr$(8) 'BS key.

if len(.rt$) then

print chr$(8);'Erase one character.

.rt$ = left$(.rt$, len(.rt$)-1)

case chr$(24)'Clear key.

while len(.rt$)'Erase all characters entered.

print chr$(8);

.rt$ = left$(.rt$, len(.rt$)-1)

if len(.rt$)<max% then

'Check if only numeric data should be

print .kb$; 'Echo back.

.rt$ = .rt$ + .kb$

beep 'Exceeded number of characters error.

if .rt$="" then'If input string is empty, go back to

'the initial state.

.kb$ = input$(1)'Subsequent key entry.

Žádné komentáře

Denso BHT-200QW Specifikace Strana 547