main
define b integer

 while true
    let b = fgl_getkey()
    display b ," ", fgl_keyval("control-m") at 2,2
 end while

end main