Mercurial > lcfOS
view python/tests/testproject/test.mod @ 95:4a37d6992bd3
movage
author | windel |
---|---|
date | Mon, 24 Dec 2012 13:24:59 +0100 |
parents | 32078200cdd6 |
children |
line wrap: on
line source
module test; 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 test.