Jason Aller Floppy Collection/153.img/TELES.ZIP/CA.PAS

Pascal/Delphi Source File | 1988-07-23 | 8.2 KB | 249 lines

CONST strlen=160;
      maxusers=500;
      dsaves : Integer = 0;

TYPE restrictions=(rlogon,rchat,rvalidate,rbackspace,ramsg,rpostan,
                   rpost,remail,rvoting,rmsg);
     acrq='@'..'G';
     newtyp=(rp,lt,rm);
     deflts=(spcsr,onekey,wordwrap,pause,mmnu,ansi,color,music);
     pnr=record name:string[40]; number:string[14]; hs:byte; end;
     anontyp=(no,yes,forced,dearabby);
     ansttype=(postn,emailn,pana,sanm,cosysop,lcosysop);
     opts=(alert,smw,nomail);
     dlnscan=set of 0..39;
     emary=array[1..20] of integer;
     clrs=array[false..true,1..8] of byte;
     clrs2=array[false..true,0..9] of byte;
     slr=record
           ttime:byte;
           mallowed:integer;
           emails,posts:byte;
           anst:set of ansttype;
         end;
     messages=record
                ltr:char;
                number:integer;
                ext:byte;
              end;
     smalrec=record
               name:string[25];
               number:integer;
             end;
     userrec=record
               name:string[21];
               realname:string[18];
               deleted:boolean;
               pw:string[8];
               ph:string[12];
               waiting:byte;
               laston:string[10];
               loggedon:integer;
               msgpost:integer;
               emailsent:integer;
               feedback:integer;
               linelen:byte;
               pagelen:byte;
               defaults:set of deflts;
               ontoday:byte;
               illegal:byte;
               ttimeon:real;
               dlnscn:dlnscan;
               sl:byte;
               ac:set of restrictions;
               ar:set of acrq;
               qscan:array[1..19] of messages;
               qscn:array[1..19] of boolean;
               macro:array[1..2] of string[79];
               comptype:byte;
               option:set of opts;
               vote:array[1..9] of byte;
               sbn:byte;
               dsl:byte;
               uploads,downloads:integer;
               uk,dk:integer;
               age:byte;
               sex:char;
               note:string[39];
               forusr:integer;
               cols:clrs;                (* Res[2] will be last file area *)
               res:array[1..70] of byte; (* Res[1] will be last msg base *)
               filepoints:integer;
               citystate:string[26];
               street:string[21];
               zipcode:string[10];
               occupation:string[40];
               wherebbs:string[40];
               lockedout:boolean;
               lockedfile:string[8];
               computer:string[14];
               cols2:clrs2;
             end;
      boardrec=record
                 name:string[30];
                 filename:string[12];
                 sl:byte;
                 maxmsgs:byte;
                 pw:string[10];
                 anonymous:anontyp;
                 ar:acrq;
                 key:char;
                 postsl:byte;
               end;
      msgstat=(validated,unvalidated,deleted);
      messagerec=record
                   title:string[30];
                   messagestat:msgstat;
                   message:messages;
                   owner:integer;
                   date:integer;
                   mage:byte;
                 end;
      systatrec=record
                  boardpw:string[8];
                  sysoppw:string[8];
                  hmsg:messages;
                  users:integer;
                  lastdate:string[8];
                  callernum:integer;
                  activetoday:integer;
                  callstoday:integer;
                  msgposttoday:integer;
                  emailtoday:integer;
                  fbacktoday:integer;
                  uptoday:integer;
                  closedsystem:boolean;
                  comport:byte;
                  maxbaud:integer;
                  msgpath:string[79];
                  gfiledate:string[8];
                  lowtime,hitime:integer;
                  res:array[1..185] of byte;
                  sysopcolor:byte;
                  usercolor:byte;
                  maxlines:byte;
                  special:boolean;
                  clearmsg:boolean;
                  bbspw:string[8];
                  matrix:boolean;
                  engage:string[55];
                  endchat:string[55];
                  alias:boolean;
                  echoc:astr;
                  sysopin:astr;
                  sysopout:astr;
                  note:array[1..2] of string[79];
                  lprompt:astr;
                  lansi:boolean;
                  init:astr;
                  wait:astr;
                  app:boolean;
                  fone:boolean;
                  sysopmacro:array[1..9] of string[72];
                  forcevoting:boolean;
                  multitask:boolean;
                  gfilepath:string[79];
                  pause:string[20];
                  hangup:string[40];
                  answer:string[40];
                  result300:integer;
                  result1200:integer;
                  result2400:integer;
                  nocarrier:integer;
                  filesl:byte;
                  tries:byte;
                  newsl:byte;
                  newdsl:byte;
                  newar:set of acrq;
                  newac:set of restrictions;
                  newfp:integer;
                  newuk:integer;
                  bwindow:boolean;
                  bsdelay:byte;
                  mcimsg:boolean;
                  b300lowtime,b300hitime:integer;
                  dllowtime,dlhitime:integer;
                  b300dllowtime,b300dlhitime:integer;
                  lock300:boolean;
                  result4800:integer;
                  result9600:integer;
                  SysopFirst:String[12];
                  SysopLast:String[16];
                  BBSName:String[40];
                  BBSPhone:String[12];
                  ANSIq:String[40];
                  WantQuote:Boolean;
                  Menupath:string[79];
                  autosl:byte;
                  autodsl:byte;
                  autoar:set of acrq;
                  autoac:set of restrictions;
               end;
      blk=array[1..255] of byte;
      mailrec=record
                title:string[30];
                from,destin:integer;
                msg:messages;
                date:integer;
                mage:byte;
              end;
      gft=record
            num:integer;
            title:string[40];
            filen:string[12];
          end;
      smr=record
            msg:astr;
            destin:integer;
          end;
      vdatar=record
               question:string[79];
               numa:integer;
               answ:array[0..9] of record
                      ans:string[25];
                      numres:integer;
                    end;
             end;
      ulrec=record
              name:string[25];
              filename:string[12];
              password:string[10];
              dsl:byte;
              maxfiles:integer;
              key:char;
              ulpath:string[39];
              dlpath:string[40];
              agereq:byte;
              ar:acrq;
            end;
      ulfrec=record
               filename:string[12];
               description:string[60];
               filepoints:integer;
               res:array[1..15] of byte;
               nacc:integer;
               ft:byte;
               blocks:integer;
               owner:integer;
               date:string[8];
               daten:integer;
             end;
      strptr=^strrec;
      strrec=record
               i:astr;
               next,last:strptr;
             end;
      zlogt=record
              date:string[8];
              active,calls,post,email,fback,up:integer;
            end;
{    expro=record
             descr:string[30];
             rcmd:string[50];
             scmd:string[50];
             xferok:integer;
           end;}

CONST dcols:clrs=((7,7,15,15,15,112,7,143),(3,1,11,9,14,31,4,140));
      dcols2:clrs2=((15,7,7,15,15,15,112,7,143,7),(15,3,1,11,9,14,31,4,140,10));