section '.idata' import data readable writeable

 .data
        szDisplayName db "Direct Call DLL",0
        CommandLine   dd 0
        hWnd          dd 0
        hInstance     dd 0

    .code       

const
        XDIM := 300;
        YDIM := 300;         
static  
        align(4);
        hwnd : dword := NULL;     
storage
        align(4);
        hStdOut         :dword;    
readonly
        align(4);
        BasicTitle      :string := siteTitle_c;       

program WIN32CUI 'Basic Syntax test';

#include 'console.zir';


.DATA      
var      DB 64     ; Declare a byte, referred to as location var, containing the value 64.
var2  DB ?   ; Declare an uninitialized byte, referred to as location var2.
        DB 10   ; Declare a byte with no label, containing the value 10. Its location is var2 + 1.
X      DW ?   ; Declare a 2-byte uninitialized value, referred to as location X.
Y      DD 30000 ; Declare a 4-byte value, referred to as location Y, initialized to 30000.

Z      DD 1, 2, 3     ; Declare three 4-byte values, initialized to 1, 2, and 3. The value of location Z + 8 will be 3.
bytes    DB 10 DUP(?)   ; Declare 10 uninitialized bytes starting at location bytes.
arr      DD 100 DUP(0)  ; Declare 100 4-byte words starting at location arr, all initialized to 0
str1    DB 'hello',0   ; Declare 6 bytes starting at the address str, initialized to the ASCII character values for hello and the null (0) byte.

.CODE
PUBLIC _myFunc
_myFunc PROC
  ; Subroutine Prologue
  
  mov eax,5
  ret
_myFunc ENDP

wait_key(nil);
ExitProcess(0);