subroutine char METHOD
set vari AUTO_SQD char global = METHOD
if ( AUTO_SQD .eq. "FORWARD" ) then
menu block AUTO_STUFF item SEQ_FORW button on
menu block AUTO_STUFF item SEQ_REVE button off
menu block AUTO_STUFF item SEQ_BOTH button off
end_if

if ( AUTO_SQD .eq. "REVERSE" ) then
menu block AUTO_STUFF item SEQ_FORW button off
menu block AUTO_STUFF item SEQ_REVE button on
menu block AUTO_STUFF item SEQ_BOTH button off
end_if

if ( AUTO_SQD .eq. "BOTH" ) then
menu block AUTO_STUFF item SEQ_FORW button off
menu block AUTO_STUFF item SEQ_REVE button off
menu block AUTO_STUFF item SEQ_BOTH button on
end_if

return