home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PROG_GEN / EDSV4064.ZIP / EPP-V1_1.ZIP / LISTCLEA.E < prev    next >
Text File  |  1993-06-26  |  234b  |  14 lines
  1. OPT TURBO
  2.  
  3. PROC listClear (theList)
  4.   DEF listCurrent
  5.   listCurrent := ^theList
  6.   WHILE listCurrent <> NIL
  7.     Dispose (listCurrent)
  8.     listCurrent := Next (listCurrent)
  9.   ENDWHILE
  10.   DisposeLink (^theList)
  11. ENDPROC
  12.   /* listClear */
  13.  
  14.