home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / SYSPC22.ZIP / MAIN.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-04-03  |  867 b   |  43 lines
  1. procedure breakout;
  2. begin
  3.   textcolor (7);
  4.   textbackground (0);
  5.   updateuserstats;
  6.   writeln (' [ Break ]');
  7.   ensureclosed;
  8.   window (1,1,80,25);
  9.   gotoxy (1,25);
  10.   clreol;
  11.   if not carrier then dontanswer;
  12.   halt(4)
  13. end;
  14.  
  15. var gotoforumterm:boolean;
  16. begin
  17.   textmode (BW80);
  18.   readconfig;
  19.   if length(overlaypath)>0 then ovrpath (overlaypath);
  20.  
  21.   init;
  22.   fromdoor:=false;
  23.   if not carrier then titlepage;
  24.   repeat
  25.     gotoforumterm:=false;
  26.     begin
  27.       waitcall;
  28.       gotoforumterm:=not (online or local);
  29.       if gotoforumterm then halt (7) else getlogin
  30.     end;
  31.     if not gotoforumterm then begin
  32.       votingbooth (true);
  33.       mainmenu;
  34.       fromdoor:=false;
  35.       if not disconnected then disconnect;
  36.       ensureclosed;
  37.       clrscr;
  38.       init
  39.     end
  40.   until not gotoforumterm;
  41.   dontanswer;
  42.   halt(2)
  43. end.