'--- CalcNiF2  27-julio-2003  12:40:00 AM ---
'

'--- Variables globales ---
DIM Edit1 AS STRING
    Edit1 = " "

'--- Programa Principal ---
DO
    CLS : COLOR 3
    PRINT "CalcNiF2 -- programa freeware "
    PRINT "para calcular la letra del N.I.F. -- JUAN Soft"
    COLOR 7
    PRINT "Introduzca el D.N.I.: --Deje en blanco para salir--"
    INPUT Edit1
    SELECT CASE Edit1
        CASE ""
            EXIT DO
        CASE ELSE
            Edit1 = MID$("TRWAGMYFPDXBNJZSQVHLCKET", (VAL(Edit1) MOD 23) + 1, 1)
            PRINT "": PRINT "La letra es: " + Edit1: PRINT ""
            INPUT "--Pulse ENTER para continuar--"; Edit1
    END SELECT
LOOP UNTIL Edit1 = CHR$(27)
CLS : COLOR 5
PRINT "-- Visite  freedownload.webcindario.com  para otros programas freeware --"
SLEEP 8
END