WriteBetween


Purpose   Writes text centered between two points.

Decln.    WriteBetween(X1,X2,Y,F,B:byte;Str:strscreen);

Remarks   X1, X2 are the two X coordinates that the string will be centered
          between.
          Y is the Y coordinate.
          F, B are the foreground and background display colors.
          Str is the display string.

Example

BEGIN
    WRITEBETWEEN(1,40,15,WHITE,BLACK,'LEFT SIDE');
    WRITEBETWEEN(41,80,15,WHITE,BLACK,'RIGHT SIDE');
END;