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 27stop]
      
["q stop]
   
]
   
oneKeyLogo
end