Programmer 7500/MAX_PROGRAMMERS.iso/PASCAL/SYSPC22.ZIP/GENTYPES.PAS

Pascal/Delphi Source File | 1989-02-16 | 5.7 KB | 233 lines

const versionnum='SYS-PC v. 2.32';
      crlf=^M^J;
      backsp=^H^H^H^H^H^H^H^H^H^H^H^H^H^H^H^H^H^H^H^H^H;
      normvid=#$02;
      revvid=#$01;
      maxusers=30000;
      maxmessagesize=100;
      maxlastcallers=5;
      maxtopics=10;
      maxcats=10;
      sectorsize=512;
      numsectors=10000;
      maxcatalogsize=50;
      maxgroupsize=50;
      maxsyslogdat=125;
      maxsyslogsize=1000;
{ All of these are extended keystroke values. }
      breakoutchar=    0;   {Control-Break}
      chatchar=        59;  {F1}
      sysopcomchar=    60;  {F2}
      sysnextchar=     65;  {F7}
      timelockchar=    66;  {F8}
      inlockchar=      67;  {F9}
      outlockchar=     68;  {F10}
      printerechochar= 114; {Ctrl-PrtSc}
      availtogglechar= 30;  {Alt-A}
      bottomchar=      48;  {Alt-B}
      texttrapchar=    18;  {Alt-E}
      sysophelpchar=   35;  {Alt-H}
      notimechar=      37;  {Alt-K}
      lesstimechar=    38;  {Alt-L}
      moretimechar=    50;  {Alt-M}
      tempsysopchar=   20;  {Alt-T}
      viewstatchar=    47;  {Alt-S}

type anystr=string[255];
     lstr=string[80];
     mstr=string[30];
     sstr=string[15];
     regs=record
       case integer of
         0:(ax,bx,cx,dx,bp,si,di,ds,es,flags:integer);
         1:(al,ah,bl,bh,cl,ch,dl,dh:byte)
     end;
     accesstype=(bylevel,keepout,letin,invalid);
     availtype=(available,bytime,notavailable);
     configtype=(lowercase,eightycols,linefeeds,postprompts,moreprompts,
                 asciigraphics,ansigraphics,udsysop,bulletinsysop,votingsysop,
                 emailsysop,doorssysop,mainsysop,databasesysop,wanted,
                 showtime,vt52,fseditor);
     groupclass=(publicgroup,privategroup,personalgroup);
     voteset=array [1..maxtopics] of byte;
     votset=array [1..50] of integer;
     boardorder=array [0..255] of byte;
     ptr=^byte;

userrec=record
       handle:mstr;
       password:sstr;
       phonenum:string[12];
       windows:boolean;
       ldmns,ltmns,londa,lonti:string[8];
       gfup,gfdown,numon,timetoday,nbu,uploads,downloads:integer;
       totaltime:real;
       voted:voteset;
       lastmessages,lastups,udlevel,udpoints,level,emailannounce,beepedpwd,
       gflvl:integer;
       infoform:array [1..9] of integer;
       regularcolor,promptcolor,statcolor,inputcolor,displaylen:byte;
       config:set of configtype;
       newscanconfig,access1,access2:set of byte;
       votey,voten:integer;
       didvote:votset;

     end;

     boardrec=record
       boardname,sponsor:mstr;
       level,autodel:integer;
       shortname:sstr
     end;

     newsrec=record
       where,level:integer;
       title:mstr;
       date,time:string[8];
     end;

     commentrec=record
       num:integer;
       comment:string[80];
       who:mstr;
       end;

     bulrec=record
       title,leftby,leftto:mstr;
       leftda,leftti:sstr;
       senttol:string[28];
       anon,ranon:boolean;
       line,plevel:integer
     end;

     filerec=record
       descrip,fname:lstr;
       sentby:mstr;
       sentda,sentti:sstr;
       downloaded:integer
     end;

     mailrec=record
       title,sentby:mstr;
       sentda,sentti:sstr;
       anon,read:boolean;
       sentto,line,fileindex:integer
     end;

     catalogrec=record
       nummail,additional:integer;
       mail:array [1..maxcatalogsize] of mailrec
     end;

     grouprec=record
       name:mstr;
       class:groupclass;
       creator,nummembers:integer;
       members:array [1..maxgroupsize] of integer
     end;

     message=record
       text:array [1..maxmessagesize] of lstr;
       title:mstr;
       anon:boolean;
       numlines:integer
     end;

     topicrec=record
       topicname:lstr;
       numvoted,addlevel:integer;
       mandatory:boolean
     end;

     choicerec=record
       choice:lstr;
       numvoted:integer
     end;

     lastrec=record
       caller:real;
       name:mstr;
       ti,da:sstr;
       baud:integer;
       level:integer;
     end;

     buffer=array [1..sectorsize] of char;

     baserec=record
       numcats,numents,level:integer;
       basename:mstr;
       catnames:anystr
     end;

     entryrec=record
       data:anystr;
       eda:sstr;
       eti:string[13];
       addedby:integer
     end;

     parsedentry=array [1..maxcats] of anystr;

     udrec=record
       sentby:mstr;
       sentda,sentti:sstr;
       filename:sstr;
       path:string[50];
       points:integer;
       filesize:real;
       descrip:lstr;
       downloaded:integer;
       newfile,specialfile,sysfile:boolean
     end;

     arearec=record
       name,xmodemdir:lstr;
       sponsor:mstr;
       level:integer;
       upload:boolean;
     end;

     windowrec=record
       x1,y1,x2,y2,
       cx,cy,color:byte
     end;

     fib=record
       handle,reclen,bufofs,bufsize,bufptr,bufend:integer;
       path:array [1..64] of char
     end;

     doorrec=record
       name:mstr;
       level,numused,info:integer;
       batchname:lstr;
       getparams:boolean;
     end;

     minuterec=record
       started:boolean;
       startedat:integer;
       total:real
     end;

     logrec=record
       menu,subcommand:integer;
       param:string[41];
       date,time:string[8]
     end;

     syslogdatrec=record
       menu,subcommand:integer;
       text:mstr
     end;

     baudratetype=(b110,b300,b450,b600,b1200,b2400,b4800,b9600);
     baudset=set of baudratetype;

const baudarray:array [b110..b9600] of integer=
         (110,300,450,600,1200,2400,4800,9600);

const firstbaud=b110;
      lastbaud=b9600;