PROC CalcNiF:
	LOCAL nif&, mod%
	AT 1, 1 : PRINT "CalcNiF: programa freeware para"
	AT 1, 2 : PRINT "calcular la letra del N.I.F."
	AT 1, 4 : PRINT "Numero del D.N.I.: "
	AT 20, 4 : INPUT nif&
	mod% = nif& - (INT (nif& / 23) * 23) + 1
	AT 1, 6 : PRINT "La letra es: "
	AT 14, 6
	PRINT MID$("TRWAGMYFPDXBNJZSQVHLCKET", mod%,1)
	GET
ENDP