switch(t.month){
case 1:
D=6;
Letra_E(21,28);
Letra_N(25,28);
Letra_E(29,28);
Letra_R(33,28);
Letra_O(37,28);
break;
case 2:
D=2;
Letra_F(21,28);
Letra_E(25,28);
Letra_B(29,28);
Letra_R(33,28);
Letra_E(37,28);
Letra_R(41,28);
Letra_O(45,28);
break;
case 3:
D=2;
Letra_M(21,28);
Letra_A(25,28);
Letra_R(29,28);
Letra_Z(33,28);
Letra_O(37,28);
break;
case 4:
D=5;
Letra_A(21,28);
Letra_B(25,28);
Letra_R(29,28);
Letra_I(33,28);
Letra_L(37,28);
break;
case 5:
D=0;
Letra_M(21,28);
Letra_A(25,28);
Letra_Y(29,28);
Letra_O(33,28);
break;
case 6:
D=3;
Letra_J(21,28);
Letra_U(25,28);
Letra_N(29,28);
Letra_I(33,28);
Letra_O(37,28);
break;
case 7:
D=5;
Letra_J(21,28);
Letra_U(25,28);
Letra_L(29,28);
Letra_I(33,28);
Letra_O(37,28);
break;
case 8:
D=1;
Letra_A(21,28);
Letra_G(25,28);
Letra_O(29,28);
Letra_S(33,28);
Letra_T(37,28);
Letra_O(41,28);
break;
case 9:
D=4;
Letra_S(21,28);
Letra_E(25,28);
Letra_P(29,28);
Letra_T(33,28);
Letra_I(37,28);
Letra_E(41,28);
Letra_M(45,28);
Letra_B(49,28);
Letra_R(53,28);
Letra_E(57,28);
break;
case 10:
D=6;
Letra_O(21,28);
Letra_C(25,28);
Letra_T(29,28);
Letra_U(33,28);
Letra_B(37,28);
Letra_R(41,28);
Letra_E(45,28);
break;
case 11:
D=2;
Letra_N(21,28);
Letra_O(25,28);
Letra_V(29,28);
Letra_I(33,28);
Letra_E(37,28);
Letra_M(41,28);
Letra_B(45,28);
Letra_R(49,28);
Letra_E(53,28);
break;
case 12:
D=4;
Letra_D(53,28);
Letra_I(57,28);
Letra_C(61,28);
Letra_I(65,28);
Letra_E(69,28);
Letra_M(73,28);
Letra_B(77,28);
Letra_R(81,28);
Letra_E(85,28);
break;
}
switch(t.year){
case 1980:
A=1;
B=8+0;
B=B+(B/4);
C=-1;
Numero_1(45,41);
Numero_9(49,41);
Numero_8(53,41);
Numero_0(57,41);
break;
case 1981:
A=1;
B=8+1;
B=B+(B/4);
C=0;
Numero_1(45,41);
Numero_9(49,41);
Numero_8(53,41);
Numero_1(57,41);
break;
case 1982:
A=1;
B=8+2;
B=B+(B/4);
C=0;
Numero_1(45,41);
Numero_9(49,41);
Numero_8(53,41);
Numero_2(57,41);
break;
case 1983:
A=1;
B=8+3;
B=B+(B/4);
C=0;
Numero_1(45,41);
Numero_9(49,41);
Numero_8(53,41);
Numero_3(57,41);
break;
case 1984:
A=1;
B=8+4;
B=B+(B/4);
C=-1;
Numero_1(45,41);
Numero_9(49,41);
Numero_8(53,41);
Numero_4(57,41);
break;
case 1985:
A=1;
B=8+5;
B=B+(B/4);
C=0;
Numero_1(45,41);
Numero_9(49,41);
Numero_8(53,41);
Numero_5(57,41);
break;
case 1986:
A=1;
B=8+6;
B=B+(B/4);
C=0;
Numero_1(45,41);
Numero_9(49,41);
Numero_8(53,41);
Numero_6(57,41);
break;
case 1987:
A=1;
B=8+7;
B=B+(B/4);
C=0;
Numero_1(45,41);
Numero_9(49,41);
Numero_8(53,41);
Numero_7(57,41);
break;
case 1988:
A=1;
B=8+8;
B=B+(B/4);
C=-1;
Numero_1(45,41);
Numero_9(49,41);
Numero_8(53,41);
Numero_8(57,41);
break;
case 1989:
A=1;
B=8+9;
B=B+(B/4);
C=0;
Numero_1(45,41);
Numero_9(49,41);
Numero_8(53,41);
Numero_9(57,41);
break;
case 1990:
A=1;
B=9+0;
B=B+(B/4);
C=0;
Numero_1(45,41);
Numero_9(49,41);
Numero_9(53,41);
Numero_0(57,41);
break;
case 1991:
A=1;
B=9+1;
B=B+(B/4);
C=0;
Numero_1(45,41);
Numero_9(49,41);
Numero_9(53,41);
Numero_1(57,41);
break;
case 1992:
A=1;
B=9+2;
B=B+(B/4);
C=-1;
Numero_1(45,41);
Numero_9(49,41);
Numero_9(53,41);
Numero_2(57,41);
break;
case 1993:
A=1;
B=9+3;
B=B+(B/4);
C=0;
Numero_1(45,41);
Numero_9(49,41);
Numero_9(53,41);
Numero_3(57,41);
break;
case 1994:
A=1;
B=9+4;
B=B+(B/4);
C=0;
Numero_1(45,41);
Numero_9(49,41);
Numero_9(53,41);
Numero_4(57,41);
break;
case 1995:
A=1;
B=9+5;
B=B+(B/4);
C=0;
Numero_1(45,41);
Numero_9(49,41);
Numero_9(53,41);
Numero_5(57,41);
break;
case 1996:
A=1;
B=9+6;
B=B+(B/4);
C=-1;
Numero_1(45,41);
Numero_9(49,41);
Numero_9(53,41);
Numero_6(57,41);
break;
