A-M baby

Task/Introspection/Icon/introspection.icon

@@ -0,0 +1,18 @@
+global bloop
+
+procedure main(A)
+    if older(11,7) then stop("Must have version >= 11.7!")
+    bloop := -5         # global variable
+    floop := -11.3      # local variable
+    write(proc("abs")(variable("bloop"))
+    write(proc("abs")(variable("floop"))
+end
+
+procedure older(maj,min)
+    &version ? {
+        (tab(find("Version ")),move(*"Version "))
+        major := 1(tab(upto('.')),move(1))
+        minor := tab(upto('.'))
+        return (major < maj) | ((major = maj) & (minor < min))
+        }
+end