10 KEY OFF:CLS 11 PRINT"PROGRAMA DETERMINACION DNI-CIF (DEDNICIF.BAS) 12 PRINT"DETERMINA LETRA FINAL DEL NUMERO IDENTIFICADOR DNI-CIF 13 PRINT"+ PARA SALIR 14 PRINT 15 INPUT"NUMERO DEL DNI-CIF A EVALUAR: ",A# 17 IF A#<1000 THEN 15 20 B#=FIX(A#/23)*23 30 C#=A#-B# 40 IF C#=0 THEN A$="T" ELSE IF C#=1 THEN A$="R" ELSE IF C#=2 THEN A$="W" ELSE IF C#=3 THEN A$="A" ELSE IF C#=4 THEN A$="G" ELSE IF C#=5 THEN A$="M" 50 IF C#=6 THEN A$="Y" ELSE IF C#=7 THEN A$="F" ELSE IF C#=8 THEN A$="P" ELSE IF C#=9 THEN A$="D" ELSE IF C#=10 THEN A$="X" ELSE IF C#=11 THEN A$="B" 60 IF C#=12 THEN A$="N" ELSE IF C#=13 THEN A$="J" ELSE IF C#=14 THEN A$="Z" ELSE IF C#=15 THEN A$="S" ELSE IF C#=16 THEN A$="Q" ELSE IF C#=17 THEN A$="V" 70 IF C#=18 THEN A$="H" ELSE IF C#=19 THEN A$="L" ELSE IF C#=20 THEN A$="C" ELSE IF C#=21 THEN A$="K" ELSE IF C#=22 THEN A$="E" ELSE IF C#=23 THEN A$="O" 80 PRINT A# "- " A$ 85 PRINT:INPUT"PULSE PARA TERMINAR",A 90 SYSTEM