home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / FAQ-S.ZIP / RECORDS.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-08-03  |  4.2 KB  |  135 lines
  1.  
  2. type anystr=string[128];
  3.      lstr=string[80];
  4.      mstr=string[30];
  5.      sstr=string[15];
  6.  
  7.      configtype=(lowercase,eightycols,linefeeds,postprompts,moreprompts,
  8.                  asciigraphics,ansigraphics,udsysop,bulletinsysop,votingsysop,
  9.                  emailsysop,doorssysop,mainsysop,databasesysop,NewUserSysop,
  10.                  gfsysop,wanted,showtime,vt52,fseditor);      {User Config}
  11.      filelisttype=(ffname,ffext,fffulnam,ffofwhat,ffsize,ffpoints,ffuploader,
  12.                    ffuploaded,ffdown,ffdescript);   {Configurable file listings}
  13.      NuvSet=set of 1..255;
  14.  
  15.  
  16.  
  17.  
  18. type userrec=record
  19.        handle,realname,note:mstr;
  20.        macro1,macro2,macro3:lstr;
  21.        password:sstr;
  22.        phonenum:string[12];
  23.        laston:longint;
  24.        numon,timetoday,nup,ndn,nbu,uploads,downloads:integer;
  25.        totaltime:real;                           {Total time spent on board}
  26.        voted:voteset;
  27.        udlevel,udpoints,level,emailannounce,beepedpwd:integer;
  28.        infoforms:array[1..5] of integer;
  29.        regularcolor,promptcolor,statcolor,inputcolor,fifthcolor,sixthcolor,
  30.        seventhcolor,eighthcolor,displaylen:byte;
  31.        lastmessages,lastups,lastgfiles,lastdbases,integer1:integer;
  32.        downk,upk:longint;
  33.        gflevel,gfuploads,gfdownloads:integer;
  34.        menutype,byte1:byte;
  35.        defproto,char1:char;
  36.        hack:byte;                                {Hack attempts}
  37.        config:set of configtype;
  38.        newscanconfig,access1,access2:set of byte;
  39.        timeinstorage:word;
  40.        lastread:array [0..20,1..maxconf] of word;
  41.        confaccess: array [0..maxconf] of boolean;
  42.        lastcps,cpstimes:word;
  43.        filelister:set of filelisttype;
  44.        commpoints,valpoints:integer;
  45.        quikconf:array[0..maxconf] of boolean;
  46.        userpcr,userudr,age:byte;
  47.        usersex:boolean;  {True=female.  Approved by Deanna Elizalda, Feminist}
  48.        voteyes,voteno:byte;
  49.        timeperday:byte;
  50.      end;
  51.  
  52.  
  53.      boardrec=record                         {Description of sub-board}
  54.        boardname :mstr;
  55.        sponsor   :mstr;
  56.        entrypw   :mstr;
  57.        netidnum  :byte;
  58.        level     :integer;
  59.        autodel   :integer;
  60.        anony     :boolean;
  61.        integer1  :integer;
  62.        integer2  :integer;
  63.        boolean1  :boolean;
  64.        boolean2  :boolean;
  65.        shortname :sstr;
  66.        fidopath  :lstr;
  67.        DataName  :lstr;
  68.       end;
  69.  
  70.      bulrec=record                           {Post data}
  71.        leftby,leftto:mstr;
  72.        title,status:mstr;
  73.        when:longint;
  74.        where:lstr;
  75.        where2:lstr;
  76.        version:byte;
  77.        anon,recieved:boolean;
  78.        line,plevel:integer;
  79.        id:word;
  80.        cnet,fidonet,flag3,flag4,flag5,flag6,flag7,flag8:boolean;
  81.        realname:mstr;
  82.      end;
  83.  
  84.      message=record
  85.        text:array [1..maxmessagesize] of lstr;
  86.        leftto:mstr;
  87.        title:lstr;
  88.        anon:boolean;
  89.        numlines:integer
  90.      end;
  91.  
  92.       NetPostRec=record    {Record for networked posts}
  93.             NetIdNum: byte;
  94.             BulletinRec: bulrec;
  95.             MessageRec: message;
  96.             end;
  97.  
  98.  
  99.      udrec=record
  100.        sentby:mstr;
  101.        when,whenrated:longint;
  102.        filename,dlpw:sstr;
  103.        path:string[50];
  104.        points:integer;
  105.        filesize:longint;
  106.        descrip:lstr;
  107.        downloaded:integer;
  108.        newfile,specialfile:boolean;
  109.        progname:string[20];         { This is the full name of the program}
  110.        ofwhat1,ofwhat2:byte;        { These are for "disk x of y"}
  111.        ptsgiven:integer;            { How many validation points awarded}
  112.        private:mstr;                { Who is a private file for}
  113.      end;
  114.  
  115.  
  116.      arearec=record                      {Transfer Area}
  117.        name,xmodemdir:lstr;
  118.        sponsor,areapw:mstr;
  119.        slowdrive:boolean;
  120.        level:integer;
  121.        upload,download:boolean;
  122.        dataname:lstr;        {A name for the data file, to facilitate multiple
  123.                               conference access to the area}
  124.      end;
  125.  
  126.  
  127.      protorec=record                      {Protocol choice record}
  128.                     letter:char;
  129.                     desc:string[30];
  130.                     progname:string[12];
  131.                     commfmt:string[60];
  132.                     end;
  133.  
  134.  
  135.