begin
   integer i, j, p

   select output(0)

   i = 1000
   j = 1006

   begin
      own byte integer array fred(i:j) = 1, 2(3), 3, 4

      for p = i, 1, j cycle
            printstring("fred(")
            write(p, 0)
            printstring(") is ")
            write(fred(p), 0)
            newline
      repeat
   end
end of program