eax = Ziron_GetNextToken(); 
  
  case (eax) 
   {
/*********   Dim Var as int32;    **************/         
     state zirAs:
                   .......
                   .......
                 break;
 
/*********   dim k%;    **************/        
          state zirModSym:
                   .......
                   .......
                 break;

          state zirModSym:
/*********   dim k$;    **************/  

snd so on......

case ...

default:
  Fatal_Error('Unexpected token');
  return true;
}

if(Ziron_IsNextLineBreak())
   {
      break;      // check end of line so we end without semicolon
   } 

eax = Ziron_IsNextLineBreak();
if(eax)
   {
      break;      // check end of line so we end without semicolon
   } 

state zirIdent:
  eax = Ziron_GetStringValue();
  eax = myCustomIdentFunc(eax);

  if (eax == ci_Etc) ....

program WIN32CUI 'Basic Syntax test';

#include 'console.zir';

function  H_strcpy(Dword dst,src)
{ 
  Eax = dst; 
  Edx = src; 
  push Eax;
  BL =  [Edx]; 
  while ( BL != 0)  
   { 
      [Eax] = BL; 
      Eax++; Edx++; 
      BL =  [Edx]; 
   }  
  [Eax] = 0;
  pop Eax;
} 

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

Dim Var as int32  // not well , in basic there is no semicolon at end of file

DIM Name$;

DIM a AS int32, b AS Dword, c AS char;

dim k%;

Var = 1000;
a = -10;
b = 150;
c = ord('A');
k = -2000;

H_strcpy(@Name , 'Emil');

print('Var = ', Var, '\r\n');
print('a = ', a, '\r\n');
print('b = ', b, '\r\n');
print('c = ');
WriteLnEx(@c,1);
print('k = ', k, '\r\n');
WriteLnEx(@Name,4);

wait_key(nil);
ExitProcess(0);

Dim Var as int32  // not well , in basic there is no semicolon at end of file