home *** CD-ROM | disk | FTP | other *** search
/ Jason Aller Floppy Collection / 153.img / TELES.ZIP / CA.PAS < prev    next >
Pascal/Delphi Source File  |  1988-07-23  |  8KB  |  249 lines
  1. CONST strlen=160;
  2.       maxusers=500;
  3.       dsaves : Integer = 0;
  4.  
  5. TYPE restrictions=(rlogon,rchat,rvalidate,rbackspace,ramsg,rpostan,
  6.                    rpost,remail,rvoting,rmsg);
  7.      acrq='@'..'G';
  8.      newtyp=(rp,lt,rm);
  9.      deflts=(spcsr,onekey,wordwrap,pause,mmnu,ansi,color,music);
  10.      pnr=record name:string[40]; number:string[14]; hs:byte; end;
  11.      anontyp=(no,yes,forced,dearabby);
  12.      ansttype=(postn,emailn,pana,sanm,cosysop,lcosysop);
  13.      opts=(alert,smw,nomail);
  14.      dlnscan=set of 0..39;
  15.      emary=array[1..20] of integer;
  16.      clrs=array[false..true,1..8] of byte;
  17.      clrs2=array[false..true,0..9] of byte;
  18.      slr=record
  19.            ttime:byte;
  20.            mallowed:integer;
  21.            emails,posts:byte;
  22.            anst:set of ansttype;
  23.          end;
  24.      messages=record
  25.                 ltr:char;
  26.                 number:integer;
  27.                 ext:byte;
  28.               end;
  29.      smalrec=record
  30.                name:string[25];
  31.                number:integer;
  32.              end;
  33.      userrec=record
  34.                name:string[21];
  35.                realname:string[18];
  36.                deleted:boolean;
  37.                pw:string[8];
  38.                ph:string[12];
  39.                waiting:byte;
  40.                laston:string[10];
  41.                loggedon:integer;
  42.                msgpost:integer;
  43.                emailsent:integer;
  44.                feedback:integer;
  45.                linelen:byte;
  46.                pagelen:byte;
  47.                defaults:set of deflts;
  48.                ontoday:byte;
  49.                illegal:byte;
  50.                ttimeon:real;
  51.                dlnscn:dlnscan;
  52.                sl:byte;
  53.                ac:set of restrictions;
  54.                ar:set of acrq;
  55.                qscan:array[1..19] of messages;
  56.                qscn:array[1..19] of boolean;
  57.                macro:array[1..2] of string[79];
  58.                comptype:byte;
  59.                option:set of opts;
  60.                vote:array[1..9] of byte;
  61.                sbn:byte;
  62.                dsl:byte;
  63.                uploads,downloads:integer;
  64.                uk,dk:integer;
  65.                age:byte;
  66.                sex:char;
  67.                note:string[39];
  68.                forusr:integer;
  69.                cols:clrs;                (* Res[2] will be last file area *)
  70.                res:array[1..70] of byte; (* Res[1] will be last msg base *)
  71.                filepoints:integer;
  72.                citystate:string[26];
  73.                street:string[21];
  74.                zipcode:string[10];
  75.                occupation:string[40];
  76.                wherebbs:string[40];
  77.                lockedout:boolean;
  78.                lockedfile:string[8];
  79.                computer:string[14];
  80.                cols2:clrs2;
  81.              end;
  82.       boardrec=record
  83.                  name:string[30];
  84.                  filename:string[12];
  85.                  sl:byte;
  86.                  maxmsgs:byte;
  87.                  pw:string[10];
  88.                  anonymous:anontyp;
  89.                  ar:acrq;
  90.                  key:char;
  91.                  postsl:byte;
  92.                end;
  93.       msgstat=(validated,unvalidated,deleted);
  94.       messagerec=record
  95.                    title:string[30];
  96.                    messagestat:msgstat;
  97.                    message:messages;
  98.                    owner:integer;
  99.                    date:integer;
  100.                    mage:byte;
  101.                  end;
  102.       systatrec=record
  103.                   boardpw:string[8];
  104.                   sysoppw:string[8];
  105.                   hmsg:messages;
  106.                   users:integer;
  107.                   lastdate:string[8];
  108.                   callernum:integer;
  109.                   activetoday:integer;
  110.                   callstoday:integer;
  111.                   msgposttoday:integer;
  112.                   emailtoday:integer;
  113.                   fbacktoday:integer;
  114.                   uptoday:integer;
  115.                   closedsystem:boolean;
  116.                   comport:byte;
  117.                   maxbaud:integer;
  118.                   msgpath:string[79];
  119.                   gfiledate:string[8];
  120.                   lowtime,hitime:integer;
  121.                   res:array[1..185] of byte;
  122.                   sysopcolor:byte;
  123.                   usercolor:byte;
  124.                   maxlines:byte;
  125.                   special:boolean;
  126.                   clearmsg:boolean;
  127.                   bbspw:string[8];
  128.                   matrix:boolean;
  129.                   engage:string[55];
  130.                   endchat:string[55];
  131.                   alias:boolean;
  132.                   echoc:astr;
  133.                   sysopin:astr;
  134.                   sysopout:astr;
  135.                   note:array[1..2] of string[79];
  136.                   lprompt:astr;
  137.                   lansi:boolean;
  138.                   init:astr;
  139.                   wait:astr;
  140.                   app:boolean;
  141.                   fone:boolean;
  142.                   sysopmacro:array[1..9] of string[72];
  143.                   forcevoting:boolean;
  144.                   multitask:boolean;
  145.                   gfilepath:string[79];
  146.                   pause:string[20];
  147.                   hangup:string[40];
  148.                   answer:string[40];
  149.                   result300:integer;
  150.                   result1200:integer;
  151.                   result2400:integer;
  152.                   nocarrier:integer;
  153.                   filesl:byte;
  154.                   tries:byte;
  155.                   newsl:byte;
  156.                   newdsl:byte;
  157.                   newar:set of acrq;
  158.                   newac:set of restrictions;
  159.                   newfp:integer;
  160.                   newuk:integer;
  161.                   bwindow:boolean;
  162.                   bsdelay:byte;
  163.                   mcimsg:boolean;
  164.                   b300lowtime,b300hitime:integer;
  165.                   dllowtime,dlhitime:integer;
  166.                   b300dllowtime,b300dlhitime:integer;
  167.                   lock300:boolean;
  168.                   result4800:integer;
  169.                   result9600:integer;
  170.                   SysopFirst:String[12];
  171.                   SysopLast:String[16];
  172.                   BBSName:String[40];
  173.                   BBSPhone:String[12];
  174.                   ANSIq:String[40];
  175.                   WantQuote:Boolean;
  176.                   Menupath:string[79];
  177.                   autosl:byte;
  178.                   autodsl:byte;
  179.                   autoar:set of acrq;
  180.                   autoac:set of restrictions;
  181.                end;
  182.       blk=array[1..255] of byte;
  183.       mailrec=record
  184.                 title:string[30];
  185.                 from,destin:integer;
  186.                 msg:messages;
  187.                 date:integer;
  188.                 mage:byte;
  189.               end;
  190.       gft=record
  191.             num:integer;
  192.             title:string[40];
  193.             filen:string[12];
  194.           end;
  195.       smr=record
  196.             msg:astr;
  197.             destin:integer;
  198.           end;
  199.       vdatar=record
  200.                question:string[79];
  201.                numa:integer;
  202.                answ:array[0..9] of record
  203.                       ans:string[25];
  204.                       numres:integer;
  205.                     end;
  206.              end;
  207.       ulrec=record
  208.               name:string[25];
  209.               filename:string[12];
  210.               password:string[10];
  211.               dsl:byte;
  212.               maxfiles:integer;
  213.               key:char;
  214.               ulpath:string[39];
  215.               dlpath:string[40];
  216.               agereq:byte;
  217.               ar:acrq;
  218.             end;
  219.       ulfrec=record
  220.                filename:string[12];
  221.                description:string[60];
  222.                filepoints:integer;
  223.                res:array[1..15] of byte;
  224.                nacc:integer;
  225.                ft:byte;
  226.                blocks:integer;
  227.                owner:integer;
  228.                date:string[8];
  229.                daten:integer;
  230.              end;
  231.       strptr=^strrec;
  232.       strrec=record
  233.                i:astr;
  234.                next,last:strptr;
  235.              end;
  236.       zlogt=record
  237.               date:string[8];
  238.               active,calls,post,email,fback,up:integer;
  239.             end;
  240. {    expro=record
  241.              descr:string[30];
  242.              rcmd:string[50];
  243.              scmd:string[50];
  244.              xferok:integer;
  245.            end;}
  246.  
  247. CONST dcols:clrs=((7,7,15,15,15,112,7,143),(3,1,11,9,14,31,4,140));
  248.       dcols2:clrs2=((15,7,7,15,15,15,112,7,143,7),(15,3,1,11,9,14,31,4,140,10));
  249.