* fixed some email addresses

[qbasicapps.git] / math / logar.bas

diff --git a/math/logar.bas b/math/logar.bas
deleted file mode 100755 (executable)
index 3bc211e..0000000
--- a/math/logar.bas
+++ /dev/null
@@ -1,11 +0,0 @@
-DECLARE FUNCTION loga! (a!, b!)\r
-CLS\r
-\r
-v = 10 ^ (2 * loga(10, 7) + loga(10, 2))\r
-\r
-PRINT v\r
-\r
-FUNCTION loga (a, b)\r
-loga = LOG(b) / LOG(a)\r
-END FUNCTION\r
-\r