--
-- COMP1100 2002
-- Laboratory Session 04 (COMP1100-2002-06)
-- BPM
-- AVP March 2002

class DATA
   
creation
   make
   
feature
   
   data : ARRAY[INTEGER]
   
   make is
      do
	 -- specific data values
	 data := <<16,12,34,56,11,67,95,63,56,81>>
	 -- processing
	 forward  -- print in forward order
	 io.put_new_line
	 backward  -- print in backward order
      end -- make
   
   forward is
      local
	 i : INTEGER
	 val : INTEGER
      do
	 from
	    i := data.lower
	 until
	    (i > data.upper)
	 loop
	    -- now process (i)th item
	    val := data.item(i)
	    io.put_integer(val)
	    io.put_new_line
	    -- now advance i
	    i := i + 1
	 end
	 io.put_new_line
      end -- forward
     
   backward is
      local
	 i : INTEGER
      do
	 io.put_new_line
      end -- backward
     
   
end -- class DATA