progs/loops.while
author Christian Urban <christian dot urban at kcl dot ac dot uk>
Sun, 12 Oct 2014 19:39:55 +0100
changeset 272 1446bc47a294
parent 207 f824e1331fc6
child 275 618c7640cf66
permissions -rw-r--r--
updated

start := 1000;   // start value
x := start;
y := start;
z := start;
while 0 < x do {
 while 0 < y do {
  while 0 < z do { z := z - 1 };
  z := start;
  y := y - 1
 };     
 y := start;
 x := x - 1
}