on key_down
   gclear
   k$ = keybkey
   gtext 10 80 k$
.