> list "foo.bas"
Option Base 0
Option Explicit On
Option Default None

Dim a%(1)
a%(0) = &hAABBCCDD
Print Hex$(Peek(Var a%(), 0))
Dim a_addr% = Peek(VarAddr a%())
Print Hex$(a_addr%)
Print Hex$(Peek(Byte a_addr%))

Print

Dim b%
b% = &hAABBCCDD
Print Hex$(Peek(Var b%, 0))
Dim b_addr% = Peek(VarAddr b%)
Print Hex$(b_addr%)
Print Hex$(Peek(Byte b_addr%))

> run "foo.bas"
DD
3003FF00
DD

DD
3800E178
Error in line 19: Address