+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