|
24/04/07, 00:50
|
#1
|
Tuğgeneral
Üyelik tarihi: Apr 2007
Bulunduğu yer: VAN
Yaş: 37
Mesajlar: 924
|
kısa film
uses crt;
var
i,c:integer;
begin
repeat
c:=c+1;
clrscr;
delay(00);
for i:=1 to 15 do
begin
gotoxy(c+i,10);
write(''_'');
end;
for i:=11 to 15 do
begin
gotoxy(c+1,i);
write(#179);
end;
for i:=1 to 15 do
begin
gotoxy(c+1+i,15);
write(''_'');
end;
for i:=11 to 15 do
begin
gotoxy(c+1+15,i);
write(#179);
end;
for i:=1 to 14 do
begin
gotoxy(c+1+i,12);
write(''_'');
end;
gotoxy(c+4,15);
write(#9);
gotoxy(c+12,15);
write(#9);
gotoxy(65,13);
write(#179);
gotoxy(64,13);
write(''/'');
gotoxy(66,13);
write(''\'');
gotoxy(64,14);
write(''/'');
gotoxy(66,14);
write(''\'');
gotoxy(65,12);
write(#1);
delay(55);
until(c=47);
if c=47 then
gotoxy(64,13);
write('' '');
gotoxy(66,13);
write('' '');
gotoxy(64,14);
write('' '');
gotoxy(66,14);
write('' '');
gotoxy(65,12);
write('' '');
gotoxy(65,13);
write('' '');
c:=1;
repeat
c:=c+1;
textbackground(lightred);
gotoxy(c+64,13-c);
write('' '');
gotoxy(c+64,13-c);
write(''/'');
gotoxy(c+66,13-c);
write('' '');
gotoxy(c+66,13-c);
write(''\'');
gotoxy(c+64,14-c);
write('' '');
gotoxy(c+64,14-c);
write(''/'');
gotoxy(c+66,14-c);
write('' '');
gotoxy(c+66,14-c);
write(''\'');
gotoxy(c+65,12-c);
write('' '');
gotoxy(c+65,12-c);
write(#1);
gotoxy(c+65,13-c);
write('' '');
gotoxy(c+65,13-c);
write(#179);
delay(55);
until(c=10);
readln();
end.
ziya ahmedsoy
sonata@nakhchivan.az
|
|
|
Konu Sayısı: 187
20/06/08, 15:27
|
#2
|
Mareşal
Üyelik tarihi: Sep 2007
Mesajlar: 5.835
|
Paylaşım için tşkler…
__________________
|
|
|
Konu Sayısı: 613
Takımınız:
30/06/08, 01:46
|
#3
|
Cumhurbaşkanı
Üyelik tarihi: May 2008
Bulunduğu yer: van
Mesajlar: 7.027
|
teŞekkÜrler PaylaŞim İİÇİn
__________________
Düşmeden Bulutlarda Koşmam GereK !
|
|
|
Konu Sayısı: 866
31/07/08, 15:52
|
#4
|
Yasaklı kullanıcı
Üyelik tarihi: Jan 2008
Bulunduğu yer: İstediğin yerden
Mesajlar: 1.883
|
emeğe saygı
|
|
|
Konu Sayısı: 316
Takımınız:
Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
|
|
Yetkileriniz
|
Yeni Mesaj yazma yetkiniz Aktif değil dir.
Mesajlara Cevap verme yetkiniz aktif değil dir.
Eklenti ekleme yetkiniz Aktif değil dir.
Kendi Mesajınızı değiştirme yetkiniz Aktif değildir dir.
HTML-KodlarıKapalı
|
|
|
Bütün Zaman Ayarları WEZ +3 olarak düzenlenmiştir. Şu Anki Saat: 12:43 .
| |