C64S tape image fileBIORYTHM _BIORHYTHM *"BIORHYTHM{"COPYRIGHT 1978, COMMODORE BUSINESS MACHINES, INC. ALL RIGHTS RESERVED VERSION 1.0 #G1009ZZ11500:ZZ BIORHYTHM 2.5"";11);"BIORHYTHM 1.0":"DO YOU WANT INSTRUCTIONS (Y/N)?";PI2:R7:D$""?(R$"":T$"":U$"":Q$"":G$""RZM%(13),M$(12)gdI113:M%(I):|nI112:M$(I):xI123:D$D$"":I139:E$E$" ":R$R$"":I139:E$E$"":I137T$T$"":U$U$"":G$G$""$T$T$"":U$U$"":G$G$""HI118:Q$Q$" "::Q$Q$" "eWW$:(WW$,1)"Y"10000|(WW$,1)"N"176"PRESS RETURN AFTER EACH REPLY!":"INPUT NAME PLEASE? ";: 63000WW$(WW$,18):N$WW$N$""N$"ANONYMOUS"2":" PLEASE ENTER DATES AS 8 DIGIT NUMBERS "f$" E.G. AUGUST 1, 1945 WOULD BE 08011945 "::," "." BIRTHDATE? ";:630000(WW$)8(WW$)03002 (((WW$,2))12)(((WW$,3,2))31)300@4 (((WW$,2))0)(((WW$,3,2))0)300s6MB((WW$,2)):DB((WW$,3,2)):YB((WW$,4))@MB(MB):DB(DB):YB(YB)^TB(DB365.25YBM%(MB).01MB.03)" "! " START DATE? ";:63000> (WW$)8(WW$)0400l  (((WW$,2))12)(((WW$,3,2))31)400  (((WW$,2))0)(((WW$,3,2))0)400 MS((WW$,2)):DS((WW$,3,2)):YS((WW$,4)) MS(MS):DS(DS):YS(YS) TS(DS365.25YSM%(MS).01MS.03)" TTTSTB= PS23(TT23(TT23))X ES28(TT28(TT28))s IS33(TT33(TT33))} 8000 K038 PRR((PSK)PI23).5 (D$,P5);(R$,K2);""  K038 ERR((ESK)PI28).5 (D$,E5);(R$,K2);"" ! K038> IRR((ISK)PI33).5[ (D$,I5);(R$,K2);"*"a "'SPACE'-CONTINUE:'!'-EXIT:'N'-NEW INPUT"; A$: (A$" ")(A$"N")(A$"!") 5000 I1150:AA$:  A$"!" 63998 A$"N"200) MSMD:DSDD:YSYD2 450V @""10)" B I O R H Y T H M " J"FOR "N$" BORN "M$(MB);DB;",";((YB),4) T$ I1R:Q$::G$ I1R:Q$::U$ MDMS:DDDS:YDYS Y0:I038  YY1  I2(I2)"";:8250 A$((DD),2):  DD10""(A$,1)"";:8220V  (A$,1)""(A$,1)"";e  DD28250 & Y32""M$(MD)YD""; : DDDD1 ? DD(M%(MD1)M%(MD))8290 I MD28280 N YD4(YD4)8280 S DD308290X DD1:MDMD1:MD12MD1:YDYD1b K4!:"PHYSICAL= EMOTIONAL= INTELLECTUAL=*"f!C$"UP CRIT DWN"u!"";!I1(C$)!(C$,I,1)"";!`"'""'" BIORHYTHM DISPLAYS A PHYSICAL,"$'"EMOTIONAL, AND INTELLECTUAL PATTERN"0.'"THAT INDICATES YOUR UP AND DOWN DAYS"\8'"FOR ANY PERIOD OF TIME, IN BLOCKS OF"B'"39 DAYS. BIORHYTHM ATTEMPTS TO PREDICT"L'"GOOD OR BAD DAYS IN THE FUTURE, AND"V'"TO TELL GOOD AND BAD DAYS IN THE PAST."`'" THESE PREDICTIONS ARE BASED ON"8j'"VARIOUS STUDIES TO DETERMINE WHY"et'"ACCIDENTS OCCUR. SOME PEOPLE BELIEVE"~'"THAT PHYSICAL ATTRIBUTES FOLLOW FIXED"'"PERIODS. THE PERIODS & SYMBOLS, AS THEY"'"APPEAR ON THE GRAPH, ARE SHOWN BELOW:"'" =PHYSICAL > 23 DAYS"D'" =EMOTIONAL > 28 DAYS"n'" *=INTELLECTUAL > 33 DAYS"'"";5);"(PRESS ANY KEY TO CONTINUE)";' A$: A$"" 10180'ZZ1150:A$:'" THESE CYCLES ARE SINE WAVE CYCLES""'"BEGINNING AT BIRTH. THE CRITICAL DAYS"N'"PURPORTEDLY OCCURURING TRANSITIONS"x'"BETWEEN 'UP' DAYS AND 'DOWN' DAYS."'"THE BIORHYTHM THEORY SUGGESTS"'"THAT DURING THE CRITICAL DAYS YOU"("ARE MORE PRONE TO ERRORS, ACCIDENTS," ("AND PHYSICAL SETBACKS.">(" 'CRITICAL' DAYS ARE INDICATED WHEN"m("THE SINE WAVE PASSES THROUGH THE CENTER"("AXIS MARKED 'CRIT'. 'UP' AND 'DOWN'" ("DAYS ARE MARKED 'UP' AND 'DWN' ON THE"!("RIGHT SIDE OF THE GRAPH."((" WHEN THE APPROPRIATE PROMPT APPEARS,">2("TYPE IN YOUR NAME, BIRTHDAY, AND"j<("DESIRED STARTING DATE, EACH FOLLOWED"F("BY THE RETURN KEY. TO SEE THE NEXT"P("39 DAY BLOCK, PRESS THE SPACE KEY"Z("";5);"(PRESS ANY KEY TO CONTINUE)";d( A$: A$"" 10340i(ZZ1150:A$:"n( 200WPÃ 0,31,59,90,120,151,181,212,243,273,304,334,365ZÃ JAN,FEB,MAR,APR,MAY,JUN,JUL,AUG,SEP,OCT,NOV,DECWW$"": GENERAL INPUT 1.3,"";:VV150:QQ$:QQ$""VV51:63100 @:" ";:VV150:QQ$:QQ$""VV51:63100J:630203|:(QQ$)13" ";:H(QQ$)2063200_(QQ$)34QQ$"'"zQQ$" ""Z"QQ$63020WW$WW$QQ$:(WW$)254WW$""" "QQ$;:63020(WW$)163000(WW$)1QQ$;:63000WW$(WW$,(WW$)1):QQ$;:63020""""\:"END OF BIORHYTHM PROPERTY OF COMMODORE$