move.dlg

来自「是一个经济学管理应用软件 很难找的 但是经济学学生又必须用到」· DLG 代码 · 共 36 行

/*
  move

*! VERSION 1.0.1  26aug2003

*/
VERSION 8.0

INCLUDE _std_small
INCLUDE header

HELP hlp1, view("help move")
RESET res1

DIALOG main, label("move - Relocate variable") /*
		*/ tabtitle("Main")
BEGIN
  /*--+----1----+----2----+----3----+----4----+----5----+----6----+----7----+*/ 
  TEXT     tx_vars         _lft      _top       _iwd     .,		/*
		*/label("Variable to move:")
  VARNAME  vn_vars         @         _ss        _vnwd    .,		/*
  		*/label("Variable to move")
  TEXT     tx_vars2        _lft      _ls        _iwd     .,		/*
  		*/label("Variable (position) to move to:")
  VARNAME  vn_vars2        @         _ss        _vnwd    .,		/*
  		*/label("Variable (position) to move to")
END

PROGRAM command
BEGIN
	put "move "
	varlist main.vn_vars
	varlist main.vn_vars2
END