home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / E / TFF-A32R.LZX / AmigaE3.2a / Src / Guide / static2.e < prev    next >
Encoding:
Text File  |  1994-12-13  |  465 b   |  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.