extern function pl(pp, sp, nr)
{var s;
 var p;
 var f;
   p = nr*(sp-pp);
   if(nr*pp>5000){f = nr*sp*0.0018;} else f=8 ;
   if(nr*sp>5000){f = f + nr*sp*0.0018;} else f = f + 8;
   p = p-f;
	s = String.format("%6.0f", p);
  WMLBrowser.setVar("p", s); 
  WMLBrowser.refresh(); 
};