arakov

import extensions;
import system'io;
import system'routines;

public vmToAsm(var s)
{
    int pos := s.indexOf(0, ".");
    int lastPos := pos;
    while (pos != -1)
    {

arakov

#define system.
#define system'math.
#define system'routines.
#define extensions.

// --- Program --- 

#symbol Program = 
[ 
    // reading    

arakov

#define system.
#define system'text.
#define extensions'text.

#class FileEnumerator
{
    #field(type:bytearray)theStruct.
    #field theHandle.
    #field theSearchPath.
    #field theOpen.

arakov

#define system.
#define extensions.

#class MyNumber
{
    #field theValue.
    
    #constructor new : aValue
    [
        theValue := aValue.

arakov

#define system.
#define extensions.

#class MyNumber
{
    #field theValue.
    
    #constructor new : aValue
    [
        theValue := aValue.