home *** CD-ROM | disk | FTP | other *** search
/ Jason Aller Floppy Collection / 153.img / TELES.ZIP / OLDUEDIT.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-07-19  |  3.1 KB  |  54 lines
  1. {   if deleted then
  2.     s[1]:=#3+#5+mln('N)'+#3+#0+' Name *Deleted: '+#3+#3+name+' #'+cstr(usern),40)
  3.      else s[1]:=#3+#5+mln('N)'+#3+#0+' Name         : '+#3+#3+name+' #'+cstr(usern),40);
  4.     s[1]:=s[1]+#3+#5+' E)'+#3+#0+' Real name   : '+#3+#3+realname;
  5.     s[2]:=#3+#5+mln('P)'+#3+#0+' Phone number : '+#3+#3+ph,40)+#3+#5+' $)'+#3+#0+' Password    : ';
  6.     if ((spd='KB') and (so)) or (realsl=255) then s[2]:=s[2]+#3+#3+pw else s[2]:=s[2]+#3+#3+
  7.     'XXXXXXXX';
  8.     s[3]:=#3+#5+mln('C)'+#3+#0' Computer type: '+#3+#3+computer,40)+#3+#5+' X)'+#3+#0+' Sex         : ';
  9.     if sex='M' then s[3]:=s[3]+#3+#3+'Male' else s[3]:=s[3]+#3+#3+'Female';
  10.    s[12]:=#3+#5+mln('S)'#3+#0+' Sec Lev      : '+#3+#3+cstr(sl),40)+#3+#5+' G)'+#3+#0+' Age         : '+#3+#3+cstr(age);
  11.    s[13]:=#3+#5+'T)'+#3+#0+' D/L Sec Lev  : '+#3+#3+cstr(dsl);
  12.       begin
  13.    s[14]:=#3+#5+'A)'+#3+#0+' Restrictions : ';
  14.       for r:=rlogon to rmsg do
  15.         if r in ac then s[14]:=s[14]+#3+#3+copy('LCVBA*PEKM',ORD(R)+1,1) else s[14]:=s[14]+#3+#3+' ';
  16.     end;
  17.       begin
  18.      s[15]:=#3+#5+'B)'+#3+#0+' Board access : ';
  19.       for c:='A' to 'G' do
  20.         if c in ar then s[15]:=S[15]+#3+#3+c else s[15]:=s[15]+#3+#3+' ';
  21.     end;
  22.     s[16]:=#3+#0+'   Time spent on: '+#3+#3+mln(cstrr(ttimeon,10),26)+'';
  23.       s[17]:=#3+#0+'   Mail         : '+#3+#3+'Open';
  24.  
  25.     if (nomail in option) or (forusr<>0) then begin
  26.       s[17]:=#3+#0+'   Mail         : ';
  27.       if nomail in option then
  28.         s[17]:=s[17]+#3+#3+'Closed'
  29.       else
  30.         s[17]:=s[17]+#3+#3+'Forwarded to #'+cstr(forusr);
  31.     end;
  32.     if alert in option then s[18]:=#3+#5+'L)'+#3+#9+' Alert set.' else s[18]:=#3+#5+'L)'+#3+#0+' No alert set';
  33.     s[19]:=#3+#5+mln('H)'+#3+#0+' House address: '+#3+#3+street,40)+#3+#5+'  Z)'+#3+#0+' Zip code      : '+#3+#3+zipcode;
  34.     s[20]:=#3+#5+mln('J)'+#3+#0+' City, State  : '+#3+#3+citystate,40)+#3+#5+'  W)'+#3+#0+' BBS Reference : '+#3+#3+wherebbs;
  35.     s[21]:=#3+#5+mln('I)'+#3+#0+' Occupation   : '+#3+#3+occupation,40)+#3+#5+'  *)'+#3+#0+' Locked out    : '; if lockedout
  36.     then s[21]:=s[21]+#3+#3+'Yes'
  37.     else s[21]:=s[21]+#3+#3+'No';
  38.     s[23]:=#3+#5+'!)'+#3+#0+' Lock file    : '+#3+#3+lockedfile+'.MSG';
  39.     s[24]:=#3+#0+'   Last on      : '+#3+#3+mln(laston,26);
  40.     s[25]:=#3+#0+'   Logged on    : '+#3+#3+cstr(loggedon)+#3+#0+' times, Today:'+#3+#3+mln(cstr(ontoday),3)+#3+#0+
  41.     ' Illegal:'+#3+#3+mln(cstr(illegal),3);
  42.     s[26]:=#3+#0+'   Messages Posted:'+#3+#3+
  43.     mln(cstr(msgpost),3)+#3+#0+' Email:'+#3+#3+mln(cstr(Emailsent),3)+#3+#0+' FeedBk:'+#3+#3+
  44.     mln(cstr(Feedback),3)+#3+#0+' Waiting:'+#3+#3+mln(cstr(waiting),3);
  45.     s[27]:=#3+#5+'   K)'+#3+#0+' Upload/Download : '+#3+#3+cstr(uploads)+#3+#5+'-'+#3+#3+cstr(uk)+#3+#5+' / '+#3+#3+
  46.     cstr(downloads)+#3+#5+'-'+#3+#3+cstr(dk)+#3+#5+' #)'+#3+#0+' File points : '+#3+#3+cstr(filepoints);
  47.     if note='' then note:='[Null]';
  48.     s[28]:=#3+#5+'   F)'+#3+#0+' Note            : '+#3+#3+note;
  49.   end;
  50.   c1:=0; abort:=false;
  51.   repeat
  52.     c1:=c1+1;
  53.     if s[c1]<>' ' then printacr(s[c1],abort,next);
  54.    until (c1=28) or (abort);}