PROGRAM  "Van Eck sequence"
VERSION  "0.0000"

DECLARE FUNCTION  Entry ()

FUNCTION  Entry ()
  l = 1000
  DIM a[l]
  FOR n = 0 TO l-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
END FUNCTION
END PROGRAM