Pascalda Favori Takiminiz Icin Sifreli Ekran Koruyucu [GS Version

Favori Takiminiz Icin Sifreli Ekran Koruyucu [GS Version] Favori Takiminiz Icin Sifreli Ekran Koruyucu..Renkler Degisebilir.>uses crt,graph;
var a,b,c,d,e,h,f1,g1,secure,gd,gm:integer;
g,f:string;parametr:word;
label askhiz,bas;
begin
askhiz:write('Hiz [0-100] : ');readln(e);
if (e<0) or (e>100) then goto askhiz;
write('Sifreniz [string] : ');readln(f);
if paramstr(parametr)='gs.exe -secure' then
begin
write('Sifreniz [integer] : ');readln(f1);
end;
detectgraph(gd,gm);initgraph(gd,gm,");
bas:a:=0;b:=0;c:=0;d:=480;
repeat
while a<640 do begin setcolor(yellow);
line(a,b,c,d);inc(a,1);inc(c,1);delay(100-e);end;
while a>0 do begin setcolor(red);
dec(a,1);dec(c,1);line(a,b,c,d);delay(100-e);end;
until keypressed;
cleardevice;
highvideo;textcolor(red);
writeln('Sifre str: ');
readln(g);
if paramstr(parametr)='gs.exe -secure' then
begin
writeln('Sifre int: ');readln(f1);
end;
if (g=f) and (g1=f1) then halt else goto bas;
end.