RosettaCodeData/Task/Program-name/Oberon-2/program-name.oberon-2

MODULE ProgramName;
IMPORT
  NPCT:Args,
  Out;
BEGIN
  Out.Object("Program name: " + Args.Get(0));Out.Ln
END ProgramName.