Data commit

Task/Arrays/AmigaE/arrays.amiga

@@ -0,0 +1,17 @@
+DEF ai[100] : ARRAY OF CHAR, -> static
+    da: PTR TO CHAR,
+    la: PTR TO CHAR
+
+PROC main()
+  da := New(100)
+  -> or
+  NEW la[100]
+  IF da <> NIL
+    ai[0] := da[0]    -> first is 0
+    ai[99] := da[99]  -> last is "size"-1
+    Dispose(da)
+  ENDIF
+  -> using NEW, we must specify the size even when
+  -> "deallocating" the array
+  IF la <> NIL THEN END la[100]
+ENDPROC