subroutine char SEGMENTS real KICK int MAP int NUM_MAPS
set vari MAP_APPLY ?= MAP
set vari COUNT ?= 0
set vari COUNT = COUNT + 1

if ( COUNT .gt. NUM_MAPS ) then
make map MAP rescale
return
end_if

if ( COUNT .eq. 2 ) then
set vari MAP_APPLY = 3
make map MAP_APPLY from 1 init real cell
end_if

< ?MAIN_UTILS:kick_map.com SEGMENTS KICK MAP_APPLY
if ( COUNT .gt. 1 ) then
make map MAP from MAP_APPLY add
end_if

rewind file

return