Mercurial > lcfOS
diff ide/testproject/main.mod @ 38:a1c9c2158e99
Directory cleanup
author | windel |
---|---|
date | Fri, 03 Feb 2012 18:38:44 +0100 |
parents | testproject/main.mod@edd70006d3e4 |
children |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/ide/testproject/main.mod Fri Feb 03 18:38:44 2012 +0100 @@ -0,0 +1,25 @@ +module main; +var + a,b,c : integer; + +procedure test(x:integer); + var y,z:integer; +begin + y := x * 3 + 2; + z := x + y + a; +end test; + +procedure add(a:integer; b:integer):integer; + var + tmp : integer; + begin + tmp := a + b; + return tmp + end add; + +begin + a := 12; + b := a * 12 + 33; + c := a div b + a * b * 99; +end main. +