home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Exec 5 / CD_Magazyn_EXEC_nr_5.iso / Programy / Programowanie / AmigaE / yaec.lha / testsrc / celltest.e < prev    next >
Encoding:
Text File  |  2001-02-23  |  362 b   |  21 lines
  1.  
  2.  
  3. PROC main()
  4.    DEF a[1000]:ARRAY OF LONG, b , c, d
  5.  
  6.    InitCells(10000)
  7.    LOOP 1000
  8.       FOR b := 0 TO 10
  9.          c := <a,b,c>
  10.          ->c <=> <*, d, 10>
  11.          a[b] := c
  12.          ->PrintF('cell : \h, \h, \h, \h, \h\n',
  13.          ->     c, Long(c), Long(c+4), Long(c+8), Long(c+12))
  14.       ENDFOR
  15.    ENDLOOP
  16. EXCEPT
  17.    PrintF('error : nilcell\n')
  18. ENDPROC
  19.  
  20.  
  21.