math/logar.bas

   1 DECLARE FUNCTION loga! (a!, b!)\r
   2 CLS\r
   3 \r
   4 v = 10 ^ (2 * loga(10, 7) + loga(10, 2))\r
   5 \r
   6 PRINT v\r
   7 \r
   8 FUNCTION loga (a, b)\r
   9 loga = LOG(b) / LOG(a)\r
  10 END FUNCTION\r
  11 \r