home *** CD-ROM | disk | FTP | other *** search
/ Jason Aller Floppy Collection / 189.img / TCS120S.ZIP / MAIN.PAS < prev    next >
Pascal/Delphi Source File  |  1989-03-05  |  3KB  |  122 lines
  1. {$R-,S-,I-,D-,F+,V-,B-,N-,O+ }
  2. {$M 65500,0,0 }
  3.  
  4. unit main;
  5.  
  6. interface
  7.  
  8. uses crt,overlay,
  9.      gentypes,modem,gensubs,subs1,subs2,userret,overret1,mainr2,
  10.      about,bulletin,configur,database,doors,email,filexfer,mycomman,voting,
  11.      mainmenu,gfiles,trivia,configrt,viewansi;
  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 Commands','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. { !!!!! Moved to TCS.PAS !!!!! }{
  46. procedure mainmenuproc;
  47. var q:integer;
  48. begin
  49.   repeat
  50.     if fromdoor and (returnto='D') then doorsmenu;
  51.     cursection:=mainsysop;
  52.     q:=menu ('Main','MAIN','ABCDEFGHIJKLMNOPQRSTUVWXYZ+-!&$%@^*');
  53.     writeln;
  54.     case q of
  55.       1:aboutthisbbs;
  56.       2:otherbbs;
  57.       3:summonsysop;
  58.       4:datamenu;
  59.       5:emailmenu;
  60.       6:feedback;
  61.       7:offtcs;
  62.       8:mainhelp;
  63.       9:infoform;
  64.       10:begin
  65.           if usetrivia then playtrivia
  66.            else writeln ('Trivia Section not available.');
  67.          end;
  68.       11:configure;
  69.       12:listusers;
  70.       13:bulletinmenu;
  71.       14:printnews;
  72.       15:doorsmenu;
  73.       16:gfilesection;
  74.       17:write (^M+'That command not available from this menu.'+^M);
  75.       18:requestraise;
  76.       19:showsystemstatus;
  77.       20:udsection;
  78.       21:write (^M+'That command not available from this menu.'+^M);
  79.       22:votingbooth (false);
  80.       23:showlastcallers;
  81.       24:transfername;
  82.       25:yourstatus;
  83.       26:setlastcall;
  84.       27:changepwd;
  85.       28:write (^M+'That command not available from this menu.'+^M);
  86.       29:togglehotkeys;
  87.       30:showad;
  88.       31:donations;
  89.       32:mainsysopcommands;
  90.       33:begin
  91.           subs2.beepbeep;
  92.          end;
  93.       34:viewansiscreens;
  94.     end
  95.   until hungupon
  96. end;
  97. }{ !!!!! Moved to TCS.PAS !!!!! }
  98.  
  99. procedure breakout;
  100. begin
  101.   if (erroraddr=nil) and (exitcode=e_controlbreak) then begin
  102.     textcolor (7);
  103.     textbackground (0);
  104.     updateuserstats (false);
  105.     writeln (direct,' [ Break ]');
  106.     writereturnbat;
  107.     ensureclosed;
  108.     window (1,1,80,25);
  109.     gotoxy (1,25);
  110.     clreol;
  111.     if not carrier then dontanswer
  112.   end;
  113.   doneexitproc
  114. end;
  115.  
  116. {$F-}
  117.  
  118. begin
  119.   addexitproc (@breakout)
  120. end.
  121.  
  122.