Aulan1

constant ArraySize = (8 * 3) - 8

type TestVar as integer

     TestStructRef as pointer to TestStruct

     TestStruct as struct
       Bla as array[ArraySize] of integer
       Bla2 as procedure(a as integer, b as float)
       Bla3 as function(a as integer, b as float) as integer
     end

     TestVarRef as pointer to TestVar

variable VarA as integer

function Test(ParamA as integer, ParamB as integer) as integer
variable LocalVarA as integer
         LocalVarB as float
         LocalVarC as pointer to integer
         LocalVarD as boolean
         LocalVarE as array[5] of struct
           WasBitte as integer
         end
code

  result = 1

  LocalVarC = @result

  LocalVarC^ = LocalVarC^ + 1

  if result > 0 then
    result = boolean(integer(result sar 2))
  else if result < 0 then
  else
  end

  while result > 0 do
    result = result - 1
  end

  repeat
    result = result + 1
  until result = 0

  ! LocalLabel.a:
  ! jmp LocalLabel.a

  ! inc dword ptr result

  LocalVarE[3].WasBitte = result

end