OPLObjectFile**
LOC::M:\OPL\BIOGRAPH.OPL
BioGraph.bio
\bio\
EXIT%
PARSE$
OPENF
NEWPERS%
CALCBIO
OUTNAM
KEYRGT
KEYLFT
physical
+	emotional
intellectual
RODAX
\bio\
Person+
NewOR+
OtherOO
Options+
DateOD+
AboutOA+
QuitOX
CALCBIO
CALCBIO
BioGraph V1.0
(c)1993 THNO
100024,3461 @ CompuServeO
TAGDAT$
Date: 	!
Od|RO
EXIT%
CALCBIO
Set Date
Date:O
TAGDAT$
NEWPERS%
OUTNAM
CALCBIO
WRITEF
Replace
New Person
Name:
+	Birthday:O
CancelO
GETNAME%
PROZR
OPENF
PARSE$
OUTNAM
CALCBIO
\bio.W
Chose Person
\bio.W
PROZA
Help: BioGraph(
 Using BioGraph(
 Keys Commands(
 About BioGraph(
Help: Using BioGraph(
BioGraph calculates the three
+ biorhythm values in percent from
+ -100% to +100% for a given date.
Help: Key Commands(
Cursor left/right changes the
 date by one day
BIOGRAPH
KEYRGT
KEYLFT
PROZAL
CALCBIO
PERCt
PROZX
PROZD
OUTNAM
PROZRZ
NEWPERS%
PROZO
GETNAME%
OPENF
WRITEF
PARSE$%	
TAGDAT$R