代码大全

18-55 Pascal

SortBoundary: Integer;

InsertPos: Imeger;

InsertVal: SORT_STRING;

LowerBoundary: SORT_STRING

Integer( SORT_STRING
C 18-56
18-56 C

int SortBoundary;

int InsertPos;

SORT_STRING InsertVal;

SORT_STRING LowerBoundary;

18-57 CurrentBottom

18-57 C
int Rowldx ColIdX COLOR PreviousScreen CurrentScreen NextScreen;
POINT PrevlousTop, PreviousBottom CurrentTop CurrentBottom NextTop,
NextBottom FONT PreviousFace CurrentFace, NextFace;
COLOR Choices [ NUM_COLORS ];

18-58

RowIdx ColIdx: Integer;

CurrentScreen,

NextScreen,

PreviousScreen: COLOR

CurrentBottom,CurrentTop,

NextBottom NextTop,

PreviousBottom,

PreviousTop: POINT;

CurrentFace NextFace,

PreviousFace: FONT;