864
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff
changeset
|
1 |
start := 1000;
|
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff
changeset
|
2 |
x := start;
|
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff
changeset
|
3 |
y := start;
|
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff
changeset
|
4 |
z := start;
|
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff
changeset
|
5 |
while 0 < x do {
|
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff
changeset
|
6 |
while 0 < y do {
|
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff
changeset
|
7 |
while 0 < z do { z := z - 1 };
|
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff
changeset
|
8 |
z := start;
|
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff
changeset
|
9 |
y := y - 1
|
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff
changeset
|
10 |
};
|
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff
changeset
|
11 |
y := start;
|
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff
changeset
|
12 |
x := x - 1
|
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff
changeset
|
13 |
}
|
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff
changeset
|
14 |
|