RosettaCodeData/Task/Address-of-a-variable/FreeBASIC/address-of-a-variable-1.basic

' FB 1.05.0 Win64
Dim a As Integer = 3
Dim p As Integer Ptr = @a
Print a, p