in$      ="Not,Hardly,Just,Adequately,Quite,Really,Very,Fantastically,xyzzy"
element$ =""
i =1    '   used to point to successive elements

do
    element$ =word$( in$, i, ",")
    if element$ ="xyzzy" then exit do
    print element$; " good!"
    i =i +1
loop until 1 =2

end