subroutine integer FIELD

if ( FIELD .eq. 3 ) then
set vari KICK_VAL global real = 0.3
! menu block MAP_CALC item KICK_0.1 button off
menu block MAP_CALC item KICK_0.3 button on
menu block MAP_CALC item KICK_??  button off
return
end_if


if ( FIELD .eq. 5 ) then
! menu block MAP_CALC item KICK_0.1 button off
menu block MAP_CALC item KICK_0.3 button off
menu block MAP_CALC item KICK_??  button on
show vari KICK_VAL
inquire real vari KICK_VAL text "NEW RADIUS FOR KICKING::"
return
end_if

if ( FIELD .eq. 6 ) then
show vari RAN_SEED
inquire int vari RAN_SEED text "NEW SEED FOR KICKING::"
return
end_if

"INVALID KICK PARAMETER"
return


if ( FIELD .eq. 1 ) then
set vari KICK_VAL global real = 0.1
menu block MAP_CALC item KICK_0.1 button on
menu block MAP_CALC item KICK_0.3 button off
menu block MAP_CALC item KICK_??  button off
return
end_if