Ÿ4,4:˜4I²1¤3:141:‚BA$²"BIORHYTHM CHART":142:141lA$²"===========================":142~I²1¤3:141:‚… 4¨=============================Å BIORHYTHM PROGRAMè =============================î : œ:X²53280:—X,0:—Xª1,0 :1 -----------------------------T  I N I T I A L I Z Ew -----------------------------} :– †M$(12),D(12),X$(31)· ƒJAN,31,FEB,28,MAR,31,APR,30Ø ƒMAY,31,JUN,30,JUL,31,AUG,31ù ƒSEP,30,OCT,31,NOV,30,DEC,31 I²1¤12:‡M$(I),D(I):‚ :# P1²23- P2²287 P3²33G P9²6.283185M :Z D1²P9­P1g D2²P9­P2t D3²P9­P3z : -----------------------------À ! U S E R I N P U Tã "-----------------------------é #: $™"“ * * * BIORHYTHM * * *"1 %…" YOUR NAME PLEASE: ";N$< &X$²"M"L 'N1²0:™""z (…"‘‘‘ YOUR BIRTHYEAR (FOUR DIGITS) :";B3¾ )‹B3³1900§™" SORRY....YEARS AFTER 1899 ONLY. £££££":‰40Ø *‹B3­4²µ(B3­4)§D(2)²29 +…" YOUR BIRTHMONTH (1 - 12) : ";B1 ,‹B1³1°B1±12§™"‘‘‘‘":‰43M -™" YOUR BIRTHDATE (1 -"D(B1)"): ";:…B2k .‹B2³1°B2±D(B1)§™"‘‘‘":‰45u /™""‚ 0‹B1±2§51• 1‹B1²2¯B2²29§51º 2‹µ((B3«1900)­4)²(B3«1900)­4§N1²1Ù 3…" CHART WHAT MONTH: ";C1ø 4…" CHART WHAT YEAR: ";C3# 5‹C1³1°C1±12§™"‘‘‘ NO SUCH MONTH!":‰51T 6‹C3³²B3§™"‘‘‘ MUST BE AFTER BIRTHYEAR!":‰51v 7D(2)²28:‹C3­4²µ(C3­4)§D(2)²29‚ 8X²D(B1)ˆ 9:« :-----------------------------Î ; D A Y S O F L I F Eñ <-----------------------------÷ =:>N1²N1ªX«B2?‹B1²12§68#@J²B1ª1¤122AN1²N1ªD(J)9B‚J?C:OD‹C3«B3³2§75fEJ²B3«1899¤C3«1901yF‹µ(J­4)²J­4§72G‰73HN1²N1ª1›IN1²N1ª365¢J‚J¨K:µL‹C1²1§81ÃMJ²1¤C1«1ÒNN1²N1ªD(J)ÙO‚JßP:þQ‹µ((C3«1900)­4)³±(C3­4)§85 R‹C1±2§84S‰85TN1²N1ª1)UI1²N13VI2²N1=WI3²N1CX:fY-----------------------------‰Z P R I N T O U T¬[-----------------------------²\:Ø]™"“ PRINTING, STANDBY"ã^‹U§107ö_Ÿ4,4:˜4,Ç(14);`A$²" BIORHYTHM CHART FOR "ªN$:143Qa˜4,Ç(14)" BIRTHDATE:"B2;M$(B1);B3:˜4:˜4,Ç(15)ˆb˜4," I = INTELLECTUAL/COGNITIVE"²c˜4," P = PHYSICAL "Üd˜4," E = EMOTIONAL"e˜4," + = OVERLAPING CURVES"f˜4:˜4Ng˜4,Ç(14)" BIORHYTHM CHART STARTING "M$(C1);C3:˜4~h˜4,Ç(14)" AS OF THE FIRST OF "M$(C1);C3:˜4µi˜4,Ç(14)" YOU HAVE LIVED"N1"DAYS.":˜4:˜4:˜4,Ç(15)Üj˜4,¦22)"NEGATIVE"¦15)"POSITIVE":˜4ëkL²1¤D(C1)÷lI²1¤31mX$(I)²" " n‚IoX$(16)²"*":pY1²µ(15¬¿((LªI1)¬D1)ª16.5)YqY2²µ(15¬¿((LªI2)¬D2)ª16.5)xrY3²µ(15¬¿((LªI3)¬D3)ª16.5)‡sX$(Y1)²"P"–tX$(Y2)²"E"¥uX$(Y3)²"I"»v‹Y1²Y2§X$(Y1)²"+"Ñw‹Y1²Y3§X$(Y1)²"+"çx‹Y2²Y3§X$(Y3)²"+" y‹L³10§˜4," "M$(C1)" "L;£10);.z‹L±9§˜4," "M$(C1);L;£10);:{J²1¤31H|˜4,X$(J);N}‚e~˜4,£12);N1:N1²N1ª1l‚Lª€™"“ CONTINUE THRU NEXT MONTH?":138:‹A$²"N"§131ÊC1²C1ª1:‹C1²13§C1²1:C3²C3ª1Û‚U²1:N1²0:‰55òƒ˜4:˜4:˜4,Ç(140): 4„™"“ ANOTHER CHART?",…138:‹A$²"Y"§ŠO†======= TERMINATION =========U‡€xˆ******* SUBROUTINE **********~‰:±Š¡A$:‹A$²"Y"§™:™" ‘¤¤¤¤¤ YES ’":ŽÌ‹‹A$³±"N"§™"‘"Ç(7):‰138ðŒ™:™" ‘¤¤¤¤ NO ’":Ž˜4,Ç(14);"*":Ž<Ž˜4,Ç(14);È("* ",20«(Ã(A$)­2));A$:ŽS˜4,Ç(27);"-";Ç(1);]˜4,A$u‘˜4,Ç(27);"-";Ç(0):Ž