Gotoxy(20,10);Write ; Gotoxy(20,11);write(" 1- KAYIT "); Gotoxy(20,12);Write(" 2- LISTE "); Gotoxy(20,13);Write(" 3- SORGULAMA "); Gotoxy(20,14);Write(" 4- IKIS "); Gotoxy(20,15);Write ; Gotoxy(20,16);Write ; direk Derleyiciden kopyaladıgım için Ascii Kodlar cıkmamıs burada grdügünüz kısımları Alt+201, Alt+205, Alt+186, Alt+187, Alt+188, Alt+200, Alt+205 Ascii karekterlerini kullanarak yapıyoruz.. Choose Your Destiny

uses crt; var Adi, Soyadi, Nu, Cins:string ; T:CHAR; x, b1, b2, b3, b4:byte; D:text; PROCEDURE CINSSORGU; var e, k, d:text; x, c, anu, nu, ad, soy, cins:string ; Begin Assign ; Assign ; Assign ; Reset ; if Ioresult<>0 then Begin Writeln ; exit; end; Append ; if IORESULT <> 0 then Rewrite ; Append ; if IORESULT <> 0 then Rewrite ; While(Not Eof do Begin Readln ; if(copy(cins,1,5)="ERKEK") then writeln Else Writeln ; End; close ; Close ; Close ; Textbackground(3);Clrscr; textcolor(15); textbackground(1); Gotoxy(20,10);Write ; Gotoxy(20,11);write ; Gotoxy(20,12);Write ; Gotoxy(20,13);Write ; Gotoxy(20,14);Write ; Gotoxy(20,14);Write ; Gotoxy(20,15);Write ; REPEAT UNTIL KEYPRESSED; END; procedure Kayit; Begin Assign ; Append ; If IOResult<>0 then Rewrite ; Repeat Clrscr; GotoXy(10,10);Write ;ReadLn ;b1:=10-length ; GotoXy(10,11);Write ;ReadLn ;b2:=10-length ; GotoXy(10,12);Write ;ReadLn ; b3:=10-length ; GotoXy(10,13);Write ;ReadLn ;b4:=10-length ; WRITELN(D, Nu,"":b1, Adi,"":b2, Soyadi,"":b3, Cins,"":b4); WriteLN ; T:=Upcase ; Until ; Close ; end; Procedure Liste; begin Assign ; Reset ; If IOResult<>0 then begin writeln ;exit; end; clrscr; Gotoxy(20,5);WRITELN ; Gotoxy(20,6);WRITELN ; x:=7; While(Not Eof do begin Readln ; GotoXy(20, x);Write ; GotoXy(31, x);Write ; GotoXy(40, x);Write ; GotoXy(51, x);Write ; x:=x+1; End; Textcolor(128+14); Gotoxy(10,20);WRITELN ; Repeat Until Keypressed; Close ; end; BEGIN Repeat Textbackground(3);Clrscr; textcolor(15); textbackground(1); Gotoxy(20,10);Write ; Gotoxy(20,11);write(" 1- KAYIT "); Gotoxy(20,12);Write(" 2- LISTE "); Gotoxy(20,13);Write(" 3- SORGULAMA "); Gotoxy(20,14);Write(" 4- IKIS "); Gotoxy(20,15);Write ; Gotoxy(20,16);Write ; T:=Readkey; if(T="1") Then KAYIT; if(T="2") Then LISTE; if(T="3") Then CINSSORGU; UNTIL (T="4"); END. Choose Your Destiny