aUCBLogo Demos and Tests / onekeylogo


to oneKeyLogo
   key=readchar
   case key
   [   ["f fd 10]
      ["b bk 10]
      ["r rt 30]
      ["l lt 30]
      ["d pd]
      ["u pu]
      ["c cs]
      [[char 27] stop]
      ["q stop]
   ]
   oneKeyLogo
end