ClickWrite


Purpose   Writes text to the screen with a fancy ticker-tape effect.
          Strictly trivial!

Decln.    ClickWrite(X,Y,F,B:byte;St:strscreen);

Remarks   X, Y are the coordinates of the first character of the string.
          F, B are the foreground and background display colors.
          St is the text to be displayed.

Example

BEGIN
    BOX(36,1,44,3,WHITE,BLUE,1);
    CLICKWRITE(35,2,LIGHTCYAN,BLUE,'MAIN MENU')
END;