home *** CD-ROM | disk | FTP | other *** search
/ Audio Version 4.94 / audioversion4.94knowledgemediaresourcelibraryoctober1994.iso / msdos / modplay / vtsrc12b / vtbitmap.pas < prev    next >
Pascal/Delphi Source File  |  1992-10-16  |  2KB  |  56 lines
  1. UNIT VTBitmaps;
  2.  
  3. INTERFACE
  4.  
  5. PROCEDURE WriteVTLogo     (Offs: WORD);
  6. PROCEDURE WriteVTNoPartAct(Offs: WORD);
  7.  
  8.  
  9.  
  10.  
  11. IMPLEMENTATION
  12.  
  13. USES Output43, Vid43;
  14.  
  15.  
  16.  
  17.  
  18. PROCEDURE WriteVTLogo     (Offs: WORD);
  19.   CONST
  20.     VTLogo : ARRAY[1..4] OF ARRAY[1..16] OF BYTE = (
  21.  
  22.       {[---1---][---2----][---3----][---4----][---5----][---6----][---7----][---8----]}
  23.  
  24.       ( 95, $61, 132, $61, 133, $61,  95, $61,  95, $61,  95, $61,  95, $61,  95, $61),
  25.       (136, $61, 137, $21, 138, $61, 133, $21,  95, $21,  32, $61, 133, $21, 134, $21),
  26.       (139, $61, 140, $21, 141, $61, 142, $21, 143, $61,  32, $61, 131, $21,  32, $21),
  27.       (144, $61,  95, $21,  95, $21, 145, $21, 143, $61,  95, $21, 146, $21,  32, $21)
  28.     );
  29.   VAR
  30.     i : WORD;
  31.   BEGIN
  32.     FOR i := 1 TO 4 DO Move(VTLogo[i], Ptr(ScrSegment, Offs + ScreenBytesX*(i-1))^, 16);
  33.   END;
  34.  
  35.  
  36. PROCEDURE WriteVTNoPartAct(Offs: WORD);
  37.   CONST
  38.     VTNoPartAct : ARRAY[1..2] OF ARRAY[1..32] OF BYTE = (
  39.  
  40.       {[---1---][---2----][---3----][---4----][---5----][---6----][---7----][---8----]}
  41.  
  42.       (147, $61, 148, $61, 148, $61, 148, $61, 148, $61, 148, $61, 148, $61, 148, $61,
  43.        148, $61, 148, $61, 148, $61, 148, $61, 148, $61, 148, $61, 148, $61, 149, $21),
  44.       (150, $61, 148, $21, 148, $21, 148, $21, 148, $21, 148, $21, 148, $21, 148, $21,
  45.        148, $21, 148, $21, 148, $21, 148, $21, 148, $21, 148, $21, 148, $21, 151, $21)
  46.     );
  47.   VAR
  48.     i : WORD;
  49.   BEGIN
  50.     FOR i := 1 TO 2 DO Move(VTNoPartAct[i], Ptr(ScrSegment, Offs + ScreenBytesX*(i-1))^, 32);
  51.   END;
  52.  
  53.  
  54.  
  55.  
  56. END.