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