Data commit

Task/Add-a-variable-to-a-class-instance-at-runtime/FBSL/add-a-variable-to-a-class-instance-at-runtime.fbsl

@@ -0,0 +1,31 @@
+#APPTYPE CONSOLE
+
+CLASS Growable
+	
+	PRIVATE:
+	
+	DIM instructions AS STRING = "Sleep(1)"
+	:ExecCode
+	DIM dummy AS INTEGER = EXECLINE(instructions, 1)
+	
+	PUBLIC:
+	
+	METHOD Absorb(code AS STRING)
+		instructions = code
+		GOTO ExecCode
+	END METHOD
+	
+	METHOD Yield() AS VARIANT
+		RETURN result
+	END METHOD
+	
+END CLASS
+
+DIM Sponge AS NEW Growable()
+
+Sponge.Absorb("DIM b AS VARIANT = 1234567890: DIM result AS VARIANT = b")
+PRINT Sponge.Yield()
+Sponge.Absorb("b = ""Hello world!"": result = b")
+PRINT Sponge.Yield()
+
+PAUSE