// note well , in basic there is no semicolon at end of file

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  // note 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%

dim S!

dim M#

Var = 1000;
a = -10;
b = 150;
c = ord('A');
k = -2000;
S = 1.5;  //<<<<<<<<<<<<<<<<<<<< this giave error
M = 2.0;

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);

mov S, 1.5