show :-
	show('sdl_1.2.6_dos.gif').

show(File) :-
	send(new(P, picture), open),
	send(P, display, bitmap(File)).