Initial data commit

Task/Abstract-type/AmigaE/abstract-type.amiga

@@ -0,0 +1,19 @@
+OBJECT fruit
+ENDOBJECT
+
+PROC color OF fruit IS EMPTY
+
+OBJECT apple OF fruit
+ENDOBJECT
+
+PROC color OF apple IS WriteF('red ')
+
+OBJECT orange OF fruit
+ENDOBJECT
+
+PROC color OF orange IS WriteF('orange ')
+
+PROC main()
+  DEF a:PTR TO apple,o:PTR TO orange,x:PTR TO fruit
+  FORALL({x},[NEW a, NEW o],`x.color())
+ENDPROC