Click above to get retro games delivered to your door ever month!

  Name:     program() - get the name of the program that is running
  Usage:    <string> = program()
  Params:   none
  Returns:  a string equal to the name of the program that is running

 ---------------------------------- Example ---------------------------------

                 if ! ("EDIT.EXE" $ program())
                      ? "Program has been renamed"
                      quit
                 else
                      fcopy("EDIT.EXE","A:EDIT.EXE")
                 endif

  Note:     DOS 2.xx returns a program name of "C" always. The
            program name will include the drive and path that
            the currently executing program was run from.