home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / E / TFF-A32R.LZX / AmigaE3.2a / Src / Tools / Constructors / constructorstest.e < prev   
Encoding:
Text File  |  1992-09-02  |  217 b   |  12 lines
  1. -> constructortest.e
  2.  
  3. MODULE 'tools/constructors'
  4.  
  5. PROC main() HANDLE
  6.   DEF list,a
  7.   list:=newlist()
  8.   FOR a:=1 TO 10 DO Enqueue(list,newnode(NIL,'silly_nodes_test'+a,0,Rnd(100)))
  9. EXCEPT
  10.   WriteF('no mem!\n')
  11. ENDPROC
  12.