d0,1:4,1 :8'xH100.01:F.001:M%(12),M$(12)OI112:M%(I):dI112:M$(I):D$""R$""PI2950 :1,5,6" ENTER DATES AS THREE NUMBERS SEPARATED/" BY COMMAS. FOR EXAMPLE TO ENTER 21ST.[" MARCH, 1955 YOU ENTER 21,3,55 AND~" THEN PRESS THE RETURN KEY.N$"YOU":" ENTER YOUR NAME PLEASE ";N$:DB1:MB1:YB60" ENTER YOUR BIRTHDAY ";DB,MB,YBTB0:YB99YBYB100:210T1YB4MB2280-I1MB1=TBTBM%(I)Cc(T1(T1))(MB2)TBTB1}TBTB365YB(T1)DBSD1:MS1:YS87"" ENTER START DATE ";SD,MS,YS,TS06T1YS4@MS2370JI1MS1TTSTSM%(I)^h(T1(T1))(MS2)TSTS18rTSTS365YS(T1)SDE|TTTSTB`PS23(TT23(TT23)){ES28(TT28(TT28))IS33(TT33(TT33))580I038P88((PSI)PI23).5""(R$,I1);(D$,P2);"":1,1000P50,2 I138'E88((ESI)PI28).5W""(R$,I1);(D$,E2);"" :2,900E40,2]mI138:A$IT88((ISI)PI33).5""(R$,I1);(D$,IT2);"*":1,600IT30,2:2,602IT30,2:""; &A$:A$""550+A$"C"%0""3:950:290=D"";bN"BIORHYTHM FOR "N$" BORN ";XM$(MB);DB;",19";((YBHF),3,2):1,5,3b""lI18v" ".""9I18h" "n""MDMS:D1SD:YDYS:1,2,6I038:1,900,2I2(I2)"";:790A$(D1)(A$)3B$(A$,1):7607B$(A$,2,1)""(A$,1)""@B$;SC$"" (D11)(D12)""M$(MD)" 19"((YDHF),3,2);C$;D1D11 D1M%(MD)850*MD28404YD4(YD4)840>D130850HD11:MDMD1:MD12MD1:YDYD1 RF\"":"PHYSICAL= EMOTIONAL= INTELLECTUAL=*";LfYp"";hzI1(C$)|(C$,I,1)"";31,28,31,30,31,30,31,31,30,31,30,31"JAN","FEB","MAR","APR","MAY","JUN","JUL","AUG","SEP","OCT","NOV","DEC")" T" B I O R H Y T H M 16 " " : END OF PROGRAM