Specifications

549
Appendices
fnbarkey$ = .kb$ ’Then, return the character.
exit def
endif
select .kb$
case chr$(13)
fnbarkey$ = .rt$
exit def
case chr$(8) ’BS key.
if len(.rt$) then
print chr$(8); ’Erase one character.
.rt$ = left$(.rt$, len(.rt$)-1)
endif
case chr$(24) ’Clear key.
while len(.rt$) ’Erase all characters entered.
print chr$(8);
.rt$ = left$(.rt$, len(.rt$)-1)
wend
case else
if len(.rt$)<max% then
’Check if only numeric data should be
’received.
print .kb$; ’Echo back.
.rt$ = .rt$ + .kb$
else
beep ’Exceeded number of characters error.
endif
end select
if .rt$="" then ’If input string is empty, go back to
’the initial state.
.kb$ = ""
else
.kb$ = input$(1) ’Subsequent key entry.
end if
wend
endif
wend
end def