program inituser; {initialize user file data}

const
  drive2='A:';    {BBS text and system files}
  ext='';

type
  username=string[25];
  citystate=string[15];
  password=string[10];
  date=string[8];
  msgline=string[65];
  datetime=string[18];

  user_list=record
    name:username;
    address:citystate;
    userpassword:password;
    lastmessage:integer;
    lastdate:datetime;
    end;

  counter_list=record
    msgs:integer;
    calls:integer;
    mstart:integer;
    mnum:integer;
    end;

  caller_list=record
    caller:username;
    cfrom:citystate;
    cdate:date;
    ctime:date;
    end;
  comment_list=record
    comment:msgline;
    end;


var
  user_file:file of user_list;
  user_rec:user_list;

  counter_file:file of counter_list;
  counter_rec:counter_list;

  caller_file:file of caller_list;
  caller_rec:caller_list;

  comment_file:file of comment_list;
  comment_rec:comment_list;


begin
  assign(user_file,drive2+'USER'+ext);
  rewrite(user_file);
  with user_rec do
  begin
    name:='BOS Pascal BBS';
    Address:='Batavia, IL';
    userpassword:='@$^(*C';
    lastmessage:=0;
    lastdate:='07/03/84';
    write(user_file,user_rec);
  end;
  close(user_file);

  assign(counter_file,drive2+'COUNTERS'+ext);
  rewrite(counter_file);
  with counter_rec do
  begin
    msgs:=0;
    calls:=0;
    mstart:=0;
    mnum:=0;
    write(counter_file,counter_rec);
  end;
  close(counter_file);

  assign(caller_file,drive2+'CALLERS'+ext);
  rewrite(caller_file);
  with caller_rec do
  begin
    caller:='1';
    cfrom:='';
    cdate:='';
    ctime:='';
    write(caller_file,caller_rec);
  end;
  close(caller_file);

  assign(comment_file,drive2+'COMMENTS'+ext);
  rewrite(comment_file);
  with comment_rec do
  begin
    comment:='1';
    write(comment_file,comment_rec);
  end;
  close(comment_file);

end.