UNIT VTBitmaps;

INTERFACE

PROCEDURE WriteVTLogo     (Offs: WORD);
PROCEDURE WriteVTNoPartAct(Offs: WORD);




IMPLEMENTATION

USES Output43, Vid43;




PROCEDURE WriteVTLogo     (Offs: WORD);
  CONST
    VTLogo : ARRAY[1..4] OF ARRAY[1..16] OF BYTE = (

      {[---1---][---2----][---3----][---4----][---5----][---6----][---7----][---8----]}

      ( 95, $61, 132, $61, 133, $61,  95, $61,  95, $61,  95, $61,  95, $61,  95, $61),
      (136, $61, 137, $21, 138, $61, 133, $21,  95, $21,  32, $61, 133, $21, 134, $21),
      (139, $61, 140, $21, 141, $61, 142, $21, 143, $61,  32, $61, 131, $21,  32, $21),
      (144, $61,  95, $21,  95, $21, 145, $21, 143, $61,  95, $21, 146, $21,  32, $21)
    );
  VAR
    i : WORD;
  BEGIN
    FOR i := 1 TO 4 DO Move(VTLogo[i], Ptr(ScrSegment, Offs + ScreenBytesX*(i-1))^, 16);
  END;


PROCEDURE WriteVTNoPartAct(Offs: WORD);
  CONST
    VTNoPartAct : ARRAY[1..2] OF ARRAY[1..32] OF BYTE = (

      {[---1---][---2----][---3----][---4----][---5----][---6----][---7----][---8----]}

      (147, $61, 148, $61, 148, $61, 148, $61, 148, $61, 148, $61, 148, $61, 148, $61,
       148, $61, 148, $61, 148, $61, 148, $61, 148, $61, 148, $61, 148, $61, 149, $21),
      (150, $61, 148, $21, 148, $21, 148, $21, 148, $21, 148, $21, 148, $21, 148, $21,
       148, $21, 148, $21, 148, $21, 148, $21, 148, $21, 148, $21, 148, $21, 151, $21)
    );
  VAR
    i : WORD;
  BEGIN
    FOR i := 1 TO 2 DO Move(VTNoPartAct[i], Ptr(ScrSegment, Offs + ScreenBytesX*(i-1))^, 32);
  END;




END.