function event_Dim() {
  char var[255];  
  char buf[1024]; 
  buf = 0; //make sure buf is initialized otherwise it may be filled with junk
       
  eax = Ziron_ExpectNextToken(zirIdent);
  if (eax == -1) {
    Ziron_FatalError('Expected Variable Name');
    return true;
  }
    
  H_strcpy(@var,Ziron_GetStringValue()); 
         
  eax = Ziron_ExpectNextToken(zirAs);
  if (eax == -1) {
    Ziron_FatalError('Expected as Keyword');
    return true;
  }
  
  eax = Ziron_ExpectNextToken(zirDATA_TYPE);
  if (eax == -1) {
    Ziron_FatalError('Expected data type');
    return true;
  }
  eax = Ziron_GetStringValue();

  strAppend(@buf,eax,1023);
  if (eax == false) {
    Ziron_FatalError('strAppend failed\r\n');
  }
  strAppend(@buf,' ',1023);
  if (eax == false) {
    Ziron_FatalError('strAppend failed\r\n');
  }
  strAppend(@buf,@var,1023);
  if (eax == false) {
    Ziron_FatalError('strAppend failed\r\n');
  }
  strAppend(@buf,';',1023);
  if (eax == false) {
    Ziron_FatalError('strAppend failed\r\n');
  }
        
  Ziron_Execute(@buf, strLen(@buf));
  
  return true;
}

program WIN32CUI 'test';

#include 'console.zir';

eax = 1;
print('eax = ', eax:int, '\r\n');

Dim Var as int32;

Var = 1000;

print('Var = ', Var, '\r\n');

wait_key(nil);
ExitProcess(0);