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 [Bu Adresi (link) Görme Yetkiniz Yok BEDAVA'ya Üye Ol Sitemizden Faydalan....] |
Paylaşım için tşkler…
|
teŞekkÜrler PaylaŞim İİÇİn
|
emeğe saygı
|
Bütün Zaman Ayarları WEZ +3 olarak düzenlenmiştir. Şu Anki Saat: 01:34 . |
Powered by vBulletin® Version 3.7.0
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.