{**********************************************************************}
{ Display content of file 'PICTURE.001' on the screen                  }
{**********************************************************************}

procedure restore_screen;
const
MONO = 5;
COLOR = 4;
VMONO = 7;
picture_name : array [0..11] of char = 'PICTURE.001 ';
var
i : integer;
begin
	picture_name[11] := chr(0);
	clear_screen;
	i := get_display_type;
	if i = MONO then set_mode($0F)
	else if i = VMONO then set_mode($0F)
	else if i = COLOR then set_mode($0E)
	else set_mode($10);

	i := screen_load(seg(picture_name),ofs(picture_name));
						{ Copy file to screen	}

	i := integer(readkey);
	{--- Set default text mode					}
	i := get_display_type;
	if i = MONO then set_mode(7)
	else if i = VMONO then set_mode(7)
	else	set_mode(3);
end;