[Back to CRT SWAG index] [Back to Main SWAG index] [Original]

    {
    SB> Hi, i got a LITTLE problem, i want to make a window that takes all 2
    SB> lines of my screen.  There is a little piece of code that do this
    SB> window, but when it is executed, i lost the first line, could someon
    SB> help me?

    Here's something that I have in my tool box that may help you out. }

    PROCEDURE WriteC80_25(S, Fore, Back, Blink : Byte);
    { This procedure will write a single character to the 80th column,
      25th row of the screen without scrolling it on a color monitor }

    BEGIN
       Mem[$B800:3998] := S;
       Mem[$B800:3999] := Blink + (Back SHL 4) + Fore;
    END; { WriteC80_25 }

    PROCEDURE WriteM80_25(S, Fore, Back, Blink : Byte);
    { This procedure will write a single character to the 80th column,
      25th row of the screen without scrolling it on a Mono monitor }

    BEGIN
       Mem[$B000:3998] := Ord(S);
       Mem[$B000:3999] := Blink + (Back SHL 4) + Fore;
    END; { WriteM80_25 }

    What I would do in your case is I would call the appropriate procedure
    for the last character that you write to the screen in your Draw_Window
    routine.

    Hope that helps you!

    Tom Carroll

[Back to CRT SWAG index] [Back to Main SWAG index] [Original]