xy ,,BRKMONPEIYNNAMOFNA1NA2ATMDYEEMEYXYMODAYMODAYDAYPHEITADAPADEADIADMDYMDY@@2A AN?A?AB?  d 5 ? I @@0A`@A`AA`@Bqbr@Bqb@@0@@ @@dpX @0!@"A!#@v$@('#%&'()@*@+A`,@-@0.A`/@0@1@!!BIORHYTHMS AT YOUR KEYBOARDBY TOM BOHMBACH (c) 1987, ANTIC PUBLISHING :#@@K::6-F:B2y,@ k +@A1-@@I(@ BIORHYTHMS[-@ @k(@AT Y-@@'(@YOUR9-@@O(@KEYBOARDY AuQ-@ @%(@by7-@@Q(@ tom bohmbachHAR@(;( (Press any key to begin)H)@d119@,9@b,9@b,9@b,nRR;@,;@,;@,;A,;@,;@,;@,x68@,-@1-68@,-@1B68@,-@0W68@,-@1l68@,-@068@,-@168@,-@168@ ,-@068@,-@1-68@,-@0-68@,-@100CHOOSE BIORHYTHMS OR COMPATIBILITY PROFILE +Aa (}AR@--@@>( Do you want:P-@@a( i-@@$( iorhythms6-@@=(orO-@@i(ompatibility Profiled AuA@d1A>)@R"@fA dGOTO BIORHYTHMS@gA $ A`GOTO COMPAT.3=@w+@A=B7tA4$+ (}+( Please enter your name AR1 (}-@@'6-A!01 APSJ#(Please enter your birthdate&(B((M,D,Y i.e. 1,31,1987)J\6- Af"@A!0pT (}-@@D($Is this your correct birthday (Y/N)?J6-T A@z&-@@ &( , -@8@ Ap4NA!0[ (}-@@ [(;Please enter the month and year you would like to examine(((M,Y i.e. 1,1987)6-A" AP6-S6-G @)!@)P:,) A)!A!)P:,S6-@"A"2C(!( Ġ5-@A9 C A"\="@*'@"P:'@,*'AP:'A,R68@,-@)\ A"@68@,-@( A@NNCOMPUTE THE # OF DAYS BETWEEN BIRTHDAY AND THE 1st OF EXAMINATION MONTH?"@)"@'6-&@56-%@? A"`6-%@6-##6-P:Ae%$,%P:@0`$,%?"@)"@'6-&@56-%@? A"6-%@6-!!6-P:Ae%$,%P:@0`$,6-+&,%@` ++COMPUTE THE # OF DAYS INTO EACH CYCLE 66-P:'@#,%6-P:'@(,66-P:'@3, -6-$@#6-$@(-6-$@3  6-&6-&6-& "@#6- "@(6- "@36- INIT. SCREEN 3 +@@)AA3 Au ,@@9'/AY@99,K/AY]/AY@yo/@y/ -@AY@ ,/@y(  2 o,@@'/@@9,@@K/@@],@@ o/@@ < K,@@h'/@@q9,@@qK/@@qA o,@@8'/@@99,@@7K/@@7],@@@o/@@@F ]AR@9(1234567891111111111222222222233]( DAYS 0123456789012345678901P ''( Ӡ٠٠ϠZ (NAME: /c \\COMPUTE AND GRAPH CYCLE FUNCTIONS - BLUE=PHYSICAL - RED=EMOTIONAL - GREEN=INTELLECTUALd $@$6-A`'@n Z6-@06-,6-8,$@86-@F6-$@P A&qZ A'0o 6-G:$,$6-@9&p ,x - "6-G:$+%,,$"6-@9& /%@   $ ! @!6-A`'A '6-@6-$@' A&q ! @!6-A`'A6 '6-@6-$@' A&q ,)@+,A MENU n (}%( ՠ((I( o ahead one monthL(k( rint this monthn( K#( ee another month&(K( nter another birthday .(.(# se Compatibility Profile d(!( uit$('(9AR@Z( Please Choose Oned Au 4A@d'A4)@ "@qB "@A" "@iA  "@A` "@+ @A0  PRINTER OPTION p (}-@@C(# PLEASE MAKE SURE PRINTER IS READYc( THEN PRESS A KEYp)@ 96-A0 AQ9@@P: 6- SET UP PRINTER R(@(@R(@NAME: / U(@(@$(@U(@# DAYS OO(@> 1 2 3 4 5 6 7 8 9 1 1 1 1 1 1 1 1 1 1 2 2 2 2 2 2 2 2 2 2 3 3 OO(@> 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1& PP(@?---------------------------------------------------------------/ COMPUTE VALUES0 }6-A`'@H+6-A`'@X?6-A`'@hI+@[AmAR@}( Thinking5 H @,@@ >/8,$@%@@ H Au: 8 ,@@ 8-@8,$@; /%@@ D **68,-P:G:$+%+$@,,,$@ ,N **68,-P:G:$+%+$@,,,$@ ,X **68,-P:G:$+%+$@,,,$@ ,b   (}( Printingk PRINT ITl !!-@6@ 6@v -@8,$@ ' 8,"67<,.* ' A2A ' 8,"67<,.+ ' A2A ' 8,"67<,.# ' A2A 67<,.    0"@(@H,(@0  a"](@@C---------------------------------------------------------------a  7"6@  (@L-(@7 A2E (@|  PP(@?--------------------------------------------------------------- OO(@> 1 2 3 4 5 6 7 8 9 1 1 1 1 1 1 1 1 1 1 2 2 2 2 2 2 2 2 2 2 3 3 OO(@> 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1 44(@# DAYS a(@(@a(@: *=PHYSICAL +=EMOTIONAL #=INTELLECTUAL @ ; +AR@1A; A0MONTH NAMEggA@A@ A@0A@@A@PA@`A@pA@A@AAAAAA 6.JANUARY$6.FEBUARY$6.MARCH$6.APRIL$ 6.MAY$6.JUNE$6.JULY$6.AUGUST$6. SEPTEMBER$6.OCTOBER$6.NOVEMBER$6.DECEMBER$ERRORS ROUTINESG B(+( ?-@AC G @ APnCOMPATIBILITY PROFILEo1ST NAMEpA (}AR@A(! Please enter 1st person's namez A6.1ST BIRTHDAY (}-@@ c6-A`  AP[(-@(  ?( & F=AR@(=( Ӡ٠٠ϠP)@ AW(Y)ES OR (N)OXSA@d'A4)@=6.>:,S0Y*0NAb$?ENTER NAMES@+(+( Use to erase typosJL(*( Press when finished-(0(L( __________^-@@h 6.6-@rHA@d'A4)@H"AUA |U"A&*!@0(>:,_>:@0,>6-&@K67<,. U AP!! @2)!@AP'67<,.>:,(>:,'6-%@@AP.)@.A&*AUA"A&A`$'#CHECK DATES(#86-, @)!@)P:,86-@-#."@$68@,-@). A.#68@,-@(2#) @)!8,)P:,)6-@F#,  A)!A!)P:,,6-@P#"A`Z#=( (%( Ġ9-@A= d#$'ROUND OFF %'S'B:, @$'76-A:7@<@,,76-A:7@<@,,$'!@6-%@.'667@<@,.=:,667@<@,.08'$*COMPUTE NEXT MONTH CYCLES*$6-%8,6-%8,$6-%8,+'!@#6-&@#' B +'!@(6-&@(' B +'!@36-&@3' B0 +76-%@"@)6-@76-%@*+ A@ A%` D1:BIO.BAS