10 lines
170 B
Text
10 lines
170 B
Text
|
do
|
||
|
|
k$ = key
|
||
|
|
until k$ <> ""
|
||
|
|
|
||
|
|
if length(k$) = 2 then
|
||
|
|
print "The key pressed was "; k$; " (ascii "; chr(k$); ")"
|
||
|
|
else
|
||
|
|
print "An extended key was pressed"
|
||
|
|
end if
|