Aytıntılı Otel Rezervasyon Programı - Türkçe Forum

01-04-08, 16:14

Kod:

PROGRAM OTEL_REZER;
USES CRT,DOS;

TYPE

KAYIT=RECORD
TCNO:STRING[11];
AD:STRING[15];
SOYAD:STRING[15];
TEL:STRING[11];
ADRES:STRING[30];
IL:STRING[14];
GT:STRING[8];
CKA:BYTE;
CKG:BYTE;
CKY:BYTE;
ODA:STRING;
UCRET:INTEGER;
F:CHAR;
yataktipi, odatipi:string [20];
end;

VAR

DOSYA:FILE OF KAYIT;
KAY:KAYIT;
TUS,T:CHAR;
BAS:CHAR;
I,KOD,U,A,B:INTEGER;
saat,dakika,saniye,salise:word;


AY,YIL,GUN,HG:WORD;
CIZGI:INTEGER;
K,MUGE:STRING;


procedure oda1;

begin
  K:='1';
clrscr;
gotoxy(25,2); writeln('1. oda özellikleri');

gotoxy(20,5); writeln('kısı sayısı.......: [1]');

gotoxy(20,6); writeln('Sıcak su..........:[ var]');

gotoxy(20,8); writeln('yatak tipi .......: [ranza]');

gotoxy(20,10); writeln('clima............:  [var]');

gotoxy(20,12); writeln('internet bağln...: [var] ');

gotoxy(20,14);writeln('tv-dijital........: [var]');

gotoxy(20,16);writeln('gecelik ücreti....: [75 $]');

gotoxy(25,20);writeln('diger odalarada bakmak için herhangi bir tuşa basın ');

       WRITE(KAY.oda,K);
end;

procedure oda2;

begin
K:='2';
clrscr;
gotoxy(25,2); writeln('2. oda özellikleri');

gotoxy(20,5); writeln('kısı sayısı.......: [2]');

gotoxy(20,6); writeln('Sıcak su..........:[ var]');

gotoxy(20,8); writeln('yatak tipi .......: [ikiz yatak]');

gotoxy(20,10); writeln('clima............:  [yok]');

gotoxy(20,12); writeln('internet bağln...: [yok] ');

gotoxy(20,14);writeln('tv-dijital........: [yok]');

gotoxy(20,16);writeln('gecelik ücreti....: [65 $]');

gotoxy(25,20);writeln('diger odalara da bakmak için herhangi bir tuşa basın ');
    WRITE(KAY.oda,K);
end;

procedure oda3;

begin
K:='3';
clrscr;
gotoxy(25,2); writeln('3. oda özellikleri');

gotoxy(20,5); writeln('kısı sayısı.......: [1]');

gotoxy(20,6); writeln('Sıcak su..........:[ var]');

gotoxy(20,8); writeln('yatak tipi .......: [ranza]');

gotoxy(20,10); writeln('clima............:  [var]');

gotoxy(20,12); writeln('internet bağln...: [yok] ');

gotoxy(20,14);writeln('tv-dijital........: [var]');

gotoxy(20,16);writeln('gecelik ücreti....: [50 $]');

gotoxy(25,20);writeln('diger odalarada bakmak için herhangi bir tuşa basın ');
       WRITE(KAY.oda,K);
end;

procedure oda4;

begin
K:='4' ;
clrscr;
gotoxy(25,2); writeln('4. oda özellikleri');

gotoxy(20,5); writeln('kısı sayısı.......: [3]');

gotoxy(20,6); writeln('Sıcak su..........:[ var]');

gotoxy(20,8); writeln('yatak tipi .......: [ranza]');

gotoxy(20,10); writeln('clima............:  [var]');

gotoxy(20,12); writeln('internet bağln...: [var] ');

gotoxy(20,14);writeln('tv-dijital........: [var]');

gotoxy(20,16);writeln('gecelik ücreti....: [100 $]');

gotoxy(25,20);writeln('diger odalarada bakmak için herhangi bir tuşa basın ');
  WRITE(KAY.oda,K);
end;

procedure oda5;

begin
K:='5';
clrscr;
gotoxy(25,2); writeln('5. oda özellikleri');

gotoxy(20,5); writeln('kısı sayısı.......: [1]');

gotoxy(20,6); writeln('Sıcak su..........:[ var]');

gotoxy(20,8); writeln('yatak tipi .......: [ranza]');

gotoxy(20,10); writeln('clima............:  [var]');

gotoxy(20,12); writeln('internet bağln...: [var] ');

gotoxy(20,14);writeln('tv-dijital........: [var]');

gotoxy(20,16);writeln('gecelik ücreti....: [65 $]');

gotoxy(25,20);writeln('diger odalarada bakmak için herhangi bir tuşa basın');
WRITE(KAY.oda,K);

end;

procedure oda6;

begin
K:='6' ;
clrscr;
gotoxy(25,2); writeln('6. oda özellikleri');

gotoxy(20,5); writeln('kısı sayısı.......: [4]');

gotoxy(20,6); writeln('Sıcak su..........:[ var]');

gotoxy(20,8); writeln('yatak tipi .......: [çift kişilik]');

gotoxy(20,10); writeln('clima............:  [var]');

gotoxy(20,12); writeln('internet bağln...: [var] ');

gotoxy(20,14);writeln('tv-dijital........: [var]');

gotoxy(20,16);writeln('gecelik ücreti....: [100 $]');

gotoxy(25,20);writeln('diger odalarada bakmak için herhangi bir tuşa basın');
WRITE(KAY.oda,K);

end;

procedure oda7;

begin
K:='7';
clrscr;
gotoxy(25,2); writeln('7. oda özellikleri');

gotoxy(20,5); writeln('kısı sayısı.......: [1]');

gotoxy(20,6); writeln('Sıcak su..........:[ var]');

gotoxy(20,8); writeln('yatak tipi .......: [ranza]');

gotoxy(20,10); writeln('clima............:  [yok]');

gotoxy(20,12); writeln('internet bağln...: [yok] ');

gotoxy(20,14);writeln('tv-dijital........: [yok]');

gotoxy(20,16);writeln('gecelik ücreti....: [25 $]');

gotoxy(25,20);writeln('diger odalarada bakmak için herhangi bir tuşa basın');

WRITE(KAY.oda,K) ;
end;

procedure oda8;

begin
K:='8';
clrscr;
gotoxy(25,2); writeln('8. oda özellikleri');

gotoxy(20,5); writeln('kısı sayısı.......: [2]');

gotoxy(20,6); writeln('Sıcak su..........:[ var]');

gotoxy(20,8); writeln('yatak tipi .......: [ranza]');

gotoxy(20,10); writeln('clima............:  [var]');

gotoxy(20,12); writeln('internet bağln...: [yok] ');

gotoxy(20,14);writeln('tv-dijital........: [var]');

gotoxy(20,16);writeln('gecelik ücreti....: [70 $]');

gotoxy(25,20);writeln('diger odalarada bakmak için herhangi bir tuşa basın');

WRITE(KAY.oda,K);

end;

procedure oda9;

begin
K:='9';
clrscr;
gotoxy(25,2); writeln('9. oda özellikleri');

gotoxy(20,5); writeln('kısı sayısı.......: [4]');

gotoxy(20,6); writeln('Sıcak su..........:[ var]');

gotoxy(20,8); writeln('yatak tipi .......: [ranza]');

gotoxy(20,10); writeln('clima............:  [yok]');

gotoxy(20,12); writeln('internet bağln...: [var] ');

gotoxy(20,14);writeln('tv-dijital........: [yok]');

gotoxy(20,16);writeln('gecelik ücreti....: [ 90$]');

gotoxy(25,20);writeln('diger odalarada bakmak için herhangi bir tuşa basın ');

WRITE(KAY.oda,K);

end;

procedure oda10;

begin
K:='10';
clrscr;
gotoxy(25,2); writeln('10. oda özellikleri');

gotoxy(20,5); writeln('kısı sayısı.......: [3]');

gotoxy(20,6); writeln('Sıcak su..........:[ var]');

gotoxy(20,8); writeln('yatak tipi .......: [ranza]');

gotoxy(20,10); writeln('clima............:  [var]');

gotoxy(20,12); writeln('internet bağln...: [var] ');

gotoxy(20,14);writeln('tv-dijital........: [var]');

gotoxy(20,16);writeln('gecelik ücreti....: [80 $]');

gotoxy(25,20);writeln('diger odalarada bakmak için herhangi bir tuşa basın ');
WRITE(KAY.oda,K);

END;

procedure giris;

begin
CLRSCR;
writeln('LUTFEN BOS OLAN BIR ODA NUMARASI GIRIN..');
READLN(KAY.ODA);    EXIT;
END;
procedure renk(y,z:byte);
begin
textcolor(y);textbackground(z);
end;
PROCEDURE A11;
BEGIN
MUGE:='1';
IF KAY.ODA=MUGE  THEN BEGIN GOTOXY(35,3); WRITE('DOLU'); END ELSE BEGIN
GOTOXY(35,3);WRITELN('BOS');END;
END;

procedure  a1;

begin
renk(15,4);
GOTOXY(25,3);WRITE('ODA[1]    ');
end;

procedure  b1;

begin
renk(15,4);
GOTOXY(25,5);WRITE('ODA[2]     ');
end;
procedure  b11;
begin
MUGE:='2' ;
IF KAY.ODA=MUGE THEN BEGIN GOTOXY(37,5); WRITE('DOLU'); END ELSE BEGIN
GOTOXY(37,5); WRITE('BOS');END;
end;

procedure  c1;
begin
renk(15,4);
GOTOXY(25,7);WRITE('ODA[3]    ');
end;

procedure  c11;
begin
renk(1,6);
muge:='3';
IF KAY.oda=MUGE THEN BEGIN GOTOXY(35,7); WRITE('DOLU'); END ELSE BEGIN
GOTOXY(35,7); WRITE('BOS');END;
end;

procedure  d1;
begin
renk(15,4);
GOTOXY(25,9);WRITE('ODA[4]    ');
end;

procedure  d11;
begin
renk(1,6);
MUGE:='4';
IF KAY.oda=MUGE THEN BEGIN GOTOXY(35,9); WRITE('DOLU');END ELSE BEGIN
GOTOXY(35,9); WRITE('BOS'); END;
end;

procedure  e1;
begin
renk(15,4);
GOTOXY(25,11);WRITE('ODA[5]   ');
end;

procedure  e11;
begin
renk(1,6);
MUGE:='5';
IF KAY.oda=MUGE THEN BEGIN GOTOXY(35,11); WRITE('DOLU');END ELSE BEGIN
GOTOXY(35,11); WRITE('BOS'); END;
end;

procedure  f1;
begin
renk(15,4);
GOTOXY(25,13);WRITE('ODA[6]   ');
end;

procedure  f11;
begin
renk(1,6);
MUGE:='6';
IF KAY.oda=MUGE THEN BEGIN GOTOXY(35,13); WRITE('DOLU'); END ELSE BEGIN
GOTOXY(35,13); WRITE('BOS'); END;
end;

procedure  g1;
begin
renk(15,4);
GOTOXY(25,15);WRITE('ODA[7]   ');
end;

procedure  g11;
begin
renk(1,6);
MUGE:='7';
IF KAY.oda=MUGE THEN BEGIN GOTOXY(35,15); WRITE('DOLU'); END ELSE BEGIN
GOTOXY(35,15); WRITE('BOS'); END;
end;

procedure  h1;
begin
renk(15,4);
GOTOXY(25,17);WRITE('ODA[8]  ');
end;
procedure  h11;
begin
renk(1,6);
MUGE:='8';
IF KAY.oda=MUGE THEN BEGIN GOTOXY(35,17);WRITE('DOLU'); END ELSE BEGIN

GOTOXY(35,17); WRITE('BOS'); END;
end;
procedure  i1;
begin
renk(15,4);
GOTOXY(25,19);WRITE('ODA[9] ');
end;
procedure  i11;
begin
renk(1,6);
MUGE:='9';
IF KAY.oda=MUGE THEN BEGIN GOTOXY(35,19); WRITE('DOLU'); END ELSE BEGIN
GOTOXY(35,19); WRITE('BOS'); END;
end;
procedure  t1;
begin
renk(15,4);
GOTOXY(25,21);WRITE('ODA[10] ');
end;
procedure  t11;
begin
renk(1,6);
MUGE:='10';

IF KAY.oda=MUGE THEN BEGIN GOTOXY(35,21); WRITE('DOLU'); END ELSE BEGIN

GOTOXY(35,21); WRITE('BOS'); END;
end;
PROCEDURE O_SEC;
BEGIN
  GOTOXY(25,23); WRITE('ODA REZERVE');

END;

PROCEDURE mugecik;
VAR
A:CHAR;
S:INTEGER;
BEGIN

s:=0;

repeat
clrscr;

if a=#80 then begin s:=s+1;end;
if a=#72 then begin s:=s-1;end;
if s>11 then begin s:=1;end;
if s<1 then begin s:=11;end;
if s=1 then begin a11;a1;end;
if s=2 then begin b11;b1;end;
if s=3 then begin c11;c1;end;
if s=4 then begin d11;d1;end;
if s=5 then begin e11;e1;;end;
if s=6 then begin f11;f1;end;
if s=7 then begin g11;g1;end;
if s=8 then begin h11;h1;end;
if s=9 then begin i11;i1;end;
if s=10 then begin t11;t1;end;
if s=11 then begin o_sec;end;
if (s=1) and (a=#13)  then begin oda1;RENK(2,4);end;
if (s=2) and (a=#13)  then begin oda2;RENK(14,1);end;
if (s=3) and (a=#13)  then begin oda3;RENK(14,1);end;
if (s=4) and (a=#13)  then begin oda4;RENK(14,1);end;
if (s=5) and (a=#13)  then begin oda5;RENK(14,1);end;
if (s=6) and (a=#13)  then begin oda6;RENK(14,1);end;
if (s=7) and (a=#13)  then begin oda7;renk(14,1);end;
if (s=8) and (a=#13)  then begin oda8;renk(14,1);end;
if (s=9) and (a=#13)  then begin oda9;renk(14,1);end;
if (s=10) and (a=#13) then begin oda10; renk(14,1); end;
if (s=11) and (a=#13)  then begin giris;renk(2,4) end;
a:=readkey;
until a=#27;
end;

PROCEDURE REZ1;
BEGIN
RENK(1,6);
GOTOXY(25,8);WRITE('       REZERVASYON LİSTELE  ');
end;
PROCEDURE REZ;
BEGIN
RENK(7,4);
GOTOXY(25,8);WRITE('        LİSTELEME           ');
end;


procedure  t10;
begin
renk(7,4);
GOTOXY(25,10);WRITE('      MUSTERI KAYDET       ');
end;
procedure  t110;
begin
renk(1,6);
GOTOXY(25,10);WRITE('           KAYDET          ');
end;
procedure  t2;
begin
renk(1,6);
GOTOXY(25,12);WRITE('      KAYITLI MUSTERI      ');
end;
procedure  t22;
begin
renk(7,4);
GOTOXY(25,12);WRITE('           KAYITLI         ');
end;
procedure  t3;
begin
renk(1,6);
GOTOXY(25,14);WRITE('      SAYFALI G�R          ');
END;
procedure  t33;
begin
renk(7,4);
GOTOXY(25,14);WRITE('           SAYFALI         ');
END;
procedure  t4;
begin
renk(1,6);
GOTOXY(25,16);WRITE('      MUSTERI ARA          ');
end;
procedure  t44;
begin
renk(7,4);
GOTOXY(25,16);WRITE('           ARA             ');
end;
procedure  t5;
begin
renk(1,6);
GOTOXY(25,18);WRITE('      KAYIT D�ZELT         ');
end;
procedure  t55;
begin
renk(7,4);
GOTOXY(25,18);WRITE('           DUZELT          ');
end;
procedure  t6;
begin
renk(1,6);
GOTOXY(25,20);WRITE('      KAYIT SIL            ');
end;
procedure  t66;
begin
renk(7,4);
GOTOXY(25,20);WRITE('           SIL             ');
end;

procedure t7;
begin
renk(4,7);
GOTOXY(25,22);WRITE(' �IKMAK ISTIYORSAN = ESC YE BAS   ');
END;
procedure  t77;
begin
renk(4,4);
GOTOXY(25,22);WRITE('        = ESC           ');

END;
procedure gor1;
begin
renk(1,7);
GOTOXY(25,8);WRITE('  OTEL-REZERVASYON        ') ;
GOTOXY(25,10);WRITE(' OTEL-REZERVASYON        ');
GOTOXY(25,12);WRITE(' OTEL-REZERVASYON        ');
GOTOXY(25,14);WRITE(' OTEL-REZERVASYON        ');
GOTOXY(25,16);WRITE(' OTEL-REZERVASYON        ');
GOTOXY(25,18);WRITE(' OTEL-REZERVASYON        ');
GOTOXY(25,20);WRITE(' OTEL-REZERVASYON        ');
GOTOXY(25,22);WRITE('        = ESC            ');
end;


PROCEDURE CERCEVE(X1,Y1,X2,Y2:BYTE);
VAR
I:INTEGER;
CIZGI:STRING[80];
BEGIN

FILLCHAR(CIZGI,X2-X1,#205);
CIZGI[0]:=CHR(X2-X1-1);
GOTOXY(X1,Y1);WRITE(CHR(201),CIZGI,CHR(187));
FOR I:=Y1+1 TO Y2-1 DO
BEGIN
GOTOXY(X1,I);WRITE(CHR(186));
GOTOXY(X2,I);WRITE(CHR(186));
END;
GOTOXY(X1,Y2);WRITE(CHR(200),CIZGI,CHR(188));
END;

procedure rezerve_cerceve;
   begin
      Clrscr;CERCEVE(75,1,77,25);
            TEXTBACKGROUND(2);
TEXTCOLOR(YELLOW); GOTOXY(10,5); WRITE('LUTFEN GIRIS TARIHI BU GUN OLARAK GIRIN-ÖRN TAR:18071987');
            GOTOXY(10,6);      write('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
            GOTOXY(10,7);      write('º                                                            º');
            GOTOXY(10,8);      write('º                    REZARVASYON  B�LG�LER�                  º');
            GOTOXY(10,9);      write('ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¹');
            GOTOXY(10,10);     write('º G�R�S   TAR�H�  º                                          º');
            GOTOXY(10,11);     write('º                 º                                          º');
            GOTOXY(10,12);     Write('ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¹                                          º');
            GOTOXY(10,13);     write('º CIKIS TAR�H�    º                                          º');
            GOTOXY(10,14);     write('º                 º                                          º');
            GOTOXY(10,15);     Write('ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¹                                          º');
            GOTOXY(10,16);     write('º ODA NO [1..100] º                                          º');
            GOTOXY(10,17);     write('º        ARASINDA º                                          º');
            GOTOXY(10,18);     write('º         GIRIN   º                                          º');
            GOTOXY(10,19);     Write('ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¹ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¹ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¹ÌÌÍÍº');
            GOTOXY(10,20);     write('º      NOLU ODA   º             KISILIKTIR                   º');
            GOTOXY(10,21);     write('º   (OZELLIKLERI) º                                          º');
            GOTOXY(10,22);     write('º                 º<<<<GECELIK UCRETI>>>>       TOPLAM       º');
            GOTOXY(10,23);     write('º                 º                                          º');
            GOTOXY(10,24);     write('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¼');

textcolor(white);
textbackground(2);
gotoxy(27,5);
gettime(saat,dakika,saniye,salise);
writeln('PROGRAMA GIRIS SAATINIZ',':',saat,':',dakika,':',saniye);
gotoxy(40,24);

getdate(yil,ay,gun,hg);
writeln('BU GUN :',':',gun,'/',ay,'/',yil);



GOTOXY(77,1);WRITE('O');
GOTOXY(77,2);WRITE('T');
GOTOXY(77,3);WRITE('E');
GOTOXY(77,4);WRITE('L');
GOTOXY(77,5);WRITE(");
GOTOXY(77,6);WRITE('R');
GOTOXY(77,7);WRITE('E');
GOTOXY(77,8);WRITE('Z');
GOTOXY(77,9);WRITE('E');
GOTOXY(77,10);WRITE('R');
GOTOXY(77,11);WRITE('V');
GOTOXY(77,12);WRITE('A');
GOTOXY(77,13);WRITE('S');
GOTOXY(77,14);WRITE('Y');
GOTOXY(77,15);WRITE('O');
GOTOXY(77,16);WRITE('N');
GOTOXY(77,18);WRITE('C');
GOTOXY(77,19);WRITE('I');
GOTOXY(77,20);WRITE('K');
GOTOXY(77,21);WRITE('I');
GOTOXY(77,22);WRITE('S');
GOTOXY(77,23);WRITE(' ');
GOTOXY(77,24);WRITE('[X]');

end;

PROCEDURE KISISEL_CERCEVE;
BEGIN
      Clrscr;CERCEVE(75,1,77,25);
            TEXTBACKGROUND(2);
            TEXTCOLOR(YELLOW);
            GOTOXY(12,3);      write('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
            GOTOXY(12,4);      write('º                                                            º');
            GOTOXY(12,5);      write('º                    K�S�SEL     B�LG�LER�                   º');
            GOTOXY(12,6);      write('ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¹');
            GOTOXY(12,7);      write('º  TC-NO          º                                          º');
            GOTOXY(12,8);      write('º                 º                                          º');
            GOTOXY(12,9);      Write('ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¹                                          º');
            GOTOXY(12,10);     write('º  AD             º                                          º');
            GOTOXY(12,11);     write('º                 º                                          º');
            GOTOXY(12,12);     Write('ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¹                                          º');
            GOTOXY(12,13);     write('º  SOYAD          º                                          º');
            GOTOXY(12,14);     write('º                 º                                          º');
            GOTOXY(12,15);     Write('ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¹                                          º');
            GOTOXY(12,16);     write('º  TELEFON        º                                          º');
            GOTOXY(12,17);     write('º                 º                                          º');
            GOTOXY(12,18);     write('ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¹                                          º');
            GOTOXY(12,19);     write('º  ADRES          º                                          º');
            GOTOXY(12,20);     write('º                 º                                          º');
            GOTOXY(12,21);     write('ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¹                                          º');
            GOTOXY(12,22);     write('º  SEHIR          º                                          º');
            GOTOXY(12,23);     write('º                 º                                          º');
            GOTOXY(12,24);     write('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¼');

textcolor(white);
textbackground(2);
gotoxy(27,2);
gettime(saat,dakika,saniye,salise);
writeln('PROGRAMA GIRIS SAATINIZ',':',saat,':',dakika,':',saniye);
gotoxy(40,24);

getdate(yil,ay,gun,hg);
writeln('BU GUN :',':',gun,'/',ay,'/',yil);




GOTOXY(77,1);WRITE('O');
GOTOXY(77,2);WRITE('T');
GOTOXY(77,3);WRITE('E');
GOTOXY(77,4);WRITE('L');
GOTOXY(77,5);WRITE(");
GOTOXY(77,6);WRITE('R');
GOTOXY(77,7);WRITE('E');
GOTOXY(77,8);WRITE('Z');
GOTOXY(77,9);WRITE('E');
GOTOXY(77,10);WRITE('R');
GOTOXY(77,11);WRITE('V');
GOTOXY(77,12);WRITE('A');
GOTOXY(77,13);WRITE('S');
GOTOXY(77,14);WRITE('Y');
GOTOXY(77,15);WRITE('O');
GOTOXY(77,16);WRITE('N');
GOTOXY(77,18);WRITE('C');
GOTOXY(77,19);WRITE('I');
GOTOXY(77,20);WRITE('K');
GOTOXY(77,21);WRITE('I');
GOTOXY(77,22);WRITE('S');
GOTOXY(77,23);WRITE(' ');
GOTOXY(77,24);WRITE('[X]');



END;

function onay_box (mesaj:string;y,x:integer):STRiNG;
var
a:array [1..3] of string;
i:integer;
b:char;

begin
i:=1;
a[1]:='EVET';
a[2]:='HAYIR';
a[3]:='IPTAL';
textbackground (7);
gotoxy (y,x);   write ('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
gotoxy (y,x+1); write ('º                                             º');
gotoxy (y,x+2); write ('º                                             º');
gotoxy (y,x+3); write ('ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¹');
gotoxy (y,x+4); write ('º                                             º');
gotoxy (y,x+5); write ('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¼');

if length (mesaj)>42 then begin
gotoxy (y+1,x+1);write (copy (mesaj,1,42));
gotoxy (y+1,x+2);write (copy (mesaj,42,42));
end;

if length (mesaj)<42 then begin
gotoxy (y+1,x+1);write (mesaj);
end;


textcolor(white);
textcolor(4);
gotoxy(y+5,x+4); write(a[1]);
gotoxy(y+20,x+4); write(a[2]);
gotoxy(y+35,x+4); write(a[3]);

repeat
b:=readkey;

textcolor(white);
textcolor(4);
gotoxy(y+5,x+4); write(a[1]);
gotoxy(y+20,x+4); write(a[2]);
gotoxy(y+35,x+4); write(a[3]);


if b=#77 then
begin
i:=i+1;
end;
if b=#75 then
begin
i:=i-1;
end;
if i=4 then i:=1;
if i=0 then i:=3;
if i=1 then  begin
textcolor(white);
gotoxy(y+5,x+4); write(a[1]);
end;
if i=2 then
begin
textcolor(white);
gotoxy(y+20,x+4); write(a[2]);
end;
if i=3 then
begin
textcolor(white);
gotoxy(y+35,x+4); write(a[3]);
end;
until b=#13;
onay_box:=a[i];
end;


PROCEDURE KAYITGIR;
  var
cevap, cevap2:string;
VAN,VAN1:STRING;
BEGIN
ASSIGN(DOSYA,'OTEL.DAT');
{$I-}; RESET(DOSYA);KOD:=IORESULT;{$I+};
IF KOD<>0 THEN REWRITE(DOSYA);
REPEAT
CLRSCR;


VAN:=KAY.TCNO;

BEGIN CLRSCR; KISISEL_CERCEVE; END;
GOTOXY(40,8); READLN(KAY.TCNO);
IF KAY.TCNO=VAN THEN BEGIN WRITELN('BOYLE BIR KAYIT ZATEN VAR.');BEGIN CLRSCR; KAYITGIR;END;END;
IF (KAY.TCNO='X') OR (KAY.TCNO='x') THEN BEGIN
CLOSE(DOSYA);EXIT;
END;
GOTOXY(40,11);READLN(KAY.AD);
GOTOXY(40,14);READLN(KAY.SOYAD);
GOTOXY(40,17);READLN(KAY.TEL);
GOTOXY(40,20);READLN(KAY.ADRES);
GOTOXY(40,23);READLN(KAY.IL);





  cevap:=onay_box ('REZERVASYON BILGILERI GIRILSIN MI?',5,4);

          if cevap='�PTAL' then continue;
           if cevap='EVET' then
           begin

BEGIN REZERVE_CERCEVE; END;
VAN1:=KAY.ODA;

  GOTOXY(40,11); READLN(KAY.GT);
IF (KAY.GT='X') OR (KAY.GT='x')  THEN BEGIN
CLOSE(DOSYA);EXIT;
END;
GOTOXY(40,14);READLN(KAY.CKG);
GOTOXY(42,14);READLN(KAY.CKA);
GOTOXY(44,14);READLN(KAY.CKY);

begin mugecik;end;


           cevap2:=onay_box ('BU BILGILER KAYDEDILSIN MI?',5,4);
           if cevap2='EVET' then begin

                  kay.f:='*';
                seek(dosya,filesize(dosya));
                write(dosya,kay);
           end;
     END;
     until cevap2='HAYIR';
     close(dosya);
end;










PROCEDURE SLIST;
VAR
S:INTEGER;
BEGIN
ASSIGN(DOSYA,'OTEL.DAT');
{$I-}RESET(DOSYA); I:=IORESULT;{$I+}
IF KOD<>0 THEN BEGIN
WRITELN('DOSYA YOK....');
TUS:=READKEY;HALT;
END;

FOR I:=0 TO FILESIZE(DOSYA)-1  DO
BEGIN
SEEK(DOSYA,I);READ(DOSYA,KAY);
IF KAY.F='*' THEN

     CLRSCR;


BEGIN
CLRSCR;
CERCEVE(7,2,70,21);

GOTOXY(11,3);WRITE('T.C NO...............:');
GOTOXY(11,5);WRITE('ISIM.................:');
GOTOXY(11,7);WRITE('SOYISIM..............:');
GOTOXY(11,9);WRITE('TELEFON..............:');
GOTOXY(11,11);WRITE('REZERVASYON BILGILERI...............:');
GOTOXY(11,13);WRITE('ODA NO..............:');
GOTOXY(11,15);WRITE('KALDIGI GUN SAY........:');
GOTOXY(11,17);WRITE('GIDIS TARIHI........:');
GOTOXY(11,19);WRITE('TOPLAM UCRETI.......:');

textcolor(white);
textbackground(2);
gotoxy(25,2);
gettime(saat,dakika,saniye,salise);
writeln('PROGRAMA GIRIS SAATINIZ',':',saat,':',dakika,':',saniye);
gotoxy(25,20);

getdate(yil,ay,gun,hg);
writeln('BU GUN :',':',gun,'/',ay,'/',yil);


END;

BEGIN
GOTOXY(40,3);WRITE(KAY.TCNO);
GOTOXY(40,5);WRITE(KAY.AD);
GOTOXY(40,7);WRITE(KAY.SOYAD);
GOTOXY(40,9);WRITE(KAY.TEL);
GOTOXY(40,13);WRITE(KAY.ODA);
GOTOXY(40,15);WRITE(KAY.GT);
GOTOXY(40,17);WRITE(KAY.CKg);
GOTOXY(40,19);WRITE(KAY.UCRET);
END;

CERCEVE(3,23,77,25);
GOTOXY(4,24);WRITE('  DIGER  KAYIT  ICIN  HERHANGI  BIR  TUSA  BASINIZ [ ] ');
GOTOXY(57,24);TUS:=READKEY;
END;
CLRSCR;
CERCEVE(2,14,70,16);
GOTOXY(3,15);WRITE(' LiSTELENECEK KAYITLAR BiTTi ANA MENU i�iN BiR TUSA BASINIZ[ ]');
TUS:=READKEY;
CLOSE(DOSYA);
END;


PROCEDURE rezerve;
BEGIN
CLRSCR;
ASSIGN(DOSYA,'OTEL.DAT');
{$I-}; RESET(DOSYA); I:=IORESULT; {$I+}
IF I<>0 THEN BEGIN WRITE('DOSYA YOK');  BAS:=READKEY; HALT; END;

FOR I:=0 TO FILESIZE(DOSYA) DO BEGIN

SEEK(DOSYA,I); READ(DOSYA,KAY);

IF  KAY.F='*'  THEN


BEGIN
GOTOXY(10,2); WRITE('TC..NO...:',KAY.TCNO);
GOTOXY(10,4); WRITE('ISIM--SOYISIM',KAY.AD,'--',KAY.SOYAD);
GOTOXY(15,8);

IF KAY.ODA='1' THEN BEGIN ODA1; END;
IF KAY.ODA='2' THEN BEGIN ODA2; END;
IF KAY.ODA='3' THEN BEGIN ODA3; END;
IF KAY.ODA='4' THEN BEGIN ODA4; END;
IF KAY.ODA='5' THEN BEGIN ODA5; END;
IF KAY.ODA='6' THEN BEGIN ODA6; END;
IF KAY.ODA='7' THEN BEGIN ODA7; END;
IF KAY.ODA='8' THEN BEGIN ODA8; END;
IF KAY.ODA='9' THEN BEGIN ODA9; END;
IF KAY.ODA='10' THEN BEGIN ODA10; END;

END;


GOTOXY(25,22); WRITELN('BASKA BIR KAYIT ICIN HERHANGI BIR TUSA BASIN.');
BAS:=READKEY;
END;

CLRSCR;
GOTOXY(35,3); WRITELN('KAYITLAR BITTI.');
BAS:=READKEY;
CLOSE(DOSYA);
END;






                PROCEDURE LIST;
VAR
S:INTEGER;
BEGIN
ASSIGN(DOSYA,'OTEL.DAT');
{$I-}RESET(DOSYA); I:=IORESULT;{$I+}
IF KOD<>0 THEN BEGIN
WRITELN('DOSYA YOK....');
TUS:=READKEY;HALT;
END;
CLRSCR;
GOTOXY(2,2) ; WRITE('  TC  NO       ISIM        SOYISIM     GELIS TARIHI  KALDIGI GUN SAY    ODA NO');
GOTOXY(2,3) ; WRITE('==========  ==========    =========== =============  =================== =====');
WINDOW(1,3,80,25);
S:=1;
FOR I:=0 TO FILESIZE(DOSYA)-1  DO
BEGIN
SEEK(DOSYA,I);READ(DOSYA,KAY);
IF KAY.F='*' THEN
BEGIN
S:=S+1;
GOTOXY(2,S);WRITE(KAY.TCNO);
GOTOXY(15,s);WRITE(KAY.AD);
GOTOXY(28,s);WRITE(KAY.SOYAD);
GOTOXY(45,S);WRITE(KAY.GT);
GOTOXY(60,S);WRITE(KAY.CKg);
GOTOXY(77,S);WRITE(KAY.ODA);
END;
IF S>18 THEN
BEGIN
GOTOXY(10,30);
WRITE('DiGER SAYFA i�iN BiR TUSA BASINIZ...');
TUS:=READKEY; S:=0;
CLRSCR;
END;
END;
GOTOXY(20,21);WRITE('LiSTELENECEK KAYITLAR BiTTi...');
TUS:=READKEY;
WINDOW(1,1,80,25);
CLOSE(DOSYA);
END;




                   PROCEDURE ARAMA;
VAR
ARA:STRING[30];
BEGIN
ASSIGN(DOSYA,'OTEL.DAT');
{$I-};RESET(DOSYA);KOD:=IORESULT;{$I+}
IF KOD<>0 THEN BEGIN
GOTOXY(20,20);WRITE('DOSYA YOK.....');
TUS:=READKEY;EXIT;
END;
REPEAT
CLRSCR;
CERCEVE(75,1,77,25);

CERCEVE(20,3,70,5);
GOTOXY(77,1);WRITE('O');
GOTOXY(77,2);WRITE('T');
GOTOXY(77,3);WRITE('E');
GOTOXY(77,4);WRITE('L');
GOTOXY(77,5);WRITE(");
GOTOXY(77,6);WRITE('R');
GOTOXY(77,7);WRITE('E');
GOTOXY(77,8);WRITE('Z');
GOTOXY(77,9);WRITE('E');
GOTOXY(77,10);WRITE('R');
GOTOXY(77,11);WRITE('V');
GOTOXY(77,12);WRITE('A');
GOTOXY(77,13);WRITE('S');
GOTOXY(77,14);WRITE('Y');
GOTOXY(77,15);WRITE('O');
GOTOXY(77,16);WRITE('N');
GOTOXY(77,18);WRITE('C');
GOTOXY(77,19);WRITE('I');
GOTOXY(77,20);WRITE('K');
GOTOXY(77,21);WRITE('I');
GOTOXY(77,22);WRITE('S');
GOTOXY(77,23);WRITE(' ');
GOTOXY(77,24);WRITE('[X]');
GOTOXY(22,4);
WRITE('ARADIGINIZ KISININ TC NOSUNU GiRiNiZ..:');READLN(ARA);

IF (ARA='X') OR (ARA='x') THEN
BEGIN
CLOSE(DOSYA);EXIT;
END;
FOR I:=0 TO FILESIZE(DOSYA)-1 DO
BEGIN
SEEK(DOSYA,I);
READ(DOSYA,KAY);
IF(KAY.F='*') AND (KAY.TCNO=ARA) THEN
BEGIN
CLRSCR;
CERCEVE(10,3,70,22);


GOTOXY(15,5);WRITELN('T.C NO..............:',KAY.TCNO);
GOTOXY(15,7);WRITELN('ISIM................:',KAY.AD);
GOTOXY(15,9);WRITELN('SOYISIM.............:',KAY.SOYAD);
GOTOXY(15,11);WRITELN('TELEFON............:',KAY.TEL);
GOTOXY(15,15);WRITELN('REZERVASYON BILGILERI..............:');
GOTOXY(15,17);WRITELN('ODA NO.............:',KAY.ODA);
GOTOXY(15,18);WRITELN('GELIS TARIHI.......:',KAY.GT);
GOTOXY(15,19);WRITELN('KALDIGI GUN SAY....:',KAY.CKg);
GOTOXY(15,20);WRITELN('TOPLAM UCRET.......:',KAY.UCRET);

CERCEVE(10,23,70,25);
GOTOXY(25,24);WRITE('ARADIGINIZ KAYIT BUMU ?  [E\H]');
REPEAT
TUS:=UPCASE(READKEY);
UNTIL TUS IN['E','H'];
IF TUS='E' THEN
BEGIN
CLOSE(DOSYA);CLRSCR;EXIT;
END;
END;
END;
WRITELN;
CERCEVE(10,23,71,25);
GOTOXY(15,24);
WRITE('ARADIGINIZ KAYIT BULUNAMADI,DEVAM i�iN BiR TUSA BASINIZ');
TUS:=READKEY;
CLRSCR;
UNTIL 1=2;
END;


             PROCEDURE DUZELTME;
VAR
ARA:STRING[30];
BEGIN
ASSIGN(DOSYA,'OTEL.DAT');
{$I-} RESET(DOSYA);KOD:=IORESULT;{$I+}
IF KOD<>0 THEN BEGIN
GOTOXY(20,20);WRITE('***********DOSYA YOK***********');
TUS:=READKEY;
EXIT;
END;
CLRSCR;
CERCEVE(20,3,70,5);



GOTOXY(22,4);WRITE('DUZELTiLECEK KISININ TC NOSUNU GiRiNiZ..:');
READLN(ARA);
FOR I:=0 TO FILESIZE(DOSYA)-1 DO
BEGIN
SEEK(DOSYA,I);READ(DOSYA,KAY);
IF (ARA=KAY.TCNO)  AND (KAY.F='*') THEN

BEGIN
CLRSCR;
CERCEVE(10,1,70,25);

GOTOXY(15,5);WRITELN('T.C NO..............:',KAY.TCNO);
GOTOXY(15,7);WRITELN('ISIM................:',KAY.AD);
GOTOXY(15,9);WRITELN('SOYISIM.............:',KAY.SOYAD);
GOTOXY(15,11);WRITELN('TELEFON............:',KAY.TEL);
GOTOXY(15,15);WRITELN('REZERVASYON BILGILERI..............:');
GOTOXY(15,17);WRITELN('ODA NO.............:',KAY.ODA);
GOTOXY(15,18);WRITELN('GELIS TARIHI.......:',KAY.GT);
GOTOXY(15,19);WRITELN('KALDIGI GUN SAY....:',KAY.CKg);
GOTOXY(15,20);WRITELN('TOPLAM UCRET.......:',KAY.UCRET);

CERCEVE(10,23,70,22);
GOTOXY(20,24);
WRITE('D�ZELTILECEK KAYIT BU MU? [E\H]');
REPEAT
TUS:=UPCASE(READKEY);
UNTIL TUS IN['E','H'];
IF TUS='E' THEN
REPEAT
CLRSCR;
CERCEVE(10,1,70,25);
GOTOXY(15,2);
WRITELN('1-T.C NO....................:',KAY.TCNO);
GOTOXY(15,4);
WRITELN('2-ISIM......................:',KAY.AD);
GOTOXY(15,6);
WRITELN('3-SOYISIM...................:',KAY.SOYAD);
GOTOXY(15,8);
WRITELN('4-TELEFON....................:',KAY.TEL);
GOTOXY(15,10);
WRITELN('REZERVASYON BILGILERI..............:');
GOTOXY(15,14);
WRITELN('5-ODA NO....................:',KAY.ODA);
GOTOXY(15,16);
WRITELN('6-GELIS TARIHI..............:',KAY.GT);
GOTOXY(15,18);
WRITELN('7-KALDIGI GUN SAY...........:',KAY.CKg);
GOTOXY(15,20);
WRITELN('8-TOPLAM UCRET..............:',KAY.UCRET);
GOTOXY(15,23);
WRITELN('9-ISLEM SONU');
CERCEVE(10,22,70,26);
GOTOXY(20,25);
WRITE('SE�IMINIZ  (1..9) (ESC=IPTAL):');
REPEAT
TUS:=READKEY;
UNTIL TUS IN['1'..'9', #27];
IF TUS<>#27 THEN CERCEVE(11,19,69,21);
CASE TUS OF
'1':BEGIN
GOTOXY(15,20);
WRITE('T.C NO..................:');READLN(KAY.TCNO); END;
'2':BEGIN
GOTOXY(15,20);
WRITE('ISIM..........:');READLN(KAY.AD);END;
'3':BEGIN
GOTOXY(15,20);
WRITE('SOYISIM.......:');READLN(KAY.SOYAD);END;
'4':BEGIN
GOTOXY(15,20);
WRITE('TELEFON........:');READLN(KAY.TEL);END;

'5':BEGIN
GOTOXY(15,20);
WRITE('ODA NO...........:');READLN(KAY.ODA);END;
'6':BEGIN
GOTOXY(15,20);
WRITE('GELIS TARIHI.....:');READLN(KAY.GT);END;
'7':BEGIN
GOTOXY(15,20);
WRITE('KALDIGI GUN SAY..:');READLN(KAY.CKg);END;
'8': BEGIN
GOTOXY(15,20);
WRITE('TOPLAM UCRET.....:'); READLN(KAY.UCRET); END;

'9':BEGIN
SEEK(DOSYA,I);
WRITE(DOSYA,KAY);
GOTOXY(15,20);
WRITE('*********ISLEM TAMAMLANDI*********');
CLOSE(DOSYA);
TUS:=READKEY;EXIT;
END;
#27:EXIT;
END;
UNTIL 1=2;
END;
END;
GOTOXY(20,24);WRITE('***********KAYIT YOK*************');
CLOSE(DOSYA);
TUS:=READKEY;
END;


                      PROCEDURE SILME;
VAR
ARA:STRING[30];
BEGIN
ASSIGN(DOSYA,'OTEL.DAT');
{$I-};RESET(DOSYA); KOD:=IORESULT;{$I+}
IF KOD<>0 THEN
BEGIN
GOTOXY(20,20);WRITE('DOSYA YOK.....');
TUS:=READKEY;
EXIT;
END;
CLRSCR;
CERCEVE(10,3,70,5);



GOTOXY(14,4);
WRITE('SILINECEK KISININ TC NOSUNU GIRINIZ.....:');READLN(ARA);
FOR I:=0 TO FILESIZE(DOSYA)-1 DO
BEGIN
SEEK(DOSYA,I);READ(DOSYA,KAY);
IF(ARA=KAY.TCNO) AND (KAY.F='*') THEN BEGIN
CLRSCR;
CERCEVE(10,1,70,21);

GOTOXY(15,5);WRITELN('T.C NO..............:',KAY.TCNO);
GOTOXY(15,7);WRITELN('ISIM................:',KAY.AD);
GOTOXY(15,9);WRITELN('SOYISIM.............:',KAY.SOYAD);
GOTOXY(15,11);WRITELN('TELEFON............:',KAY.TEL);
GOTOXY(15,15);WRITELN('REZERVASYON BILGILERI..............:');
GOTOXY(15,17);WRITELN('ODA NO.............:',KAY.ODA);
GOTOXY(15,18);WRITELN('GELIS TARIHI.......:',KAY.GT);
GOTOXY(15,19);WRITELN('KALDIGI GUN  SAY...:',KAY.CKg);
GOTOXY(15,20);WRITELN('TOPLAM UCRET.......:',KAY.UCRET);

CERCEVE(10,23,70,25);
GOTOXY(25,24);
WRITE('SiLiNECEK KAYIT BU MU? [E\H]');
REPEAT
TUS:=UPCASE(READKEY);
UNTIL TUS IN['E','H'];
IF TUS='E' THEN
BEGIN
KAY.F:='S';
SEEK(DOSYA,I);WRITE(DOSYA,KAY);
GOTOXY(20,24);WRITE('************KAYIT SILINDI**************');
CLOSE(DOSYA);
TUS:=READKEY;
EXIT;
END;
END;
END;
GOTOXY(20,24);WRITE('****************KAYIT YOK**************');
CLOSE(DOSYA);
TUS:=READKEY;
END;


                   PROCEDURE EKRAN;
BEGIN CLRSCR;
TEXTCOLOR(4);
TEXTBACKGROUND(4);
WINDOW(50,50,50,45);
Cerceve(10,2,70,4);
  Cerceve(3,5,20,20);
  Cerceve(22,5,60,7);
  Cerceve(22,8,60,23);
  Cerceve(62,5,78,20);
  Cerceve(3,21,20,23);
  Cerceve(62,21,78,23);


GOTOXY(21,3);TEXTCOLOR(10);
WRITE('=========OTEL REZERVASYON PROGRAMI=======');
GOTOXY(27,6);
WRITE(' GÖKHAN AYGÜN (WWW.AYGUNSOFT.COM) ');
textcolor(white);
textbackground(2);
gotoxy(27,2);
gettime(saat,dakika,saniye,salise);
writeln('PROGRAMA GIRIS SAATINIZ',':',saat,':',dakika,':',saniye);
gotoxy(30,23);

getdate(yil,ay,gun,hg);
writeln('BU GUN :',':',gun,'/',ay,'/',yil);


END;







PROCEDURE SEC;
VAR
A:CHAR;
S:INTEGER;
BEGIN

s:=0;

EKRAN;

gor1;

repeat

if a=#80 then begin s:=s+1;end;
if a=#72 then begin s:=s-1;end;
if s>8 then begin s:=1;end;
if s<1 then begin s:=8;end;
if s=1 then begin rez1;rez;end;
if s=2 then begin t22;t77;t10;end;
if s=3 then begin t110;t33;t2;end;
if s=4 then begin t22;t44;t3;end;
if s=5 then begin t33;t55;t4;end;
if s=6 then begin t44;t66;t5;end;
if s=7 then begin t55;t77;t6;end;
if s=8 then begin t110;t66;t7;end;

if (s=1) and (a=#13)  then begin rezerve;renk(14,0);ekran;gor1;end;
if (s=2) and (a=#13)  then begin kayitgir;RENK(14,0);EKRAN;GOR1;end;
if (s=3) and (a=#13)  then begin list;RENK(14,0);EKRAN;GOR1;end;
if (s=4) and (a=#13)  then begin slist;RENK(14,0);EKRAN;GOR1;end;
if (s=5) and (a=#13)  then begin arama;RENK(14,0);EKRAN;GOR1;end;
if (s=6) and (a=#13)  then begin duzeltme;RENK(14,0);EKRAN;GOR1;end;
if (s=7) and (a=#13)  then begin silme;RENK(14,0);EKRAN;GOR1;end;
if (s=8) and (a=#13)  then begin halt(1);RENK(14,0);EKRAN;GOR1;end;
a:=readkey;
until a=#27;
end;




{ANA PROGRAM KESIMI}
BEGIN

SEC;

RENK(14,0);

EKRAN;
gor1;
END.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	son Mesaj
PhotoShop Programı	doLuN	Photoshop	5	08-03-08 04:46
Dict İngilizce Programı 3.7	Jack	Program Arşivi ve Türkçe Yamalar	0	12-29-07 16:50
TBBL'de haftanın programı	DeviL	Son Dakika Haber	0	12-29-07 12:40
Potada 14. hafta maç programı	DeviL	Gündem	0	12-27-07 14:30
Diyar'ın maç programı	DeviL	Son Dakika Haber	0	12-26-07 12:12

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder