uses crt,dos,printer;
Type
kayit=record
tarih,tc,telno,adres,koy,ilce,il,din,yer,baba,ana,ad,soyad:string[250];
kayitno,gun,ay,yil,saat1,dakika:integer;
medeni,f:char;
end;
var
muhtar:File of kayit;
kay:kayit;
saat11,dakika,saniye,salise,gun11,ay11,yil11,gn:word;
ara,ab,bilo:string;
klam,klama,ss,tc1,kl,tt,aa,ja,s,x,sa,j,a,i:integer;
bolum:string[20];
aaa,kla,dda,cevap,ceva,dd,cev,yy,tus,sec:char;
soyad,ad:string[30];
bulundu:boolean;
procedure menu; forward;
procedure yardim;
begin
repeat
clrscr;
writeln;
writeln(''''     MUHTARLIK   PROGRAMI'''');
writeln(''''   Muhtarl�k Program�nda;'''');
writeln(''''   Kay�t yapma, bulma, listeleme, silme, d�zeltme ve gerid”n�s�m kutusu'''');
writeln(''''   Gibi fonksiyonlarla kullan�c�lara genis bir kullan�m ag� sunulmaktad�r...'''');
writeln;
writeln(''''   Kay�t'''');
writeln;
write(''''   '''');textcolor(2);write(''''E'''');textcolor(white);writeln('''' kle'''');
writeln;
write(''''   '''');textcolor(2);write(''''B'''');textcolor(white);writeln('''' ul'''');
writeln;
write(''''   '''');textcolor(2);write(''''L'''');textcolor(white);write('''' istele'''');
textcolor(11);
writeln(''''               [Bilal Kaya] - [Okan Dastan] - [Sad�k Kurtlu]'''');
textcolor(white);
writeln;
write(''''   '''');textcolor(2);write(''''D'''');textcolor(white);writeln('''' �zet'''');
writeln;
write(''''   '''');textcolor(2);write(''''S'''');textcolor(white);writeln('''' il'''');
writeln;
write(''''   '''');textcolor(2);write(''''G'''');textcolor(white);writeln('''' eri D”n�s�m Kutusu'''');
writeln;
write(''''   '''');textcolor(4);write(''''ESC'''');textcolor(white);writeln('''' €�k�s'''');
sec:=readkey;
until sec in [''''E'''',''''e'''',''''B'''',''''b'''',''''L'''',''''l'''',''''D'''',''''d'''',''''S'''',''''s'''',''''G'''',''''g'''',#27,''''Q'''',''''q'''',#59];
if (sec=''''E'''') or (sec=''''e'''') then
begin clrscr; writeln(''''   Ekle'''');
writeln(''''Mahalleye yeni tas�nan vatandaslar�n kay�tlar�n�n bir dosyada tutulmas� ve'''');
writeln(''''istediginiz   zaman kay�tlar �zerinde islem yapmay� saglar...'''');
writeln;
writeln(''''Geri d”nmek i‡in bir tusa bas�n...'''');
readkey;yardim;
end else if (sec=''''B'''') or (sec=''''b'''') then
begin
clrscr; writeln(''''   Bul'''');
writeln(''''Arad�g�n�z vatandas�n Ad�n� ve Soyad�n� B�y�k Harf ve K�‡�k Harfe dikkat ederek yazarsan�z,'''');
writeln(''''Arad�g�n�z vatandas�n t�m kimlik bilgilerine ulasabilirsiniz...'''');
writeln;
writeln(''''Geri d”nmek i‡in bir tusa bas�n...'''');
readkey;yardim;
end
else if (sec=''''L'''') or (sec=''''l'''') then
begin
clrscr;
writeln(''''   Listele'''');
writeln(''''Kay�tl� t�m vatandaslar�n Ad�n�, Soyad�n�, Tc Kimlik nosunu ve Baba Ad�n� g”r�nt�leyebilirsiniz...'''');
writeln(''''Space tusuna basarsan�z, sizden kay�t nosunu isteyecektir...'''');
writeln(''''Kay�t nosunu dogru girerseniz vatandas�n t�m kimlik bilgilerine ulasabilirsiniz..'''');
writeln;
writeln(''''Geri d”nmek i‡in bir tusa bas�n...'''');
readkey;
yardim;
end
else if (sec=''''D'''') or (sec=''''d'''') then
begin
clrscr;
writeln(''''   D�zelt'''');
writeln(''''Kay�t edilmis bilgileroe bir yanl�sl�k varsa bu se‡enegi kullanabilirsiniz.'''');
writeln;
writeln(''''Geri d”nmek i‡in bir tusa bas�n...'''');
readkey;
yardim;
end
else if (sec=''''S'''') or (sec=''''s'''') then
begin
clrscr;
writeln(''''   Sil'''');
writeln;
writeln(''''Dosyadaki Silinmesi gereken bilgileri silmek i‡in kullanabilirsiniz...'''');
writeln(''''Buradan Silinen Kay�tlar Tekrar Kurtar�labilmesi i‡in Geri D”n�s�m Kutusunu G”nderilir...'''');
writeln(''''Geri d”nmek i‡in bir tusa bas�n...'''');
readkey;
yardim;
end
else if (sec=''''G'''') or (sec=''''g'''') then
begin
clrscr;
writeln(''''Geri D”n�s�m Kutusu'''');
writeln;
writeln(''''Silinmis Kay�tlar�n tutuldugu b”l�md�r...'''');
writeln(''''Space Tusuna bas�p, kay�t nosunu girerseniz Bilgiler kurtar�l�r ve'''');
writeln(''''Bu bilgiler �zerinde tekrar islemler yapabilirsiniz...'''');
writeln;
writeln(''''Geri d”nmek i‡in bir tusa bas�n...'''');
readkey;
yardim;
end
else if (sec=#27) or (sec=''''Q'''') or (sec=''''q'''') then menu;
end;
procedure saat;
var
saat,dakika,saniye,salise:word;
begin
gettime(saat,dakika,saniye,salise);
write(''''Saat: '''');
write(saat:0);
textcolor(white+blink);
write('''':'''');
textcolor(white);
writeln(dakika:0);
end;
procedure tarih;
const
gunler:array[0..6] of string[9]=
(''''Pazar'''',''''Pazartesi'''',''''Sal�'''',''''€arsamba'''',''''Persembe'''',''''Cuma'''',''''Cumartesi'''');
var
yil,ay,gun,gn:word;
begin
getdate(yil,ay,gun,gn);
textcolor(white);
writeln(''''Tarih: '''',gun:0,''''/'''',ay:0,''''/'''',yil:0,''''   '''',gunler[gn]);
end;
procedure yazici;
begin
writeln(''''Yaz�c�n�n A‡�k olduguna emin olup bir tusa bas�n...'''');
readkey;
clrscr;
write(lst,''''Kayt� No________:'''');
writeln(lst,kay.kayitno);
write(lst,''''Kay�tedilme Tarih_:   '''');
writeln(lst,kay.gun,''''/'''',kay.ay,''''/'''',kay.yil);
write(lst,''''Kay�tedilme Saati_:   '''');
writeln(lst,kay.saat1,'''':'''',kay.dakika);
write(lst,''''Tc Kimlik No__:'''');writeln(lst,kay.tc);
write(lst,''''Soyad_________:'''');writeln(lst,kay.soyad);
write(lst,''''Ad�___________:'''');writeln(lst,kay.ad);
write(lst,''''Baba Ad�______:'''');writeln(lst,kay.baba);
write(lst,''''Ana Ad�_______:'''');writeln(lst,kay.ana);
write(lst,''''Dogum Yeri____:'''');writeln(lst,kay.yer);
write(lst,''''Dogum Tarihi__:'''');writeln(lst,kay.tarih);
write(lst,''''Medeni Hali___:'''');
if (kay.medeni=''''e'''') or (kay.medeni=''''E'''') then
begin
writeln(lst,kay.medeni,''''vli'''');
end
else if (kay.medeni=''''b'''') or (kay.medeni=''''B'''') then
begin
writeln(lst,kay.medeni,''''ekƒr'''');
end;
write(lst,''''Dini__________:'''');writeln(lst,kay.din);
write(lst,''''Adres_________:'''');writeln(lst,kay.adres);
write(lst,''''Ev No_________:'''');writeln(lst,kay.telno);
writeln(lst,''''K�t�g�n Bulundugu'''');
write(lst,''''il____________:'''');writeln(lst,kay.il);
write(lst,''''il‡e__________:'''');writeln(lst,kay.ilce);
write(lst,''''Mahalle/K”y___:'''');writeln(lst,kay.koy);
end;
procedure sekil;
begin
clrscr;
x:=0;
gotoxy(2,2);
tarih;
gotoxy(60,2);
saat;
gotoxy(1,4);
textbackground(blue);
textcolor(11);
write(''''°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°'''');
textcolor(white);
textbackground(black);
gotoxy(35,2);
highvideo;
textbackground(red);textcolor(white);write(''''³'''');write(''''1.Sokak'''');
textcolor(white);writeln(''''³'''');
gotoxy(35,3);
writeln(''''ÀÄÄÄÄÄÄÄÙ'''');
gotoxy(35,1);
writeln(''''ÚÄÄÄÄÄÄÄ¿'''');
textbackground(black);
textcolor(white);
end;
procedure tcbb;
begin
repeat
gotoxy(1,11);
textcolor(white+16);
write(''''Tc Kimlik No______:   '''');textbackground(red);
textcolor(white);
write(kay.tc);
gotoxy(10,40);
writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
gotoxy(10,42);
writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
textbackground(0);
aaa:=readkey;
Until aaa In ['''' '''',''''k'''',''''K''''];
if aaa='''' '''' then
begin
textbackground(0);
gotoxy(10,40);
writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
delay(15000);
textbackground(red);
gotoxy(10,40);
writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
textbackground(0);
gotoxy(22,11);writeln(''''                                 '''');
gotoxy(22,11);readln(kay.tc);
delete(kay.tc,12,100);
gotoxy(1,11);writeln(''''Tc Kimlik No______:   '''',kay.tc);
end
else if (aaa=''''k'''') or (aaa=''''K'''') then
begin
textbackground(0);
gotoxy(10,42);
writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
delay(15000);
textbackground(red);
gotoxy(10,42);
writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
textbackground(0);
gotoxy(1,11);
writeln(''''Tc Kimlik No______:   '''',kay.tc);
end;
end;
procedure soyadbb;
begin
repeat
gotoxy(1,12);
textcolor(white+16);
write(''''Soyad_____________:   '''');textbackground(red);
textcolor(white);
write(kay.soyad);
gotoxy(10,40);
writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
gotoxy(10,42);
writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
textbackground(0);
aaa:=readkey;
Until aaa In ['''' '''',''''k'''',''''K''''];
if aaa='''' '''' then
begin
textbackground(0);
gotoxy(10,40);
writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
delay(15000);
textbackground(red);
gotoxy(10,40);
writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
textbackground(0);
gotoxy(22,12);writeln(''''                                 '''');
  gotoxy(22,12);readln(kay.soyad);delete(kay.soyad,9,100);
  gotoxy(1,12);writeln(''''Soyad_____________:   '''',kay.soyad);
  end
  else if (aaa=''''k'''') or (aaa=''''K'''') then
  begin
  textbackground(0);
  gotoxy(10,42);
  writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
  delay(15000);
  textbackground(red);
  gotoxy(10,42);
  writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
  textbackground(0);
  gotoxy(1,12);
  writeln(''''Soyad_____________:   '''',kay.soyad);
  end;
  end;
procedure adbb;
  begin
  repeat
  gotoxy(1,13);
  textcolor(white+16);
  write(''''Ad�_______________:   '''');textbackground(red);
  textcolor(white);
  write(kay.ad);
  gotoxy(10,40);
  writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
  gotoxy(10,42);
  writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
  textbackground(0);
  aaa:=readkey;
  Until aaa In ['''' '''',''''k'''',''''K''''];
  if aaa='''' '''' then
  begin
  textbackground(0);
  gotoxy(10,40);
  writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
  delay(15000);
  textbackground(red);
  gotoxy(10,40);
  writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
  textbackground(0);
  gotoxy(22,13);writeln(''''                                 '''');
  gotoxy(22,13);readln(kay.ad);delete(kay.ad,10,100);
  gotoxy(1,13);writeln(''''Ad�_______________:   '''',kay.ad);
  end
  else if (aaa=''''k'''') or (aaa=''''K'''') then
  begin
  textbackground(0);
  gotoxy(10,42);
  writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
  delay(15000);
  textbackground(red);
  gotoxy(10,42);
  writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
  textbackground(0);
  gotoxy(1,13);
  writeln(''''Ad�_______________:   '''',kay.ad);
  end;
  end;
procedure bababb;
  begin
  repeat
  gotoxy(1,14);
  textcolor(white+16);
  write(''''Baba Ad�__________:   '''');textbackground(red);
  textcolor(white);
  write(kay.baba);
  gotoxy(10,40);
  writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
  gotoxy(10,42);
  writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
  textbackground(0);
  aaa:=readkey;
  Until aaa In ['''' '''',''''k'''',''''K''''];
  if aaa='''' '''' then
  begin
  textbackground(0);
  gotoxy(10,40);
  writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
  delay(15000);
  textbackground(red);
  gotoxy(10,40);
  writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
  textbackground(0);
  gotoxy(22,14);writeln(''''                                 '''');
  gotoxy(22,14);readln(kay.baba);delete(kay.baba,9,100);
  gotoxy(1,14);writeln(''''Baba Ad�__________:   '''',kay.baba);
  end
  else if (aaa=''''k'''') or (aaa=''''K'''') then
  begin
  textbackground(0);
  gotoxy(10,42);
  writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
  delay(15000);
  textbackground(red);
  gotoxy(10,42);
  writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
  textbackground(0);
  gotoxy(1,14);
  writeln(''''Baba Ad�__________:   '''',kay.baba);
  end;
  end;
procedure anabb;
begin
repeat
gotoxy(1,15);
  textcolor(white+16);
  write(''''Ana Ad�___________:   '''');textbackground(red);
  textcolor(white);
  write(kay.ana);
  gotoxy(10,40);
  writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
  gotoxy(10,42);
  writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
  textbackground(0);
  aaa:=readkey;
  Until aaa In ['''' '''',''''k'''',''''K''''];
  if aaa='''' '''' then
  begin
  textbackground(0);
  gotoxy(10,40);
  writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
  delay(15000);
  textbackground(red);
  gotoxy(10,40);
  writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
  textbackground(0);
  gotoxy(22,15);writeln(''''                                 '''');
  gotoxy(22,15);readln(kay.ana);delete(kay.ana,9,100);
  gotoxy(1,15);writeln(''''Ana Ad�___________:   '''',kay.ana);
  end
  else if (aaa=''''k'''') or (aaa=''''K'''') then
  begin
  textbackground(0);
  gotoxy(10,42);
  writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
  delay(15000);
  textbackground(red);
  gotoxy(10,42);
  writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
  textbackground(0);
  gotoxy(1,15);
  writeln(''''Ana Ad�___________:   '''',kay.ana);
  end;
  end;
procedure yerbb;
begin
repeat
gotoxy(1,16);
  textcolor(white+16);
  write(''''Dogum Yeri________:   '''');textbackground(red);
  textcolor(white);
  write(kay.yer);
  gotoxy(10,40);
  writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
  gotoxy(10,42);
  writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
  textbackground(0);
  aaa:=readkey;
  Until aaa In ['''' '''',''''k'''',''''K''''];
  if aaa='''' '''' then
  begin
  textbackground(0);
  gotoxy(10,40);
  writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
  delay(15000);
  textbackground(red);
  gotoxy(10,40);
  writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
  textbackground(0);
  gotoxy(22,16);writeln(''''                                 '''');
  gotoxy(22,16);readln(kay.yer);delete(kay.yer,11,100);
  gotoxy(1,16);writeln(''''Dogum Yeri________:   '''',kay.yer);
  end
  else if (aaa=''''k'''') or (aaa=''''K'''') then
  begin
  textbackground(0);
  gotoxy(10,42);
  writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
  delay(15000);
  textbackground(red);
  gotoxy(10,42);
  writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
  textbackground(0);
  gotoxy(1,16);
  writeln(''''Dogum Yeri________:   '''',kay.yer);
  end;
  end;
procedure tarihbb;
begin
repeat
gotoxy(1,17);
  textcolor(white+16);
  write(''''Dogum Tarihi______:   '''');textbackground(red);
  textcolor(white);
  write(kay.tarih);
  gotoxy(10,40);
  writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
  gotoxy(10,42);
  writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
  textbackground(0);
  aaa:=readkey;
  Until aaa In ['''' '''',''''k'''',''''K''''];
  if aaa='''' '''' then
  begin
  textbackground(0);
  gotoxy(10,40);
  writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
  delay(15000);
  textbackground(red);
  gotoxy(10,40);
  writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
  textbackground(0);
  gotoxy(22,17);writeln(''''                                 '''');
  gotoxy(22,17);readln(kay.tarih);delete(kay.tarih,11,100);
  gotoxy(1,17);writeln(''''Dogum Tarihi______:   '''',kay.tarih);
  end
  else if (aaa=''''k'''') or (aaa=''''K'''') then
  begin
  textbackground(0);
  gotoxy(10,42);
  writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
  delay(15000);
  textbackground(red);
  gotoxy(10,42);
  writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
  textbackground(0);
  gotoxy(1,17);
  writeln(''''Dogum Tarihi______:   '''',kay.tarih);
  end;
  end;
procedure medenibb;
begin
repeat
gotoxy(1,18);
  textcolor(white+16);
  write(''''Medeni Hali_______:   '''');textbackground(red);
  textcolor(white);
  if kay.medeni=''''b'''' then
  begin
  write(''''Bekƒr'''');
  end
  else
  write(''''Evli'''');
  gotoxy(10,40);
  writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
  gotoxy(10,42);
  writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
  textbackground(0);
  aaa:=readkey;
  Until aaa In ['''' '''',''''k'''',''''K''''];
  if aaa='''' '''' then
  begin
  textbackground(0);
  gotoxy(10,40);
  writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
  delay(15000);
  textbackground(red);
  gotoxy(10,40);
  writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
  textbackground(0);
  gotoxy(22,18);writeln(''''                                 '''');
  gotoxy(22,18);readln(kay.medeni);
  gotoxy(1,18);writeln(''''Medeni Hali_______:   '''',kay.medeni);
  end
  else if (aaa=''''k'''') or (aaa=''''K'''') then
  begin
  textbackground(0);
  gotoxy(10,42);
  writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
  delay(15000);
  textbackground(red);
  gotoxy(10,42);
  writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
  textbackground(0);
  writeln(''''                                         '''');
  gotoxy(1,18);
  textbackground(black);
  writeln(''''Medeni Hali_______:   '''',kay.medeni);
  end;
  end;
procedure dinbb;
begin
repeat
gotoxy(1,19);
  textcolor(white+16);
  write(''''Dini______________:   '''');textbackground(red);
  textcolor(white);
  write(kay.din);
  gotoxy(10,40);
  writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
  gotoxy(10,42);
  writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
  textbackground(0);
  aaa:=readkey;
  Until aaa In ['''' '''',''''k'''',''''K''''];
  if aaa='''' '''' then
  begin
  textbackground(0);
  gotoxy(10,40);
  writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
  delay(15000);
  textbackground(red);
  gotoxy(10,40);
  writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
  textbackground(0);
  gotoxy(22,19);writeln(''''                                 '''');
  gotoxy(22,19);readln(kay.din);delete(kay.din,9,100);
  gotoxy(1,19);writeln(''''Dini______________:   '''',kay.din);
  end
  else if (aaa=''''k'''') or (aaa=''''K'''') then
  begin
  textbackground(0);
  gotoxy(10,42);
  writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
  delay(15000);
  textbackground(red);
  gotoxy(10,42);
  writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
  textbackground(0);
  gotoxy(1,19);
  writeln(''''Dini______________:   '''',kay.din);
  end;
  end;
procedure adresbb;
begin
repeat
gotoxy(1,20);
  textcolor(white+16);
  write(''''Adres_____________:   '''');textbackground(red);
  textcolor(white);
  write(kay.adres);
  gotoxy(10,40);
  writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
  gotoxy(10,42);
  writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
  textbackground(0);
  aaa:=readkey;
  Until aaa In ['''' '''',''''k'''',''''K''''];
  if aaa='''' '''' then
  begin
  textbackground(0);
  gotoxy(10,40);
  writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
  delay(15000);
  textbackground(red);
  gotoxy(10,40);
  writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
  textbackground(0);
  gotoxy(22,20);writeln(''''                                                                 '''');
  gotoxy(22,20);readln(kay.adres);delete(kay.soyad,110,500);
  gotoxy(1,20);writeln(''''Adres_____________:   '''',kay.adres);
  end
  else if (aaa=''''k'''') or (aaa=''''K'''') then
  begin
  textbackground(0);
  gotoxy(10,42);
  writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
  delay(15000);
  textbackground(red);
  gotoxy(10,42);
  writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
  textbackground(0);
  gotoxy(1,20);
  writeln(''''Adres_____________:   '''',kay.adres);
  end;
  end;
procedure telnobb;
begin
repeat
gotoxy(1,21);
  textcolor(white+16);
  write(''''Telefon No________:   '''');textbackground(red);
  textcolor(white);
  write(kay.telno);
  gotoxy(10,40);
  writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
  gotoxy(10,42);
  writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
  textbackground(0);
  aaa:=readkey;
  Until aaa In ['''' '''',''''k'''',''''K''''];
  if aaa='''' '''' then
  begin
  textbackground(0);
  gotoxy(10,40);
  writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
  delay(15000);
  textbackground(red);
  gotoxy(10,40);
  writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
  textbackground(0);
  gotoxy(22,21);writeln(''''                                 '''');
  gotoxy(22,21);readln(kay.telno);delete(kay.telno,12,100);
  gotoxy(1,21);writeln(''''Telefon No________:   '''',kay.telno);
  end
  else if (aaa=''''k'''') or (aaa=''''K'''') then
  begin
  textbackground(0);
  gotoxy(10,42);
  writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
  delay(15000);
  textbackground(red);
  gotoxy(10,42);
  writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
  textbackground(0);
  gotoxy(1,21);
  writeln(''''Telefon No________:   '''',kay.telno);
  writeln(''''K�t�g�n bulundugu'''');
  end;
  end;
procedure ilbb;
begin
repeat
gotoxy(1,22);
  textcolor(white+16);
  write(''''il________________:   '''');textbackground(red);
  textcolor(white);
  write(kay.il);
  gotoxy(10,40);
  writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
  gotoxy(10,42);
  writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
  textbackground(0);
  aaa:=readkey;
  Until aaa In ['''' '''',''''k'''',''''K''''];
  if aaa='''' '''' then
  begin
  textbackground(0);
  gotoxy(10,40);
  writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
  delay(15000);
  textbackground(red);
  gotoxy(10,40);
  writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
  textbackground(0);
  gotoxy(22,22);writeln(''''                                 '''');
  gotoxy(22,22);readln(kay.il);delete(kay.il,9,100);
  gotoxy(1,22);writeln(''''il________________:   '''',kay.il);
  end
  else if (aaa=''''k'''') or (aaa=''''K'''') then
  begin
  textbackground(0);
  gotoxy(10,42);
  writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
  delay(15000);
  textbackground(red);
  gotoxy(10,42);
  writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
  textbackground(0);
  gotoxy(1,22);
  writeln(''''il________________:   '''',kay.il);
  end;
end;
procedure ilcebb;
begin
repeat
gotoxy(1,23);
  textcolor(white+16);
  write(''''il‡e______________:   '''');textbackground(red);
  textcolor(white);
  write(kay.ilce);
  gotoxy(10,40);
  writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
  gotoxy(10,42);
  writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
  textbackground(0);
  aaa:=readkey;
  Until aaa In ['''' '''',''''k'''',''''K''''];
  if aaa='''' '''' then
  begin
  textbackground(0);
  gotoxy(10,40);
  writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
  delay(15000);
  textbackground(red);
  gotoxy(10,40);
  writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
  textbackground(0);
  gotoxy(22,23);writeln(''''                                 '''');
  gotoxy(22,23);readln(kay.ilce);delete(kay.ilce,9,100);
  gotoxy(1,23);writeln(''''il‡e______________:   '''',kay.ilce);
  end
  else if (aaa=''''k'''') or (aaa=''''K'''') then
  begin
  textbackground(0);
  gotoxy(10,42);
  writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
  delay(15000);
  textbackground(red);
  gotoxy(10,42);
  writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
  textbackground(0);
  gotoxy(1,23);
  writeln(''''il‡e______________:   '''',kay.ilce);
  end;
end;
procedure koybb;
begin
repeat
gotoxy(1,24);
  textcolor(white+16);
  write(''''Mahalle/Koy_______:   '''');textbackground(red);
  textcolor(white);
  write(kay.koy);
  gotoxy(22,24);
  textbackground(0);
  aaa:=readkey;
  Until aaa In ['''' '''',''''k'''',''''K''''];
  if aaa='''' '''' then
  begin
  textbackground(0);
  gotoxy(10,40);
  writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
  delay(15000);
  textbackground(red);
  gotoxy(10,40);
  writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
  textbackground(0);
  gotoxy(22,24);writeln(''''                                 '''');
  gotoxy(22,24);readln(kay.koy);delete(kay.koy,9,100);
  gotoxy(1,24);writeln(''''Mahalle/Koy_______:   '''',kay.koy);
  end
  else
  begin
  textbackground(0);
  gotoxy(10,42);
  writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
  delay(15000);
  textbackground(red);
  gotoxy(10,42);
  writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
  textbackground(0);
  gotoxy(1,24);
  writeln(''''Mahalle/Koy_______:   '''',kay.koy);
  close(muhtar);
  end;
end;
procedure sekil1;
begin
gotoxy(2,5+tt);
      writeln(''''³'''');
      gotoxy(9,5+tt);
      writeln(''''³'''');
      gotoxy(11,5+tt);
      writeln(''''³'''');
      gotoxy(22,5+tt);
      writeln(''''³'''');
      gotoxy(25,5+tt);
      writeln(''''³'''');
      gotoxy(35,5+tt);
      writeln(''''³'''');
      gotoxy(38,5+tt);
      writeln(''''³'''');
      gotoxy(50,5+tt);
      writeln(''''³'''');
      gotoxy(51,5+tt);
      writeln(''''³'''');
      gotoxy(59,5+tt);
      writeln(''''³'''');
      gotoxy(60,5+tt);
      writeln(''''³'''');
      gotoxy(68,5+tt);
      writeln(''''³'''');
      gotoxy(70,5+tt);
      writeln(''''³'''');
      gotoxy(77,5+tt);
      writeln(''''³'''');
      end;
procedure sil2;
begin
write(''''Kay�t Nosunu Giriniz:'''');readln(klam);
seek(muhtar,x);reset(muhtar);
for i:=1 to filesize(muhtar) do begin
textbackground(green);read(muhtar,kay);
if (klam=kay.kayitno) and (kay.f=''''*'''') then
begin
    x:=1;
    writeln(''''Silmek i‡in bir tusa bas�n...'''');
    writeln(''''€�kmak i‡in ESC tusuna bas�n...'''');
    aaa:=readkey;
    if aaa=#27 then
    begin
    close(muhtar);
    exit;
    end
    else
    kay.f:=''''s'''';
    gettime(saat11,dakika,saniye,salise);
    getdate(yil11,ay11,gun11,gn);
    kay.saat1:=saat11;
    kay.dakika:=dakika;
    kay.gun:=gun11;
    kay.ay:=ay11;
    kay.yil:=yil11;
    seek(muhtar,I-1);
    write(muhtar,kay);
    writeln(''''Silindi'''');
    readkey;
    close(muhtar);
    menu;
    end;
end;
close(muhtar);
end;
procedure gerial;
begin
write(''''Kay�t Nosunu Giriniz:'''');readln(klam);
seek(muhtar,x);reset(muhtar);
for i:=1 to filesize(muhtar) do begin
textbackground(green);read(muhtar,kay);
if (klam=kay.kayitno) and (kay.f=''''s'''') then
begin
    x:=1;
    writeln(''''Geri almak i‡in bir tusa bas�n...'''');
    writeln(''''€�kmak i‡in ESC tusuna bas�n...'''');
    aaa:=readkey;
    if aaa=#27 then
    begin
    close(muhtar);
    exit;
    end
    else
    kay.f:=''''*'''';
    gettime(saat11,dakika,saniye,salise);
    getdate(yil11,ay11,gun11,gn);
    kay.saat1:=saat11;
    kay.dakika:=dakika;
    kay.gun:=gun11;
    kay.ay:=ay11;
    kay.yil:=yil11;
    seek(muhtar,I-1);
    write(muhtar,kay);
    writeln(''''Geri al�nd�'''');
    readkey;
    close(muhtar);
    menu;
    end;
end;
close(muhtar);
end;
procedure duzelt2;
begin
write(''''Kay�t nosunu giriniz:'''');readln(klam);
if klam=kay.kayitno then
begin
sekil;
gotoxy(21,5);
textbackground(blue);
writeln(''''   D�zeltme   '''');
textbackground(black);
writeln;
seek(muhtar,x);
reset(muhtar);
for i:=1 to filesize(muhtar) do
begin
read(muhtar,kay);
if kay.f=''''*'''' then
begin   writeln;   textbackground(0);
  write(''''Kay�t No__________:   '''');writeln(kay.kayitno);
  tcbb;
  soyadbb;
  adbb;
  bababb;
  anabb;
  yerbb;
  tarihbb;
  medenibb;
  dinbb;
  adresbb;
  telnobb;
  ilbb;
ilcebb;
koybb;
gettime(saat11,dakika,saniye,salise);
    getdate(yil11,ay11,gun11,gn);
    kay.saat1:=saat11;
    kay.dakika:=dakika;
    kay.gun:=gun11;
    kay.ay:=ay11;
    kay.yil:=yil11;
writeln(''''Bilgileri Kay�t etmek i‡in bir tusa bas�n...'''');
writeln(''''€�kmak i‡in ESC ye bas�n...'''');
tus:=readkey;
if tus=#27 then
begin
close(muhtar);
menu;
end
else
begin
reset(muhtar);
seek(muhtar,I-1);
write(muhtar,kay);
writeln(''''Bilgiler kay�t edildi ana men�ye d”nmek i‡in bir tusa bas�n.'''');
readkey;
close(muhtar);
menu;
end;
end;
end;
end
else
begin
writeln(''''B”yle bir kay�t yok...'''');
writeln(''''Ana men�ye d”nmek i‡in bir tusa bas�n...'''');
readkey;
close(muhtar);
menu;
end;
end;
procedure sil3;
begin
x:=1;
    writeln(''''Silmek i‡in bir tusa bas�n...'''');
    writeln(''''€�kmak i‡in ESC tusuna bas�n...'''');
    aaa:=readkey;
    if aaa=#27 then
    begin
    close(muhtar);
    exit;
    end
    else
    begin
    kay.f:=''''s'''';
    gettime(saat11,dakika,saniye,salise);
    getdate(yil11,ay11,gun11,gn);
    kay.saat1:=saat11;
    kay.dakika:=dakika;
    kay.gun:=gun11;
    kay.ay:=ay11;
    kay.yil:=yil11;
    seek(muhtar,I-1);
    write(muhtar,kay);
    writeln(''''Silindi'''');
    readkey;
    close(muhtar);
menu;
end;
end;
procedure duzelt3;
begin
sekil;
gotoxy(26,5);
textbackground(blue);
writeln(''''   D�zeltilecek   '''');
textbackground(black);
writeln;
seek(muhtar,x)   ;
reset(muhtar);
for i:=1 to filesize(muhtar) do
begin
read(muhtar,kay);
if kay.f=''''*'''' then
  begin   writeln;   textbackground(0);
  write(''''Kay�t No__________:   '''');writeln(kay.kayitno);
  tcbb;
  soyadbb;
  adbb;
  bababb;
  anabb;
  yerbb;
  tarihbb;
  medenibb;
  dinbb;
  adresbb;
  telnobb;
  ilbb;
ilcebb;
koybb;
writeln(''''Bilgileri Kay�t etmek i‡in bir tusa bas�n...'''');
writeln(''''€�kmak i‡in ESC ye bas�n...'''');
tus:=readkey;
if tus=#27 then exit
else
begin
gettime(saat11,dakika,saniye,salise);
    getdate(yil11,ay11,gun11,gn);
    kay.saat1:=saat11;
    kay.dakika:=dakika;
    kay.gun:=gun11;
    kay.ay:=ay11;
    kay.yil:=yil11;
reset(muhtar);
seek(muhtar,I-1);
write(muhtar,kay);
writeln(''''Bilgiler kay�t edildi ana men�ye d”nmek i‡in bir tusa bas�n.'''');
readkey;
close(muhtar);
exit;
end;
end;
end;
end;
procedure ekle;
begin
clrscr;
assign(muhtar,''''c:\muhtar.dat'''');
gotoxy(55,5);
reset(muhtar);
kay.kayitno:=filesize(muhtar)+1;
gotoxy(60,7);write(''''kay�t no:'''',Filesize(muhtar)+1);
gotoxy(2,3);tarih;gotoxy(60,3);saat;gotoxy(1,4);
textbackground(blue);textcolor(11);
write(''''°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°'''');
textcolor(white);textbackground(black);
gotoxy(35,2);highvideo;
textbackground(red);textcolor(white);write(''''³'''');write(''''1.Sokak'''');
textcolor(white);writeln(''''³'''');
gotoxy(35,3);
writeln(''''ÀÄÄÄÄÄÄÄÙ'''');
gotoxy(35,1);
writeln(''''ÚÄÄÄÄÄÄÄ¿'''');
textbackground(black);
textcolor(white);
gotoxy(31,5);
textbackground(blue);
writeln(''''     Kay�t Ekle     '''');
textbackground(black);
writeln;
write(''''Tc Kimlik No_______:'''');
textbackground(1);
readln(kay.tc);
delete(kay.tc,12,100);
textbackground(black);
write(''''Soyad______________:'''');textbackground(1);readln(kay.soyad);
delete(kay.soyad,9,100);
if kay.soyad='''''''' then
begin
close(muhtar);
menu;
end
else
textbackground(black);
write(''''Ad�________________:'''');textbackground(1);readln(kay.ad);
delete(kay.ad,8,100);
if kay.ad='''''''' then
begin
close(muhtar);
menu;
end
else
textbackground(black);
write(''''Baba Ad�___________:'''');textbackground(1);readln(kay.baba);textbackground(black);
delete(kay.baba,8,100);
write(''''Ana Ad�____________:'''');textbackground(1);readln(kay.ana);textbackground(black);
delete(kay.ana,8,100);
write(''''Dogum Yeri_________:'''');textbackground(1);readln(kay.yer);textbackground(black);
delete(kay.yer,11,100);
write(''''Dogum Tarihi_______:'''');textbackground(1);readln(kay.tarih);textbackground(black);
delete(kay.tarih,11,100);
write(''''Medeni Hali________:'''');textbackground(red);write(''''"Evli"i‡in[e],"Bekar"i‡inTusunu Bas...'''');textbackground(black);
kay.medeni:=readkey;
if (kay.medeni=''''e'''') or (kay.medeni=''''E'''') then
begin
gotoxy(21,14);
textbackground(1);
write(''''Evli'''');textbackground(black);
writeln(''''                                     '''');
kay.medeni:=''''e'''';
textbackground(black);
end
else if (kay.medeni=''''b'''') or (kay.medeni=''''B'''') then
begin
gotoxy(21,14);
textbackground(1);
write(''''Bekƒr'''');textbackground(black);
writeln(''''                                     '''');
textbackground(black);
kay.medeni:=''''b'''';
end
else
begin
gotoxy(21,14);
textbackground(1);
write(''''Bekƒr'''');textbackground(black);
writeln(''''                                     '''');
textbackground(black);
kay.medeni:=''''b'''';
end;
write(''''Dini_______________:'''');textbackground(1);readln(kay.din);textbackground(black);
delete(kay.din,12,100);
write(''''Adres______________:'''');textbackground(1);readln(kay.adres);textbackground(black);
write(''''Ev No______________:'''');textbackground(1);readln(kay.telno);textbackground(black);
delete(kay.telno,13,100);
writeln(''''K�t�g�n Bulundugu'''');
write(''''il_________________:'''');textbackground(1);readln(kay.il);textbackground(black);
delete(kay.il,15,100);
write(''''il‡e_______________:'''');textbackground(1);readln(kay.ilce);textbackground(black);
delete(kay.ilce,15,100);
write(''''Mahalle/K”y________:'''');textbackground(1);readln(kay.koy);textbackground(black);
delete(kay.koy,15,100);
writeln;
write(''''Bilgileri Kay�t etmek i‡in Bir Tusa Bas�n.iptal i‡in ESC ye bas�n'''');
if readkey<> #27 then
begin
gettime(saat11,dakika,saniye,salise);
getdate(yil11,ay11,gun11,gn);
kay.saat1:=saat11;
kay.dakika:=dakika;
kay.gun:=gun11;
kay.ay:=ay11;
kay.yil:=yil11;
kay.f:=''''*'''';
seek(muhtar,filesize(muhtar));
write(muhtar,kay);
close(muhtar);
menu;
end
else
begin
close(muhtar);
menu;
end;
end;
procedure duzelt;forward;
procedure sil;forward;
procedure bul;
begin
assign(muhtar,''''c:\muhtar.dat'''');
reset(muhtar);j:=ioresult;
if j<>0 then rewrite(muhtar);
sekil;
gotoxy(28,5);
textbackground(blue);
writeln(''''   Aranan Vatandas�n     '''');
textbackground(black);
writeln;
write(''''Ad�_____:'''');textbackground(blue);readln(ad);textbackground(black);
write(''''Soyad�__:'''');textbackground(blue);readln(soyad);textbackground(black);
seek(muhtar,x)   ;
reset(muhtar);
for i:=1 to filesize(muhtar) do
begin
textbackground(green);
read(muhtar,kay);
if (kay.ad=ad) and (kay.soyad=soyad) and (kay.f=''''*'''') then
begin
repeat
  textbackground(0);
  clrscr;
  sekil;
  writeln;
  writeln;
  writeln;
  writeln;
  writeln;
  writeln;
  textbackground(0);
  textcolor(11);write(''''Kay�t No__________:   '''');textcolor(red);writeln(kay.kayitno);
  textbackground(2);
  textcolor(11);write(''''Kay�tedilme Tarih_:   '''');textcolor(red);writeln(kay.gun,''''/'''',kay.ay,''''/'''',kay.yil);textcolor(11);
  textbackground(0);
  write(''''Kay�tedilme Saati_:   '''');textcolor(red);writeln(kay.saat1,'''':'''',kay.dakika);
  textcolor(11);
  textbackground(2);
  write(''''Tc Kimlik No______:   '''');textcolor(red);writeln(kay.tc);textcolor(11);
  textbackground(0);
  write(''''Soyad_____________:   '''');textcolor(red);writeln(kay.soyad);textcolor(11);
  textbackground(2);
  write(''''Ad�_______________:   '''');textcolor(red);writeln(kay.ad);textcolor(11);
  textbackground(0);
  write(''''Baba Ad�__________:   '''');textcolor(red);writeln(kay.baba);textcolor(11);
  textbackground(2);
  write(''''Ana Ad�___________:   '''');textcolor(red);writeln(kay.ana);textcolor(11);
  textbackground(0);
  write(''''Dogum Yeri________:   '''');textcolor(red);writeln(kay.yer);textcolor(11);
  textbackground(2);
  write(''''Dogum Tarihi______:   '''');textcolor(red);writeln(kay.tarih);textcolor(11);
  textbackground(0);
  write(''''Medeni Hali_______:   '''');textcolor(red);
  if (kay.medeni=''''e'''') or (kay.medeni=''''E'''') then
  begin
  writeln(''''Evli'''');
  end
  else if (kay.medeni=''''b'''') or (kay.medeni=''''B'''') then
  begin
    writeln(''''Bekƒr'''');
    end;
    textcolor(11);
    textbackground(0);
    writeln;
    textbackground(2);
    write(''''Dini______________:   '''');textcolor(red);writeln(kay.din);textcolor(11);
    textbackground(0);
    write(''''Adres_____________:   '''');textcolor(red);writeln(kay.adres);textcolor(11);
    textbackground(2);
    write(''''Ev No_____________:   '''');textcolor(red);writeln(kay.telno);textcolor(11);
    textcolor(white);
    writeln;
    textbackground(0);
    writeln(''''K�t�g�n Bulundugu'''');textcolor(11);
    writeln;
    textbackground(2);
    write(''''il________________:   '''');textcolor(red);writeln(kay.il);textcolor(11);
    textbackground(0);
    write(''''il‡e______________:   '''');textcolor(red);writeln(kay.ilce);textcolor(11);
    textbackground(2);
    write(''''Mahalle/K”y_______:   '''');textcolor(red);writeln(kay.koy);textcolor(11);
    textbackground(0);
    x:=1;
    writeln;
    textcolor(white);
    writeln(''''Yazd�rmak i‡in [y] Tusuna bas�n...'''');
    writeln(''''D�zeltmek i‡in [d] Tusuna bas�n...'''');
    writeln(''''Silmek     i‡in Tusuna bas�n...'''');
    writeln(''''Ana men�ye gitmek i‡in ESC tusuna bas�n...'''');
    dd:=readkey;
    until dd in [''''Y'''',''''y'''',''''D'''',''''d'''',''''s'''',''''S'''',#27];
    if (dd=''''y'''') or (dd=''''Y'''') then
    {Yaz�c�n�n Kullan�ld�g� b”l�m...}
    begin
    readkey;
    yazici;
    writeln(''''Ana men�ye d”nmek i‡in bir tusa bas�n..'''');
    readkey;
    close(muhtar);
    menu;
    end
else if dd=#27 then
begin
close(muhtar);
menu;
end
else if (dd=''''d'''') or (dd=''''D'''') then
duzelt3
else if (dd=''''s'''') or (dd=''''S'''') then
sil3;
end;
end;
menu;
end;
procedure listele;
begin
assign(muhtar,''''c:\muhtar.dat'''');
reset (muhtar); I:=IOResult;
repeat
clrscr;
gotoxy(35,2);
highvideo;
textbackground(red);textcolor(white);write(''''³'''');write(''''1.Sokak'''');
textcolor(white);writeln(''''³'''');
gotoxy(35,3);
writeln(''''ÀÄÄÄÄÄÄÄÙ'''');
gotoxy(35,1);
writeln(''''ÚÄÄÄÄÄÄÄ¿'''');
textbackground(black);
gotoxy(2,4);textbackground(2);write(''''Kay�t No'''');textbackground(7);
write('''' '''');textbackground(2);write(''''Kay�t Tarihi'''');textbackground(7);
write(''''   '''');textbackground(2);write(''''Kay�t Saati'''');textbackground(7);write(''''   '''');
textbackground(2);write(''''Tc Kimlik No'''');textbackground(7);
write(''''     '''');textbackground(2);write(''''Ad�'''');textbackground(7);write(''''     '''');
textbackground(2);write(''''Soyad�'''');textbackground(7);write(''''   '''');textbackground(2);
write(''''Baba Ad� '''');
textbackground(black);
gotoxy(2,2);
tarih;
gotoxy(45,2);
saat;
for tt:=1 to filesize(muhtar)+10 do
begin
gotoxy(2,5+tt);
writeln(''''³'''');
gotoxy(9,5+tt);
writeln(''''³'''');
gotoxy(11,5+tt);
writeln(''''³'''');
gotoxy(22,5+tt);
writeln(''''³'''');
gotoxy(25,5+tt);
writeln(''''³'''');
gotoxy(35,5+tt);
writeln(''''³'''');
gotoxy(38,5+tt);
writeln(''''³'''');
gotoxy(50,5+tt);
writeln(''''³'''');
gotoxy(51,5+tt);
writeln(''''³'''');
gotoxy(59,5+tt);
writeln(''''³'''');
gotoxy(60,5+tt);
writeln(''''³'''');
gotoxy(68,5+tt);
writeln(''''³'''');
gotoxy(70,5+tt);
writeln(''''³'''');
gotoxy(80,5+tt);
writeln(''''³'''');
end;
s:=5;
for i:=0 to filesize(muhtar)-1 do
begin
seek(muhtar,i);read(muhtar,kay);
if kay.f=''''*'''' then
begin
s:=s+2;
textbackground(red);
gotoxy(5,s);write(kay.kayitno);
gotoxy(13,s);write(kay.gun,''''/'''',kay.ay,''''/'''',kay.yil);
gotoxy(28,s);write(kay.saat1,'''':'''',kay.dakika);
gotoxy(39,s);write(kay.tc);
gotoxy(52,s);write(kay.ad);
gotoxy(61,s);write(kay.soyad);
gotoxy(72,s);write(kay.baba);
textbackground(0);
end;
if s>21 then
begin
gotoxy(20,50);
write(''''* DIGER SAYFAYA GE€MEK I€IN BIR TUSA BASINIZ !...'''');
tus:=readkey;
s:=0;
clrscr;
end;
end;
gotoxy(23,23);writeln(''''LISTELENECEK KAYITLAR BITTI !...'''');
gotoxy(1,25);
writeln(''''Bilgileri G”r�nt�lemek i‡in [Space] tusuna bas�n..'''');
writeln(''''D�zeltmek i‡in [d] tusuna bas�n...'''');
writeln(''''Silmek     i‡in tusuna bas�n...'''');
writeln(''''Ana Men�ye d”nmek i‡in [ESC] tusuna bas�n...'''');
kla:=readkey;
until kla in ['''' '''',''''d'''',''''D'''',''''s'''',''''S'''',#27];
if kla='''' '''' then
begin
write(''''Bilgilerini Almak istediginiz Vatandas�n Kay�t Nosunu giriniz:'''');
readln(kl);
sekil;
gotoxy(30,5);
textbackground(blue);
writeln(''''     Vatandas�n     '''');
textbackground(black);
writeln;
gotoxy(55,6);
seek(muhtar,x)   ;
reset(muhtar);
for i:=1 to filesize(muhtar) do
begin
textbackground(green);
read(muhtar,kay);
if (kl=kay.kayitno) and (kay.f=''''*'''') then
  begin
  writeln;
  textbackground(0);
  textcolor(11);write(''''Kay�t No__________:   '''');textcolor(red);writeln(kay.kayitno);
  textbackground(2);
  textcolor(11);write(''''Kay�tedilme Tarih_:   '''');textcolor(red);writeln(kay.gun,''''/'''',kay.ay,''''/'''',kay.yil);textcolor(11);
  textbackground(0);
  write(''''Kay�tedilme Saati_:   '''');textcolor(red);writeln(kay.saat1,'''':'''',kay.dakika);
  textcolor(11);
  textbackground(2);
  write(''''Tc Kimlik No______:   '''');textcolor(red);writeln(kay.tc);textcolor(11);
  textbackground(0);
  write(''''Soyad_____________:   '''');textcolor(red);writeln(kay.soyad);textcolor(11);
  textbackground(2);
  write(''''Ad�_______________:   '''');textcolor(red);writeln(kay.ad);textcolor(11);
  textbackground(0);
  write(''''Baba Ad�__________:   '''');textcolor(red);writeln(kay.baba);textcolor(11);
  textbackground(2);
  write(''''Ana Ad�___________:   '''');textcolor(red);writeln(kay.ana);textcolor(11);
  textbackground(0);
  write(''''Dogum Yeri________:   '''');textcolor(red);writeln(kay.yer);textcolor(11);
  textbackground(2);
  write(''''Dogum Tarihi______:   '''');textcolor(red);writeln(kay.tarih);textcolor(11);
  textbackground(0);
  write(''''Medeni Hali_______:   '''');textcolor(red);
  if (kay.medeni=''''e'''') or (kay.medeni=''''E'''') then
  begin
  writeln(''''Evli'''');
  end
  else if (kay.medeni=''''b'''') or (kay.medeni=''''B'''') then
  begin
    writeln(''''Bekƒr'''');
    end;
    textcolor(11);
    textbackground(0);
    writeln;
    textbackground(2);
    write(''''Dini______________:   '''');textcolor(red);writeln(kay.din);textcolor(11);
    textbackground(0);
    write(''''Adres_____________:   '''');textcolor(red);writeln(kay.adres);textcolor(11);
    textbackground(2);
    write(''''Ev No_____________:   '''');textcolor(red);writeln(kay.telno);textcolor(11);
    textcolor(white);
    writeln;
    textbackground(0);
    writeln(''''K�t�g�n Bulundugu'''');textcolor(11);
    writeln;
    textbackground(2);
    write(''''il________________:   '''');textcolor(red);writeln(kay.il);textcolor(11);
    textbackground(0);
    write(''''il‡e______________:   '''');textcolor(red);writeln(kay.ilce);textcolor(11);
    textbackground(2);
    write(''''Mahalle/K”y_______:   '''');textcolor(red);writeln(kay.koy);textcolor(11);
    textbackground(0);
    x:=1;
    writeln;
    textcolor(white);
    writeln(''''Yazd�rmak i‡in [y] Tusuna bas�n...'''');
    writeln(''''Ana men�ye gitmek i‡in ESC tusuna bas�n...'''');
    dd:=readkey;
    if (dd=''''y'''') or (dd=''''Y'''') then
    begin
    yazici;
    writeln(''''Ana men�ye d”nmek i‡in bir tusa bas�n...'''');
    readkey;
    close(muhtar);
    menu;
    end
else if dd=#27 then
begin
close(muhtar);
menu;
end
else
begin
writeln(''''Yazd�rma iptal Edildi...'''');
readkey;
close(muhtar);
menu;
end;
end;
end;
end
else if (kla=''''d'''') or (kla=''''D'''') then
duzelt2
else if (kla=''''s'''') or (kla=''''S'''') then
sil2
else if kla=#27 then
begin
close(muhtar);
menu;
end;
end;
procedure sil;
begin
assign(muhtar,''''c:\muhtar.dat'''');reset(muhtar);j:=ioresult;
if j<>0 then rewrite(muhtar);
sekil;
gotoxy(27,5);
textbackground(blue);
writeln(''''   Silinecek Vatandas�n     '''');
textbackground(black);
writeln;
write(''''Ad�_____:'''');textbackground(blue);readln(ad);textbackground(black);
write(''''Soyad�__:'''');textbackground(blue);readln(soyad);textbackground(black);
seek(muhtar,x)   ;reset(muhtar);
for i:=1 to filesize(muhtar) do begin
textbackground(green);read(muhtar,kay);
if (kay.ad=ad) and (kay.soyad=soyad) and (kay.f=''''*'''') then
begin
writeln;textbackground(0);textcolor(11);write(''''Kay�t No__________:   '''');textcolor(red);writeln(kay.kayitno);
textbackground(2);
textcolor(11);write(''''Kay�tedilme Tarih_:   '''');textcolor(red);writeln(kay.gun,''''/'''',kay.ay,''''/'''',kay.yil);textcolor(11);
textbackground(0);
write(''''Kay�tedilme Saati_:   '''');textcolor(red);writeln(kay.saat1,'''':'''',kay.dakika);
textcolor(11);
textbackground(2);
write(''''Tc Kimlik No______:   '''');textcolor(red);writeln(kay.tc);textcolor(11);
textbackground(0);
write(''''Soyad_____________:   '''');textcolor(red);writeln(kay.soyad);textcolor(11);
textbackground(2);
write(''''Ad�_______________:   '''');textcolor(red);writeln(kay.ad);textcolor(11);
textbackground(0);
write(''''Baba Ad�__________:   '''');textcolor(red);writeln(kay.baba);textcolor(11);
textbackground(2);
write(''''Ana Ad�___________:   '''');textcolor(red);writeln(kay.ana);textcolor(11);
textbackground(0);
write(''''Dogum Yeri________:   '''');textcolor(red);writeln(kay.yer);textcolor(11);
textbackground(2);
write(''''Dogum Tarihi______:   '''');textcolor(red);writeln(kay.tarih);textcolor(11);
textbackground(0);
write(''''Medeni Hali_______:   '''');textcolor(red);
if (kay.medeni=''''e'''') or (kay.medeni=''''E'''') then
begin
writeln(''''Evli'''');end
else if (kay.medeni=''''b'''') or (kay.medeni=''''B'''') then
begin writeln(''''Bekƒr'''');end;
    textcolor(11);
    textbackground(0);
    writeln;
    textbackground(2);
    write(''''Dini______________:   '''');textcolor(red);writeln(kay.din);textcolor(11);
    textbackground(0);
    write(''''Adres_____________:   '''');textcolor(red);writeln(kay.adres);textcolor(11);
    textbackground(2);
    write(''''Ev No_____________:   '''');textcolor(red);writeln(kay.telno);textcolor(11);
    textcolor(white);
    writeln;
    textbackground(0);
    writeln(''''K�t�g�n Bulundugu'''');textcolor(11);
    writeln;
    textbackground(2);
    write(''''il________________:   '''');textcolor(red);writeln(kay.il);textcolor(11);
    textbackground(0);
    write(''''il‡e______________:   '''');textcolor(red);writeln(kay.ilce);textcolor(11);
    textbackground(2);
    write(''''Mahalle/K”y_______:   '''');textcolor(red);writeln(kay.koy);textcolor(11);
    textbackground(0);
    x:=1;
    writeln(''''Silmek i‡in bir tusa bas�n...'''');
    writeln(''''€�kmak i‡in ESC tusuna bas�n...'''');
    aaa:=readkey;
    if aaa=#27 then
    begin
    close(muhtar);
    exit;
    end
    else
    kay.f:=''''s'''';
    gettime(saat11,dakika,saniye,salise);
    getdate(yil11,ay11,gun11,gn);
    kay.saat1:=saat11;
    kay.dakika:=dakika;
    kay.gun:=gun11;
    kay.ay:=ay11;
    kay.yil:=yil11;
    seek(muhtar,I-1);
    write(muhtar,kay);
    writeln(''''Silindi'''');
    readkey;
    close(muhtar);
    menu;
end;
end;
close(muhtar);
end;
procedure duzelt;
begin
assign(muhtar,''''c:\muhtar.dat'''');
reset(muhtar);j:=ioresult;
if j<>0 then rewrite(muhtar);
sekil;
gotoxy(26,5);
textbackground(blue);
writeln(''''   D�zeltilecek Vatandas�n   '''');
textbackground(black);
writeln;
write(''''Ad�_____:'''');textbackground(blue);readln(ad);textbackground(black);
write(''''Soyad�__:'''');textbackground(blue);readln(soyad);textbackground(black);
seek(muhtar,x)   ;
reset(muhtar);
for i:=1 to filesize(muhtar) do
begin
read(muhtar,kay);
if (kay.ad=ad) and (kay.soyad=soyad) and (kay.f=''''*'''') then
  begin   writeln;   textbackground(0);
  write(''''Kay�t No__________:   '''');writeln(kay.kayitno);
  tcbb;
  soyadbb;
  adbb;
  bababb;
  anabb;
  yerbb;
  tarihbb;
  medenibb;
  dinbb;
  adresbb;
  telnobb;
  ilbb;
ilcebb;
koybb;
writeln(''''Bilgileri Kay�t etmek i‡in bir tusa bas�n...'''');
writeln(''''€�kmak i‡in ESC ye bas�n...'''');
tus:=readkey;
if tus=#27 then exit
else
begin
gettime(saat11,dakika,saniye,salise);
    getdate(yil11,ay11,gun11,gn);
    kay.saat1:=saat11;
    kay.dakika:=dakika;
    kay.gun:=gun11;
    kay.ay:=ay11;
    kay.yil:=yil11;
reset(muhtar);
seek(muhtar,I-1);
write(muhtar,kay);
writeln(''''Bilgiler kay�t edildi ana men�ye d”nmek i‡in bir tusa bas�n.'''');
readkey;
close(muhtar);
menu;
end;
end;
end;
end;
procedure geridonusum;
begin
assign(muhtar,''''c:\muhtar.dat'''');
reset (muhtar); I:=IOResult;
repeat
clrscr;
gotoxy(35,2);
highvideo;textbackground(red);textcolor(white);write(''''³'''');write(''''1.Sokak'''');
textcolor(white);writeln(''''³'''');
gotoxy(35,3);
writeln(''''ÀÄÄÄÄÄÄÄÙ'''');
gotoxy(35,1);
writeln(''''ÚÄÄÄÄÄÄÄ¿'''');
textbackground(black);
gotoxy(2,4);textbackground(2);write(''''Kay�t No'''');textbackground(7);
      write('''' '''');textbackground(2);write(''''Sil. Tarihi'''');textbackground(7);
      write(''''   '''');textbackground(2);write(''''Sil. Saati'''');textbackground(7);write(''''   '''');
      textbackground(2);write(''''Tc Kimlik No'''');textbackground(7);
      write(''''   '''');textbackground(2);write(''''Ad�'''');textbackground(7);write(''''     '''');
      textbackground(2);write(''''Soyad�'''');textbackground(7);write(''''   '''');textbackground(2);
      write(''''Baba Ad� '''');textbackground(7);write(''''   '''');
      textbackground(black);
      gotoxy(2,2);
      tarih;
      gotoxy(45,2);
      saat;
for tt:=1 to filesize(muhtar)+10 do
sekil1;
s:=5;
for i:=0 to filesize(muhtar)-1 do
      begin
        seek(muhtar,i);read(muhtar,kay);
        if kay.f=''''s'''' then
        begin
          s:=s+2;
          textbackground(red);
          gotoxy(5,s);write(kay.kayitno);
          gotoxy(12,s);write(kay.gun,''''/'''',kay.ay,''''/'''',kay.yil);
          gotoxy(28,s);write(kay.saat1,'''':'''',kay.dakika);
          gotoxy(39,s);write(kay.tc);
          gotoxy(52,s);write(kay.ad);
          gotoxy(61,s);write(kay.soyad);
          gotoxy(72,s);write(kay.baba);
          textbackground(0);
          end;
    if s>21 then
    begin
      gotoxy(20,50);
      write(''''* DIGER SAYFAYA GE€MEK I€IN BIR TUSA BASINIZ !...'''');
      tus:=readkey;
      s:=0;
      clrscr;
end;
end;
seek(muhtar,0);
gotoxy(23,23);writeln(''''LISTELENECEK KAYITLAR BITTI !...'''');
gotoxy(1,25);
writeln(''''Bilgi kurtarmak i‡in [SPACE] tusuna bas�n...'''');
writeln(''''Ana Men�ye d”nmek i‡in [ESC] tusuna bas�n...'''');
tus:=readkey;
until tus in [#32,#27];
if tus=#32 then
gerial
else if tus=#27 then
begin
close(muhtar);
menu;
end;
end;
procedure menu;
begin
textbackground(black);
repeat
clrscr;
textcolor(white);
textbackground(4);
gotoxy(37,4);
writeln(''''1.Sokak'''');
gotoxy(0,5);
textbackground(0);
writeln(''''________________________________________________________________________________'''');
gotoxy(2,2);tarih;gotoxy(60,2);saat;gotoxy(35,7);
writeln(''''[1]:Kay�t Ekle'''');
gotoxy(35,8);
writeln(''''[2]:Kay�t Bul'''');
gotoxy(35,9);writeln(''''[3]:Listele'''');
gotoxy(35,10);writeln(''''[4]:Sil'''');
gotoxy(35,11);writeln(''''[5]�zelt'''');
gotoxy(35,12);writeln(''''[6]:Geri D”n�s�m Kutusu'''');
textbackground(green);gotoxy(35,13);
writeln(''''F1:Yard�m'''');textbackground(red);
gotoxy(31,14);writeln(''''ESC:€�k�s'''');textbackground(0);
writeln;writeln(''''G�ng”ren Teknik ve End�stri Meslek Lisesi'''');
gotoxy(56,17);writeln(''''Bilal Kaya'''');
textbackground(0);
sec:=readkey;
until sec in [''''1'''',''''2'''',''''3'''',''''4'''',''''5'''',''''6'''',#59,#27];
case sec of
''''1'''':ekle;
''''2'''':bul;
''''3'''':listele;
''''4'''':sil;
''''5'''':duzelt;
''''6'''':geridonusum;
#59:yardim;
#27:halt;
end;
end;
begin
menu
end.

bilal kaya
biloaga_x_@hotmail.com