/* ====================================
   == BOULDER2 CAVES DATA TRANSFER   ==
   == ©1993-5 by SAVELSOFT inc.      ==
   ==================================== */

level(n)
SHORT n;
{
SHORT i;
setlevel(n);
for(i=0;i<780;i++)
 {
  ek[i]=database(i);
 }
TIM=ssda(1);
CRISTAL=ssda(2);
HMAGMA=ssda(3);
ITEMS=ssda(4);
BONUS=ssda(5);
}