home *** CD-ROM | disk | FTP | other *** search
/ Jason Aller Floppy Collection / 276.img / FORUM21S.ZIP / MAIN.PAS < prev    next >
Pascal/Delphi Source File  |  1988-02-13  |  2KB  |  114 lines
  1. {$R-,S-,I-,D-,T-,F-,V-,B-,N-,L+ }
  2. {$M 65500,0,0 }
  3.  
  4. unit main;
  5.  
  6. interface
  7.  
  8. uses crt,
  9.      gentypes,modem,gensubs,subs1,subs2,userret,overret1,mainr2,
  10.      about,bulletin,configur,database,doors,email,filexfer,mycomman,voting,
  11.      mainmenu;
  12.  
  13. procedure mainsysopcommands;
  14. procedure mainmenuproc;
  15. procedure breakout;
  16.  
  17. implementation
  18.  
  19. procedure mainsysopcommands;
  20. var q:integer;
  21. begin
  22.   repeat
  23.     q:=menu ('Sysop','SYSOP','QTEANDUCIJSKVMFRZ');
  24.     case q of
  25.       2:editoldspecs;
  26.       3:readerrlog;
  27.       4:addnews;
  28.       5:editnews;
  29.       6:delerrlog;
  30.       7:editusers;
  31.       8:settime;
  32.       9:infoformhunt;
  33.       10:showallforms;
  34.       11:viewsyslog;
  35.       12:delsyslog;
  36.       13:showallsysops;
  37.       14:makeuser;
  38.       15:readfeedback;
  39.       16:removeallforms;
  40.       17:zapspecifiedusers;
  41.     end
  42.   until (q=1) or hungupon
  43. end;
  44.  
  45. procedure mainmenuproc;
  46. var q:integer;
  47. begin
  48.   repeat
  49.     if fromdoor and (returnto='D') then doorsmenu;
  50.     cursection:=mainsysop;
  51.     q:=menu ('Main','MAIN','ABCDEFGHIJKLMNOPQRSTUVWXYZ+-!&$%@');
  52.     writeln;
  53.     case q of
  54.       1:aboutthisbbs;
  55.       2:bulletinmenu;
  56.       3:summonsysop;
  57.       4:datamenu;
  58.       5:emailmenu;
  59.       6:feedback;
  60.       7,15:offtheforum;
  61.       8:mainhelp;
  62.       9:infoform;
  63.       10:mycommand;
  64.       11:configure;
  65.       12:listusers;
  66.       13:otherbbs;
  67.       14:printnews;
  68.       16:doorsmenu;
  69.       17:;
  70.       18:;
  71.       19:showsystemstatus;
  72.       20:udsection;
  73.       21:;
  74.       22:votingbooth (false);
  75.       23:showlastcallers;
  76.       24:transfername;
  77.       25:yourstatus;
  78.       26:setlastcall;
  79.       27:changepwd;
  80.       28:;
  81.       29:requestraise;
  82.       30:showad;
  83.       31:donations;
  84.       32:mainsysopcommands;
  85.     end
  86.   until hungupon
  87. end;
  88.  
  89. {$F+}
  90.  
  91. procedure breakout;
  92. begin
  93.   if (erroraddr=nil) and (exitcode=e_controlbreak) then begin
  94.     textcolor (7);
  95.     textbackground (0);
  96.     updateuserstats (false);
  97.     writeln (direct,' [ Break ]');
  98.     writereturnbat;
  99.     ensureclosed;
  100.     window (1,1,80,25);
  101.     gotoxy (1,25);
  102.     clreol;
  103.     if not carrier then dontanswer
  104.   end;
  105.   doneexitproc
  106. end;
  107.  
  108. {$F-}
  109.  
  110. begin
  111.   addexitproc (@breakout)
  112. end.
  113.  
  114.