projects
/
qbasicapps.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* 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
' Biorythm calculator
\r
' made by Svjatoslav Agejenko
\r
' in 2003.12
\r
-' email: svjatoslav
agejenko@gmail.com
\r
+' email: svjatoslav
@svjatoslav.eu
\r
\r
DECLARE FUNCTION gety& (zx2!, re&)
\r
DECLARE SUB getdata (zt!, y1&, y2&, y3&)
\r
\r
DECLARE FUNCTION gety& (zx2!, re&)
\r
DECLARE SUB getdata (zt!, y1&, y2&, y3&)
\r