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:
Amiga
Atari
Commodore
DOS
FM Towns/JPY
Macintosh
Macintosh JP
Macintosh to JP
NeXTSTEP
RISC OS/Acorn
Shift JIS
UTF-8
Wrap
Text File
|
1998-01-15
|
301 b
|
12 lines
MODULE '*stealchip', 'exec/memory'
PROC main()
DEF mem:PTR TO LONG, ben:PTR TO LONG, n
ben:=0
IF mem:=AllocVec(1024,MEMF_PUBLIC OR MEMF_CLEAR)
WriteF('\d\n', stealchip(ben, mem, 1024))
FOR n:=0 TO 255 DO WriteF('\h[4]: \h[8] \h[8]\n', n,ben[n],mem[n])
FreeVec(mem)
ENDIF
ENDPROC