home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / progm / tptools.zip / FIRSTED.ZIP / ED.PAS next >
Pascal/Delphi Source File  |  1987-12-21  |  2KB  |  48 lines

  1. {                            ED.PAS
  2.                              ED 4.0
  3.              Copyright (c) 1985, 87 by Borland International, Inc.            }
  4.  
  5. program Ed;
  6.   {-Demonstration editor using the Turbo Editor Toolbox}
  7.  
  8. {$I eddirect.inc}
  9. {$M 4096, 16384, 655360}
  10.  
  11. uses
  12.   crt,                       {Basic video operations - standard unit}
  13.   Dos,                       {DOS calls - standard unit}
  14.   Errors,                    {Runtime error handler}
  15.   EdVars,                    {Global types and declarations}
  16.   EdScrn1,                   {Fast screen writing routines}
  17.   EdString,                  {String primitives}
  18.   EdPtrOp,                   {Pointer primitives}
  19.   EdCmds,                    {Maps keystrokes to commands}
  20.   int24,                     {DOS critical error handler}
  21.   Message,                   {Message system}
  22.   EdUser,                    {User keyboard input, line editing and error reporting}
  23.   EdMemOp,                   {Text buffer allocation and deallocation}
  24.   EdBack,                    {Background processes}
  25.   EdScrn2,                   {Editor screen updating}
  26.   EdEdit,                    {Basic editing commands}
  27.   EdText,                    {Text processing commands}
  28.   EdBlok,                    {Block move, copy, delete}
  29.   EdFinds,                   {Find, replace routines}
  30.   EdFile,                    {File I/O routines}
  31.   EdMain;                    {Command dispatcher and top level commands}
  32.  
  33. begin                        {FirstEd}
  34.  
  35.   {Initialize toolbox data structures}
  36.   EdInitialize;
  37.  
  38.   {Set up for the first file}
  39.   EdMainMenu;
  40.  
  41.   {Start the keyboard polling loop}
  42.   EdSchedule;
  43.  
  44.   {Restore the screen}
  45.   EdRestoreScreenMode;
  46.  
  47. end.                         {FirstEd}
  48.