program WIN32CUI 'Sample';

//include simple memory manager - required for new, delete
#include 'smm32.zir';

//include console helpers
#include 'console.zir';

//declare our class named ZClass, which will use register edi
class ZClass uses edi {
  //declare some class variables
  DWord var1;
  DWord var2;
  
  //declare a class procedure named "change"
  procedure change() {
    //assign 5000 to this instance var2
    this.var2 = 5000;  
    //return to where we were called
    ret
  }
}

//declare our class pointer; note no * - classes are always pointers.
ZClass c;

//create a new instance
c = new ZClass;

//lets first store edi
push edi;

//we will use edi also to access the class object
edi = c as ZClass;

//set var2 to 100
edi.var2 = 100;

//write the 100 to the console; note we set our class to use edi, but not to worry
//edi is protected by the class so it will be restored on return
WriteNumber(edi.var2);

//call class procedure change, which will change var2 to 5000
edi.change();

//again write the contents to console
WriteNumber(edi.var2);

//no longer use edi
edi as nothing;

//restore edi's contents
pop edi;

//delete the class instance
delete c;

//sleep for 1 second to see output
Sleep(1000);

//exit our application
ExitProcess(0);