24 lines
484 B
Text
24 lines
484 B
Text
DIM node{pNext%, iData%}
|
|
DIM a{} = node{}, b{} = node{}, c{} = node{}
|
|
|
|
a.pNext% = b{}
|
|
a.iData% = 123
|
|
b.iData% = 789
|
|
c.iData% = 456
|
|
|
|
PROCinsert(a{}, c{})
|
|
|
|
PRINT "Traverse list:"
|
|
pnode% = a{}
|
|
REPEAT
|
|
!(^node{}+4) = pnode%
|
|
PRINT node.iData%
|
|
pnode% = node.pNext%
|
|
UNTIL pnode% = 0
|
|
|
|
END
|
|
|
|
DEF PROCinsert(here{}, new{})
|
|
new.pNext% = here.pNext%
|
|
here.pNext% = new{}
|
|
ENDPROC
|