Basit bir üç yaş oyunu

Hepsini Seç

uses crt;label oyunmenusu,c1,c2,c3,c4,c5,c6,c7,c8,c9,b1,b2,b3,b4, b5,b6,

b7,b8,b9,pls,cks2,yenioyun,pks,cikis,bas,orta,oh,c ks,devam,oyun;

var i:integer;tus:char;

procedure sakla; { !! alintidir !! }

assembler;asm mov ax,$0100 ; mov cx,$2607 ; int $10

end;procedure cerceve3(x1,y1,x2,y2:byte;basli:string);

var j:byte;begin textbackground(lightgreen);for i:= x1+1 to x2-1 do

begin gotoxy(i,y1);write(chr(205));end;for i:= x1+1 to x2-1 do

begin gotoxy(i,y2);write(chr(205));end;for i:= y1+1 to y2-1 do

begin gotoxy(x1,i);write(chr(186));end;for i:= y1+1 to y2-1 do

begin gotoxy(x2,i);write(chr(186));end;gotoxy(x1,y1);wri te(chr(201));

gotoxy(x2,y1);write(chr(187));gotoxy(x1,y2);write( chr(200));gotoxy(x2,y2);

write(chr(188));begin For i:=x1+1 to x2-1 do begin j:=y1;repeat j:=j+1;

gotoxy(i,j);write(' ');until j=y2-1;end;gotoxy(x1+2,y1);write(basli);

begin for i:=y1+1 to y2+1 do begin textcolor(black);textbackground(black);

gotoxy(x2+1,i);write(chr(176));textcolor(white);te xtbackground(blue);end;

begin for i:=x1+1 to x2+1 do begin textcolor(black);textbackground(black);

gotoxy(i,y2+1);write(chr(176));end;begin gotoxy(27,20);textcolor(white);

textbackground(lightgreen);write(' Ana Menu ');gotoxy(47,20);textcolor(white);

textbackground(8);write(' Cikis ');end;end;end;end;end;procedure taslak;

begin sakla;for i:=1 to 250 do begin lowvideo;textbackground(lightgray);

textcolor(red);gotoxy(i,1);write(' ');end;textcolor(red);

gotoxy(13,2);writeln('Bilgisayar Teknolojileri Ve Programlama / NAZIM DEMiR');

gotoxy(29,4);write('demirnazim@hotmail.com');textc olor(white);end;

procedure cerceve2(x1,x2,y1,y2:byte; baslik:string);begin textbackground(lightgreen);

for i:= x1+1 to x2-1 do begin gotoxy(i,y1);write(chr(205));

end;for i:= x1+1 to x2-1 do begin gotoxy(i,y2);

write(chr(205));end;for i:= y1+1 to y2-1 do begin gotoxy(x1,i);

write(chr(186));end;for i:= y1+1 to y2-1 do begin gotoxy(x2,i);

write(chr(186));end;gotoxy(x1,y1);write(chr(201)); gotoxy(x2,y1);

write(chr(187));gotoxy(x1,y2);write(chr(200));goto xy(x2,y2);

write(chr(188));end;procedure a1;begin repeat textcolor(11);textbackground(lightgray);

for i:=8 to 15 do begin gotoxy(25,i);write(chr(179));end;tus:=readkey;

if tus=#27 then halt;until 5=6;end;procedure sil;begin for i:=9 to 10 do

begin textbackground(lightgray);gotoxy(24,i);write(' ');

end;for i:=9 to 10 do begin textbackground(lightgray);gotoxy(38,i);write(' ');

end;for i:=9 to 10 do begin textbackground(lightgray);gotoxy(52,i);write(' ');

end;for i:=10 to 11 do begin textbackground(lightgray);gotoxy(24,i);write(' ');

end;for i:=13 to 14 do begin textbackground(lightgray);gotoxy(24,i);write(' ');

end;for i:=13 to 14 do begin textbackground(lightgray);gotoxy(38,i);write(' ');

end;for i:=13 to 14 do begin textbackground(lightgray);gotoxy(52,i);write(' ');

end;for i:=18 to 19 do begin textbackground(lightgray);gotoxy(24,i);write(' ');

end;for i:=18 to 19 do begin textbackground(lightgray);gotoxy(38,i);write(' ');

end;for i:=18 to 19 do begin textbackground(lightgray);gotoxy(53,i);write(' ');

end;end;procedure cerceve(x1,y1,x2,y2:byte;baslik:string);

var i,j:byte;begin textbackground(lightgreen);

for i:= x1+1 to x2-1 do begin gotoxy(i,y1);write(chr(205));end;

for i:= x1+1 to x2-1 do begin gotoxy(i,y2);write(chr(205));end;

for i:= y1+1 to y2-1 do begin gotoxy(x1,i);write(chr(186));end;

for i:= y1+1 to y2-1 do begin gotoxy(x2,i);write(chr(186));end;

gotoxy(x1,y1);write(chr(201));gotoxy(x2,y1);write( chr(187));gotoxy(x1,y2);

write(chr(200));gotoxy(x2,y2);write(chr(188));begi n For i:=x1+1 to x2-1 do

begin j:=y1;repeat j:=j+1;gotoxy(i,j);write(' ');until j=y2-1;end;

gotoxy(x1+2,y1);write(baslik);begin for i:=y1+1 to y2+1 do

begin textcolor(black);textbackground(black);gotoxy(x2+1 ,i);write(chr(176));

textcolor(white);textbackground(blue);end;begin for i:=x1+1 to x2+1 do begin

textcolor(black);textbackground(black);gotoxy(i,y2 +1);write(chr(176));end;

begin textcolor(white);textbackground(lightgreen);gotoxy (30,7);

write(' UC TAS OYUNU 1.0 ');gotoxy(33,13);textcolor(white);textbackground(8 );

write(' Oyuna Giris ');textcolor(white);textbackground(lightgreen);got oxy(33,15);

write(' Oyun Hakkinda ');textcolor(white);textbackground(lightgreen);got oxy(36,17);

write(' Cikis ');end;end;end;end;end;begin repeat devam:sakla;clrscr;for i:=1 to 500 do

begin lowvideo;textbackground(lightgray);textcolor(blue) ;gotoxy(i,1);

write(' ');write(' ');end;textcolor(red);gotoxy(13,2);

writeln('Bilgisayar Teknolojileri Ve Programlama / NAZIM DEMiR');

gotoxy(29,4);write('demirnazim@hotmail.com');textc olor(white);cerceve2(29,50,6,8,'');

cerceve(20,10,60,20,' ANA MENU ');goto bas;until 7=9;bas:sakla;repeat begin;textcolor(white);

textbackground(lightgreen);gotoxy(30,7);write(' UC TAS OYUNU 1.0 ');

gotoxy(33,13);textcolor(white);textbackground(8);w rite(' Oyuna Giris ');

textcolor(white);textbackground(lightgreen);gotoxy (33,15);write(' Oyun Hakkinda ');

textcolor(white);textbackground(lightgreen);gotoxy (36,17);write(' Cikis ');

tus:=readkey;if tus=chr(13) then goto oyun;if tus=chr(80) then goto orta;

if tus=#27 then halt;if tus=chr(72) then goto cikis;end;until 3=10;cikis:

repeat begin textcolor(white);textbackground(lightgreen);gotoxy (30,7);

write(' UC TAS OYUNU 1.0 ');gotoxy(33,13);textcolor(white);textbackground(l ightgreen);

write(' Oyuna Giris ');textcolor(white);textbackground(lightgreen);got oxy(33,15);

write(' Oyun Hakkinda ');textcolor(white);textbackground(8);gotoxy(36,17 );

write(' Cikis ');tus:=readkey;if tus=chr(13) then exit;if tus=chr(80) then goto bas;

if tus=#27 then halt;if tus=chr(72) then goto orta;end;until 7=10;oh:begin

for i:=1 to 600 do begin lowvideo;textbackground(lightgray);textcolor(red);

gotoxy(i,1);write(' ');write(' ');textcolor(red);

end;textcolor(red);gotoxy(13,2);

writeln('Bilgisayar Teknolojileri Ve Programlama / NAZIM DEMiR');

gotoxy(29,4);write('demirnazim@hotmail.com');textc olor(white);cerceve3(14,7,65,22,' OYUN HAKKINDA ');

begin repeat;textcolor(red);textbackground(lightgreen);g otoxy(32,10);

write('Oyunun Kurallari');textcolor(white);gotoxy(20,12);write(' 1. Oyuncu yon tuslari ile oynayabilir.');

textcolor(red);gotoxy(16,12);write('1)');gotoxy(16 ,14);write('2)');textcolor(whi te);

write(' 2. oyuncu yon tuslari ile oynayabilir.');gotoxy(16,16);textcolor(red);

write('3)');textcolor(white);writeln(' <x>ler yada <o>lar dikey , yatay veya capraz');

gotoxy(20,17);write('oldugunda oyunu <x> yada <o> galip bitirir.');

textbackground(lightgreen);gotoxy(16,21);write('No t:Yon tuslari sag= d sol= a yukari= w asagi= s');

gotoxy(27,20);textcolor(white);textbackground(blac k);write(' Ana Menu ');

gotoxy(47,20);textcolor(white);textbackground(ligh tgreen);write(' Cikis ');

tus:=readkey;if tus=#27 then halt;if tus=chr(13) then goto devam;if tus=chr(77) then goto cks;

if tus=chr(75) then goto cks;until 5=3;end;end;pks:begin repeat;

textcolor(red);textbackground(lightgreen);gotoxy(3 2,10);

write('Oyunun Kurallari');textcolor(white);gotoxy(20,12);

write('1. Oyuncu yon tuslari ile oynayabilir.');textcolor(red);gotoxy(16,12);

write('1)');gotoxy(16,14);write('2)');textcolor(wh ite);write(' 2. oyuncu yon tuslari ile oynayabilir.');

gotoxy(16,16);textcolor(red);write('3)');textcolor (white);writeln(' <x>ler yada <o>lar dikey , yatay veya capraz');

gotoxy(20,17);write('oldugunda oyunu <x> yada <o> galip bitirir.');

textbackground(lightgreen);gotoxy(16,21);write('No t:Yon tuslari sag= d sol= a yukari= w asagi= s');

gotoxy(27,20);textcolor(white);textbackground(8);w rite(' Ana Menu ');gotoxy(47,20);

textcolor(white);textbackground(lightgreen);write( ' Cikis ');tus:=readkey;

if tus=#27 then exit;if tus=chr(13) then goto devam;if tus=chr(77) then goto cks;

until 1=0;end;cks:begin repeat;textcolor(red);textbackground(lightgreen);g otoxy(32,10);

write('Oyunun Kurallari');textcolor(white);gotoxy(20,12);

write('1. Oyuncu yon tuslari ile oynayabilir.');textcolor(red);gotoxy(16,12);

write('1)');gotoxy(16,14);write('2)');textcolor(wh ite);write(' 2. oyuncu yon tuslari ile oynayabilir.');

gotoxy(16,16);textcolor(red);write('3)');textcolor (white);

writeln(' <x>ler yada <o>lar dikey , yatay veya capraz');gotoxy(20,17);

write('oldugunda oyunu <x> yada <o> galip bitirir.');gotoxy(27,20);textcolor(white);

textbackground(lightgreen);write(' Ana Menu ');gotoxy(47,20);textcolor(white);

textbackground(8);write(' Cikis ');tus:=readkey;if tus=#27 then halt;

if tus=chr(13) then halt;if tus=chr(75) then goto pks;until 7=8;end;oyun:

repeat begin for i:=1 to 600 do begin lowvideo;textbackground(lightgray);textcolor(red);

gotoxy(i,1);write(' ');write(' ');textcolor(red);

end;textcolor(white);textbackground(lightgreen);go toxy(35,6);write('UC TAS 1.0');

textcolor(white);textbackground(8);gotoxy(16,23);w rite(' Ana Menu ');gotoxy(35,23);

textbackground(white);write(' Yeni Oyun ');gotoxy(56,23);write(' Cikis ');

gotoxy(27,25);textcolor(red);write('baslamak icin F2 tuslayin...');

textbackground(lightgray);textcolor(red);gotoxy(13 ,2);

writeln('Bilgisayar Teknolojileri Ve Programlama / NAZIM DEMiR');

gotoxy(29,4);write('demirnazim@hotmail.com');textc olor(white);gotoxy(4,6);

textcolor(white);textbackground(lightgreen);write( ' 1. Oyuncu ');textbackground(white);

gotoxy(4,8);write(' 2. Oyuncu ');goto pls;pls:textcolor(white);textbackground(lightgray) ;

for i:=20 to 59 do begin gotoxy(i,12);write(chr(196));end;for i:=20 to 59 do

begin gotoxy(i,16);write(chr(196));end;for i:=8 to 20 do begin gotoxy(32,i);

write(chr(179));end;for i:=8 to 20 do begin gotoxy(47,i);write(chr(179));end;

goto oyunmenusu;end;until 0<>0;yenioyun:repeat begin textcolor(white);textbackground(lightgray);

gotoxy(16,23);write(' Ana Menu ');gotoxy(35,23);textbackground(8);write(' Yeni Oyun ');

gotoxy(56,23);textbackground(lightgray);write(' Cikis ');tus:=readkey;

if tus=#27 then halt;if tus=chr(75) then goto oyunmenusu;if tus=chr(77) then goto cks2;

if tus=chr(13) then goto oyun;end;until 4=47;oyunmenusu:repeat begin

textcolor(white);textbackground(8);gotoxy(16,23);w rite(' Ana Menu ');gotoxy(35,23);

textbackground(lightgray);write(' Yeni Oyun ');gotoxy(56,23);textbackground(lightgray);

write(' Cikis ');tus:=readkey;if tus=#27 then halt;if tus=chr(77) then goto yenioyun;

if tus=chr(13) then goto devam;if tus=chr(60) then goto b1;end;until 8=18;

b1:begin repeat sil;for i:=9 to 10 do begin textbackground(lightgreen);

gotoxy(24,i);write(' ');end;tus:=readkey;if tus=#27 then halt;

if tus='d' then goto b2;if tus='s' then goto b4;if tus=chr(13) then goto devam;

if tus=chr(32) then begin gotoxy(4,6);textbackground(lightgray);textcolor(wh ite);

write(' 1. Oyuncu ');gotoxy(4,8);textbackground(lightgreen);write(' 2. Oyuncu ');

gotoxy(23,10);textbackground(lightgray);textcolor( white);write('X');goto c1;

end;until 75=48;end;b2:begin repeat sil;for i:=9 to 10 do begin textbackground(lightgreen);

gotoxy(38,i);write(' ');end;tus:=readkey;if tus=#27 then halt;

if tus='d' then goto b3;if tus='a' then goto b1;if tus='s' then goto b5;

if tus=chr(13) then goto devam;if tus=chr(32) then begin gotoxy(4,6);

textbackground(lightgray);textcolor(white);write(' 1. Oyuncu ');gotoxy(4,8);

textbackground(lightgreen);write(' 2. Oyuncu ');gotoxy(37,10);textbackground(lightgray);

textcolor(white);write('X');goto c2;end;until 75=48;end;b3:begin repeat sil;

for i:=9 to 10 do begin textbackground(lightgreen);gotoxy(52,i);write(' ');

end;tus:=readkey;if tus='a' then goto b2;if tus='s' then goto b6;

if tus=#27 then halt;if tus=chr(13) then goto devam;if tus=chr(32) then

begin gotoxy(4,6);textbackground(lightgray);textcolor(wh ite);write(' 1. Oyuncu ');

gotoxy(4,8);textbackground(lightgreen);write(' 2. Oyuncu ');gotoxy(51,10);

textbackground(lightgray);textcolor(white);write(' X');goto c3;end;until 75=48;

end;b4:begin repeat sil;for i:=13 to 14 do begin textbackground(lightgreen);

gotoxy(24,i);write(' ');end;tus:=readkey;if tus='w' then goto b1;

if tus='d' then goto b5;if tus='s' then goto b7;if tus=#27 then halt;

if tus=chr(13) then goto devam;if tus=chr(32) then begin gotoxy(4,6);

textbackground(lightgray);textcolor(white);write(' 1. Oyuncu ');gotoxy(4,8);

textbackground(lightgreen);write(' 2. Oyuncu ');gotoxy(23,14);textbackground(lightgray);

textcolor(white);write('X');goto c4;end;until 75=48;end;b5:begin repeat sil;

for i:=13 to 14 do begin textbackground(lightgreen);gotoxy(38,i);write(' ');

end;tus:=readkey;if tus='w' then goto b2;if tus='a' then goto b4;

if tus='d' then goto b6;if tus='s' then goto b8;if tus=#27 then halt;

if tus=chr(13) then goto devam;begin gotoxy(4,6);textbackground(lightgray);

textcolor(white);write(' 1. Oyuncu ');gotoxy(4,8);textbackground(lightgreen);

write(' 2. Oyuncu ');gotoxy(37,14);textbackground(lightgray);textcol or(white);

write('X');goto c5;end;until 75=48;end;b6:begin repeat sil;for i:=13 to 14 do

begin textbackground(lightgreen);gotoxy(52,i);write(' ');end;tus:=readkey;

if tus='w' then goto b3;if tus='a' then goto b5;if tus='s' then goto b9;

if tus=#27 then halt;if tus=chr(13) then goto devam;begin gotoxy(4,6);

textbackground(lightgray);textcolor(white);write(' 1. Oyuncu ');gotoxy(4,8);

textbackground(lightgreen);write(' 2. Oyuncu ');gotoxy(51,14);textbackground(lightgray);

textcolor(white);write('X');goto c6;end;until 75=48;end;b7:begin repeat sil;

for i:=18 to 19 do begin textbackground(lightgreen);gotoxy(24,i);write(' ');

end;tus:=readkey;if tus='w' then goto b4;if tus='d' then goto b8;if tus=#27 then halt;

if tus=chr(13) then goto devam;begin gotoxy(4,6);textbackground(lightgray);

textcolor(white);write(' 1. Oyuncu ');gotoxy(4,8);textbackground(lightgreen);

write(' 2. Oyuncu ');gotoxy(23,19);textbackground(lightgray);textcol or(white);

write('X');goto c7;end;until 75=48;end;b8:begin repeat sil;for i:=18 to 19 do

begin textbackground(lightgreen);gotoxy(38,i);write(' ');end;tus:=readkey;

if tus='w' then goto b5;if tus='a' then goto b7;if tus='d' then goto b9;

if tus=#27 then halt;if tus=chr(13) then goto devam;begin gotoxy(4,6);

textbackground(lightgray);textcolor(white);write(' 1. Oyuncu ');gotoxy(4,8);

textbackground(lightgreen);write(' 2. Oyuncu ');gotoxy(37,19);textbackground(lightgray);

textcolor(white);write('X');goto c8;end;until 75=48;end;b9:begin repeat sil;

for i:=18 to 19 do begin textbackground(lightgreen);gotoxy(53,i);write(' ');

end;tus:=readkey;if tus='w' then goto b6;if tus='a' then goto b8;if tus=#27 then halt;

if tus=chr(13) then goto devam;if tus=chr(32) then begin gotoxy(4,6);textbackground(lightgray);

textcolor(white);write(' 1. Oyuncu ');gotoxy(4,8);textbackground(lightgreen);write(' 2. Oyuncu ');

gotoxy(52,19);textbackground(lightgray);textcolor( white);write('X');goto c9;

end;until 75=48;end;c1:begin repeat sil;for i:=9 to 10 do begin textbackground(lightgreen);

gotoxy(24,i);write(' ');end;tus:=readkey;if tus=#27 then halt;if tus='d' then goto c2;

if tus='s' then goto c4;if tus=chr(13) then goto devam;if tus=chr(32) then begin

gotoxy(4,6);textbackground(lightgreen);textcolor(w hite);write(' 1. Oyuncu ');

gotoxy(4,8);textbackground(lightgray);write(' 2. Oyuncu ');gotoxy(23,10);

textbackground(lightgray);textcolor(white);write(' O');goto b1;end;until 75=48;end;

c2:begin repeat sil;for i:=9 to 10 do begin textbackground(lightgreen);

gotoxy(38,i);write(' ');end;tus:=readkey;if tus=#27 then halt;if tus='d' then goto c3;

if tus='a' then goto c1;if tus='s' then goto c5;if tus=chr(13) then goto devam;

if tus=chr(32) then begin gotoxy(4,6);textbackground(lightgreen);textcolor(w hite);

write(' 1. Oyuncu ');gotoxy(4,8);textbackground(lightgray);write(' 2. Oyuncu ');

gotoxy(37,10);textbackground(lightgray);textcolor( white);write('O');goto b2;

end;until 75=48;end;c3:begin repeat sil;for i:=9 to 10 do begin

textbackground(lightgreen);gotoxy(52,i);write(' ');end;tus:=readkey;

if tus='a' then goto c2;if tus='s' then goto c6;if tus=#27 then halt;

if tus=chr(13) then goto devam;if tus=chr(32) then begin gotoxy(4,6);

textbackground(lightgreen);textcolor(white);write( ' 1. Oyuncu ');gotoxy(4,8);

textbackground(lightgray);write(' 2. Oyuncu ');gotoxy(51,10);textbackground(lightgray);

textcolor(white);write('O');goto b3;end;until 75=48;end;c4:begin repeat sil;

for i:=13 to 14 do begin textbackground(lightgreen);gotoxy(24,i);write(' ');

end;tus:=readkey;if tus='w' then goto c1;if tus='d' then goto c5;if tus='s' then goto c7;

if tus=#27 then halt;if tus=chr(13) then goto devam;if tus=chr(32) then begin

gotoxy(4,6);textbackground(lightgreen);textcolor(w hite);write(' 1. Oyuncu ');

gotoxy(4,8);textbackground(lightgray);write(' 2. Oyuncu ');gotoxy(23,14);

textbackground(lightgray);textcolor(white);write(' O');goto b4;end;until 75=48;

end;c5:begin repeat sil;for i:=13 to 14 do begin textbackground(lightgreen);

gotoxy(38,i);write(' ');end;tus:=readkey;if tus='w' then goto c2;

if tus='a' then goto c4;if tus='d' then goto c6;if tus='s' then goto c8;

if tus=#27 then halt;if tus=chr(13) then goto devam;begin gotoxy(4,6);

textbackground(lightgreen);textcolor(white);write( ' 1. Oyuncu ');gotoxy(4,8);

textbackground(lightgray);write(' 2. Oyuncu ');gotoxy(37,14);textbackground(lightgray);

textcolor(white);write('O');goto b5;end;until 75=48;end;c6:begin repeat sil;

for i:=13 to 14 do begin textbackground(lightgreen);gotoxy(52,i);write(' ');

end;tus:=readkey;if tus='w' then goto c3;if tus='a' then goto c5;if tus='s' then goto c9;

if tus=#27 then halt;if tus=chr(13) then goto devam;begin gotoxy(4,6);textbackground(lightgreen);

textcolor(white);write(' 1. Oyuncu ');gotoxy(4,8);textbackground(lightgray);

write(' 2. Oyuncu ');gotoxy(51,14);textbackground(lightgray);textcol or(white);

write('O');goto b6;end;until 75=48;end;c7:begin repeat sil;for i:=18 to 19 do

begin textbackground(lightgreen);gotoxy(24,i);write(' ');end;tus:=readkey;

if tus='w' then goto c4;if tus='d' then goto c8;if tus=#27 then halt;

if tus=chr(13) then goto devam;begin gotoxy(4,6);textbackground(lightgreen);

textcolor(white);write(' 1. Oyuncu ');gotoxy(4,8);textbackground(lightgray);

write(' 2. Oyuncu ');gotoxy(23,19);textbackground(lightgray);textcol or(white);

write('O');goto b7;end;until 75=48;end;c8:begin repeat sil;for i:=18 to 19 do

begin textbackground(lightgreen);gotoxy(38,i);write(' ');end;tus:=readkey;

if tus='w' then goto c5;if tus='a' then goto c7;if tus='d' then goto c9;

if tus=#27 then halt;if tus=chr(13) then goto devam;begin gotoxy(4,6);

textbackground(lightgreen);textcolor(white);write( ' 1. Oyuncu ');gotoxy(4,8);

textbackground(lightgray);write(' 2. Oyuncu ');gotoxy(37,19);textbackground(lightgray);

textcolor(white);write('O');goto b8;end;until 75=48;end;c9:begin repeat sil;

for i:=18 to 19 do begin textbackground(lightgreen);gotoxy(53,i);write(' ');

end;tus:=readkey;if tus='w' then goto c6;if tus='a' then goto c8;if tus=#27 then halt;

if tus=chr(13) then goto devam;if tus=chr(32) then begin gotoxy(4,6);textbackground(lightgreen);

textcolor(white);write(' 1. Oyuncu ');gotoxy(4,8);textbackground(lightgray);

write(' 2. Oyuncu ');gotoxy(52,19);textbackground(lightgray);textcol or(white);

write('O');goto b9;end;until 75=48;end;cks2:repeat begin textcolor(white);textbackground(lightgray);

gotoxy(16,23);write(' Ana Menu ');gotoxy(35,23);textbackground(lightgray);

write(' Yeni Oyun ');gotoxy(56,23);textbackground(8);write(' Cikis ');tus:=readkey;

if tus=#27 then halt;if tus=chr(75) then goto yenioyun;if tus=chr(13) then halt;

end;until 4=47;orta:repeat begin textcolor(white);textbackground(lightgreen);gotoxy (30,7);

write(' UC TAS OYUNU 1.0 ');gotoxy(33,13);textcolor(white);textbackground(l ightgreen);

write(' Oyuna Giris ');textcolor(white);textbackground(8);gotoxy(33,15 );

write(' Oyun Hakkinda ');textcolor(white);textbackground(lightgreen);got oxy(36,17);

write(' Cikis ');tus:=readkey;if tus=#27 then halt;if tus=chr(80) then goto cikis;

if tus=chr(72) then goto bas;if tus=chr(13) then goto oh;end;until 8=21;end.

ŞEBNEM FERAH

The Fans Of METALLICA


_Ka†a†onia_