代码大全

18-28 2

for 1
2

begin end

18.4.2

begin-end
18-29

18-29 C

Cursor.Start = StartingScanLine

Cursor.Ed = EndingScanLine;

Window.Title = EditWindow.Title;

Window.Dimensions = EditWindow.Dimensions;

Window.ForegroundColor = UserPreferences.ForegroundColor;

Window.BlinkRate = UserPreference.ForegroundColor;

Windows.BackgroundColor = UserPreferences.BackgroundColor;

SaveCursor(Cursor);

SetCursor(Cursor);

18 30

18-30 C

Windows.Dimensions = EditWindow.Dimensions;
Window.Title = EditWindow.Title;
Window.BackgroundColor = UserPreferences.BackgroundColor;
Windows.ForgroundColor = UserPreferences.ForegroundColor;

Cursor.Start = StartingScanLine;
Cursor.End = EndingScanLine;