home *** CD-ROM | disk | FTP | other *** search
/ Jason Aller Floppy Collection / 153.img / TELES.ZIP / USERREC.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-07-23  |  1.7 KB  |  49 lines
  1.                name:string[21];
  2.                realname:string[21];
  3.                deleted:boolean;
  4.                pw:string[20];
  5.                ph:string[12];
  6.                waiting:byte;
  7.                laston:string[10];
  8.                loggedon:integer;
  9.                msgpost:integer;
  10.                emailsent:integer;
  11.                feedback:integer;
  12.                linelen:byte;
  13.                pagelen:byte;
  14.                defaults:set of deflts;
  15.                ontoday:byte;
  16.                illegal:byte;
  17.                ttimeon:real;
  18.                dlnscn:dlnscan;
  19.                sl:byte;
  20.                ac:set of restrictions;
  21.                ar:set of acrq;
  22.                qscan:array[1..39] of messages;
  23.                qscn:array[1..39] of boolean;
  24.                macro:array[1..2] of string[79];
  25.                comptype:byte;
  26.                option:set of opts;
  27.                vote:array[1..20] of byte;
  28.                sbn:byte;
  29.                dsl:byte;
  30.                uploads,downloads:integer;
  31.                uk,dk:integer;
  32.                age:byte;
  33.                sex:char;
  34.                note:string[39];
  35.                forusr:integer;
  36.                res:array[1..70] of byte; (* Res[1] will be last msg base *)
  37.                filepoints:integer;
  38.                citystate:string[26];
  39.                street:string[21];
  40.                zipcode:string[10];
  41.                occupation:string[40];
  42.                wherebbs:string[40];
  43.                lockedout:boolean;
  44.                lockedfile:string[8];
  45.                computer:string[14];
  46.                cols:clrs2;        end;kedfile:string[8];
  47.                computer:string[14];
  48.                cols2:clrs2;
  49.              end;