#! /bin/csh -f 
set map = courier1 
set exit = /thomas/continent/cont_b4 
set i = 18  
set max_i = 20 
while ($i < $max_i)
echo "arch exit" >>! $map
echo "slaying $exit"  >>! $map
echo "x 4" >>! $map
echo "y $i" >>! $map
echo "hp 13" >>! $map
echo "sp 27" >>! $map
echo "end" >>! $map
@ i ++
end
