home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 8 / FreshFishVol8-CD1.bin / useful / dev / e / amiga_e / 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.