Aulan

const Constant1=123

type TestStruct as struct
       Value1 as integer
       Value2 as float
       Value3 as pointer to integer
       Value4 as pointer to void
       Value5 as array[10] of integer
     end

     TestStructAlias as TestStruct

function test(Parameter0 as pointer to TestStruct,Parameter1 as float,Parameter2 as integer) as integer
variable a as integer
         b as TestStructAlias
code
  a = 1 + Parameter2
  b.Value2 = 2.0
  b.Value3++ = @a
  b.Value3 = @a

  if a == b.Value3^ then
    a++
  end else if a > 0 then
  end

  for a=0 to 10 do
    continue
  end

  for b=10 down to 0 do
    break
  end

  while a > 0 do
    a--
  end

  label abc

  repeat
    a++
  until a > 4

  goto abc

  select a
    case 5
    end
    case else
    end
  end

end

procedure test2
code
end