subroutine char MODE char WORK char SEGMENT

if ( MODE .eq. "WORK" ) then
shell ${MAIN_CONF}work_model.sh SEGMENT
<work_model.com
shell ${MAIN_CONF}rotate_maps.sh SEGMENT
return
end_if

if ( MODE .eq. "PUT_TO" ) then
shell ${MAIN_CONF}work_model_getput.sh WORK SEGMENT PUT
<work_model_put.com
image over false
return
end_if

if ( MODE .eq. "GET_FROM" ) then
shell ${MAIN_CONF}work_model_getput.sh WORK SEGMENT  GET
<work_model_get.com
image over false
return
end_if

if ( MODE .eq. "GOTO_SEQ" ) then
<MAIN_CMDS:nmol_goto_seq.com  SEGMENT 
return
end_if