home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
progm
/
tptools.zip
/
FIRSTED.ZIP
/
ED.PAS
next >
Wrap
Pascal/Delphi Source File
|
1987-12-21
|
2KB
|
48 lines
{ ED.PAS
ED 4.0
Copyright (c) 1985, 87 by Borland International, Inc. }
program Ed;
{-Demonstration editor using the Turbo Editor Toolbox}
{$I eddirect.inc}
{$M 4096, 16384, 655360}
uses
crt, {Basic video operations - standard unit}
Dos, {DOS calls - standard unit}
Errors, {Runtime error handler}
EdVars, {Global types and declarations}
EdScrn1, {Fast screen writing routines}
EdString, {String primitives}
EdPtrOp, {Pointer primitives}
EdCmds, {Maps keystrokes to commands}
int24, {DOS critical error handler}
Message, {Message system}
EdUser, {User keyboard input, line editing and error reporting}
EdMemOp, {Text buffer allocation and deallocation}
EdBack, {Background processes}
EdScrn2, {Editor screen updating}
EdEdit, {Basic editing commands}
EdText, {Text processing commands}
EdBlok, {Block move, copy, delete}
EdFinds, {Find, replace routines}
EdFile, {File I/O routines}
EdMain; {Command dispatcher and top level commands}
begin {FirstEd}
{Initialize toolbox data structures}
EdInitialize;
{Set up for the first file}
EdMainMenu;
{Start the keyboard polling loop}
EdSchedule;
{Restore the screen}
EdRestoreScreenMode;
end. {FirstEd}