Data update

Task/Program-name/Ada/program-name.ada

@@ -1,6 +0,0 @@
-with Ada.Command_Line, Ada.Text_IO;
-
-procedure Command_Name is
-begin
-   Ada.Text_IO.Put_Line(Ada.Command_Line.Command_Name);
-end Command_Name;

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

@@ -1,18 +0,0 @@
-       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,8 +1,8 @@
 import extensions;
 
-public program()
+public Program()
 {
-    console.printLine(program_arguments.asEnumerable());  // the whole command line
+    Console.printLine(Program_arguments.asEnumerable());  // the whole command line
 
-    console.printLine(program_arguments[0]); // the program name
+    Console.printLine(Program_arguments[0]); // the program name
 }

Task/Program-name/Emacs-Lisp/program-name.l

@@ -1,8 +0,0 @@
-:;exec emacs -batch -l $0 -f main $*
-
-;;; Shebang from John Swaby
-;;; http://www.emacswiki.org/emacs/EmacsScripts
-
-(defun main ()
-  (let ((program (nth 2 command-line-args)))
-    (message "Program: %s" program)))

Task/Program-name/Euphoria/program-name.ex

@@ -1,2 +0,0 @@
-constant cmd = command_line()
-puts(1,cmd[2])

Task/Program-name/PowerShell/program-name.psh

@@ -1,3 +0,0 @@
-# write this in file <program.ps1>
-$MyInvocation.MyCommand.Name
-# launch with <.\program>

Task/Program-name/REXX/program-name-1.rexx

@@ -1,4 +1,23 @@
-/* Rexx */
+-- 24 Aug 2025
+say 'PROGRAM NAME'
+say
+call Internal 'as routine'
+dummy=Internal('as function')
+call External 'as routine'
+dummy=External('as function')
+'regina External' 'as command'
+'rexx External' 'as command'
+exit
 
-Parse source . . pgmPath
-Say pgmPath
+Internal:
+parse arg xx
+say 'Internal' xx 'returns...'
+parse version rexx
+parse source system command program
+say 'Interpreter ' rexx
+say 'Platform    ' system
+say 'Invoked as  ' command
+say 'Program name' program
+say 'Interface   ' address()
+say
+return 0

Task/Program-name/REXX/program-name-2.rexx

@@ -1,2 +1,12 @@
-#!/bin/sh
-rexxbit.rexx $0 $*
+External:
+parse arg xx
+say 'External' xx 'returns...'
+parse version rexx
+parse source system command program
+say 'Interpreter ' rexx
+say 'Platform    ' system
+say 'Invoked as  ' command
+say 'Program name' program
+say 'Interface   ' address()
+say
+return 0

Task/Program-name/REXX/program-name-3.rexx

@@ -1 +0,0 @@
-say "The program is called " arg(1)

Task/Program-name/REXX/program-name-4.rexx

@@ -1,5 +0,0 @@
-/*REXX program RANG1 in PDS N561985.PRIV.CLIST W. Pachl */
-Parse Source a b c
-Say 'a='a
-Say 'b='!!b
-Say 'c='c

Task/Program-name/REXX/program-name-5.rexx

@@ -1,15 +0,0 @@
-/*REXX pgm displays the name (& possible path) of the REXX program name.*/
-parse version _version
-parse source _system _howInvoked _path
-
-say right(_version '◄──►' space(arg(1) arg(2)), 79, '─')   /*show title.*/
-say "     REXX's name of system being used:"  _system
-say '     how the REXX program was invoked:'  _howInvoked
-say '    name of the REXX program and path:'  _path
-
-if arg()>1  then return 0              /*don't let this program recurse.*/
-                                       /*Mama said that cursing is a sin*/
-                                       /*invoke ourself with a  2nd arg.*/
-call prog_nam  , 'subroutine'          /*call ourself as a  subroutine. */
-zz = prog_nam( , 'function')           /*  "     "     " "  function.   */
-                                       /*stick a fork in it, we're done.*/

Task/Program-name/VBScript/program-name.vb

@@ -1,5 +0,0 @@
-Wscript.Echo "FullName:",Wscript.FullName
-Wscript.Echo "Name:",Wscript.Name
-Wscript.Echo "Path:",Wscript.Path
-Wscript.Echo "ScriptFullName:",Wscript.ScriptFullName
-Wscript.Echo "ScriptName:",Wscript.ScriptName