home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / jËzyki_programowania / amigae / e_v3.2a / src / guide / static3.e < prev    next >
Text File  |  1977-12-31  |  305b  |  13 lines
  1. PROC main()
  2.   DEF i, a[10]:ARRAY OF LONG, p:PTR TO LONG
  3.   FOR i:=0 TO 9
  4.     a[i]:=NEW [1, i, i*i]
  5.       /* a[i] is now dynamically allocated */
  6.   ENDFOR
  7.   FOR i:=0 TO 9
  8.     p:=a[i]
  9.     WriteF('a[\d] is an array at address \d\n', i, p)
  10.     WriteF('  and the second element is \d\n', p[1])
  11.   ENDFOR
  12. ENDPROC
  13.