home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / bbs / turbobbs.ark / EDID.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1986-12-21  |  1.4 KB  |  55 lines
  1. type
  2.   sysid = record
  3.     user : string[27];
  4.     exp  : byte;
  5.     lsto : string[14];
  6.     lstm : integer;
  7.     pass : string[14];
  8.     acc  : byte;
  9.     clr  : string[14];
  10.     bsp  : char;
  11.     lnf  : char;
  12.     upc  : boolean;
  13.     wid  : byte;
  14.   end;
  15.  
  16. var
  17.   idrec : sysid;
  18.   idfile: file of sysid;
  19.   temp : string[27];
  20.   loop, test : integer;
  21.   x: integer;
  22.   ch: char;
  23.  
  24. begin
  25.   assign(idfile, 'A:IDS.BBS');
  26.   reset(idfile);
  27.   while not eof(idfile) do begin
  28.     read(idfile, idrec);
  29.     writeln;
  30.     write('Name: ');
  31.     temp := idrec.user;
  32.     for loop := 1 to length(temp) do
  33.       if temp[loop] >= ' ' then write(temp[loop]) else write('^' + chr(ord(temp[loop])+64));
  34.     writeln;
  35.     write('Acc : ');
  36.     writeln(idrec.acc:1);
  37.     writeln('Pass: ' + idrec.pass);
  38.     writeln('Last on: ' + idrec.lsto);
  39.     write('Change (Y/N)? ');
  40.     read(ch);
  41.     writeln;
  42.     if (ch = 'Y') or (ch = 'y') then begin
  43.       write('New name? ');
  44.       readln(con, temp);
  45.       if temp <> '' then idrec.user := temp;
  46.       write('New access? ');
  47.       readln(con, temp);
  48.       val(temp, x, test);
  49.       if (test=0) and (temp > '') then idrec.acc := x;
  50.       seek(idfile, filepos(idfile)-1);
  51.       write(idfile, idrec);
  52.     end;
  53.   end;
  54.   close(idfile);
  55. end.