'--- CalcNiF (Linux consola)  26-septiembre-2004  14:00:00 PM ---
'

'--- Directivas ---
'$APPTYPE CONSOLE
$TYPECHECK on
$OPTIMIZE on
$ESCAPECHARS on

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

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