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