Que fait ce progreamme???????

function creermine
{
if [ $nbmines -le $tailletablo ]
then
local i=1
while [ $i -le $tailletablo ]
do
tabmine[$i]=0
i=`expr $i + 1`
done

while [ $nbmines -gt 0 ]
do
m=`expr $RANDOM % $nbcolonnes + 1`
l=`expr $RANDOM % $nblignes + 1`
nbl=`expr $l - 1`
nblc=`expr $nbcolonnes \* $nbl`
nbaleatoire=`expr $nblc + $m`
if [ ${tabmine[$nbaleatoire]} -ne -1 ]
then
tabmine[$nbaleatoire]=-1
incremente_voisin
nbmines=`expr $nbmines - 1`
fi
done

fi
}