home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 4 / AACD04.ISO / AACD / Programming / lsEstuff / oldarraystuff / newArray_test.e next >
Encoding:
Text File  |  1999-09-19  |  372 b   |  23 lines
  1. MODULE '*newArray'
  2.  
  3. PROC main()
  4.    DEF na1:PTR TO newArray
  5.    DEF na2:PTR TO newArray
  6.    NEW na1.newArray()
  7.    NEW na2.newArray()
  8.  
  9.    na1.set(10, 1000)
  10.  
  11.    na2.set(10, 5000)
  12.    na2.set(30, 7000)
  13.    na1.subtraction(na2)
  14.    na1.printArrayContents()
  15.    na1.applyNew(na2)
  16.    na1.printArrayContents()
  17.    na1.scroll(5)
  18.    na1.printArrayContents()
  19.    END na1
  20.    END na2
  21. ENDPROC
  22.  
  23.