Peek$ and Poke$ macros

[Charles Pegge]

PowerBasic style:

Code Select Expand

macro peek$ as string(r,pt,le)
==============================
r=nuls le
copy strptr(r),pt,le
end macro

macro poke$ (s,pt)
==================
copy pt, strptr(s),len(s)
end macro

function Hexabyte$(string s) as string
======================================
int a
int i
int j=1
int le=len(s)
string t=space(le*3)
for i=1 to len(s)
  a=asc(s,i)
  mid(t,j)=hex(a,2)
  j+=3
next
return t
end function

'TESTS
'=====
string s="Hello World!"
sys p=strptr(s)
poke$("Ha",p)
'print s               'Hallo
dimstring t=peek$(s,3) '
'print t               'Hal
'print hexabyte$ t     '48 61 6c
dim ubyte x[10]        '
copy @x,strptr(t),3    'PeekBytes to array
'print x[2]            '97