September Morn Update

Task/Program-name/BASIC/program-name-3.basic

@@ -0,0 +1,2 @@
+      SYS "GetCommandLine" TO cl%
+      PRINT $$cl%

Task/Program-name/BASIC/program-name-4.basic

@@ -0,0 +1,9 @@
+100 PROGRAM "Name1.bas"(A,B,C,S$)
+110 CHAIN "Name2.BAS"(A,B,C,S$)
+
+edit 1
+100 PROGRAM "Name2.bas"(A,B,C,S$)
+110 PRINT A,B,C,S$
+
+edit 0
+start(1,2,3,"Hello")

Task/Program-name/COBOL/program-name.cobol

@@ -0,0 +1,18 @@
+       identification division.
+       program-id. sample.
+
+       data division.
+       working-storage section.
+       01 progname pic x(16).
+
+       procedure division.
+       sample-main.
+
+       display 0 upon argument-number
+       accept progname from argument-value
+       display "argument-value zero :" progname ":"
+
+       display "function module-id  :" function module-id ":"
+
+       goback.
+       end program sample.

Task/Program-name/Elena/program-name.elena

@@ -1,6 +1,8 @@
-program =
-[
-    console writeLine:system'commandLine.  // the whole command line
+import extensions;
 
-    console writeLine('program'arguments[0]). // the program name
-].
+public program()
+{
+    console.printLine(program_arguments.asEnumerable());  // the whole command line
+
+    console.printLine(program_arguments[0]); // the program name
+}

Task/Program-name/Ol/program-name.ol

@@ -0,0 +1 @@
+(print (car *vm-args*))

Task/Program-name/Prolog/program-name-1.pro

@@ -0,0 +1,8 @@
+% SWI-Prolog version 8.0.0 for i686-linux.
+% This will find itself, and return the knowledge base it is in.
+file_name(F) :- true
+   , M = user            % M is the module    .
+   , P = file_name(_)    % P is the predicate .
+   , source_file(M:P, F) % F is the file      .
+   , \+ predicate_property(M:P, imported_from(_))
+   .

Task/Program-name/Prolog/program-name-2.pro

@@ -0,0 +1 @@
+:- multifile(this_is_one_of_my_files). this_is_one_of_my_files.