f_retkey 返回按键string

global type f_retkey from function_object
end type

forward prototypes
global function string f_retkey (keycode key)
end prototypes

global function string f_retkey (keycode key);choose case key
 case keya!
  return 'a'
 case keyb!
  return 'b'
 case keyc!
  return 'c'
 case keyd!
  return 'd'
 case keye!
  return 'e'
 case keyf!
  return 'f'
 case keyg!
  return 'g'
 case keyh!
  return 'h'
 case keyi!
  return 'i'
 case keyj!
  return 'j'
 case keyk!
  return 'k'
 case keyl!
  return 'l'
 case keym!
  return 'm'
 case keyn!
  return 'n'
 case keyo!
  return 'o'
 case keyp!
  return 'p'
 case keyq!
  return 'q'
 case keyr!
  return 'r'
 case keys!
  return 's'
 case keyt!
  return 't'
 case keyu!
  return 'u'
 case keyv!
  return 'v'
 case keyw!
  return 'w'
 case keyx!
  return 'x'
 case keyy!
  return 'y'
 case keyz!
  return 'z'
 case key1!
  return '1'
 case key2!
  return '2'
 case key3!
  return '3'
 case key4!
  return '4'
 case key5!
  return '5'
 case key6!
  return '6'
 case key7!
  return '7'
 case key8!
  return '8'
 case key9!
  return '9'
 case key0!
  return '0'
 case else
  return ''
end choose
end function