limite = 1001
dim a(limite) fill 0

for n = 0 to limite-1
    for m = n-1 to 0 step -1
        if a[m] = a[n] then
            a[n+1] = n-m
            exit for
        end if
    next m
next n

print "Secuencia de Van Eck:" & Chr(10)
print "Primeros 10 terminos: ";
for i = 0 to 9
    print a[i]; " ";
next i
print chr(10) & "Terminos 991 al 1000: ";
for i = 990 to 999
    print a[i]; " ";
next i