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.è� I²1¤2000:‚� DIET PLANNER: #P1001 - V05/06/78A A$²"****************************************N ™"“"A$j�I²1¤20:™"�*":‚:™"‘"A$ˆ™"":�I²1¤21:™"*�";:‚:™®™"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)(d�I²1¤2:�J²1¤3:‡C1(I,J):‚:‚P–ƒ 3.9167,4.0833,4.5,3.4167,3.5833,4o �I²1¤2:�J²1¤3:‡C2(I,J):‚:‚•Òƒ 128.75,128.25,142.5,105,106,122©Ü�I²1¤5:‡C3(I):‚Åúƒ 3.68,4.32,5.75,8,12.3ä�I²1¤6:�J²1¤3:‡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:C7²2.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)‘";: S2²2J �63000:™"“"^ ‹WW$²"E" § S2²1s !‹ WW$²"L" § S2²0„ $‹ S2³2 § 560” %� 2780:‰500¥ &‹ S2²1 ‰ 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:S1²«1¬(WW$²"M")ó ¨‹S1²0¯(WW$³±"B")§�2780:‰670 Æ™H$:‹S1²0§770F Ú™ "YOUR HEIGHT IN CM? ";:�63000:A2²Å(WW$):A2²A2­C7:‰800R ä� 63000� ™ "YOUR HEIGHT...":™¦15)"FEET? ";:�63000:A1²Å(WW$)È ™:™¦15)"INCHES? ";:�63000:™"“":A2²Å(WW$):A2²A1¬12ªA2Ú ‹ A2±59 ‰ 840í *™:™P1$;"SHORT"û 4™P2$:™P3$>‰870H‹ A2³76 ‰ 870(R™:™P1$;"TALL"6\™P2$:™P3$<f™ep™ "YOUR SEX (M OR F)? ";nzA3²9„� 63000:™"“"“Ž‹WW$²"M" § A3²1§˜‹WW$²"F" § A3²2¸¢‹ A3³3 ‰ 960ì� 2780Ͷ‰ 870òÀ™"YOUR FRAME TYPE?"Ê™"(S-SMALL,M-MEDIUM,L-LARGE)‘";$ÔA4²95Þ� 63000:™"“"Iè‹WW$²"S" § A4²1]ò‹WW$²"M" § A4²2qü‹WW$²"L" § A4²3ƒ‹ A4³4 ‰ 1090Ž� 2780˜‰ 960¶BB0²C1(A3,A4)¬A2«C2(A3,A4)ÌL‹ S1²1 § B0²B0¬C6ãVB2²µ(B0¬.25ª.5)­10ó`B0²µ(B0ª.5)j™ "";P4$:™2~™ "YOUR IDEAL WEIGHT SHOULD BE BETWEEN]ˆ™""¦9)µ(B0«B2ª.5)" AND "µ(B0ªB2ª.5)j’™:™P4$:™¦¦™¦23)"(Y OR N)‘‘":™"DO YOU WANT A DIET CALCULATION? ";³°�63000:™Ûµ‹ WW$³±"Y" ¯ WW$³±"N" § �2780:‰1190ﺋWW$²"N" ‰ 1750 Ι "YOUR AGE? ";Ø� 63000%ÝA5²Å(WW$)8â‹ A5±17 ‰ 1290Kì™:™P1$;"YOUNG"[ö™P2$:™P3$:™f‰ 1330w ‹ A5³72‰1330œ™:™P1$;"OLD":™P2$:™P3$:A5²71.999¢2™Ã<™ "YOUR ACTUAL WEIGHT?";ñF� 63000:™"“":A1²Å(WW$):‹A1³²0§�2780:‰1340P‹ S1²0 ‰ 1370UA1²A1­C6:B0²B0­C6$Z� 18606d‹ S2²1 ‰ 1450HnB3²(A1«B0)­B0Zx‹ B3³0 ‰ 1420n‚‹ B3±.04 ‰ 1450‹Œ™:™"CONGRATULATIONS !!!"©–™"YOU DON'T HAVE TO DIET"¸ ‹S2²0§1740窙"DO YOU WANT TO GO ON A DIET (Y OR N)? ";ó´� 63000¾‹WW$²"N" ‰ 1750ÙH$!È‹ S2²1 ‰ 1520.ÜA7²A1«B09æ‰ 1600Kð‹ S1²0 ‰ 1580Sú™H$}™"HOW MANY KG DO YOU WANT TO LOSE? ";¦� 63000:A7²Å(WW$):‹A7³²0§�2780:‰1540³A7²A7­C6¾"‰ 1595ú,™"HOW MANY LBS DO YOU WANT TO LOSE? ";:�63000:A7²Å(WW$)6‹A7³²0§�2780:‰1580;™G@™ "DO YOU WANT TO CHANGE YOUR PHYSICAL"iE™"ACTIVITY LEVEL (Y OR N)? ";uJ� 63000{T™‘^‹WW$²"Y" § � 1860£h‹ S2²1 ‰ 1690¯rA8²1200Ø|™"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$)eÂ�2240kÌ™�Ö™:™"DO YOU WANT ANOTHER WEIGHT"¯Û™"CALCULATION (Y OR N)? ";»à� 63000Ïê‹WW$²"N" ‰ 1800×ô™H$àþ‰710æ€D™ "PHYSICAL ACTIVITY LEVEL":™7b™£10)"1 SEDENTARY":™£10)"2 LIGHTnv™£10)"3 MODERATE":™£10)"4 VIGOROUS":™£10)"5 SEVEREœž™"YOUR ACTIVITY LEVEL (1 TO 5)? ";·¨� 63000:™"“":A6²Å(WW$)Ͳ‹0³A6¯A6³6 ‰ 2030ؼ� 2780ãÆ‰ 1860óîI0²µ(A5­18)ø‹ I0³1 § I0²1I1²I0ª(A3¬3«3)- I2²1ª((A2«60)­6):I2²µ(I2)L‹ I2³1 § I2²1^ ‹ I2±3 § I2²3o*W1²C3(A6)¬A1Š4W2²(A1®.425)¬C4(I1,I2)¡>B2²1.11¬(W1ªW2)ª.5®HB2²µ(B2)´R™â\™ "MAINTENANCE CALORIES PER DAY:",B2ëa™P4$f™"THIS DAILY CALORIC INTAKE WILL"5p™"MAINTAIN YOUR PRESENT WEIGHT";z™AŽŽGÀ™TÞA9²A1«A7^èW1²A1oòI²0:J²0:W3²0œ ™"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 J²Jª1?j W8²W3:W9²W1Y~ ‹S1§W8²W8¬C6:W9²W9¬C6…œ W8²µ(W8¬100ª.5)­100:W9²µ(W9¬100ª.5)­100—° ‹ J³20 ‰ 2540¹º ™:™"HIT RETURN TO CONTINUE ";ÄÎ �63000ÌØ J²0×â ‰ 2350èì ‹A$²"N"‰2570öö ‹I²0‰2570 ™I,W8,W9: I²Iª1:W6²C3(A6)¬W1:W7²(W1®.425)¬C4(I1,I2):B2²W6ªW7Z2 W3²(B2«A8¬.9)­3500:W1²W1«W3‡P ‹(W3±0¯(W1«A9)±0)°(W3³²0¯(W1«A9)³0)§2380�x ™ž‚ ‹ I±1 ‰ 2740äŒ ™"SORRY, YOU WILL HAVE TO EAT LESS":™" OR EXERCISE MORE!":Ž´ I²I«1:™"PRESS RETURN TO CONTINUE ";:�63000:™E¾ ™"“"P4$:™"SUGGESTED DIET (CAL/DAY):",A8‹È ™"AT ACTIVITY LEVEL: ",A6:™"NUMBER OF DAYS ON THIS DIET:",IœÊ ‹S1§A7²A7¬C6ÎÒ ™"WEIGHT LOSS WILL BE: ",A7:™""P4$:ŽòÜ ™:™"*** INVALID ENTRY- RETRY":ŽýöWW$²""1,ö™£10);"¦�";:�VV²1¤50:¡QQ$:‹QQ$³±""§VV²51:‰63100b@ö‚:™" �";:�VV²1¤50:¡QQ$:‹QQ$³±""§VV²51:‰63100oJö‚:‰63020‰|ö‚:‹Æ(QQ$)²13§™" �";:Žž†ö‹Æ(QQ$)²20§63200µ�ö‹Æ(QQ$)²34§QQ$²"'"ؤöWW$²WW$ªQQ$:‹Ã(WW$)±254§WW$²""í¸ö™" �"QQ$;:‰63020àö‹Ã(WW$)³1§63000êö‹Ã(WW$)²1§™QQ$;:‰63000AôöWW$²È(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 #G1009§�ZZ²1¤1500:‚ZZ» � BIORHYTHM 2.5™"“";£11);"BIORHYTHM 1.0’":™"DO YOU WANT INSTRUCTIONS (Y/N)?";PI²«2¬ÿ:R²7:D$²""?(R$²"�":T$²"°":U$²"­":Q$²"«":G$²"«"RZ†M%(13),M$(12)gd�I²1¤13:‡M%(I):‚|n�I²1¤12:‡M$(I):‚”x�I²1¤23:D$²D$ª"":‚¶‚�I²1¤39:E$²E$ª" ":R$²R$ª"":‚·�I²1¤39:E$²E$ª"�":‚ÚŒ�I²1¤37ü–T$²T$ª"²":U$²U$ª"±":G$²G$ª"Û" ‚$¥T$²T$ª"®":U$²U$ª"½":G$²G$ª"³"Hª�I²1¤18:Q$²Q$ª" Ý":‚:Q$²Q$ª" ³"e°¡WW$:‹È(WW$,1)²"Y"§10000|²‹È(WW$,1)³±"N"§176¦È™"“PRESS RETURN AFTER EACH REPLY!":™ÊÊ™"INPUT NAME PLEASE? ";:� 63000ãúWW$²È(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? ";:�63000ä0‹Ã(WW$)³±8°Å(WW$)³²0§3002‹ (Å(È(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²µ(DBª365.25¬YBªM%(MB)ª.01¬MB«.03)÷�™" "! ’™" START DATE? ";:�63000> ”‹Ã(WW$)³±8°Å(WW$)³²0§400l –‹ (Å(È(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²µ(DSª365.25¬YSªM%(MS)ª.01¬MS«.03)" ôTT²TS«TB= þPS²23¬(TT­23«µ(TT­23))X ES²28¬(TT­28«µ(TT­28))s IS²33¬(TT­33«µ(TT­33))} „�8000‰ è�K²0¤38¦ òP²RªR¬¿((PSªK)¬PI­23)ª.5à ü™È(D$,Pª5);È(R$,Kª2);"Á"É ‚Õ Ð�K²0¤38ò ÚE²RªR¬¿((ESªK)¬PI­28)ª.5 ä™È(D$,Eª5);È(R$,Kª2);"Ó" î‚! ¸ �K²0¤38>  I²RªR¬¿((ISªK)¬PI­33)ª.5[ Ì ™È(D$,Iª5);È(R$,Kª2);"*"a Ö ‚« à ™"'SPACE'-CONTINUE:'!'-EXIT:'N'-NEW INPUT";Ú ˆ¡A$:‹ (A$³±" ")¯(A$³±"N")¯(A$³±"!") § 5000î ’�I²1¤150:¡AA$:‚ —‹ A$²"!" § 63998 œ‹A$²"N"§200) ºMS²MD:DS²DD:YS²YD2 ؉450V @™"“"£10)" B I O R H Y T H M ’"ˆ J™"FOR "N$"’ BORN "M$(MB);DB;"�,";É(Ä(YB),4)� ¤™T$¥ ®�I²1¤R:™Q$:‚:™G$º ¸�I²1¤R:™Q$:‚:™U$Ð ôMD²MS:DD²DS:YD²YSà þY²0:�I²0¤38ê  Y²Yª1  ‹I­2³±µ(I­2)§™"";:‰8250 A$²É(Ä(DD),2):  ‹DD³10§™""É(A$,1)"‘";:‰8220V  ™È(A$,1)"�"É(A$,1)"‘";e  ‹DD±2§8250Š & ‹Y³²32§™"�"M$(MD)YD"��������’";– : DD²DDª1¶ ? ‹DD³²(M%(MDª1)«M%(MD))§8290Æ I ‹MD³±2§8280Þ N ‹YD­4³±µ(YD­4)§8280î S ‹DD³30§8290X DD²1:MD²MDª1:‹MD±12§MD²1:YD²YDª1b ‚K4!™:™"PHYSICAL=Á EMOTIONAL=Ó INTELLECTUAL=*"f˜!C$²"UP CRIT DWN"u¢!™"�";„¬!�I²1¤Ã(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ÇÉ'�ZZ²1¤150:¡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(�ZZ²1¤150:¡A$:‚"n(‰ 200WPà 0,31,59,90,120,151,181,212,243,273,304,334,365�Zà JAN,FEB,MAR,APR,MAY,JUN,JUL,AUG,SEP,OCT,NOV,DEC¬öWW$²"":� GENERAL INPUT 1.3Û,ö™"¦�";:�VV²1¤50:¡QQ$:‹QQ$³±""§VV²51:‰63100 @ö‚:™" �";:�VV²1¤50:¡QQ$:‹QQ$³±""§VV²51:‰63100Jö‚:‰630203|ö‚:‹Æ(QQ$)²13§™" �";:ŽH†ö‹Æ(QQ$)²20§63200_�ö‹Æ(QQ$)²34§QQ$²"'"zšö‹QQ$³" "°"Z"³QQ$§63020�¤öWW$²WW$ªQQ$:‹Ã(WW$)±254§WW$²""²¸ö™" �"QQ$;:‰63020Æàö‹Ã(WW$)³1§63000áêö‹Ã(WW$)²1§™QQ$;:‰63000ôöWW$²È(WW$,Ã(WW$)«1):™QQ$;:‰63020õö™"“"þù™"“"\ÿù€:�"END OF BIORHYTHM PROPERTY OF COMMODORE$