Data commit

Task/Assertions/FBSL/assertions.fbsl

@@ -0,0 +1,14 @@
+#APPTYPE CONSOLE
+
+DECLARE asserter
+
+FUNCTION Assert(expression)
+    DIM cmd AS STRING = "DIM asserter AS INTEGER = (" & expression & ")"
+    EXECLINE(cmd, 1)
+    IF asserter = 0 THEN PRINT "Assertion: ", expression, " failed"
+END FUNCTION
+
+Assert("1<2")
+Assert("1>2")
+
+PAUSE