handy key fifo for this routine to keep 5 key strokes deep

Code:
 
  if key >0  then 
       
   for Key_count  = 4 to 1 step - 1 
       Key_value(Key_count) = Key_value( Key_count - 1)
   next Key_count     
 
    Key_Value(0) = Key
   
   endif