A-M baby

Task/Multiple-distinct-objects/BBC-BASIC/multiple-distinct-objects.bbc

@@ -0,0 +1,17 @@
+      REM Determine object count at runtime:
+      n% = RND(1000)
+
+      REM Declare an array of structures; all members are initialised to zero:
+      DIM objects{(n%) a%, b$}
+
+      REM Initialise the objects to distinct values:
+      FOR i% = 0 TO DIM(objects{()},1)
+        objects{(i%)}.a% = i%
+        objects{(i%)}.b$ = STR$(i%)
+      NEXT
+
+      REM This is how to create an array of pointers to the same object:
+      DIM objects%(n%), object{a%, b$}
+      FOR i% = 0 TO DIM(objects%(),1)
+        objects%(i%) = object{}
+      NEXT