#include "ugraf.c"

void main()
{
 char c;
 int k;
 inigraf();
 fondox(0,0,639,479,8,7,0);
 marco(25,15,590,440,15,1);
 greca(33,38,24,16,4,14);
 for(c='A',k=0;c<='Z';c++,k+=19)
  l3d(75+k,80,c,3,10,1,4);
 for(c='1',k=0;c<='9';c++,k+=19)
  l3d(75+k,120,c,3,10,1,9);
 for(k=1;k<15;k++)
 {
  poli(500,340,15,60,14,k);
  delay(30);
 }
 for(k=1;k<15;k++)
 {
  star(500,340,15,10,50,12,k);
  delay(30);
 }
 l3d(275,120,'¥',3,10,1,9);
 for(c='a',k=0;c<='z';c++,k+=20)
 if(c!='l')
  l3d(75+k,155,c,3,9,2,15);
 delay(500);
 borra(8);
 fondoy(0,0,638,470,8);
 fondoy(50,50,100,100,8);
 fondoy(200,50,50,50,8);
 boton(300,250,5,"Enter",5,13,8);
 boton(100,300,1,"Esc",3,27,8);
 borra(5);
 fingraf();
}