!This file is part of VEL_demo, copyright David Keyes, 2007. 
    !
    !This source file is free software: you can redistribute it and/or modify
    !it under the terms of the GNU General Public License as published by
    !the Free Software Foundation, either version 3 of the License, or
    !(at your option) any later version.
    !
    !This code is distributed in the hope that it will be useful,
    !but WITHOUT ANY WARRANTY; without even the implied warranty of
    !MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    !GNU General Public License for more details.
    !
    !For terms of the GNU General Public license see <http://www.gnu.org/licenses/>.

MACRO MODULE ref_id();

    INT typemask;
    INT end;
    INT side;
    REF id;
    INT type;
    INT version;
    INT blank;
    INT level;
    INT  pen;
    REF groups(3);

BEGINMODULE

lst_ini("References");

loop:
	pop_pmt();
	psh_pmt("Pick item");
	id:= ident(16383);
	gethdr(id, type, version, blank, level, pen, groups);
		IF id <> #0.1 THEN
		        lst_lin(rstr(id) + ": lev = " + str(level,1,0));
			GOTO loop;
		ENDIF;

lst_exi();

ENDMODULE