format MS COFF
;public _WinMainCRTStartup
public _outs
public ?Wind@@YAPADXZ
extrn '__imp__GetLocalTime@4' as GetLocalTime:dword
include 'include\kernel.inc'
include 'include\macro\stdcall.inc'
include 'c:\fasm135\include\lib\strings.mac'
include 'c:\fasm135\include\lib\strings.asm'
section '.text' code readable executable
 ; _WinMainCRTStartup:
proc ?Wind@@YAPADXZ
    enter
    push    ebx esi edi
    invoke   GetLocalTime,Date
    mov      ebx,_outs
    StringCopyHTML ebx,day
    add      ebx,eax
    xor      eax,eax
    mov      ax,[Date.wDay]
    stdcall  IntToString,h4,eax
    StringCopyHTML ebx,h4
    add      ebx,eax
    StringCopyHTML ebx,mon
    add      ebx,eax
    xor      eax,eax
    mov      ax,[Date.wMonth]
    stdcall  IntToString,h4,eax
    StringCopyHTML ebx,h4
    add      ebx,eax
          StringCopyHTML ebx,year
    add      ebx,eax
    xor      eax,eax
    mov      ax,[Date.wYear]
    stdcall  IntToString,h4,eax
    StringCopyHTML ebx,h4
    add      ebx,eax
    mov      eax,_outs
    pop edi esi ebx
    return
section '.data' data readable writeable
  h4    db 'Info',0
  Date SYSTEMTIME
  day db 'Day:',0
  mon db ' Month:',0
  year db ' Year:',0
  _outs: times 30 db 0