test.i

    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