home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 3 / Meeting_Pearls_III.iso / Pearls / dev / AmigaE / ArisModules / 2dArray / 2darray_test.e < prev    next >
Text File  |  1995-06-21  |  527b  |  23 lines
  1. MODULE 'oomodules/2darray'
  2.  
  3. PROC main() HANDLE
  4.     DEF myarray:PTR TO dd_array
  5.     DEF i,j,val=1,sx,sy
  6.     NEW myarray.create(4,5,CHARS)
  7.     sx,sy:=myarray.size()
  8.     FOR i:=0 TO sx
  9.         FOR j:=0 TO sy
  10.             myarray.set(i,j,val++)
  11.             ENDFOR
  12.         ENDFOR
  13.     FOR i:=0 TO sx
  14.         FOR j:=0 TO sy
  15.             WriteF('myarray [\d,\d]=\d\n',i,j,myarray.get(i,j))
  16.             ENDFOR
  17.         ENDFOR
  18.     END myarray
  19. EXCEPT
  20.     IF exceptioninfo THEN WriteF('\d\n',exceptioninfo)
  21.     CleanUp(exceptioninfo)
  22. ENDPROC
  23.