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
this seems to work