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