void snake::gamescreen()
{
char i;
textcolor(7);
clrscr();
textcolor(14);
cprintf("É");
textcolor(RED);
for(i=0;i<78;i++)
cprintf("Í");
textcolor(14);
cprintf("»");
gotoxy(1,23);
cprintf("È");
textcolor(RED);
for(i=0;i<78;i++)
cprintf("Í");
textcolor(14);
cprintf("¼");
textcolor(RED);
window(1,2,1,23);
for(i=0;i<21;i++)
cprintf("º");
window(80,2,80,23);
for(i=0;i<21;i++)
cprintf("º");
window(1,1,80,25);
gotoxy(43,12);
printf("");
gotoxy(1,24);
printf("Welcome to the game of ");
color();
cprintf("SNAKE");
cout<<" !!";
textcolor(7);
gotoxy(50,24);
cout<<"ENTER to Pause";
cout<<"\n(Press any arrow key to start now, Esc to leave, N for new game at any time...)";
newkey=getch();
if (newkey==0)
newkey=getch();
eatxy();
gotoxy(1,24);
delline(); delline();
gotoxy(35,24);
cout<<"EAT !!!!!";
gotoxy(70,24);
color();
cprintf("SCORE=");
cout<<"0";
}
wchar_t putwch(wchar_t __c)
{
init_ti();
switch (__c)
{
case L'\r':
gotoxy(1, ti.cury);
break;
case L'\n':
if (ti.cury<ti.winbottom - ti.wintop + 1)
gotoxy(ti.curx, ti.cury + 1);
else
{
int x, y;
x = ti.curx;
y = ti.cury;
gotoxy(1, 1);
delline();
gotoxy(x, y);
}
break;
case L'\b':
if (ti.curx > 1) gotoxy(ti.curx - 1, ti.cury);
break;
default:
putwchxyattr(ti.winleft + ti.curx - 1, ti.wintop + ti.cury - 1, __c, ti.attribute);
if (ti.curx + 1>ti.winright + ti.winleft + 1)
{
if (_wscroll)
{
if (ti.cury<ti.winbottom - ti.wintop + 1)
gotoxy(1, ti.cury + 1);
else
{
int y;
y = ti.cury;
gotoxy(1, 1);
delline();
gotoxy(1, y);
}
}
else
gotoxy(1, ti.cury);
}
else
gotoxy(ti.curx + 1, ti.cury);
}
return __c;
}
int main(int argc,char *argv[])
{
for(int i=1;i<argc;i++)
if(delline(argv[i]))
return 0;
return 0;
}
void main()
{
clrscr();
char s[10];
strcpy(s,"eshwar");
char p;
int flag=0;
cout<<"\n\t\t\t Port Manager Login Authorization";
cout<<"\n\tEnter your password:\t";
for(int i=0;i<=strlen(s);i++)
{
p=getche();
if(p==' '|| p=='\b')
{
delline();
cout<<"\n\t\tLogin Unsuccessful";
getche();
exit(0);
}
else
{cout<<"\b$";
if(s[i]==p)
flag++;
}
}
clrscr();
if(flag==strlen(s))
cout<<"\n\n\t\t\tLogin Successful";
else
{
cout<<"\nLogin Unsuccessful";
exit(0);
}
getche();
}
void SystemWindow::outputToSystemMessages(string data)
{
linesNr++;
_Setbk bgColor;
_setcursortype(_NORMALCURSOR);
bgColor.color = RED;
cout << bgColor;
cout << setclr(WHITE);
if (linesNr > 6)
{
gotoxy(2, 19);
delline();
gotoxy(1, 24);
insline();
cout << "|";
gotoxy(80, 24);
cout << "|";
gotoxy(2, 24);
}
else
{
gotoxy(2, 18 + linesNr);
}
cout << data;
}
int putch(int c)
{
int row, col;
ScreenGetCursor(&row, &col);
/* first, handle the character */
if (c == '\n')
{
row++;
}
else if (c == '\r')
{
col = txinfo.winleft - 1;
}
else if (c == '\b')
{
if (col > txinfo.winleft - 1)
col--;
else if (row > txinfo.wintop -1)
{
/*
* Turbo-C ignores this case; we are smarter.
*/
row--;
col = txinfo.winright-1;
}
}
else if (c == 0x07)
bell();
else {
/* short val = c | (ScreenAttrib << 8); */
/* puttext(col + 1, row + 1, col + 1, row + 1, &val); */
ScreenPutChar(c, ScreenAttrib, col, row);
col++;
}
/* now, readjust the window */
if (col >= txinfo.winright) {
col = txinfo.winleft - 1;
row++;
}
if (row >= txinfo.winbottom) {
/* scrollwin(0, txinfo.winbottom - txinfo.wintop, 1); */
if (_wscroll)
{
ScreenSetCursor(txinfo.wintop-1,0);
delline();
}
row--;
}
ScreenSetCursor(row, col);
txinfo.cury = row - txinfo.wintop + 2;
txinfo.curx = col - txinfo.winleft + 2;
return c;
}
static JSBool
js_conio_delline(JSContext *cx, uintN argc, jsval *arglist)
{
jsrefcount rc;
rc=JS_SUSPENDREQUEST(cx);
delline();
JS_SET_RVAL(cx, arglist, JSVAL_TRUE);
JS_RESUMEREQUEST(cx, rc);
return(JS_TRUE);
}
int get_speed(enum speed *run_speed) {
char choice;
int return_val;
gotoxy(10,23);
delline();
cprintf("Run Speed: Cycle, Slow, or Fast (C/S/F) ");
choice = toupper(get_keystroke());
if(choice == EscKey) {
return_val = STOP;
} else {
switch(choice) {
case 'S':
*run_speed = SLOW;
return_val = CONTINUE;
break;
case 'F':
*run_speed = FAST;
return_val = CONTINUE;
break;
case 'C':
*run_speed = CYCLE;
return_val = CONTINUE;
break;
default:
return_val = STOP;
}
}
delline();
return return_val;
}
void print(int action, const char *fmt, ...)
{
char buf[80];
size_t len;
va_list ap;
const char success[] = " \e[1m[ OK ]\e[0m\n";
const char failure[] = " \e[7m[FAIL]\e[0m\n";
const char warning[] = " \e[7m[WARN]\e[0m\n";
const char pending[] = " \e[1m[ \\/ ]\e[0m\n";
const char dots[] = " .....................................................................";
if (silent)
return;
if (fmt) {
va_start(ap, fmt);
len = vsnprintf(buf, sizeof(buf), fmt, ap);
va_end(ap);
delline();
print_timestamp();
write(STDERR_FILENO, "\r", 1);
write(STDERR_FILENO, buf, len);
write(STDERR_FILENO, dots, 60 - len); /* pad with dots. */
}
switch (action) {
case -1:
break;
case 0:
write(STDERR_FILENO, success, sizeof(success));
break;
case 1:
write(STDERR_FILENO, failure, sizeof(failure));
break;
case 2:
write(STDERR_FILENO, warning, sizeof(warning));
break;
default:
write(STDERR_FILENO, pending, sizeof(pending));
break;
}
}
void snake::collision()
{
gotoxy(1,24);
delline();
gotoxy(35,24);
color();
cprintf("GAME OVER");
gotoxy(1,25);
textcolor(7);
cprintf("The snake collided with the wall or with itself!");
gotoxy(70,24);
color();
cprintf("SCORE=");
cout<<score;
getch();
playagain();
}
/*
* Delete nchunk line(s) from "row", replacing the
* bottom line on the screen with a blank line.
* Unless we're using the scrolling region, this is
* done with a crafty sequences of insert and delete
* lines. The presence of the echo area makes a
* boundry condition go away.
*/
ttdell(row, bot, nchunk)
{
register int i, nl;
if (row == bot) { /* One line special case */
ttmove(row, 0);
tteeol();
return;
}
#ifdef TCCONIO
ttflush();
window(1, row+1, ncol, bot+1);
gotoxy(1, 1);
while (nchunk--) delline();
window(1, 1, ncol, nrow);
ttrow = HUGE; /* Unknown. */
ttcol = HUGE;
#else
if (CS) { /* scrolling region */
nl = bot - row;
ttwindow(row, bot);
ttmove(bot, 0);
while (nchunk--) putpad(SF, nl);
ttnowindow();
}
else if(insdel) {
ttmove(row, 0); /* Else use insert/delete line */
nl = nrow - ttrow;
if (pDL) putpad(tgoto(pDL, 0, nchunk), nl);
else for (i=0; i<nchunk; i++) /* For all lines in the chunk */
putpad(DL, nl);
ttmove(1+bot-nchunk,0);
nl = nrow - ttrow; /* ttmove() changes ttrow */
if (pAL) putpad(tgoto(pAL, 0, nchunk), nl);
else for (i=0; i<nchunk; i++) /* For all lines in the chunk */
putpad(AL, nl);
ttrow = HUGE;
ttcol = HUGE;
} else panic("ttdell: Can't insert/delete line");
#endif /* TCCONIO */
}
// tries to merge the vertex v with another
bool mergevertex(int v)
{
int i;
for (i=0;i<vertsnum;i++)
if (verts[i].x==verts[v].x && verts[i].y==verts[v].y && v!=i) break;
if (i==vertsnum) return false;
Tcluster *c;
loop:
for (c=map->clusters;c;c=c->next) {
Tsector *s;
for (s=c->sectors;s;s=s->next) {
Tline *l;
for (l=s->lines;l;l=l->next) {
if (l->v1==v) {
l->v1=i;
refs[i]++;
}
if (l->v2==v) {
l->v2=i;
refs[i]++;
}
if (l->v1==l->v2) {
delline(map,c,s,l);
goto loop;
}
}
}
}
for (c=map->clusters;c;c=c->next) {
Tsector *s;
for (s=c->sectors;s;s=s->next) updatesector(s);
}
refs[v]=1;
delvertex(v);
compactverts();
showvertices();
setmessage("Vertex deleted",true);
return true;
}
int cputs(const char *s)
{
int row, col,c;
const unsigned char *ss = (const unsigned char *)s;
short *viaddr;
short sa = ScreenAttrib << 8;
ScreenGetCursor(&row, &col);
viaddr = (short *)VIDADDR(row,col);
/*
* Instead of just calling putch; we do everything by hand here,
* This is much faster. We don't move the cursor after each character,
* only after the whole string is written, because ScreenSetCursor
* needs to long because of switching to real mode needed with djgpp.
* You won't recognize the difference.
*/
while ((c = *ss++))
{
/* first, handle the character */
if (c == '\n')
{
row++;
viaddr += txinfo.screenwidth;
}
else if (c == '\r')
{
col = txinfo.winleft - 1;
viaddr = (short *)VIDADDR(row,col);
}
else if (c == '\b')
{
if (col > txinfo.winleft-1)
{
col--;
viaddr--;
}
else if (row > txinfo.wintop -1)
{
/*
* Turbo-C ignores this case. We want to be able to
* edit strings with backspace in gets after
* a linefeed, so we are smarter
*/
row--;
col = txinfo.winright-1;
viaddr = (short *)VIDADDR(row,col);
}
}
else if (c == 0x07)
bell();
else {
short q = c | sa;
dosmemput(&q, 2, (int)viaddr);
viaddr++;
col++;
}
/* now, readjust the window */
if (col >= txinfo.winright) {
col = txinfo.winleft - 1;
row++;
viaddr = (short *)VIDADDR(row,col);
}
if (row >= txinfo.winbottom) {
ScreenSetCursor(txinfo.wintop-1,0); /* goto first line in window */
delline(); /* and delete it */
row--;
viaddr -= txinfo.screenwidth;
}
}
ScreenSetCursor(row, col);
txinfo.cury = row - txinfo.wintop + 2;
txinfo.curx = col - txinfo.winleft + 2;
return(*(--ss));
}
void main() {
// clrscr
uint8_t color;
uint8_t bg;
uint8_t x, y;
uint8_t a;
uint16_t b;
char c;
char *vram;
unsigned char index;
char buffer[20];
unsigned char offs;
// links, oben, rechts, unten
window(3, 3, 30, 30);
clrscr();
for (color = 0; color < 16; color++) {
textcolor(color);
for (bg = 0; bg < 8; bg++) {
textbackground(bg);
cstbt(0x1b);
}
cputs(" Hello KC85!\r\n");
}
x = wherex();
y = wherey();
gotoxy(0, 3);
delline();
gotoxy(0, 5);
delline();
cputs("test");
gotoxy(x, y);
c = getche();
putch(c);
crlf();
// kbhit
textcolor(BROWN);
clrscr();
for (index = 0; index < 20; index++) {
if ((index & 0x01) == 0x01)
highvideo();
else
lowvideo();
cputs("press key\r\n");
}
textcolor(WHITE);
while (kbhit())
cputs("you have touched key.\r\n");
cputs("done\r\n");
next();
// delline
cputs("This line will be deleted. press key.");
getch();
delline();
cputs("Line deleted successfully.");
getch();
crlf();
// inlin
cputs("Zeug eingeben: ");
offs = wherex();
vram = inlin();
vram += offs;
crlf();
index = 0;
while (*vram != '\0') {
buffer[index] = *vram;
index++;
vram++;
}
ahex(index);
while (index > 0) {
index--;
ahex(buffer[index]);
space();
}
next();
crlf();
// cgets
cputs("Zeug eingeben: ");
buffer[0] = 10;
vram = cgets(buffer);
crlf();
delline();
index = buffer[1];
ahex(index);
space();
space();
while (index > 0) {
index--;
ahex(*vram);
space();
vram++;
}
ahex(*vram);
crlf();
// add test
a = sqr(100);
b = puse(10, 10, 10);
b = b + a;
hlhx(b);
crlf();
}
int main(int argc, char *argv[])
{
char cad[80];
char destin[4096];
int i;
clrscr();
textbackground(BLUE);
textcolor(YELLOW);
clrscr();
getch();
window(2,2,77,22);
textbackground(RED);
textcolor(LIGHTBLUE);
clrscr();
gotoxy(1,3); cprintf("Prueba");
getch();
window(3,3,76,21);
textbackground(LIGHTBLUE);
textcolor(CYAN);
clrscr();
gotoxy(1,3); cputs("Otra prueba");
for(i = 0; i < 100; i++) cputs("111");
highvideo();
for(i = 0; i < 100; i++) cputs("222");
lowvideo();
for(i = 0; i < 100; i++) cputs("333");
highvideo();
for(i = 0; i < 100; i++) cputs("444");
lowvideo();
for(i = 0; i < 100; i++) cputs("555");
highvideo();
for(i = 0; i < 100; i++) cputs("666");
getch();
gotoxy(10, 12); cputs("aqui");
getch();
delline();
getch();
gotoxy(10, 1); cputs("aqui");
getch();
delline();
getch();
gotoxy(10, 15); cputs("aqui");
getch();
delline();
getch();
normvideo();
for(i = 0; i < 500; i++) putch('*');
getch();
gotoxy(10, 4); cputs("aqui");
getch();
insline();
cputs("insertada");
getch();
gotoxy(1, 7);
cputs("Leer una cadena: ");
cad[0]=10;
cgets(cad);
gotoxy(1, 8);
cprintf("caracteres leidos: %d, cadena %s #relleno relleno relleno "
"relleno###########################", (int)cad[1], &cad[2]);
clreol();
getch();
strcpy(cad, getpass("clave: "));
cprintf("clave leida: %s", cad);
getch();
gettext(2, 2, 74, 19, destin);
clrscr();
getch();
puttext(1, 1, 73, 18, destin);
getch();
textbackground(BLUE);
textcolor(WHITE);
window(10,10,15,15);
getch();
normvideo();
textcolor(WHITE);
textbackground(BLACK);
window(1,1,80,25);
gotoxy(1,1);
return 0;
}
void show_sup(int line)
{
gotoxy(1, y2+line);
delline();
show_scr(swh, swh);
}
static void banner(void)
{
delline();
echo("Finit version " VERSION " (" WHOAMI ") " __DATE__ " " __TIME__);
}
void main()
{
textbackground(BLACK);
clrscr();
textcolor(RED); delay(1000);
cprintf("°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°");
cprintf("°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°");
cprintf("°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°");
cprintf("°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°");
cprintf("°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°");
cprintf("°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°");
cprintf("°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°");
cprintf("°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°");
cprintf("°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°");
cprintf("°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°");
cprintf("°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°");
cprintf("°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°");
cprintf("°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°");
cprintf("°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°");
cprintf("°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°");
cprintf("°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°");
cprintf("°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°");
cprintf("°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°");
cprintf("°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°");
cprintf("°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°");
cprintf("°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°");
cprintf("°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°");
cprintf("°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°");
cprintf("°°±±²²±±²°°°±±²²±±²°°°±±²²±± °°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²±±²°");
cprintf("°° ±²²±±²°°°±± ²±±²°°°±±²²± °±±²²±±²°°°±±²²±±²°°°±±²²±±²°°°±±²²± °°±± ²±±²°");
cprintf("°° ²²±±²°°°±± ² ²°°°±±²² ±±²²±±²°°°± ²²±±²°° ±²²±±²°°°±±²²± °± ±±²°");
delay(200); gotoxy(20,1); delline();
sound(100);
delay(100); gotoxy(19,1); delline();
sound(500);
delay(10);sound(1000);
delay(100);
sound(500);
delay(100);sound(1000);
delay(100); gotoxy(18,1); delline();
sound(500);
delay(100);sound(1000);
delay(10);
sound(500);
delay(10);
sound(1000);
delay(50); gotoxy(17,1); delline();
sound(900);
delay(66);
sound(950);
delay(23); gotoxy(16,1); delline();
sound(1250);
sound(1000);
delay(100); gotoxy(15,1); delline();
sound(700);
delay(100);
sound(1000);
delay(100); gotoxy(14,1); delline();
sound(900);
delay(100);
sound(900);
delay(100); gotoxy(13,1); delline();
sound(900);
delay(100); gotoxy(14,1); delline();
sound(500);
delay(100); gotoxy(13,1); delline();
sound(1000);
delay(100); gotoxy(12,1); delline();
sound(500);
delay(100); gotoxy(11,1); delline();
sound(1000);
delay(100);
sound(500);
delay(100); gotoxy(10,1); delline();
sound(1000);
delay(100); gotoxy( 9,1); delline();
sound(500);
delay(100);
sound(1000);
delay(100); gotoxy(7 ,1); delline();
sound(500);
delay(100);
sound(1000);
delay(100);
sound(500);
delay(100); gotoxy(6 ,1); delline();
sound(1000);
delay(100);
sound(500);
delay(100); gotoxy(5 ,1); delline();
sound(1000);
delay(100);
sound(500);
delay(100);
sound(1000);
delay(100);
sound(500);
delay(100); gotoxy(4 ,1); delline();
sound(1000);
delay(100);
sound(500);
delay(100);
sound(1000);
delay(100);
sound(500);
delay(100);
sound(1000); delline();
delay(100);
sound(500);
delay(100);
sound(1000);
delay(100);
sound(500);
delay(100);
sound(1000);
delay(100); gotoxy(3 ,1); delline();
sound(500);
delay(100);
sound(1000);
delay(100);
sound(500);
delay(100);
sound(1000);
delay(100); delline();
sound(500);
delay(100); gotoxy(1,1); delline();
sound(1000);
delay(100);
sound(500);
delay(100);
sound(1000);
delay(100);
sound(500);
delay(100);
sound(1000);
delay(100); gotoxy(2,1); delline();
sound(500);
delay(100);
nosound();
gotoxy(20,1); delline(); delay(500);
gotoxy(20,1); delline(); delay(500);
gotoxy(20,1); delline(); delay(500);
gotoxy(20,1); delline(); delay(500);
delay(55);
textcolor(WHITE);
sound(100);
gotoxy(40,14); cprintf("°°°°");
gotoxy(39,15); cprintf("°°°°°°"); delay(60); sound(100);
gotoxy(39,16); cprintf("°°°°°°");
gotoxy(40,17); cprintf("°°°°");
gotoxy(39,14); cprintf("°°°°°");
gotoxy(38,15); cprintf("°°°°°°°°"); delay(60); sound(100);
gotoxy(38,16); cprintf("°°°°°°°°");
gotoxy(39,17); cprintf("°°°°°°");
gotoxy(39,13); cprintf("°°°°°"); sound(100);
textcolor(BLACK);
gotoxy(40,14); cprintf("°°°°");
gotoxy(39,15); cprintf("°°°°°°"); delay(60); sound(100);
gotoxy(39,16); cprintf("°°°°°°");
gotoxy(40,17); cprintf("°°°°");
gotoxy(39,14); cprintf("°°°°°");
gotoxy(38,15); cprintf("°°°°°°°°"); delay(60); sound(100);
gotoxy(38,16); cprintf("°°°°°°°°");
gotoxy(39,17); cprintf("°°°°°°");
gotoxy(39,13); cprintf("°°°°°"); sound(100);
textcolor(MAGENTA);
gotoxy(40,13); cprintf("ºº");//empieza el monito
gotoxy(40,14); cprintf("±±");
gotoxy(39,15); cprintf(" "); delay(60); sound(100);
gotoxy(39,16); cprintf("©ÎΪ");
gotoxy(39,17); cprintf(" ³³"); delay(1000);
gotoxy(35,11);
insline(); delay(400);
delline(); delay(400);
insline(); delay(300);
delline(); delay(300);
insline(); delay(200);
delline(); delay(200);
insline(); delay(100);
delline(); delay(100);
insline(); delay(50);
delline(); delay(50);
insline(); delay(50);
delline(); delay(50);
insline(); delay(40);
delline(); delay(40);
insline(); delay(30);
delline(); delay(30);
insline(); delay(10);
delline(); delay(10);
delay(100); textcolor(YELLOW);
gotoxy(44,13); cprintf("ºº");//empieza el monito
gotoxy(44,14); cprintf("±±");
gotoxy(43,15); cprintf(" "); delay(60); sound(100);
gotoxy(43,16); cprintf("©ÎΪ");
gotoxy(43,17); cprintf(" ³³"); delay(1000);
gotoxy(20,10);
insline(); delay(200);
delline(); delay(200);
insline(); delay(100);
delline(); delay(100);
insline(); delay(50);
delline(); delay(50);
insline(); delay(50);
delline(); delay(50);
insline(); delay(40);
delline(); delay(40);
insline(); delay(30);
delline(); delay(30);
insline(); delay(10);
delay(100); textcolor(GREEN);
gotoxy(36,13); cprintf("ºº");//empieza el monito
gotoxy(36,14); cprintf("±±");
gotoxy(35,15); cprintf(" "); delay(60); sound(100);
gotoxy(35,16); cprintf("©ÎΪ");
gotoxy(35,17); cprintf(" ³³"); delay(10);
textcolor(BLUE);
gotoxy(50,13); cprintf("ºº");//empieza el monito
gotoxy(50,14); cprintf("±±");
gotoxy(49,15); cprintf(" "); delay(60); sound(100);
gotoxy(49,16); cprintf("©ÎΪ");
gotoxy(49,17); cprintf(" ³³"); delay(100);
gotoxy(20,11);
delline(); delay(1);
insline(); delay(50);
delline(); delay(50);
insline(); delay(50);
delline(); delay(50);
insline(); delay(40);
delline(); delay(40);
insline(); delay(30);
delline(); delay(30);
insline(); delay(10);
delay(100); textcolor(5);
gotoxy(10,17); cprintf("ºº");//empieza el monito
gotoxy(10,18); cprintf("±±");
gotoxy( 9,19); cprintf(" "); delay(60); sound(100);
gotoxy( 9,20); cprintf("©ÎΪ");
gotoxy( 9,21); cprintf(" ³³"); delay(10);
textcolor(RED);
gotoxy(70,1); cprintf("ºº");//empieza el monito
gotoxy(70,2); cprintf("±±");
gotoxy(69,3); cprintf(" "); delay(60); sound(100);
gotoxy(69,4); cprintf("©ÎΪ");
gotoxy(69,5); cprintf(" ³³"); delay(100);
textcolor(2);
gotoxy(2,1); cprintf("ºº");//empieza el monito
gotoxy(2,2); cprintf("±±");
gotoxy(1,3); cprintf(" "); delay(60); sound(100);
gotoxy(1,4); cprintf("©ÎΪ");
gotoxy(1,5); cprintf(" ³³"); delay(10);
textcolor(WHITE);
gotoxy(75,20); cprintf("ºº");//empieza el monito
gotoxy(75,21); cprintf("±±");
gotoxy(74,22); cprintf(" "); delay(60); sound(100);
gotoxy(74,23); cprintf("©ÎΪ");
gotoxy(74,24); cprintf(" ³³"); delay(100);
gotoxy(1,1);
delline(); delay(10);
insline(); delay(50);
delline(); delay(50);
insline(); delay(50);
delline(); delay(50);
insline(); delay(40);
delline(); delay(40);
insline(); delay(30);
delline(); delay(30);
insline(); delay(5);
delline(); delay(100);
insline(); delay(5);
delline(); delay(5);
insline(); delay(5);
delline(); delay(5);
insline(); delay(4);
delline(); delay(4);
insline(); delay(3);
delline(); delay(3);
insline(); delay(1);
delline(); delay(1);
insline(); delay(5);
delline(); delay(5);
insline(); delay(5);
delline(); delay(5);
insline(); delay(4);
delline(); delay(4);
insline(); delay(3);
delline(); delay(3);
insline(); delay(4);
delline(); delay(10);
insline(); delay(10);
textcolor(1);
gotoxy(14,17); cprintf("ºº");//empieza el monito
gotoxy(14,18); cprintf("±±");
gotoxy(13,19); cprintf(" "); delay(60); sound(100);
gotoxy(13,20); cprintf("©ÎΪ");
gotoxy(13,21); cprintf(" ³³"); delay(10);
textcolor(2);
gotoxy(50,1); cprintf("ºº");//empieza el monito
gotoxy(50,2); cprintf("±±");
gotoxy(49,3); cprintf(" "); delay(60); sound(100);
gotoxy(49,4); cprintf("©ÎΪ");
gotoxy(49,5); cprintf(" ³³"); delay(100);
textcolor(3);
gotoxy(9,1); cprintf("ºº");//empieza el monito
gotoxy(9,2); cprintf("±±");
gotoxy(8,3); cprintf(" "); delay(60); sound(100);
gotoxy(8,4); cprintf("©ÎΪ");
gotoxy(8,5); cprintf(" ³³"); delay(10);
textcolor(4);
gotoxy(63,20); cprintf("ºº");//empieza el monito
gotoxy(63,21); cprintf("±±");
gotoxy(62,22); cprintf(" "); delay(60); sound(100);
gotoxy(62,23); cprintf("©ÎΪ");
gotoxy(63,24); cprintf(" ³³"); delay(100);
textcolor(5);
gotoxy(10,11); cprintf("ºº");//empieza el monito
gotoxy(10,12); cprintf("±±");
gotoxy( 9,13); cprintf(" "); delay(60); sound(100);
gotoxy( 9,14); cprintf("©ÎΪ");
gotoxy( 9,15); cprintf(" ³³"); delay(10);
textcolor(6);
gotoxy(70,8); cprintf("ºº");//empieza el monito
gotoxy(70,9); cprintf("±±");
gotoxy(69,10); cprintf(" "); delay(60); sound(100);
gotoxy(69,11); cprintf("©ÎΪ");
gotoxy(69,12); cprintf(" ³³"); delay(100);
textcolor(7);
gotoxy(2,19); cprintf("ºº");//empieza el monito
gotoxy(2,20); cprintf("±±");
gotoxy(1,21); cprintf(" "); delay(60); sound(100);
gotoxy(1,22); cprintf("©ÎΪ");
gotoxy(1,23); cprintf(" ³³"); delay(10);
textcolor(8);
gotoxy(35,20); cprintf("ºº");//empieza el monito
gotoxy(35,21); cprintf("±±");
gotoxy(34,22); cprintf(" "); delay(60); sound(100);
gotoxy(34,23); cprintf("©ÎΪ");
gotoxy(34,24); cprintf(" ³³"); delay(100);
nosound();
gotoxy(1,1);
delline(); delay(5);
insline(); delay(50);
delline(); delay(50);
insline(); delay(50);
delline(); delay(50);
insline(); delay(40);
delline(); delay(40);
insline(); delay(30);
delline(); delay(30);
insline(); delay(5);
delline(); delay(30);
insline(); delay(5);
delline(); delay(5);
insline(); delay(5);
delline(); delay(5);
insline(); delay(4);
delline(); delay(4);
insline(); delay(3);
delline(); delay(3);
insline(); delay(1);
delline(); delay(1);
insline(); delay(5);
delline(); delay(5);
insline(); delay(5);
delline(); delay(5);
insline(); delay(4);
delline(); delay(4);
insline(); delay(3);
delline(); delay(3);
insline(); delay(8);
delline(); delay(10);
insline(); delay(10);
delline(); delay(5);
insline(); delay(50);
delline(); delay(50);
insline(); delay(50);
delline(); delay(50);
insline(); delay(40);
delline(); delay(40);
insline(); delay(30);
delline(); delay(30);
insline(); delay(5);
delline(); delay(8);
insline(); delay(5);
delline(); delay(5);
insline(); delay(5);
delline(); delay(5);
insline(); delay(4);
delline(); delay(4);
insline(); delay(3);
delline(); delay(3);
insline(); delay(1);
delline(); delay(9);
insline(); delay(5);
delline(); delay(5);
insline(); delay(5);
delline(); delay(5);
insline(); delay(4);
delline(); delay(4);
insline(); delay(3);
delline(); delay(3);
insline(); delay(5);
delline(); delay(10);
insline(); delay(10);
textcolor(1);
gotoxy(14,10); cprintf("ºº");//empieza el monito
gotoxy(14,11); cprintf("±±");
gotoxy(13,12); cprintf(" "); delay(60); sound(100);
gotoxy(13,13); cprintf("©ÎΪ");
gotoxy(13,14); cprintf(" ³³"); delay(10);
textcolor(2);
gotoxy(50,5); cprintf("ºº");//empieza el monito
gotoxy(50,6); cprintf("±±");
gotoxy(49,7); cprintf(" "); delay(60); sound(100);
gotoxy(49,8); cprintf("©ÎΪ");
gotoxy(49,9); cprintf(" ³³"); delay(100);
textcolor(3);
gotoxy(50,1); cprintf("ºº");//empieza el monito
gotoxy(50,2); cprintf("±±");
gotoxy(49,3); cprintf(" "); delay(60); sound(100);
gotoxy(49,4); cprintf("©ÎΪ");
gotoxy(49,5); cprintf(" ³³"); delay(10);
textcolor(4);
gotoxy(20,20); cprintf("ºº");//empieza el monito
gotoxy(20,21); cprintf("±±");
gotoxy(19,22); cprintf(" "); delay(60); sound(100);
gotoxy(19,23); cprintf("©ÎΪ");
gotoxy(19,24); cprintf(" ³³"); delay(100);
textcolor(5);
gotoxy(10,1); cprintf("ºº");//empieza el monito
gotoxy(10,2); cprintf("±±");
gotoxy( 9,3); cprintf(" "); delay(60); sound(100);
gotoxy( 9,4); cprintf("©ÎΪ");
gotoxy( 9,5); cprintf(" ³³"); delay(10);
textcolor(6);
gotoxy(70,1); cprintf("ºº");//empieza el monito
gotoxy(70,2); cprintf("±±");
gotoxy(69,3); cprintf(" "); delay(60); sound(100);
gotoxy(69,4); cprintf("©ÎΪ");
gotoxy(69,5); cprintf(" ³³"); delay(100);
textcolor(7);
gotoxy(2,19); cprintf("ºº");//empieza el monito
gotoxy(2,20); cprintf("±±");
gotoxy(1,21); cprintf(" "); delay(60); sound(100);
gotoxy(1,22); cprintf("©ÎΪ");
gotoxy(1,23); cprintf(" ³³"); delay(10);
textcolor(8);
gotoxy(36,20); cprintf("ºº");//empieza el monito
gotoxy(36,21); cprintf("±±");
gotoxy(35,22); cprintf(" "); delay(60); sound(100);
gotoxy(35,23); cprintf("©ÎΪ");
gotoxy(35,24); cprintf(" ³³"); delay(100);
textcolor(9);
gotoxy(51,1); cprintf("ºº");//empieza el monito
gotoxy(51,2); cprintf("±±");
gotoxy(50,3); cprintf(" "); delay(60); sound(100);
gotoxy(50,4); cprintf("©ÎΪ");
gotoxy(50,5); cprintf(" ³³"); delay(10);
textcolor(10);
gotoxy(72,19); cprintf("ºº");//empieza el monito
gotoxy(72,20); cprintf("±±");
gotoxy(71,21); cprintf(" "); delay(60); sound(100);
gotoxy(71,22); cprintf("©ÎΪ");
gotoxy(71,23); cprintf(" ³³"); delay(100);
textcolor(11);
gotoxy(75,10); cprintf("ºº");//empieza el monito
gotoxy(75,11); cprintf("±±");
gotoxy(76,12); cprintf(" "); delay(60); sound(100);
gotoxy(76,13); cprintf("©ÎΪ");
gotoxy(76,14); cprintf(" ³³"); delay(10);
textcolor(12);
gotoxy(63,10); cprintf("ºº");//empieza el monito
gotoxy(63,11); cprintf("±±");
gotoxy(62,12); cprintf(" "); delay(60); sound(100);
gotoxy(62,13); cprintf("©ÎΪ");
gotoxy(63,14); cprintf(" ³³"); delay(100);
textcolor(13);
gotoxy(32,11); cprintf("ºº");//empieza el monito
gotoxy(32,12); cprintf("±±");
gotoxy(31,13); cprintf(" "); delay(60); sound(100);
gotoxy(31,14); cprintf("©ÎΪ");
gotoxy(31,15); cprintf(" ³³"); delay(10);
textcolor(14);
gotoxy(70,20); cprintf("ºº");//empieza el monito
gotoxy(70,21); cprintf("±±");
gotoxy(69,22); cprintf(" "); delay(60); sound(100);
gotoxy(69,23); cprintf("©ÎΪ");
gotoxy(69,24); cprintf(" ³³"); delay(100);
textcolor(7);
gotoxy(2,14); cprintf("ºº");//empieza el monito
gotoxy(2,15); cprintf("±±");
gotoxy(1,16); cprintf(" "); delay(60); sound(100);
gotoxy(1,17); cprintf("©ÎΪ");
gotoxy(1,18); cprintf(" ³³"); delay(10);
textcolor(15);
gotoxy(35,3); cprintf("ºº");//empieza el monito
gotoxy(35,4); cprintf("±±");
gotoxy(34,5); cprintf(" "); delay(60); sound(100);
gotoxy(34,6); cprintf("©ÎΪ");
gotoxy(34,7); cprintf(" ³³"); delay(100);
gotoxy(1,1);
delline(); delay(100);
insline(); delay(50);
delline(); delay(50);
insline(); delay(50);
delline(); delay(50);
insline(); delay(40);
delline(); delay(40);
insline(); delay(30);
delline(); delay(30);
insline(); delay(5);
delline(); delay(5);
insline(); delay(5);
delline(); delay(5);
insline(); delay(5);
delline(); delay(5);
insline(); delay(4);
delline(); delay(4);
insline(); delay(3);
delline(); delay(3);
insline(); delay(1);
delline(); delay(1);
insline(); delay(5);
delline(); delay(5);
insline(); delay(5);
delline(); delay(5);
insline(); delay(4);
delline(); delay(4);
insline(); delay(3);
delline(); delay(3);
insline(); delay(3);
delline(); delay(10);
insline(); delay(10);
delline(); delay(5);
insline(); delay(50);
delline(); delay(50);
insline(); delay(50);
delline(); delay(50);
insline(); delay(40);
delline(); delay(40);
insline(); delay(30);
delline(); delay(30);
insline(); delay(5);
delline(); delay(7);
insline(); delay(5);
delline(); delay(5);
insline(); delay(5);
delline(); delay(5);
insline(); delay(4);
delline(); delay(4);
insline(); delay(3);
delline(); delay(3);
insline(); delay(1);
delline(); delay(8);
insline(); delay(5);
delline(); delay(5);
insline(); delay(5);
delline(); delay(5);
insline(); delay(4);
delline(); delay(4);
insline(); delay(3);
delline(); delay(3);
insline(); delay(8);
delline(); delay(10);
insline(); delay(10);
delline(); delay(6);
insline(); delay(50);
delline(); delay(50);
insline(); delay(50);
delline(); delay(50);
insline(); delay(40);
delline(); delay(40);
insline(); delay(30);
delline(); delay(30);
insline(); delay(5);
delline(); delay(8);
insline(); delay(5);
delline(); delay(5);
insline(); delay(5);
delline(); delay(5);
insline(); delay(4);
delline(); delay(4);
insline(); delay(3);
insline(); delay(50); delline();
delline(); delay(50);
insline(); delay(50);
delline(); delay(50);
insline(); delay(40);
delline(); delay(40);
insline(); delay(30);
delline(); delay(30);
insline(); delay(5);
delline(); delay(7);
insline(); delay(5);
delline(); delay(5);
insline(); delay(5);
delline(); delay(5);
insline(); delay(4);
delline(); delay(4);
insline(); delay(3);
delline(); delay(3);
insline(); delay(1);
delline(); delay(8);
insline(); delay(5);
delline(); delay(5);
insline(); delay(5);
delline(); delay(5);
insline(); delay(4);
delline(); delay(4);
insline(); delay(3);
delline(); delay(3);
insline(); delay(4);
delline(); delay(10);
insline(); delay(10);
delline(); delay(10);
insline(); delay(50);
delline(); delay(50);
insline(); delay(50);
delline(); delay(50);
insline(); delay(40);
delline(); delay(40);
insline(); delay(30);
delline(); delay(30);
insline(); delay(5);
delline(); delay(5);
insline(); delay(5);
delline(); delay(5);
insline(); delay(5);
delline(); delay(5);
insline(); delay(4);
delline(); delay(4);
insline(); delay(3);
delline(); delay(3);
insline(); delay(1);
delline(); delay(1);
insline(); delay(5);
delline(); delay(5);
insline(); delay(5);
delline(); delay(5);
insline(); delay(4);
delline(); delay(4);
insline(); delay(3);
delline(); delay(3);
insline(); delay(8);
delline(); delay(10);
insline(); delay(10);
delline(); delay(3);
insline(); delay(1);
delline(); delay(3);
insline(); delay(5);
delline(); delay(5);
insline(); delay(5);
delline(); delay(5);
insline(); delay(4);
delline(); delay(4);
insline(); delay(3);
delline(); delay(3);
insline(); delay(3);
delline(); delay(10);
insline(); delay(10);
delline(); delay(10);
insline(); delay(50);
delline(); delay(50);
insline(); delay(50);
delline(); delay(50);
insline(); delay(40);
delline(); delay(40);
insline(); delay(30);
delline(); delay(30);
insline(); delay(5);
delline(); delay(5);
insline(); delay(5);
delline(); delay(5);
insline(); delay(5);
delline(); delay(5);
insline(); delay(4);
delline(); delay(4);
insline(); delay(3);
delline(); delay(3);
insline(); delay(1);
delline(); delay(1);
insline(); delay(5);
delline(); delay(5);
insline(); delay(5);
delline(); delay(5);
insline(); delay(4);
delline(); delay(4);
insline(); delay(3);
delline(); delay(3);
insline(); delay(3);
delline(); delay(10);
insline(); delay(10);
sound(150); delay(250);
nosound();
textbackground(BLUE);
clrscr();
delay(10);
sound(1000); delay(50);
nosound();
textbackground(RED);
clrscr();
delay(100);
sound(50); delay(10);
nosound();
textbackground(YELLOW);
clrscr();
delay(1000);
sound(500); delay(50);
nosound();
textbackground(MAGENTA);
clrscr();
delay(90);
sound(240); delay(25);
nosound();
textbackground(GREEN);
clrscr();
delay(1000);
sound(1000); delay(1000);
nosound();
textbackground(BLACK);
clrscr();
textcolor(WHITE); gotoxy(10,2);
cprintf("FIN"); delay(300);
textcolor(BLACK); gotoxy(10,2);
cprintf("FIN"); delay(30);
textcolor(WHITE); gotoxy(11,3);
cprintf("FIN"); delay(300);
textcolor(BLACK); gotoxy(11,3);
cprintf("FIN"); delay(30);
textcolor(WHITE); gotoxy(12,4);
cprintf("FIN"); delay(300);
textcolor(BLACK); gotoxy(12,4);
cprintf("FIN"); delay(30);
textcolor(WHITE); gotoxy(13,5);
cprintf("FIN"); delay(300);
textcolor(BLACK); gotoxy(13,5);
cprintf("FIN"); delay(30);
textcolor(WHITE); gotoxy(14,6);
cprintf("FIN"); delay(300);
textcolor(BLACK); gotoxy(14,6);
cprintf("FIN"); delay(30);
textcolor(WHITE); gotoxy(15,7);
cprintf("FIN"); delay(300);
textcolor(BLACK); gotoxy(15,7);
cprintf("FIN"); delay(30);
textcolor(WHITE); gotoxy(16,7);
cprintf("FIN"); delay(300);
textcolor(BLACK); gotoxy(16,7);
cprintf("FIN"); delay(30);
textcolor(WHITE); gotoxy(17,8);
cprintf("FIN"); delay(300);
textcolor(BLACK); gotoxy(17,8);
cprintf("FIN"); delay(30);
textcolor(WHITE); gotoxy(18,9);
cprintf("FIN"); delay(300);
textcolor(BLACK); gotoxy(18,9);
cprintf("FIN"); delay(30);
textcolor(WHITE); gotoxy(19,10);
cprintf("FIN"); delay(300);
textcolor(BLACK); gotoxy(19,10);
cprintf("FIN"); delay(30);
textcolor(WHITE); gotoxy(19,10);
cprintf("FIN"); delay(250);
textcolor(BLACK); gotoxy(19,10);
cprintf("FIN"); delay(30);
textcolor(WHITE); gotoxy(19,10);
cprintf("FIN"); delay(200);
textcolor(BLACK); gotoxy(19,10);
cprintf("FIN"); delay(30);
textcolor(WHITE); gotoxy(19,10);
cprintf("FIN"); delay(150);
textcolor(BLACK); gotoxy(19,10);
cprintf("FIN"); delay(30);
textcolor(WHITE); gotoxy(19,10);
cprintf("FIN"); delay(100);
textcolor(BLACK); gotoxy(19,10);
cprintf("FIN"); delay(30);
textcolor(WHITE); gotoxy(19,10);
cprintf("FIN"); delay(50);
textcolor(BLACK); gotoxy(19,10);
cprintf("FIN"); delay(30);
textcolor(WHITE); gotoxy(19,10);
cprintf("FIN"); delay(15);
textcolor(BLACK); gotoxy(19,10);
cprintf("FIN"); delay(15)
;textcolor(WHITE); gotoxy(19,10);
cprintf("FIN"); delay(15);
textcolor(BLACK); gotoxy(19,10);
cprintf("FIN"); delay(15);
textcolor(WHITE); gotoxy(19,10);
cprintf("FIN"); delay(15);
textcolor(BLACK); gotoxy(19,10);
cprintf("FIN"); delay(15);
textcolor(WHITE); gotoxy(19,10);
cprintf("FIN"); delay(15);
textcolor(BLACK); gotoxy(19,10);
cprintf("FIN");; delay(15);
delay(1000);
printf("P"); delay(10); printf("or"); delay(50); printf("Jorge"); delay(80); printf("Murillo");
getch();
}
