home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Jason Aller Floppy Collection
/
270.img
/
FORUM25C.ZIP
/
MAIN.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1989-02-11
|
3KB
|
167 lines
{$R-,S-,I-,V-,B-}
{$O-}
unit main;
{/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\}
interface
uses crt,
gentypes,
modem,
gensubs,
subs1,
subs2,
userret,
overret1,
mainr2,
about,
bulletin,
EchoNet,
configur,
database,
doors,
email,
filexfer,
mycomman,
voting,
mainmenu;
{/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\}
Procedure mainsysopcommands;
Procedure mainmenuproc;
Procedure breakout;
{/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\}
implementation
{/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\}
Procedure mainsysopcommands;
VAR q:integer;
begin
repeat
q:=menu ('Sysop','SYSOP','QTEANDUCIJSKVMFRZP&');
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;
18 : PriorityPage;
19 : Convert_mail;
end
until (q=1) or hungupon
end;
Procedure mainmenuproc;
VAR q:integer;
Com_str : LStr;
begin
Com_str := 'ABCDEFGHIJKLMNOPQRSTUVWXYZ+-!&$%@';
repeat
if fromdoor and (returnto='P') then
Begin
doorsmenu;
ReturnTo := 'M';
End;
cursection:=mainsysop;
If (ReturnTo = ' ') OR (ReturnTo = 'M') THEN
q := menu ('Main','MAIN',Com_str)
ELSE
Begin
q := Pos(Returnto,Com_str);
If q = 0 THEN q := 17;
ReturnTo := 'M';
End;
Writeln;
case q of
1:aboutthisbbs;
2:bulletinmenu;
3:summonsysop;
4:datamenu;
5:emailmenu;
6:feedback;
7,15:offtheforum;
8:mainhelp;
9:infoform;
10:mycommand;
11:configure;
12:listusers;
13:otherbbs;
14:printnews;
16:doorsmenu;
17:;
18:;
19:showsystemstatus;
20:udsection;
21:Echo_net_mail;
22:votingbooth (false);
23:showlastcallers;
24:transfername;
25:yourstatus;
26:setlastcall;
27:changepwd;
28:;
29:requestraise;
30:showad;
31:donations;
32:mainsysopcommands;
end
until hungupon
end;
VAR Exit_Save : POINTER;
{$F+}
Procedure breakout;
begin
ExitProc := Exit_save;
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;
End;
{/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\}
{initialization}
{/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\}
Begin
Exit_Save := ExitProc;
ExitProc := @breakout;
End.