Pascalda Takvim

uses crt,dos;
const
gun:array[0..6] of string[3]=('Paz','Pts','Sal','€ar','Per','Cum','Cts');
ay1:array[1..12] of string=('Ocak','�ubat','Mart','Nisan','May�s','Haziran',
'Temmuz','A§ustos','Eyl�l','Ekim','Kas�m','Aral�k');
var
c,a,b:integer;
i:word;
tus:char;
yil,un,ay,gun1:word;
procedure m;forward;
procedure renk(x,y:byte);
begin
textcolor(x);textbackground(y);end;
procedure ekran;
begin
renk(1,1);write('L');clrscr;
cerceve('t',20,9,55,17,15,5);i:=9;repeat i:=i+1;
gotoxy(21,i);write(' ');until i=16;
gotoxy(21,10);renk(14,5);
write('Pzt Sal €ar Per Cum Cts Paz ');
renk(15,4);gotoxy(20,18);
write(' ESC -> €�k�Ÿ F1-> Yenile ');
end;
procedure m;
var
g2,y,a2:word;
begin
getdate(yil,ay,un,gun1);
y:=yil;a2:=ay;g2:=un;
renk(14,1);gotoxy(70,1);write(g2,'/',a2,'/',y,' ');
renk(11,1);write('�L');
clrscr;
renk(15,4);
gotoxy(10,10);writeln(' ˜stedi§iniz Y�l� Girin : ');
renk(15,1);
gotoxy(37,10);readln(yil);renk(15,2);
gotoxy(10,11);writeln(' ˜stedi§iniz Ay� Girin : ');renk(15,1);
gotoxy(37,11);readln(ay); ekran;
renk(15,11);gotoxy(20,;write('-----------------------------------');
renk(14,11);
gotoxy(20,;write(' ',ay1[ay]);renk(10,11);
gotoxy(50,;write(' ',yil,' ');
i:=0;
a:=11;b:=0;c:=0;
repeat
i:=i+1;
setdate(yil,ay,i);
getdate(yil,ay,un,gun1);
if (ay=2) then begin c:=29;end;
if (ay<>2) then begin c:=31;end;
if b=52 then begin a:=a+1;end;
if (gun1=1) then begin
b:=22;end;
if (gun1=2) then begin
b:=27;end;
if (gun1=3) then begin
b:=32;end;
if (gun1=4) then begin
b:=37;end;
if (gun1=5) then begin
b:=42;end;
if (gun1=6) then begin
b:=47;end;
if (gun1=0) then begin
b:=52;end;
if (yil=y)and(un=g2)and(ay=a2) then begin
renk(14,1);end;
if (yil<>y)or(un<>g2)or(ay<>a2) then begin
renk(15,5);end;
gotoxy(b,a);writeln(un);
until i=c;
setdate(y,a2,g2);
repeat tus:=readkey;until tus in[';','<',#27];
if tus=#27 then begin
renk(14,1);gotoxy(70,1);write(g2,'/',a2,'/',y);
halt;end;
if tus=';' then begin m;end;
end;
begin m;end.