.386
.model flat, stdcall
option casemap: none

includelib kernel32.lib

GetStdHandle PROTO :DWORD

ReadConsoleA PROTO :DWORD, :PTR BYTE, :DWORD,
                   :PTR DWORD, :DWORD
WriteConsoleA PROTO :DWORD, :DWORD, :DWORD, :DWORD, :DWORD
Sleep PROTO: DWORD

ExitProcess PROTO :DWORD

.data
    buffer BYTE '....'
    hConsole DWORD ?
    ptrRead DWORD ?

.code
    main Proc

    push -10
    call GetStdHandle
    mov hConsole, eax

    push 0
    push offset ptrRead
    push 4d
    push offset buffer
    push hConsole
    call ReadConsoleA

    push -11
    call GetStdHandle
    mov hConsole, eax

    push 0
    push offset ptrRead
    push 4d
    push offset buffer
    push hConsole
    call WriteConsoleA

    push 2000d
    call Sleep

    push 0
    call ExitProcess
    main EndP
    end main