_mem

[Jack]

is the following program kosher ?
there should be no need for _MEMFREE , right ?

Code: (Select All)

Dim m As _MEM

Dim As Long i

Dim As Double x, y

Dim As String * 80 s



m = _Mem(s)



For i = 0 To 9

    x = Sqr(i + 1)

    _MemPut m, m.OFFSET + 8 * i, x

Next



For i = 0 To 9

    _MemGet m, m.OFFSET + 8 * i, y

    Print y

Next