{GetArgCo.PAS}
  ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
 {Sample code for the GetArgCount function.}

  uses WinCrt, WinDOS;

 var
   TheArgCount:  Integer;

 begin
   TheArgCount := GetArgCount;
   Writeln('There were ', TheArgCount,' arguments to the prompt (in addition
    to the');
   Writeln('program name) when running this program.');
 end.