{ ***************************************************************************
  *                                                                         *
  *       NET - Net Controller Operating Program                            *
  *             This program was written to support the operation of        *
  *             the ROOSTER net which meets on 3990 every day at 0600 EST.  *
  *                                                                         *
  *             The files associated with NET are compatible with dBaseIII+ *
  *             Recompilation requires TOPAZ units distributed by           *
  *                                                                         *
  *               The Research Group                                        *
  *               100 Valley Drive                                          *
  *               Brisbane, CA 94005                                        *
  *               (800-HOTWARE)                                             *
  *                                                                         *
  *       AUTHOR  W1HKJ                                                     *
  *               29 N. Ravenwood Drive                                     *
  *               Cape May Court House, NJ 08210                            *
  *               (609) 624 0076                                            *
  *                                                                         *
  *       Version 4.00                                                      *
  ***************************************************************************
}
{$v-}
program net;

Uses
  Crt,
  Dos,
  dbf4,index4,sayget4,browse4,timedate,vidpop;

{$I NETCONST.PAS}
{$I NETTYPE.PAS}
{$I NETVAR.PAS}
{$I NETCOLOR.PAS}
{$I NETDOS.PAS}
{$I NETINIT.PAS}
{$I NETSORT.PAS}
{$I NETFILES.PAS}
{$I NETFIND.PAS}
{$I NETIMAGE.PAS}
{$I NETDISP.PAS}
{$I NETLOGIN.PAS}
{$I NETEDIT.PAS}
{$I NETHELP.PAS}
{$I NETMAIN.PAS}

begin
  CheckBreak := false;
  net_init;
  save_entry_screen;
  read_image;
  DisplayPage(@image);
  normcolor;
  window(2,6,7,23); ClrScr;
  window(9,6,18,23); ClrScr;
  window(20,6,23,23); ClrScr;
  window(25,6,29,23); ClrScr;
  window(1,1,80,25);
  clear_window(false);
  normcolor;
  window(32,8,79,16); ClrScr;
  read_file;
  window(1,1,80,25);
  textcolor(status_f);
  textbackground(border_b);
  gotoxy(2,2);write('            ');
  gotoxy(2,2);write(default_file);
  status;
  normcolor;
  MainLoop;
  UpdateDataBase;
  restore_entry_screen;
end.