%%HP: T(3)A(D)F(.);
\<< DATA 2 MENU
"Pick a file, and ENTER"
"" INPUT OBJ\-> UPDIR
EVAL 'EL' STO 'PVI'
STO 'L' STO 'G2'
STO 'G1' STO 0 MENU
\>>
