16 lines
403 B
Text
16 lines
403 B
Text
Module Checkit {
|
|
\\ feed keyboard
|
|
Keyboard "abcd"
|
|
\\ Work in Windows not in Linux (no Osk.exe exist)
|
|
\\ no error return in linux
|
|
Keyboard ! 'open virtual keyboard
|
|
Wait 3000
|
|
\\ flush keyboard
|
|
\\ we can use Do or Repeat (is the same)
|
|
Repeat {
|
|
a$=inkey$
|
|
if a$="" then Print :exit
|
|
Print a$;
|
|
} Always
|
|
}
|
|
Checkit
|