define plist set $x=13 while $x-- p PCur->mData set PCur=(PCur->mNext) end end ------------ document plist to list the list by travel end