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