! @ d_popup First Last Step
if .not.exist(popup) then
  define structure popup /global
  define integer popup%first popup%last popup%step  /global
  define logical popup%reset /global
end if
let popup%first &1
let popup%last &2   
let popup%step &3 
let popup%reset yes
gtvl\gtv SEARCH <POPUP
if gtv%exist destroy directory <POPUP
