clear all | clear

macro makewindowrf
 me (report) VARIWIN.RF
 me me send on
 me vari (string) _s
 me vari i=0

 me macro rl
 me  set i={{i}} PLUS 1
 me  if not vexist _vn{{i}} then vari (string) _vn{{i}}
 me  if not vexist _va{{i}} then vari (string) _va{{i}}
 me  read _s _vn{{i}} _s _va{{i}} /skip
 me  if eof then exit else exit .rl
 me /

 me macro rv
 me  read (data) vari.$$$ /delim:" "
 me  set i=0
 me  .rl
 me  read (data) off
 me /

 me macro sendvari
 `me  me send me "{{_vn%%91}} = {{_va%%91}}
 me  me send set {{_vn%%91}} = {{_va%%91}}
 me  me send write (variables) vari.$$$ /quiet
 me /
 
 me macro show_vari
 me  "_vn%%91 /read /l /w:16 /bc:7 | _va%%91 /apply:sendvari %%91 /w:6 /persist:refresh
 me /

 me template VariWindow "User Variables" /bc:7
 me  expand .show_vari({{i}},1)1
 me  break line
 me  ""Update Variable List" .rv /persist:refresh /enter:0 | "Exit" exit /bc:4
 me /

 me .VariWindow
 if {{templok}}=0 then quit
 me (report) off
/

if fexist vari.$$$ then erase vari.$$$
.makewindowrf
me send on sync
shell ghsos VARIWIN.RF /spawn
wait idle 1

macro idle
 write (variables) vari.$$$ /quiet
 if fexist vari.$$$ then me send .rv
/