home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 4 / AACD04.ISO / AACD / Programming / lsEstuff / bricks.e < prev    next >
Encoding:
Text File  |  1999-08-16  |  197 b   |  14 lines
  1.  
  2. OBJECT robj
  3.    next:PTR TO robj
  4.    prev:PTR TO robj
  5.    id
  6. ENDOBJECT
  7.  
  8. PROC find(id) OF robj
  9.    IF self.id = id THEN RETURN self
  10.    IF self.next = NIL THEN RETURN NIL
  11.    self.next.find(id)
  12. ENDPROC
  13.  
  14.