memory pack question


Author Message
matherp
Guru

Joined: 11/12/2012
Location: United Kingdom
Posts: 11842
Posted: 10:12am 15 Jan 2025      

s$="1234567890"
a%=Peek(varaddr s$)+1
Dim o%(4)
b%=Peek(varaddr o%())
Memory copy a%,b%,10,1,4
For i=0 To 4
Print Hex$(o%(i))
Next