aUCBLogo Demos and Tests / keyptest

to keyptest
   forever
   [   if key?
      [   c=readchar
         ifelse c == char 255
         [   c=readCharExt
            (pr "ext c)
         ]
         [   (pr rawASCII c c)
            if c==char 27 [stop]
         ]
      ]
   ]
end