Cryptic

HKLM/S/Ms/Win/CVers/Expl/Advanced/Folder/Hidden/SHOWALL

Disable = 0
Enable = 1

Tinumis

When I was a child, Sundays being the market day in our town in Norzagaray, our extended family would infrequently be feasting on Tinumis, the Bulaqueño's heirloom blood stew. This is not the common Dinuguan, which I first met in Manila where I spent my high school days. Tinumis' soup base is not thick and there would be less liquid; and the meat is meat, not innards/offal. We use chopped young tamarind leaves, not vinegar. I remember climbing tamarind trees to gather a cup or two of young leaves. Of course there would always be Jalapeno pepper.

In our household, we would also extend the dish with sitao (string beans) or other neutral tasting vegetable (sayote or upo) so that more mouths could be fed. It appears now that we might be the only family which did so, as I have yet to learn of others who did the same with their Tinumis.

The pictures below are courtesy of Shalimar, a Filipina hopping all over Europe (from her wanderlust blog). The recipe is a frenchified tinumis. She used boudin noir (blood sausage) and vinegar, so it is technically dinuguan, but the look and texture is like our Tinumis.

Num2Word (Pt. 2) -- Spa

This one is from http://fox.wikis.com/wc.dll?Wiki~ConvertingNumberToWordsInSpanish~VFP

*Name: Convcant1
*Purpose: This routine converts a number in spanish words
*Input: number to be converted.(numero)
*Output: The number in spanish words (letra).
*Example: convertido=convcant1(12.5)
* ? convertido
* doce pesos 50/100 M.N.
LPARAMETERS Numero
STORE ALLTRIM(STR(Numero,12,3)) TO Cant1 && SE TOMA COMO MAXIMO NUMERO DE LONGITUD 9 CON 2 DeciMALES
Cant1= SUBSTR(Cant1,1,LEN(Cant1)-1) && para cortar y no redondear
STORE SUBSTR(Cant1,1,LEN(Cant1)-3) TO Cant2
STORE SUBSTR(Cant1,LEN(Cant1)-1,2) TO Deci
STORE MOD(LEN(Cant2),3) TO Residuo
DO CASE
CASE Residuo= 1
STORE '00' + Cant2 TO Cant2
CASE Residuo= 2
STORE '0' + Cant2 TO Cant2
ENDCASE
DO CASE
CASE LEN(Cant2)= 3
DO Converte WITH Cant2
Letra= ALLTRIM(Letra)
Letra= '('+Letra+ ' PESOS ' + Deci + '/100 M.N.)'
CASE LEN(Cant2)= 6
STORE SUBSTR(Cant2,1,3) TO Cant3
DO Converte WITH Cant3
Letra1= Letra + ' MIL '
STORE SUBSTR(Cant2,4,3) TO Cant4
DO Converte WITH Cant4
Letra2= Letra1 + Letra
Letra2= ALLTRIM(Letra2)
Letra= '('+Letra2 + ' PESOS '+Deci + '/100 M.N.)'
CASE LEN(Cant2)= 9
STORE SUBSTR(Cant2,1,3) TO Cant3
DO Converte WITH Cant3
Letra1= Letra +' MILLONES '
STORE SUBSTR(Cant2,4,3) TO Cant4
DO Converte WITH Cant4
Letra2= Letra1 + Letra + ' MIL '
STORE SUBSTR(Cant2,7,3) TO Cant5
DO Converte WITH Cant5
Letra3= Letra2 + Letra
Letra3= ALLTRIM(Letra3)
Letra= '('+Letra3+' PESOS ' + Deci + '/100 M.N.)'
ENDCASE
RETURN (Letra)

PROCEDURE Converte
PARAMETERS CantID1
PUBLIC Letra
DIMENSION Cien(16),Diez(16),UnId(16),Espec(15)
Cien(16)= SPACE(1)
Cien(1)= 'CIENTO'
Cien(2)= 'DOSCIENTOS'
Cien(3)= 'TRESCIENTOS'
Cien(4)= 'CUATROCIenTOS'
Cien(5)= 'QUINIENTOS'
Cien(6)= 'SEISCIENTOS'
Cien(7)= 'SETECIENTOS'
Cien(8)= 'OCHOCIENTOS'
Cien(9)= 'NOVECIENTOS'
Diez(16)= SPACE(1)
Diez(1)= 'DIEZ'
Diez(2)= 'VEINTE'
Diez(3)= 'TREINTA'
Diez(4)= 'CUARENTA'
Diez(5)= 'CINCUENTA'
Diez(6)= 'SESENTA'
Diez(7)= 'SETENTA'
Diez(8)= 'OCHENTA'
Diez(9)= 'NOVENTA'
UnId(16)= SPACE(1)
UnId(1)= 'UN'
UnId(2)= 'DOS'
UnId(3)= 'TRES'
UnId(4)= 'CUATRO'
UnId(5)= 'CINCO'
UnId(6)= 'SEIS'
UnId(7)= 'SIETE'
UnId(8)= 'OCHO'
UnId(9)= 'NUEVE'
Espec(10)= 'DIEZ'
Espec(11)= 'ONCE'
Espec(12)= 'DOCE'
Espec(13)= 'TRECE'
Espec(14)= 'CATORCE'
Espec(15)= 'QUINCE'
STORE VAL(SUBSTR(CantID1,2,2)) TO Num1
STORE VAL(SUBSTR(CantID1,3,1)) TO Num2
STORE VAL(SUBSTR(CantID1,1,1)) TO Num3
STORE VAL(SUBSTR(CantID1,2,1)) TO Num4
IF Num3= 0
Num3= 16
ENDIF
IF Num4= 0
Num4= 16
ENDIF
DO CASE
CASE Num1 >= 1 AND Num1 <= 9
Letra= Cien(Num3) +SPACE(1)+ UnId(Num1)
CASE Num1 >= 10 AND Num1 <= 15
Letra= Cien(Num3) +SPACE(1)+ Espec(Num1)
CASE Num2= 0
Letra= Cien(Num3) +SPACE(1)+ Diez(Num4)
CASE Num2 # 0
Letra= Cien(Num3)+SPACE(1) + Diez(Num4)+' Y ' + UnId(Num2)
ENDCASE