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

    {

       Very fast screen output in 80*25 mode by direct access to video memory

                   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
                   º                                        º°
                   º          AVONTURE CHRISTOPHE           º°
                   º              AVC SOFTWARE              º°
                   º     BOULEVARD EDMOND MACHTENS 157/53   º°
                   º           B-1080 BRUXELLES             º°
                   º              BELGIQUE                  º°
                   º                                        º°
                   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¼°
                   °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°

    }

    Procedure WriteStr   (Texte : String);

    Var Attribut : Word;
        Offset   : Word;
        i        : Byte;

    Begin

         Attribut := ((TextAttr + (TextBack Shl 4)) shl 8);

         { The Pge variable is the current screen page -There is a function in
           interrupt 10h nammed GetActivePage- So you should code something like
           Pge := GetActivePage where GetActivePage is a function that call this
           interrupt. You can also set this variable manually so if you code
           Pge := 0 then the screen output will be made to the first screen; if
           you code Pge := 1, this output will be made to the second screen, and
           so on until 7.  Be carefull: if the active screen page is the third
           and you have code Pge := 0 then you can't see the output because
           there are made on an invisible video page. }

         offset := WhereY * 160 + WhereX Shl 1 + (Pge shl 12);

         For i:= 1 to Length (Texte) do
             Begin
                MemW[$B800:Offset] := Attribut or ord(Texte[i]);
                Inc (Offset,2);
             End;

         GotoXy (WhereX + Length(Texte), WhereY);

    End;

    Procedure WriteStrLn   (Texte : String);

    Var Attribut : Word;
        Offset   : Word;
        i        : Byte;

    Begin

         Attribut := (((TextBack Shl 4) + TextAttr) shl 8);

         { The Pge variable is the current screen page -There is a function in
           interrupt 10h nammed GetActivePage- So you should code something like
           Pge := GetActivePage where GetActivePage is a function that call this
           interrupt. You can also set this variable manually so if you code
           Pge := 0 then the screen output will be made to the first screen; if
           you code Pge := 1, this output will be made to the second screen, and
           so on until 7.  Be carefull: if the active screen page is the third
           and you have code Pge := 0 then you can't see the output because
           there are made on an invisible video page. }

         offset := WhereY * 160 + WhereX Shl 1 + (Pge shl 12);

         For i:= 1 to Length (Texte) do
             Begin
                MemW[$B800:Offset] := Attribut or ord(Texte[i]);
                Inc (Offset,2);
             End;

         GotoXy (0, WhereY+1);

    End;

    Procedure WriteStrXY (X, Y, TAttr, TBack : Word; Text : String);

    { Ecrit sur la page sp�cifi�e, le texte donn�}

    Var Offset   : Word;
        I        : Byte;
        Attr     : Word;
        AdressP  : Word Absolute $0040:$004E;{Address of the Active Screen Page}

    Begin

        Offset := Y * 160 + X Shl 1 + AdressP;
        Attr := ((TAttr+(TBack Shl 4)) Shl 8);

        For I := 1 to Length (Text) Do
            Begin
               MemW[RamVideo:Offset] := Attr OR Ord(Text[I]);
               Inc (Offset,2);
            End;

    End;

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