!PAMSET: set user selection of GROUPSEP and KEYFLAG
%include "I:UTIL.INC"
%begin
%string(255) parm=cliparam;  !ignore
%integer i,j,k
%integer char1,char2,sym
  prompt("GroupSeparator then Keyflag:")
  %cycle
    readsymbol(sym);  char1 = sym
    %if char1 >= ' ' %start
      readsymbol(sym);  char2 = sym
      %if char2 > ' ' %start
        readsymbol(sym)
        %exit %if sym = nl
      %finish
    %finish
    %if char1 >= ' ' %and char2 = ' ' %and sym = nl %start
      printstring("KeyFlag must not be space")
    %else
      printstring("Definition must be precisely two symbols then RETURN")
    %finish
    newline
    readsymbol(sym) %while sym # nl
  %repeat
  pam_groupsep = char1
  pam_keyflag = char2
%endofprogram
