Как вывести на экран bmp картинку

   ' Структуры данных для *.BMP*
TYPE BMFile
   BmID AS INTEGER
   FileSize AS LONG
   Reserved AS LONG
   BmOFFSET AS LONG
END TYPE
TYPE BMHead
   HeadSize AS LONG
   BmpSizeX AS LONG
   BmpSizeY AS LONG
   BmSlices AS INTEGER
   BitDepth AS INTEGER
   Compress AS LONG
   DataSize AS LONG
   BmHorRes AS LONG
   BmVerRes AS LONG
   UseColor AS LONG
   SingColr AS LONG
END TYPE
 
   '  Заголовки
 DIM FHead AS BMFile, BMPHead AS BMHead
   '  Тех. переменные
 DIM FrF AS INTEGER, FilePL AS LONG, i AS INTEGER
 DIM Plus AS LONG, xp AS LONG, yp AS LONG, Adr AS LONG
 DIM R AS INTEGER, G AS INTEGER, B AS INTEGER
 DIM SHARED Ld AS STRING * 1, OffLd AS LONG
 
    BmName$ = "Cats"
    SCREEN 12
 
   '  Загрузка
 FrF = FREEFILE                                      '  Своб. файл
 OPEN "B", #FrF, BmName$ + ".BMP"                    '  Откроем *.BMP
     GET #FrF, , FHead: GET #FrF, , BMPHead          '  Загрузим заголовки
        IF BMPHead.BitDepth = 8 THEN                 '  Если 256 цветов - то откроем
          FOR i = 0 TO 2 ^ BMPHead.BitDepth          '  Читаем палитру
            GET #FrF, , FilePL
            R = ((FilePL AND &HFF0000) \ 262144) AND 63
            G = ((FilePL AND &HFF00) \ 1024) AND 63
            B = ((FilePL AND &HFF) \ 4) AND 63
            IF i < 16 THEN
              OUT 968, i: OUT 969, R: OUT 969, G: OUT 969, B
            END IF
          NEXT
          SEEK #FrF, FHead.BmOFFSET                  '  На начало данных картинки
          DEF SEG = VARSEG(Ld): OffLd = VARPTR(Ld)   '  Сегмент&смещение ячейки загрузки
            Plus = -BMPHead.BmpSizeX AND 3           '  Хинт(оптимизация)
            FOR yp = 0 TO BMPHead.BmpSizeY - 1
               '  Адрес пикселя
               Adr = (BMPHead.BmpSizeY - yp - 1) * (BMPHead.BmpSizeX + Plus)
               Adr = Adr + FHead.BmOFFSET + 1
               '  Внутренний цикл
               FOR xp = 0 TO BMPHead.BmpSizeX - 1
                  GET #FrF, Adr + xp, Ld             '  Загрузка 1-го байта
                  PSET (xp, yp), PEEK(OffLd)         '  Вывод пикселя
               NEXT xp
               IF INKEY$ <> "" THEN END              '  Прерывание вывода по клавише
            NEXT yp
          DEF SEG
        END IF
 CLOSE FrF