PokeInteger

System function.

The PokeInteger function writes a value of type Integer or Unsigned to memory. Not available in WinTask Lite.

Syntax

PokeInteger(<address>,<value>,<number_of_bytes>)
or
ret=PokeInteger(<address>,<value>,<number_of_bytes>)

Parameters

<address>: integer or UNSIGNED, address to which <value> is written.

<number_of_bytes>: 1, 2 or 4.

Return value

ret, numeric return code. When <value> has been written successfully, the function returns 0, otherwise use this return code for Error Handling.

Example

 

dim Myvalue as unsigned

Myvalue=32500

ret=PokeInteger(MemPtr,myvalue,4)

Example code

 

'ASCII code

'77 121 32 115 116 114 105 110 103

'M y s t r i n g

dim pointer as unsigned

dim address as unsigned

'Writes a string to memory

pointer=allocate(32)

ret=PokeString(pointer,"My string",1)

'reads the string as integers (ASCII codes)

i=0

repeat

address=pointer+i

var=PeekInteger(address,1)

mes$=mes$+"Byte "+str$(1+i)+" : "+str$(var)+"\n\"

i=i+1

until i=8

 

msgbox(mes$,64,"Reads in memory")

'---------------------------------------------------------------

'Writes integer in memory (ASCII codes)

pointer=allocate(32)

 

address=pointer

 

ret=PokeInteger(pointer,77,1)

pointer=pointer+1

ret=PokeInteger(pointer,121,1)

pointer=pointer+1

ret=PokeInteger(pointer,32,1)

pointer=pointer+1

ret=PokeInteger(pointer,115,1)

pointer=pointer+1

ret=PokeInteger(pointer,116,1)

pointer=pointer+1

ret=PokeInteger(pointer,114,1)

pointer=pointer+1

ret=PokeInteger(pointer,105,1)

pointer=pointer+1

ret=PokeInteger(pointer,110,1)

pointer=pointer+1

ret=PokeInteger(pointer,103,1)

 

'0 binary for end of string

pointer=pointer+1

ret=PokeInteger(pointer,0,1)

 

 

var$=PeekString$(address)

msgbox("String read : "+var$,64,"Memory read")