#include<conio.h>
#include<graphics.h>
#include<stdio.h>
#include<math.h>
#include <dos.h>
main()
{
int gd,gm;
int x,y;
int i,j,kk;
detectgraph(&gd,&gm);
initgraph(&gd,&gm,"c:\\tc\\bgi");
settextstyle(DEFAULT_FONT,HORIZ_DIR,2);
outtextxy(25,240,"APASA ORICE TASTA SI CUTIA PANDOREI FACE BUM");
getch();
setcolor(WHITE);
line(0,400,640,400);
rectangle(300,330,340,400);
rectangle(310,320,330,330);
setcolor(4);
line(319,280,319,398);
line(320,280,320,398);
rectangle(320,280,330,300);
outtextxy(340,280,"RACHETA APOLLO 15");
getch();
for(j=400;j<640;j++)
{
cleardevice();
setcolor(WHITE);
line(0,j,640,j);
rectangle(300,j-70,340,j);
rectangle(310,j-80,330,j-70);
setcolor(RED);
line(319,280,319,400);
line(320,280,320,400);
rectangle(320,280,330,300);
setcolor(YELLOW);
circle(325,300,2);
delay(5);
}
for(i=400;i>340;i--)
{
cleardevice();
setcolor(RED);
line(319,i,319,i-120);
line(320,i,320,i-120);
rectangle(320,i-120,330,i-100);
setcolor(YELLOW);
circle(325,i-100,2);
delay(25);
}
cleardevice();
kk=0;
for(j=100;j<350;j++)
{
if(j%20==0)
{
setcolor(kk);
kk=kk+3;
delay(50);
}
ellipse(320,30,0,360,j+100,j+0);
}
for(j=100;j<350;j++)
{
if(j%20==0)
{
setcolor(BLACK);
delay(2);
}
ellipse(320,30,0,360,j+100,j+0);
}
cleardevice();
for(i=0;i<70;i++)
{
setcolor(i);
settextstyle(GOTHIC_FONT,HORIZ_DIR,6);
outtextxy(110,150,"LA MULTI ANI ");
printf(" by TIU COSTEL DANIEL\n\a");
delay(90);
}
getch();
}
Fiecare zi e un dar de la Dumnezeu si voia lui e implinita prin oameni! Lucreaza ca interiorul tau sa fie curat si linistit si se va reflecta infinit in exterior!
Abonați-vă la:
Postare comentarii (Atom)
MEDICAMENTE PENTRU LONGEVITATE
Inainte de a enumera medicamentele pentru longevitate, subliniez faptul ca eu nu as risca sa iau asa ceva pe termen lung, fiindca studiile ...
-
Motto propriu, insusit si asumat : toti suntem creativi, dar in forme diferite. Cele cinci niveluri ale creativitatii sunt: 1) creativita...
-
Motto propriu, insusit si asumat: uneori si o jumatate de secunda, poate face diferenta intr-un context fericit sau nefericit! Imi aduc am...
Niciun comentariu:
Trimiteți un comentariu