# : BIORHYTHMS WITH PRINTINGI: CAPABILITY ADDED BY P. WAGNERf X²0¤94:‡D:—50000ªX,D:‚Š(ƒ 169,4,133,186,169,126,133,184°2ƒ 169,0,160,4,133,113,132,114,133Õ<ƒ 183,133,185,32,192,255,166,184ûFƒ 32,201,255,162,25,169,13,32,210! Pƒ 255,32,225,255,240,46,160,0,177F Zƒ 113,133,103,41,63,6,103,36,103i dƒ 16,2,9,128,112,2,9,64,32,210‘ nƒ 255,200,192,40,208,230,152,24,101µ xƒ 113,133,113,144,2,230,114,202Ü ‚ƒ 208,205,169,13,32,210,255,32,204ü Œƒ 255,162,126,76,195,255,96 –™Ç(142):™Ç(8)$ —53281,0:—53280,0/ ª™"“";C ´H²100.01:F².001V ¾†M%(12),M$(12)k ÈI²1¤12:‡M%(I):‚€ ÒI²1¤12:‡M$(I):‚ ÜD$²""Ò æR$²""Þ ðPI²«2¬ÿú ú™" TO EXIT"…"‘‘INPUT NAME PLEASE";N$1‹N$²"Q"°N$²"QUIT"§€]…"INPUT BIRTHDAY MM,DD,YY ";MB,DB,YB‡"…"žDUMP CHART TO PRINTER? (Y/N)";ZZ$¼,‹ZZ$²"Y"§™"ž(HIT ANY KEY AFTER CHART DISPLAYS)"Å6TB²0Ñ@T1²YB4ßJ‹MB³2§380íTI²1¤MB«1ý^TB²TBªM%(I)h‚#r‹(T1³±µ(T1))¯(MB±2)§TB²TBª1=|TB²TBª365¬YBªµ(T1)ªDBi†…"INPUT START DATE MM,DD,YY ";MS,DS,YSrTS²0~šT1²YS4Œ¤‹MS³2§470š®I²1¤MS«1ª¸TS²TSªM%(I)°Â‚ÐÌ‹(T1³±µ(T1))¯(MS±2)§TS²TSª1êÖTS²TSª365¬YSªµ(T1)ªDS÷àTT²TS«TB êPS²23¬(TT23«µ(TT23))- ôES²28¬(TT28«µ(TT28))H þIS²33¬(TT33«µ(TT33))Q 700] I²0¤38z P²8ª8¬¿((PSªI)¬PI23)ª.5› &™""È(R$,Iª1);È(D$,Pª2);"Ÿ×"¡ 0‚ :I²1¤38Ê DE²8ª8¬¿((ESªI)¬PI28)ª.5ë N™""È(R$,Iª1);È(D$,Eª2);"žÑ"ñ X‚ý bI²1¤38lIT²8ª8¬¿((ISªI)¬PI33)ª.5=v™""È(R$,Iª1);È(D$,ITª2);"*"C€‚VŠ¡A$:‹A$²""§650s”Ÿ4,4:˜4,Ç(27)ªÇ(65)ªÇ(7)zž 4Ž¨‹ZZ$²"Y"§ž50000Ÿ²™Ç(147):‰250©¼™"“";ÍÆ™"BIORHYTHMN FOR "N$"’ BORN ";ôÐ™M$(MB);DB;",19";Ê(Ä(YBHªF),3,2)#Ú™"°²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²®".äI²1¤8]î™"« Ý Ý Ý Ý Ý Ý Ý Ý Ý Ý Ý Ý Ý Ý Ý Ý Ý Ý ³"cø‚’™"«ÀÛÀÛÀÛÀÛÀÛÀÛÀÛÀÛÀÛÀÛÀÛÀÛÀÛÀÛÀÛÀÛÀÛÀÛÀ³"I²1¤8Ì™"« Ý Ý Ý Ý Ý Ý Ý Ý Ý Ý Ý Ý Ý Ý Ý Ý Ý Ý ³"Ò ‚*™"±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±½"4MD²MS:D1²DS:YD²YS#>I²0¤38?H‹I2³±µ(I2)§™"";:‰910LRA$²Ä(D1)i\‹Ã(A$)³3§B$²É(A$,1):‰880‹fB$²Ê(A$,2,1)ª""ªÉ(A$,1)ª"‘"”p™B$;§zC$²"’‘"à„‹(D1²1)°(D1²2)§™""M$(MD)" 19"Ê(Ä(YDHªF),3,2);C$;ìŽD1²D1ª1˜‹D1³²M%(MD)§970¢‹MD³±2§960&¬‹YD4³±µ(YD4)§9605¶‹D1³30§970ZÀD1²1:MD²MDª1:‹MD±12§MD²1:YD²YDª1`Ê‚œÔ™"":™"PHYSICAL=Ÿ× EMOTIONAL=žÑ INTELLECTUAL=*";¹ÞC$²"UP CRIT DWN"Æè™"";ÕòI²1¤Ã(C$)éü™Ê(C$,I,1)"";ï‚õŽƒ31,28,31,30,31,30,31,31,30,31,30,31k$ƒ"JAN","FEB","MAR","APR","MAY","JUN","JUL","AUG","SEP","OCT","NOV","DEC"