%include "managr:newadmin.inc"

%begin; ! Convert ADMIN database from machine-readable to human-readable

! RWT February 1990

! Look in the ADMINHM program, which converts in the opposite direction,
! for a description of the human-readable format.

%record(entry fm)%name this
%string(255)in="admin.db",out="admin.dbh"

defineparam("Machine readable input",in,0)
defineparam("Human readable output",out,pamnewgroup)
processparameters(cliparam)
openinput(1,in); selectinput(1)
this == read admin file
openoutput(1,out); selectoutput(1)
  
%while this##nil %cycle
  printstring(this_id); space
  printstring(group(this_group)); printstring(flags(this_flags)); space
  printstring(unpackdate(this_created)); space
  printstring(this_pre); space; printline(this_sur)
  this == this_next
%repeat

%end