home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Jason Aller Floppy Collection
/
189.img
/
TCS120S.ZIP
/
MAIN.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1989-03-05
|
3KB
|
122 lines
{$R-,S-,I-,D-,F+,V-,B-,N-,O+ }
{$M 65500,0,0 }
unit main;
interface
uses crt,overlay,
gentypes,modem,gensubs,subs1,subs2,userret,overret1,mainr2,
about,bulletin,configur,database,doors,email,filexfer,mycomman,voting,
mainmenu,gfiles,trivia,configrt,viewansi;
procedure mainsysopcommands;
{procedure mainmenuproc;}
procedure breakout;
implementation
procedure mainsysopcommands;
var q:integer;
begin
repeat
q:=menu ('Sysop Commands','SYSOP','QTEANDUCIJSKVMFRZ');
case q of
2:editoldspecs;
3:readerrlog;
4:addnews;
5:editnews;
6:delerrlog;
7:editusers;
8:settime;
9:infoformhunt;
10:showallforms;
11:viewsyslog;
12:delsyslog;
13:showallsysops;
14:makeuser;
15:readfeedback;
16:removeallforms;
17:zapspecifiedusers;
end
until (q=1) or hungupon
end;
{ !!!!! Moved to TCS.PAS !!!!! }{
procedure mainmenuproc;
var q:integer;
begin
repeat
if fromdoor and (returnto='D') then doorsmenu;
cursection:=mainsysop;
q:=menu ('Main','MAIN','ABCDEFGHIJKLMNOPQRSTUVWXYZ+-!&$%@^*');
writeln;
case q of
1:aboutthisbbs;
2:otherbbs;
3:summonsysop;
4:datamenu;
5:emailmenu;
6:feedback;
7:offtcs;
8:mainhelp;
9:infoform;
10:begin
if usetrivia then playtrivia
else writeln ('Trivia Section not available.');
end;
11:configure;
12:listusers;
13:bulletinmenu;
14:printnews;
15:doorsmenu;
16:gfilesection;
17:write (^M+'That command not available from this menu.'+^M);
18:requestraise;
19:showsystemstatus;
20:udsection;
21:write (^M+'That command not available from this menu.'+^M);
22:votingbooth (false);
23:showlastcallers;
24:transfername;
25:yourstatus;
26:setlastcall;
27:changepwd;
28:write (^M+'That command not available from this menu.'+^M);
29:togglehotkeys;
30:showad;
31:donations;
32:mainsysopcommands;
33:begin
subs2.beepbeep;
end;
34:viewansiscreens;
end
until hungupon
end;
}{ !!!!! Moved to TCS.PAS !!!!! }
procedure breakout;
begin
if (erroraddr=nil) and (exitcode=e_controlbreak) then begin
textcolor (7);
textbackground (0);
updateuserstats (false);
writeln (direct,' [ Break ]');
writereturnbat;
ensureclosed;
window (1,1,80,25);
gotoxy (1,25);
clreol;
if not carrier then dontanswer
end;
doneexitproc
end;
{$F-}
begin
addexitproc (@breakout)
end.