Example:
startmacro/nmq=8k
local /M/
...
nm/on/bg/id=999
xpipe/setup/controls on
nm/xs=2 plot/id=7/msgid=XM.1 nxm.sys.dat.world.prm
...
xpipe off
nm/off
endmacro
startcontrols
label initialentry
xcontrol/lab=domenu menu item ,, "MACRO;ZoomAfrica,UnZoom"
xcontrol/lab=getmsg msmon 1 10
...
return
label domenu
if item eq 1 then
message send /NM/ 7 ,, "ZOOM" 0 {XMIN=-20,XMAX=55,YMIN=-40,YMAX=40}
else
message send /NM/ 7 ,, "UNZOOM"
endif
return
label getmsg
message get /M/
if M.name eqs "NM" then
say "Got NeXtMidas Message:"
say " NAME : ^{M.nm_msg_name}"
say " INFO : ^{M.nm_msg_info}"
say " DATA : ^{M.nm_msg_data}"
say " FID : ^{M.nm_msg_fid}"
say " TID : ^{M.nm_msg_tid}"
endif
return
...
endcontrols