==== Comprobar letra NIF ====

Ejemplo en Basic de como comprobar la letra de un NIF

<code>
10 A$="TRWAGMYFPDXBNJZSQVHLCKET"
20 INPUT "DNI:";B$
30 A=(1+VAL(B$)-23*INT(VAL(B$)/23))
40 PRINT B$+MID$(A$,A,1)
</code>