unit example;

interface

    const foo = 5;
    const bar: uchar = 12; 

    type TRec = struct
    {
        a:    ushort;
        b:    string;

        c: union
        {
            m: real;
            n: char;
        }
    }
   
    type Fruit = enum { Banana=1, Apple, Orange };

implementation
    var m: TRec;
    var done?: bool;

function main( argc: ulong; argv: array of pchar ): long;
{
    var x: TRec;
    var y: long = 0;

    with x do
    {
        a  = 0o67;        // octal constant
        b = "Hello\n";
        c.n = 'N';
        a  = 0b00101100;  // binary constant
    }

 label loop1:
    for (y=0; y < 10; y++)
    {
      var j: ushort;

      label loop2:
        for (j=y; j < 20; j++)
        {
            if (y == 10)
            {
                break loop2;
            }

            else if (j == 15)
            {
                continue loop1;
            }
        }
    }

    return y;
}