2048 clone in Turbo Pascal