home *** CD-ROM | disk | FTP | other *** search
/ The Best of Mecomp Multimedia 2 / MECOMP-CD-II.iso / amiga / tools / workbench / gurulog / src / test / steal.e < prev   
Encoding:
Text File  |  1998-01-15  |  301 b   |  12 lines
  1. MODULE '*stealchip', 'exec/memory'
  2.  
  3. PROC main()
  4.   DEF mem:PTR TO LONG, ben:PTR TO LONG, n
  5.   ben:=0
  6.   IF mem:=AllocVec(1024,MEMF_PUBLIC OR MEMF_CLEAR)
  7.     WriteF('\d\n', stealchip(ben, mem, 1024))
  8.     FOR n:=0 TO 255 DO WriteF('\h[4]: \h[8]  \h[8]\n', n,ben[n],mem[n])
  9.     FreeVec(mem)
  10.   ENDIF
  11. ENDPROC
  12.