RosettaCodeData/Task/Create-an-object-at-a-given-address/S-BASIC/create-an-object-at-a-given-address.basic
2023-07-01 13:44:08 -04:00

12 lines
252 B
Text

var first, addr = integer
based second = integer
first = 12345
location var addr = first
base second at addr
print "Value of first variable ="; first
print "Address of first variable = "; hex$(addr)
print "Value of second variable ="; second
end