C64S tape image fileDIET PLANNER DIET PLANNER _ BIORHYTHM *" DIET PLANNERV"COPYRIGHT 1978 LES PALENIK, MICROCOSM}"ALL RIGHTS RESERVED. WORLD-WIDE"REPRODUCTION AND DISTRIBUTION RIGHTS"HELD BY COMMODORE BUSINESS MACHINES INC. I12000: DIET PLANNER: #P1001 - V05/06/78A A$"****************************************N ""A$jI120:"*"::""A$"":I121:"*";::"WARNING"THIS PROGRAM IS ONLY INTENDED AS A";"GUIDE TO A PROPER DIET. IF YOU";A"DESIRE TO LOSE WEIGHT, YOU SHOULD";r"CONSULT WITH YOUR DOCTOR BEFORE";"STARTING ON A DIET. "MR. PALENIK, COMMODORE BUSINESS";""MACHINES INC. AND THEIR AGENTS";$$"MAKE NO WARRANTY";U&"THAT THE CALCULATIONS PERFORMED BY";("THIS PROGRAM ARE CORRECT OR";*"SUITABLE FOR YOUR INDIVIDUAL CASE.2"READ THIS & PRESS RETURN ";:63000 P C1(2,3),C2(2,3),C3(5),C4(6,3)(dI12:J13:C1(I,J)::P 3.9167,4.0833,4.5,3.4167,3.5833,4oI12:J13:C2(I,J):: 128.75,128.25,142.5,105,106,122I15:C3(I): 3.68,4.32,5.75,8,12.3I16:J13:C4(I,J):: 6 186,199,210,175.7,183.5,199& @ 164,171.5,186,180,182,192H J 164,171.5,186,154.5,162,175\ TC6.454:C72.54o |P0$"(Y OR N)" P1$"SORRY,YOU ARE TOO " P2$"FOR THESE CALCULATIONS.":P3$"THE RESULTS MAY BE INACCURATE. P4$"":H$" H$[ "WEIGHT CONTROL PROGRAM":" " ANSWER YOUR PET'S QUESTIONS BY" " TYPING IN YOUR ANSWER AND " PRESSING THE RETURN KEY" "ARE YOU LAYMAN OR EXPERT ?"1 "(L-LAYMAN,E-EXPERT)";: S22J 63000:""^ WW$"E" S21s ! WW$"L" S20 $ S22 560 % 2780:500 & S21 670 0"" :"THIS PROGRAM IS SELF-EXPLANATORY AND" D"IT WILL PROMPT YOU FOR ALL NECESSARY"6 N"INFORMATION. THE CALCULATIONS IN THE"_ X"PROGRAM ARE VALID FOR INDIVIDUALS" b"18-71 YEARS OLD AND 5-6 1/2 FT TALL." l "BRITISH OR METRIC UNITS (B OR M)? ";:63000:S11(WW$"M") S10(WW$"B")2780:670 H$:S10770F  "YOUR HEIGHT IN CM? ";:63000:A2(WW$):A2A2C7:800R  63000  "YOUR HEIGHT...":15)"FEET? ";:63000:A1(WW$) :15)"INCHES? ";:63000:"":A2(WW$):A2A112A2  A259 840 *:P1$;"SHORT" 4P2$:P3$>870H A276 870(R:P1$;"TALL"6\P2$:P3$<fep "YOUR SEX (M OR F)? ";nzA39 63000:""WW$"M" A31WW$"F" A32 A33 960 2780 870"YOUR FRAME TYPE?""(S-SMALL,M-MEDIUM,L-LARGE)";$A495 63000:""IWW$"S" A41]WW$"M" A42qWW$"L" A43 A44 1090 2780 960BB0C1(A3,A4)A2C2(A3,A4)L S11 B0B0C6VB2(B0.25.5)10`B0(B0.5)j "";P4$:2~ "YOUR IDEAL WEIGHT SHOULD BE BETWEEN]""9)(B0B2.5)" AND "(B0B2.5)j:P4$:23)"(Y OR N)":"DO YOU WANT A DIET CALCULATION? ";63000: WW$"Y" WW$"N" 2780:1190WW$"N" 1750  "YOUR AGE? "; 63000%A5(WW$)8 A517 1290K:P1$;"YOUNG"[P2$:P3$:f 1330w  A5721330:P1$;"OLD":P2$:P3$:A571.9992< "YOUR ACTUAL WEIGHT?";F 63000:"":A1(WW$):A102780:1340P S10 1370UA1A1C6:B0B0C6$Z 18606d S21 1450HnB3(A1B0)B0Zx B30 1420n B3.04 1450:"CONGRATULATIONS !!!""YOU DON'T HAVE TO DIET"S201740"DO YOU WANT TO GO ON A DIET (Y OR N)? "; 63000WW$"N" 1750H$! S21 1520.A7A1B09 1600K S10 1580SH$}"HOW MANY KG DO YOU WANT TO LOSE? "; 63000:A7(WW$):A702780:1540A7A7C6" 1595,"HOW MANY LBS DO YOU WANT TO LOSE? ";:63000:A7(WW$)6A702780:1580;G@ "DO YOU WANT TO CHANGE YOUR PHYSICAL"iE"ACTIVITY LEVEL (Y OR N)? ";uJ 63000{T^WW$"Y" 1860h S21 1690rA81200|"OK,I WILL SUGGEST FOLLOWING DIET:""1200 CALORIES A DAY":1730 1730 F"HOW MANY CALORIES PER DAY":"IN YOUR PLANNED DIET? ";[63000:A8(WW$)e2240k:"DO YOU WANT ANOTHER WEIGHT""CALCULATION (Y OR N)? "; 63000WW$"N" 1800H$710D "PHYSICAL ACTIVITY LEVEL":7b10)"1 SEDENTARY":10)"2 LIGHTnv10)"3 MODERATE":10)"4 VIGOROUS":10)"5 SEVERE"YOUR ACTIVITY LEVEL (1 TO 5)? "; 63000:"":A6(WW$)0A6A66 2030 2780 1860I0(A518) I01 I01I1I0(A333)- I21((A260)6):I2(I2)L I21 I21^  I23 I23o*W1C3(A6)A14W2(A1.425)C4(I1,I2)>B21.11(W1W2).5HB2(B2)R\ "MAINTENANCE CALORIES PER DAY:",B2aP4$f"THIS DAILY CALORIC INTAKE WILL"5p"MAINTAIN YOUR PRESENT WEIGHT";zAGTA9A1A7^W1A1oI0:J0:W30 "DO YOU WANT TO SEE THE DAILY LOSSES " "ON YOUR WEIGHT REDUCING DIET? ";:63000:A$WW$$ A$"N"2570. H$:"DAY DAILY LOSS ACTUAL WEIGHT"B %L A$"N"2570/V JJ1?j W8W3:W9W1Y~ S1W8W8C6:W9W9C6 W8(W8100.5)100:W9(W9100.5)100 J20 2540 :"HIT RETURN TO CONTINUE "; 63000 J0 2350 A$"N"2570 I02570 I,W8,W9: II1:W6C3(A6)W1:W7(W1.425)C4(I1,I2):B2W6W7Z2 W3(B2A8.9)3500:W1W1W3P (W30(W1A9)0)(W30(W1A9)0)2380x  I1 2740 "SORRY, YOU WILL HAVE TO EAT LESS":" OR EXERCISE MORE!": II1:"PRESS RETURN TO CONTINUE ";:63000:E ""P4$:"SUGGESTED DIET (CAL/DAY):",A8 "AT ACTIVITY LEVEL: ",A6:"NUMBER OF DAYS ON THIS DIET:",I S1A7A7C6 "WEIGHT LOSS WILL BE: ",A7:""P4$: :"*** INVALID ENTRY- RETRY":WW$""1,10);"";:VV150:QQ$:QQ$""VV51:63100b@:" ";:VV150:QQ$:QQ$""VV51:63100oJ:63020|:(QQ$)13" ";:(QQ$)2063200(QQ$)34QQ$"'"WW$WW$QQ$:(WW$)254WW$""" "QQ$;:63020(WW$)163000(WW$)1QQ$;:63000AWW$(WW$,(WW$)1):QQ$;:63020:"END OF DIET PLANNER PROPERTY OF COMMODORE *"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 OCCUR DURING 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$