http://users.atw.hu/cppanddelphi/xmas.zip