; A list array will be processed using a while loop - first create some items
Dim List name$(10)
If AddItem(name$()) Then name$()="Frank"
If AddItem(name$()) Then name$()="Jim"
If AddItem(name$()) Then name$()="Dave"
If AddItem(name$()) Then name$()="Bob"
If AddItem(name$()) Then name$()="John"
If AddItem(name$()) Then name$()="Kevin"
If AddItem(name$()) Then name$()="Chris"

ResetList name$()
While NextItem(name$())
    ; Remember from the Arrays and Lists topic that the NextItem() command
    ; returns True if it could move onto the next item
    NPrint "Current name in list: ",name$()
Wend

; And now a simpler loop which uses a variable to count
DEFTYPE.w i
i = 0
While i<10
    NPrint "Simple loop, counting: ",i
    i+1 ; Remember from the variables topic this is a quick way to add 1 to a variable
Wend

; This shows when the comparisons are done in while loops
i = 10
While i<0
    NPrint "Loop3, counting: ",i
    i+1
Wend

MouseWait
End