Code EggCrt.PAS:

program EggCrt; {============== Can doc ================}

{!!! Khong Compile duoc bang Free Pascal !!!} {===========================================}

uses crt,dos;

const x1=5;y1=4;x2=77;y2=18; rShift=1;

lShift=2; Ctrl=4; Alt=8; ScrLock=16;

NumLock=32; CapsLock=64; Insert=128;

var EggX,EggY:byte;

BedX:1..x2-9;

Mark:byte;

Lost:Byte;

c,d:byte;

procedure writexy(x,y:byte;c:string);

begin gotoxy(x,y); write(c); end;

function SpecialKey(c:byte):boolean;

var regs:registers;

begin

Regs.AH:=2; Intr($16,Regs);

if Regs.AL and c = c then

SpecialKey:=True

else SpecialKey:=False;

end;

procedure vekhung(x1,y1,x2,y2:word);

var z,a,b:word;

begin

if (x1<>x2) and (y1<>y2) then

begin a:=wherex; b:=wherey;

if x1>x2 then begin z:=x1; x1:=x2; x2:=z; end;

if y1>y2 then

begin z:=y1; y1:=y2; y2:=z; end;

gotoxy(x1,y1); write(#201);

if x2-x1>1 then for z:=1 to x2-x1-1 do write(#205);

gotoxy(x2,y1); write(#187);

gotoxy(x1,y2); write(#200);

if x2-x1>1 then for z:=1 to x2-x1-1 do write(#205);

gotoxy(x2,y2); write(#188);

if y2-y1>1 then for z:=1 to y2-y1-1 do begin

gotoxy(x1,z+y1); write(#186); end;

if y2-y1>1 then for z:=1 to y2-y1-1 do begin

gotoxy(x2,z+y1); write(#186); end;

end;

gotoxy(a,b);

end;

procedure Drawmark;

begin

gotoxy(x1-1,y2+4); write('Mark: ',mark,'/10');

gotoxy(x1-1,y2+5); write('Lost: ',Lost,'/',mark+Lost);

end;

Procedure Delay(ms:word);

var t: longint; n:real;

begin n:=ms/1000;

t := meml[0:$46C];

repeat until meml[0:$46C] - t > n*18.2;

end;

procedure DrawEgg;

begin textcolor(yellow);

writexy(Eggx+x1,Eggy div 3 + y1-1,#32);

writexy(Eggx+x1,Eggy div 3 + y1,#9);

textcolor(white); end;

procedure DrawBed;

begin textcolor(brown);

writexy(Bedx+x1-2,y2,#32#32#177#177#177#177#177#177#177#177#177#32#32);

textcolor(white); end;

procedure init;

begin randomize;

vekhung(x1-3,y1-2,x2+2,y2+2);

vekhung(x1-3,y2+3,x1+15,24); vekhung(x1+18,y2+3,x2+2,24); writexy(x1+20,y2+4,'Dieu khien de trung roi vao o Alt: Tam dung'); writexy(x1+20,y2+5,'Left/Right Shift: di chuyen Ctrl: Di nhanh'); writexy(20,10,'An Alt de tiep tuc...');

repeat eggX:=random(60)+3; until specialkey(alt);

repeat until not specialkey(alt);

writexy(20,10,' ');

end;

BEGIN textmode(co80); textcolor(white); clrscr; c:=30; writexy(c,11,#75#32#32#75#32#73#32#69#69#69#69#32#78#32#32#78); writexy(c,12,#75#32#75#32#32#73#32#69#32#32#32#32#78#78#32#78); writexy(c,13,#75#75#32#32#32#73#32#69#69#69#32#32#78#32#78#78); writexy(c,14,#75#32#75#32#32#73#32#69#32#32#32#32#78#32#32#78); writexy(c,15,#75#32#75#32#32#73#32#69#69#69#69#32#78#32#32#78); writexy(c,16,#45#45#45#45#45#45#45#45#45#45#45#45#45#45#45#45); writexy(c,17,#67#32#79#32#73#32#95#32#49#32#57#32#57#32#55#32); writexy(c,5,#71#97#109#101#32#72#117#110#103#32#84#114#117#110#103); writexy(25,9,#66#97#110#32#113#117#121#101#110#58); writexy(37,9,#107#105#101#110#95#99#111#105#95#49#57#57#55); writexy(12,19,'Phong to cua so < Alt+Enter > de chat luong anh tot nhat'); textcolor(lightgray);

writexy(c,22,#76#32#79#32#65#32#68#32#73#32#78#32#71);

textcolor(yellow); gotoxy(c,22); write(#76#32);delay(1000); write(#79#32);delay(1000);

write(#65#32);delay(1000);

write(#68#32);delay(1000); write(#73#32);

delay(1000); write(#78#32);

delay(1000); write(#71);delay(1000);

textcolor(white);

repeat

clrscr; mark:=0; Lost:=0;

init;bedx:=20;

for c:=1 to 10 do begin

Eggx:=random(60)+3; gotoxy(5,14+3);

write(' ');

for Eggy:=1 to 14*3 do begin

drawbed;

drawegg;

drawmark;

if specialkey(lshift) and (bedx>=1) then dec(bedx);

if specialkey(rshift) and (bedx+14<x2) then inc(bedx);

if specialkey(ctrl or lshift) and (bedx>=1) then dec(bedx);

if specialkey(ctrl or rshift) and (bedx+14<x2) then inc(bedx);

if specialkey(Alt) then begin repeat until not specialkey(alt);

begin

repeat until not specialkey(alt);

writexy(20,10,'An Alt de tiep tuc...');

repeat until specialkey(alt);

repeat until not specialkey(alt);

writexy(20,10,' ');

drawegg; end;

if (Eggy=14*3) then

begin

if abs(-BedX-4+Eggx)<4 then inc(Mark)

else inc(Lost);

writexy(Eggx+4,18,#32);

end;

delay(0);

end;

end;

gotoxy(20,7); write('So diem dat duoc: ',mark);

gotoxy(20,10); write('So trung bi rot: ',lost);

gotoxy(20,13); write('An Shift+Alt de tiep tuc, Ctrl+Alt de thoat');

repeat until specialKey(lshift+alt)

or specialkey(ctrl+alt)

or specialkey(rshift+alt);

until specialkey(Alt+Ctrl);

end.