Why does my Loop end after 11 Loops?

[SMcNeill]

I'm guessing your program is structured like the following, and that you're looking for something like this?

Code: (Select All)

DIM SHARED AS LONG DataCount, DataItem(4000)
OPEN "someFile.txt" FOR INPUT AS #1
DataCount = 1
Recur

SUB Recur
    IF DataCount = 1 THEN SEEK #1, 1 'move to the start of the file 'may need to change to 0 for 0 index counting
    FOR i = 1 TO 7
        INPUT DataItem(i)
    NEXT
    DataCount = DataCount + 7
    CALL WorkSub
    IF DataCount < 4000 THEN Recur
END SUB

SUB WorkSub
    'work on these specific data items
END SUB

Now, my question here is: Why do we even do a file seek at all here?  There doesn't appear to be any file input at all going on.  It's all being handled with an user INPUT.  Do you actually want to do an INPUT #1, DataItem(i)?