#include <stdio.h>
#include <conio.h>
#include <graphics.h>

void inigrf(),menu();

char opciones[7][15] = {
  "Fresa","Pi¤a","Manzana","Mango","Uva","Pera","Ayuda"
};

void main()
{
 inigrf();
 menu();
 closegraph();
}

void inigrf()
{
 int mg,ag;
 mg=DETECT;
 initgraph(&mg,&ag,"c:\\borlandc\\bgi");
}

void menu()
{
 int i,x,y,op,k,p;
 char tecla;
 setbkcolor(BLUE);
 setcolor(LIGHTRED);
 settextstyle(1,0,2);
 x=10;
 y=20;
 for(i=0;i<7;i++)
 {
  outtextxy(x,y,opciones[i]);
  x+=93;
 }
 op=0;
 setcolor(LIGHTGREEN);
 x=10;
 outtextxy(x,y,opciones[op]);
 do {
  tecla=getch();
  setcolor(LIGHTRED);
  outtextxy(x,y,opciones[op]);
  switch(tecla)
  {
   case 77:
    x+=93;
    if(x>568) x=10;
    op+=1;
    if(op>6) op=0;
    break;
   case 75:
    x-=93;
    if(x<10) x=568;
    op-=1;
    if(op<0) op=6;
    break;
   case 13:
    cleardevice();
    switch(op)
    {
     case 0:
      outtextxy(200,200,"Estas en la opcion Fresa");
      setbkcolor(BLUE);
      setcolor(LIGHTGREEN);
      outtextxy(40,40,"circulo");
      circle (150,50,10);
      getch();
      break;
     case 1:
      outtextxy(200,200,"Estas en la opcion Pi¤a");
      getch();
      break;
     case 2:
      outtextxy(200,200,"Estas en la opcion Manzana");
      getch();
      break;
     case 3:
      outtextxy(200,200,"Estas en la opcion Mango");
      getch();
      break;
     case 4:
      outtextxy(200,200,"Estas en la opcion Uva");
      getch();
      break;
     case 5:
      outtextxy(200,200,"Estas en la opcion Pera");
      getch();
      break;
     case 6:
      outtextxy(200,200,"Estas en la opcion Ayuda");
      getch();
      break;
    }
    cleardevice();
    setbkcolor(BLUE);
    setcolor(LIGHTRED);
    settextstyle(1,0,2);
    k=10;
    for(i=0;i<7;i++)
    {
     outtextxy(k,y,opciones[i]);
     k+=93;
    }
    setcolor(LIGHTGREEN);
    outtextxy(x,y,opciones[op]);
    break;
  }
  setcolor(LIGHTGREEN);
  outtextxy(x,y,opciones[op]);
 }while(tecla!=27);
}