xxxxxxxxxx
DECLARE FUNCTION DIGIT$(N$)
Cls
Input "ENTER ANY DIGIT"; N$
X = DIGIT(N$)
Print "THE DIGIT IS"; DIGIT(N$)
Function DIGIT (N$)
N$ = UCase$(N$)
A = Asc(N$)
If A >= 65 And A <= 90 Then
DIGIT(N$)="ALPHABET"
ELSE
DIGIT(N$)="NOT ALPHABET"
END IF
END FUNCTION