home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / FORUM25C.ZIP / FORUM.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-02-19  |  2.0 KB  |  116 lines
  1. program forum;
  2.  
  3. { FORUM-PC 2.1 (C) 1986 KENNETH J. DUDA }
  4. { FORUM-PC 2.5 (C) 1989 Kenneth J. Duda
  5.                    1989 Kevin Boyles    }
  6.  
  7. {$R-,S-,I-,V-,B-}  { Change to L+ if you have tons of memory }
  8.                    { This will make Forum-PC link much faster }
  9.  
  10. {$M 65500,0,655360}
  11.  
  12.  
  13. Uses Overlay,
  14.      OverInit,
  15.      Crt,
  16.      Dos,
  17.      Printer,
  18.  
  19.      gentypes,
  20.      configrt,
  21.      modem,
  22.      statret,
  23.      gensubs,
  24.      subs1,
  25.      windows,
  26.      subs2,
  27.      textret,
  28.      mailret,
  29.      userret,
  30.      flags,
  31.      mainr1,
  32.      ansiedit,
  33.      lineedit,
  34.      chatstuf,
  35.      mainr2,
  36.      overret1,
  37.      protocol,
  38.      About,
  39.      Bulletin,
  40.      EchoNet,
  41.      Configur,
  42.      Database,
  43.      Doors,
  44.      Email,
  45.      Filexfer,
  46.      Forumtrm,
  47.      Getlogin,
  48.      Overret2,
  49.      Titlepg,
  50.      Voting,
  51.      Waitcall,
  52.      Mycomman,
  53.      MainMenu,
  54.      Main;
  55.  
  56. {$O MailRet}
  57. {$O UserRet}
  58. {$O Flags}
  59. {$O MainR1}
  60. {$O AnsiEdit}
  61. {$O LineEdit}
  62. {$O ChatStuf}
  63. {$O Protocol}
  64.  
  65. {$O About}
  66. {$O Bulletin}
  67. {$O EchoNet}
  68. {$O Doors}
  69. {$O ConfigUr}
  70. {$O DataBase}
  71. {$O Email}
  72.  
  73. {$O ForumTrm}
  74. {$O GetLogin}
  75. {$O OverRet2}
  76. {$O TitlePg}
  77. {$O Voting}
  78. {$O WaitCall}
  79. {$O MyComman}
  80. {$O MainMenu}
  81.  
  82. VAR gotoforumterm : boolean;
  83.  
  84. Begin
  85.   checkbreak:=false;
  86.   readconfig;
  87.   validconfiguration;
  88.   init (true);
  89.   returnto := ' ';
  90.   fromdoor:=paramcount>=3;
  91.   if not (fromdoor or carrier) then titlepage;
  92.   repeat
  93.     gotoforumterm:=false;
  94.     returnfromdoor;
  95.     if not fromdoor then begin
  96.       gotoforumterm:=waitforacall;
  97.       if gotoforumterm then forumterm else getloginproc
  98.     end;
  99.     if not gotoforumterm then begin
  100.       votingbooth (true);
  101.       mainmenuproc;
  102.       fromdoor:=false;
  103.       if not disconnected then disconnect;
  104.       ensureclosed;
  105.       clrscr;
  106.       if sysnext then begin
  107.         dontanswer;
  108.         halt(4)
  109.       end;
  110.       init (false)
  111.     end
  112.   until not gotoforumterm;
  113.   dontanswer;
  114.   halt(0)
  115. end.
  116.