#code=936
_SUB TESTSHM *
    ENVI SRC= //D:\a.shm
    ENVI MEM=0
    SET &Old=XXX
    SET &New=XXX
    SOCK --shm  SHM1;w;shm1;1024;%SRC%
    ENVI @SHM1.mem=MEM
    ENVI-mkdummy  &VV=%MEM%;1024
    ENVI?long  &VV=&&Old:0
    ENVI-long  &VV=0x12345678:0
    ENVI?long  &VV=&&New:0
    MESS mem=%MEM% Old=%&Old% New=%&New% [%*]@
_END

EXEC %MyName% LOAD %CurFIle%*TESTSHM RUN-1
WAIT 1000
CALL * TESTSHM RUN-2
