Allows you to accept keyboard input without using
input string.
sync on
do
cls
HandleEntry()
sync
loop
function HandleEntry()
if entry$()<>""
for i=1 to len(entry$())
char$=mid$(entry$(),i)
`backspace
if char$=chr$(8)
if CurrentInput$<>"" then CurrentInput$=left$(CurrentInput$,len(CurrentInput$)-1)
`/backspace
else
if asc(Char$) >= 32 and asc(Char$) < 128 then CurrentInput$ = CurrentInput$ + Char$
if asc(Char$) = 13
Result$ = CurrentInput$
CurrentInput$ = ""
endif
endif
next i
clear entry buffer
endif
print CurrentInput$
endfunction
Adaptation of original code by IanM
