Program matrixadd
  3
  4 // Create an array for storing elements
  5 Declare
  6   Integer i, j;
  7   Integer a 5 :: 5;
  8   Integer b 5 :: 5;
  9   Integer c 5 :: 5;
 10 End
 11
 12 Main
 13   //////////////////////////////////////
 14   // Assign values to the arrays
 15   i <- 0;
 16   Do
 17
 18     j <- 0;
 19     Do
 20       Output "Test %d, %d\n", i,j;
 21
 22       a[ i : j ] <- 5*i+j;
 23       b[ i : j ] <- 5*j+i;
 24
 25       j <- j + 1;
 26     Until (j==4) End;
 27
 28     i <- i + 1;
 29   Until (i==4) End;