RosettaCodeData/Task/Singly-linked-list-Traversal/PureBasic/singly-linked-list-traversa...

10 lines
181 B
Plaintext

Procedure traverse(*node.MyData)
While *node
;access data, i.e. PrintN(Str(*node\Value))
*node = *node\next
Wend
EndProcedure
;called using
traverse(*firstnode.MyData)