SynthLabg

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
var 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

  while a > 0 do
   a--
  end

  repeat
   a++
  until a > 4

  select a
    case 5
    end
    case else
    end
  end

end

procedure test2
code
end