home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / jËzyki_programowania / amigae / e_v3.2a / src / guide / static2.e < prev    next >
Text File  |  1977-12-31  |  465b  |  18 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]:=List(3)
  5.     /* Must check that the allocation succeeded before copying */
  6.     IF a[i]<>NIL THEN ListCopy(a[i], [1, i, i*i], ALL)
  7.   ENDFOR
  8.   FOR i:=0 TO 9
  9.     p:=a[i]
  10.     IF p=NIL
  11.       WriteF('Could not allocate memory for a[\d]\n', i)
  12.     ELSE
  13.       WriteF('a[\d] is an array at address \d\n', i, p)
  14.       WriteF('  and the second element is \d\n', p[1])
  15.     ENDIF
  16.   ENDFOR
  17. ENDPROC
  18.