{GetArgSt.PAS}
  ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
 {Sample code for the GetArgStr function.}

  uses WinCrt, WinDOS;

 var
   ArgN: PChar;

 begin
   GetMem(ArgN, 20);
   GetArgStr(ArgN, 1, 19);
   Writeln('The 1st argument to the prompt (in addition to the');
   Writeln('program name) was ''', ArgN, '''.');
 end.