//add some variable type
const MyType = 'type Integer = Int32; type String = char; type Uchar = char; type Schar = sbyte; type USHORT = word;';
Ziron_Execute(MyType, strLen(MyType)); //H_strlen(MyType))

function H_strlen(char* str) {
  uses ebx;
  
  Eax = nil;
  Ebx = str;
  while(char[Ebx] != 0) {
    Ebx++;
    Eax++;
  }
}

function H_strlen(char* str) {
  Eax = str;
  while(char[eax] != 0) {
    Eax++;
  }
  sub eax, str
}

Ziron_Execute(MyType, sizeof MyType);

Dim buf$ * 100  // allocat 100 char in buf
buf = 'welocm here'   // 
print('assignment test = ', @buf , '\r\n');