home *** CD-ROM | disk | FTP | other *** search
/ Hacker Chronicles 2 / HACKER2.BIN / 465.NET.PAS < prev    next >
Pascal/Delphi Source File  |  1989-09-09  |  3KB  |  80 lines
  1. { ***************************************************************************
  2.   *                                                                         *
  3.   *       NET - Net Controller Operating Program                            *
  4.   *             This program was written to support the operation of        *
  5.   *             the ROOSTER net which meets on 3990 every day at 0600 EST.  *
  6.   *                                                                         *
  7.   *             The files associated with NET are compatible with dBaseIII+ *
  8.   *             Recompilation requires TOPAZ units distributed by           *
  9.   *                                                                         *
  10.   *               The Research Group                                        *
  11.   *               100 Valley Drive                                          *
  12.   *               Brisbane, CA 94005                                        *
  13.   *               (800-HOTWARE)                                             *
  14.   *                                                                         *
  15.   *       AUTHOR  W1HKJ                                                     *
  16.   *               29 N. Ravenwood Drive                                     *
  17.   *               Cape May Court House, NJ 08210                            *
  18.   *               (609) 624 0076                                            *
  19.   *                                                                         *
  20.   *       Version 5.00                                                      *
  21.   *                                                                         *
  22.   *       9/9/89  Added additional fields to data base file                 *
  23.   *               Added prompt helps for data entry                         *
  24.   *               Recompiled under Turbo Pascal 5.5 and Topaz 5.5 units     *
  25.   ***************************************************************************
  26. }
  27. {$v-}
  28. program net;
  29.  
  30. Uses
  31.   Crt,
  32.   Dos,
  33.   dbf4,index4,sayget4,browse4,timedate,vidpop;
  34.  
  35. {$I NETCONST.PAS}
  36. {$I NETTYPE.PAS}
  37. {$I NETVAR.PAS}
  38. {$I NETCOLOR.PAS}
  39. {$I NETDOS.PAS}
  40. {$I NETINIT.PAS}
  41. {$I NETSORT.PAS}
  42. {$I NETFILES.PAS}
  43. {$I NETFIND.PAS}
  44. {$I NETIMAGE.PAS}
  45. {$I NETDISP.PAS}
  46. {$I NETLOGIN.PAS}
  47. {$I NETEDIT.PAS}
  48. {$I NETHELP.PAS}
  49. {$I NETMAIN.PAS}
  50.  
  51. begin
  52.   CheckBreak := false;
  53.   net_init;
  54.   save_entry_screen;
  55.   read_image;
  56.   DisplayPage(@image);
  57.   normcolor;
  58.   window(2,6,7,23); ClrScr;
  59.   window(9,6,18,23); ClrScr;
  60.   window(20,6,23,23); ClrScr;
  61.   window(25,6,29,23); ClrScr;
  62.   window(1,1,80,25);
  63.   clear_window(false);
  64.   normcolor;
  65.   window(32,8,79,16); ClrScr;
  66.   read_file;
  67.   window(1,1,80,25);
  68.   textcolor(status_f);
  69.   textbackground(border_b);
  70.   gotoxy(2,2);write('            ');
  71.   gotoxy(2,2);write(default_file);
  72.   status;
  73.   normcolor;
  74.   MainLoop;
  75.   UpdateDataBase;
  76.   restore_entry_screen;
  77. end.
  78.  
  79.  
  80.