9 lines
170 B
Text
9 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
|