Mercurial > lcfOS
comparison python/tests/code1.ks @ 110:9e552d34bd60
Work on compiler
| author | Windel Bouwman |
|---|---|
| date | Fri, 04 Jan 2013 15:25:58 +0100 |
| parents | 8267ba1dbce3 |
| children |
comparison
equal
deleted
inserted
replaced
| 108:8267ba1dbce3 | 110:9e552d34bd60 |
|---|---|
| 1 module s; | 1 module s; |
| 2 var a, b, c:integer; | 2 var a, b, c:integer; |
| 3 | 3 |
| 4 procedure x(); | 4 procedure test(x:integer); |
| 5 begin | 5 begin |
| 6 end x; | 6 a := x * x + 1337; |
| 7 b := a * x | |
| 8 end test; | |
| 7 | 9 |
| 8 begin | 10 begin |
| 9 a := 4 + 6; | 11 a := 4 + 6; |
| 10 b := a + 2*a - 3; | 12 b := a + 2*a - 3; |
| 11 c := a + b | 13 c := a + b |