Изменить код программы для Far-manager

.686              
    .MODEL  FLAT,C
    INCLUDE in_out.inc
 
    .STACK
 
    .DATA
Message BYTE    "Vvedite stroku:",0
stdout  DWORD   ?
    
    .CODE
main    PROC    
 
;get stdout
    INVOKE  __iob_func  ;get stdout
    add eax,32      ;get stdout
    mov stdout,eax  ;get stdout
;get length
    INVOKE  strlen,ADDR Message 
    mov ecx,eax
;make base
    mov ebx,OFFSET Message
;repeating ecx times
loop1:
        mov al,[ebx]    ;get current character                                                      
    cbw         ;expanded to word
    push    ecx     ;save counter
    INVOKE  putc,ax,stdout  ;print current character
    inc ebx     ;to next character
    pop ecx     ;restore counter
    loop    loop1       ;to next character printing
 
 
Message BYTE    "Vvedena stroka:"
Text2   BYTE    NN DUP (?)
n   DWORD   0
     .CODE
main    PROC    
 
;get stdin
    INVOKE  __iob_func  ; get stdin
    INVOKE  _fileno,eax ; get handle of stdin
;input
    INVOKE  _read,eax,ADDR Text2,NN
    mov Text2[eax-1],
    mov Text2[eax],0
;get length
    INVOKE  strlen,ADDR Message
    mov n,eax
;get stdout OS_handle
    INVOKE  GetStdHandle,STD_OUTPUT_HANDLE
;output
    INVOKE  WriteFile,eax,ADDR Message,n,ADDR n,0
       
main    ENDP 
 
    END ;program

.686 
.MODEL  FLAT,C
INCLUDE in_out.inc <-- вот это!

@t_0        TYPEDEF     PTR SBYTE
@t_1        TYPEDEF     PTR SBYTE
@t_2        TYPEDEF     PTR SBYTE
 
_iobuf      STRUCT  2t
  _ptr      @t_0        ?
  _cnt      SWORD       ?
  _base     @t_1        ?
  _flag     SWORD       ?
  _file     SWORD       ?
  _charbuf  SWORD       ?
  _bufsiz   SWORD       ?
  _tmpfname @t_2        ?
 _iobuf     ENDS
 
FILE        TYPEDEF     _iobuf
 
STD_INPUT_HANDLE    EQU DWORD PTR -10
STD_OUTPUT_HANDLE   EQU DWORD PTR -11
STD_ERROR_HANDLE    EQU DWORD PTR -12
 
puts        PROTO       C :PTR SBYTE
gets        PROTO       C :PTR SBYTE
putc        PROTO       C :WORD, :PTR FILE
 
@proto_19       TYPEDEF     PROTO C :SWORD
_fputchar       PROTO       @proto_19
 
printf      PROTO       C :PTR SBYTE, :VARARG
fprintf     PROTO       C :PTR FILE, :PTR SBYTE, :VARARG
;int _cprintf_s(const char * format [,  argument] ... );
_cprintf_s  PROTO       C :PTR SBYTE, :VARARG
 
;FILE *_fdopen(int handle, const char *mode);
_fdopen     PROTO       C :DWORD, :PTR SBYTE
 
;int _fileno(FILE *stream);
_fileno     PROTO       C :PTR FILE
 
__iob_func  PROTO       ; (void)
 
;size_t strlen(const char *str);
strlen      PROTO       C :DWORD
 
;int _read(int fd, void *buffer, unsigned int count);
_read       PROTO       C fd:DWORD, buffer:PTR SBYTE, count:DWORD
 
;int fgetc(FILE *stream);
fgetc       PROTO       C :PTR FILE
 
 
 
;HANDLE GetStdHandle(DWORD nStdHandle);
GetStdHandle    PROTO       STDCALL, :DWORD
 
;BOOL WriteFile( HANDLE hFile, LPCVOID lpBuffer, DWORD nNumberOfBytesToWrite, LPDWORD lpNumberOfBytesWritten, LPOVERLAPPED lpOverlapped);
;           1       2       3           4               5
WriteFile   PROTO       STDCALL hFile:DWORD, lpBuffer:DWORD, nNumberOfBytesToWrite:DWORD, lpNumberOfBytesWritten:DWORD, lpOverlapped:DWORD
;BOOL ReadFile(HANDLE hFile,LPVOID lpBuffer,DWORD nNumberOfBytesToRead,LPDWORD lpNumberOfBytesRead,LPOVERLAPPED lpOverlapped);
ReadFile    PROTO       STDCALL hFile:DWORD, lpBuffer:DWORD, nNumberOfBytesToWrite:DWORD, lpNumberOfBytesWritten:DWORD, lpOverlapped:DWORD
ReadConsoleA        PROTO           STDCALL hFile:DWORD, lpBuffer:DWORD, nNumberOfBytesToWrite:DWORD, lpNumberOfBytesWritten:DWORD, lpOverlapped:DWORD
 
MessageBoxA PROTO       STDCALL :PTR BYTE, :PTR BYTE, :PTR BYTE, :DWORD
CharToOemA  PROTO       STDCALL :DWORD, :DWORD
OemToCharA  PROTO       STDCALL :DWORD, :DWORD