home *** CD-ROM | disk | FTP | other *** search
/ Aminet 18 / aminetcdnumber181997.iso / Aminet / dev / e / EasyGUI_v33b2.lha / Src / Tools / copylist.e next >
Text File  |  1996-12-04  |  194b  |  12 lines
  1. OPT MODULE
  2. OPT EXPORT
  3.  
  4. MODULE 'exec/memory'
  5.  
  6. PROC copyListToChip(data)
  7.   DEF size, mem
  8.   size:=ListLen(data)*SIZEOF LONG
  9.   mem:=NewM(size, MEMF_CHIP)
  10.   CopyMemQuick(data, mem, size)
  11. ENDPROC mem
  12.