* fixed some email addresses

[qbasicapps.git] / math / biorythm / bio.bas

diff --git a/math/biorythm/bio.bas b/math/biorythm/bio.bas
old mode 100755 (executable)
new mode 100644 (file)
index f04eefc..d0a834c
--- a/math/biorythm/bio.bas
+++ b/math/biorythm/bio.bas
@@ -1,7 +1,10 @@
+CHDIR ".\qbasicapps\math\biorythm"\r
+\r
+\r
 ' Biorythm calculator\r
 ' made by Svjatoslav Agejenko\r
 ' in 2003.12\r
-' email: svjatoslavagejenko@gmail.com\r
+' email: svjatoslav@svjatoslav.eu\r
 \r
 DECLARE FUNCTION gety& (zx2!, re&)\r
 DECLARE SUB getdata (zt!, y1&, y2&, y3&)\r