format pe console on 'nul'
entry @@entry

include 'win32a.inc'

section '' import data code writable readable executable
library kernel32,'kernel32'
include 'api\kernel32.inc'

stdout dd $0
stdin  dd $0

tmp    dd $0
msg    rb $FF

struc ccnfo
{
  .dwSize   dd $0                 
;   /* Between 1-100 for percentage of cell filled "dword" */
  .bVisible db $0                 
;   /* Visibility of cursor "bool" */
} LPCONSOLE_CURSOR_INFO ccnfo

@@entry:
xor ebx,ebx

stdcall [GetStdHandle],-11
mov [stdout],eax
stdcall [GetStdHandle],-10
mov [stdin],eax
stdcall [SetConsoleActiveScreenBuffer],eax

mov [LPCONSOLE_CURSOR_INFO.dwSize],50
mov [LPCONSOLE_CURSOR_INFO.bVisible],1

stdcall [SetConsoleCursorInfo],[stdout],LPCONSOLE_CURSOR_INFO

stdcall [ReadConsole],[stdin],msg,$FF-$1,tmp,ebx

stdcall [ExitProcess],ebx