!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