aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

langs a-z

Browse source
This commit is contained in:
Ingy döt Net 2013-04-10 22:43:41 -07:00
parent db842d013d
commit d066446780
11389 changed files with 98361 additions and 1020 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Task/Address-of-a-variable/PureBasic/address-of-a-variable-1.purebasic Normal file
View file

@ -0,0 +1,2 @@
a.i = 5
MessageRequester("Address",Str(@a))

7
Task/Address-of-a-variable/PureBasic/address-of-a-variable-2.purebasic Normal file
View file

@ -0,0 +1,7 @@
a.i = 5
*b.Integer = @a ;set *b equal to the address of variable a
*c.Integer = $A100 ;set *c to point at memory location $A100 (in hex)
MessageRequester("Address",Str(*b)) ;display the address being pointed at by *b
MessageRequester("Value",Str(*b\i)) ;de-reference the pointer *b to display the data being pointed at