OpenEuphoria

 
 
constant  FIRST_INDEX=1050, 
          LAST_INDEX=1052 
procedure check(integer self, integer event, sequence params)  
?event 
?params[1] 
?params[2] 
    if params[1]=120 then--f9 
         showWindow(Window1,SW_MINIMIZE) 
    elsif params[1]=121 then--f10 
         showWindow(Window1,SW_NORMAL)   
    end if 
 
-- clear the buffer 
-- poke( FIRST_INDEX, peek( LAST_INDEX ) ) this dosen't work I qet a machine level     execption 
end procedure 
setHandler(Screen,w32HKeyDown,routine_id("check")) 
 

This only works once on all further keyDowns nothing happens.

Don Cole