subroutine char METHOD
set vari AUTO_SEL char global = METHOD
if ( AUTO_SEL .eq. "WORK" ) then
menu block USE_ATOMS item USE_WORK button on
menu block USE_ATOMS item USE_ACTI button off
menu block USE_ATOMS item USE_LAST button off
end_if

if ( AUTO_SEL .eq. "ACTIVE" ) then
menu block USE_ATOMS item USE_WORK button off
menu block USE_ATOMS item USE_ACTI button on
menu block USE_ATOMS item USE_LAST button off
end_if

if ( AUTO_SEL .eq. "HISTORY" ) then
menu block USE_ATOMS item USE_WORK button off
menu block USE_ATOMS item USE_ACTI button off
menu block USE_ATOMS item USE_LAST button on
end_if

return