xor	ax, ax
	mov	ds, ax
	mov	word ptr ds:[7Ch], cs
	ret

{$M 1024,0,0}      {Heap - 0 байт. Всегда должно быть достаточно памяти,
                   чтобы запустить и распаковать картинку.}
uses Dos;
var
  OldVec, w: Word;
Begin
  OldVec:=memW[0,$7C];  {Запоминаем старый вектор 1Fh}
  Exec('SCREEN');       {"Запуск" и разжатие картинки}
  asm
   mov	   ax, 4	{Переход в графический CGA режим}
   int     10h
  end;
  w:=memW[0:$7C]+$10;   {Узнаём сегмент кода 
                        загруженной программы + размер PSP}
  move(mem[w:9], mem[$B800:0], 8000);      {Вывод картинки}
  move(mem[w:8009], mem[$BA00:0], 8000);   {...}
  asm
   xor	   ax, ax	{Ожидание нажатия клавиши}
   int	   16h
   mov	   ax, 3        {Возврат в текстовый режим}
   int	   10h
  end;
  memW[0:$7C]:=OldVec   {Возвращаем старое значение вектора 1Fh}
End.