Basic - Numeros Autodescriptivos

El anterior programa tiene un error.

En este nuevo programa, ya esta corregido y el resultado es correcto, Ok!!!

'PROGRAMA NUMEROS AUTODESCRIPTIVOS
'lrcvs 28.08.10

DIM A, C, W, G, K, M, R AS STRING
DIM B, Y, Z, p, F, H, J, N, V AS INTEGER
DIM Q(0 TO 9) AS STRING

CLS
W$ = STRING$(10, "0")
M$ = W$
A$ = "2110" '<<< NUMBER TO TEST
MID$(W$, 1) = A$
B = LEN(A$)
C$ = ""

PRINT "WAIT!"
PRINT

FOR p = 0 TO 9
Q(p) = "0"
NEXT

FOR p = 0 TO B
K$ = MID$(A$, p, 1)
H = VAL(K$)
F = F + H
NEXT p

IF F > 5 THEN PRINT "NUMBER TOO LONG!!!" end if

G$ = STRING$(F, LTRIM$(STR$(F)))
J = VAL(G$)

FOR N = 1 TO J
IF LEN(LTRIM$(STR$(N))) = F THEN
FOR Y = 1 TO F
FOR Z = 0 TO 9
C$ = MID$(LTRIM$(STR$(N)), Y, 1)
D = VAL(C$)
IF D = Z THEN Q(D) = LTRIM$(STR$((VAL(Q(D))) + 1)) : end if
NEXT Z
NEXT Y
end if


FOR p = 0 TO 9
R$ = R$ + Q(p)
NEXT p

IF R$ = W$ THEN PRINT N : end if

R$ = ""

FOR p = 0 TO 9
Q(p) = "0"
NEXT p

NEXT N
PRINT
PRINT "END"
SLEEP
END