Na azért valamit csináljon is nem?
program g3;
uses faszom,forkoljunkgyerekek,graph;
var gd,gm: integer;
begin
writeln('ForkPlayer G3 dev-CVS-051110-19:00-3.4.6 (C) 2006 ForkPlayer Team!');
gd:=installuserdriver ('svga256',nil);
gm:=0;
initgraph (gd,gm,'\bgi');
if GraphResult<>grok then
playVideo;
else
writeln('Sorry, unfortunately your architecture is not supported yet!');
CloseGraph;
end.
"...handing C++ to the average programmer seems roughly comparable to handing a loaded .45 to a chimpanzee."
-- Ted Ts'o