Time for an 2014 update…

Task/Null-object/BASIC/null-object-1.basic

@@ -0,0 +1,5 @@
+TRUE = 1 : FALSE = 0
+NULL = TRUE
+IF NULL THEN PRINT "NULL"
+NULL = FALSE
+IF NOT NULL THEN PRINT "NOT NULL"

Task/Null-object/BASIC/null-object-2.basic

@@ -0,0 +1,13 @@
+      PROCtestobjects
+      END
+
+      DEF PROCtestobjects
+      PRIVATE a(), b(), s{}, t{}
+      DIM a(123)
+      DIM s{a%, b#, c$}
+
+      IF !^a() <= 1 PRINT "a() is null" ELSE PRINT "a() is not null"
+      IF !^b() <= 1 PRINT "b() is null" ELSE PRINT "b() is not null"
+      IF !^s{} <= 1 PRINT "s{} is null" ELSE PRINT "s{} is not null"
+      IF !^t{} <= 1 PRINT "t{} is null" ELSE PRINT "t{} is not null"
+      ENDPROC

Task/Null-object/Deja-Vu/null-object.djv

@@ -0,0 +1,5 @@
+if not obj:
+    pass #obj is seen as null
+
+if = :nil obj:
+    pass #obj is seen as null