25 lines
516 B
Plaintext
25 lines
516 B
Plaintext
DIM node{name$, year%, link%}
|
|
list% = 0
|
|
PROCadd(list%, node{}, "Richard", 1952)
|
|
PROCadd(list%, node{}, "Sue", 1950)
|
|
PROClist(list%, node{})
|
|
END
|
|
|
|
DEF PROCadd(RETURN l%, c{}, n$, y%)
|
|
LOCAL p%
|
|
DIM p% DIM(c{})-1
|
|
!(^c{}+4) = p%
|
|
c.name$ = n$
|
|
c.year% = y%
|
|
c.link% = l%
|
|
l% = p%
|
|
ENDPROC
|
|
|
|
DEF PROClist(l%, c{})
|
|
WHILE l%
|
|
!(^c{}+4) = l%
|
|
PRINT c.name$, c.year%
|
|
l% = c.link%
|
|
ENDWHILE
|
|
ENDPROC
|