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