' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (  Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠z# u`,10,17,16,5,8,2,9B "BAKED POTATO","5 OZ",6,5,0,39,8,4,13,1,7o TOMATO,"3 SLICES",1,1,18,39,4,3,4,1,3 "WHITE BREAD",SLICE,3,3,0,0,7,4,4,2,3 "WHOLE WHEAT BREAD",SLICE,3,4,0,0,4,2,4,3,4 "CORN FLAKES","3/4 CUP",4,2,0,0,6,1,2,0,2UIT,"1/2 MEDIUM",2,1,10,39,3,2,2,3,4R SPINACH,"1/2 CUP",0,3,39,39,5,7,2,10,8 LETTUCE,"2 LEAVES",0,1,19,15,2,2,1,3,4 "GREEN SALAD","3/4 CUP",1,1,27,39,2,2,1,3,3 "ORANGE JUICE","1/2 CUP",3,1,5,39,7,0,2,1,0 PEAS,"1/2 CUP",3,60,1,2<T "FRENCH FRIES","20 PIECES",12,6,0,30,7,5,13,1,6m^ "BANANA","MEDIUM SIZE",5,2,5,20,4,4,4,1,4h "GREEN BEANS","1/2 CUP",1,2,7,14,3,4,2,4,3r CARROT,"5 IN.",1,1,39,7,2,2,1,2,2| CORN,"1/2 CUP",4,3,67,6,2,3,5,1,3$ GRAPEFR0,6,4,5,0,4@" "FRIED CHICKEN","3 OZ",10,39,3,0,4,23,30,1,12o, "FRANKFURTER","2 OZ",9,16,0,0,7,7,8,1,66 "PEANUT BUTTER","2 TBSP",9,14,0,0,3,2,26,2,3@ "PORK CHOP","3 OZ",15,39,0,0,39,14,25,1,16J "APPLE","MEDIUM SIZE",4,1,2,10,3,2,UP",7,16,5,4,7,28,1,29,0N "CHOCOLATE MILK","1 CUP",11,19,6,5,5,25,2,27,4 "SKIM MILK","1 CUP",4,16,10,4,7,28,1,30,0 YOGURT,"1 CUP",11,20,2,8,6,24,1,29,1 "BEEF LIVER","3 OZ",10,39,39,38,16,39,39,1,39  BACON,"2 SLICES",5,10,0,7,3,240,9,202,208,2454 174,176,3,76,178,3,96,0; V --> FOOD DATA BLOCK "CHEDDAR CHEESE","1 OZ",6,15,5,2,1,6,1,21,1 "COTTAGE CHEESE","1/2 CUP",6,34,4,0,3,17,1,12,2 "ICE CREAM","1/2 CUP",7,6,7,2,3,8,1,8,1 MILK,"1 C Y E " V' ,4 OZ,221,TOMATOE,1 SMALL,22,MACARONI SAL,1 CUP,355,POTATO SALID,1 CUP,99U'34,0:]$'13.'"THANK YOU FOR CHECKING YOUR DIET WITH "3'8'"US TODAY. PLEASE USE THIS PROGRAM AS "='B'" MUCH AS YOU LIKE."L':9) Q'"G O O D B6,BEAN SOUP,1 CUP,167 CHICKEN SOUP,1 CUP,67,MUSHROOM SOUP,1 CUP,133,ONION SOUP,1 CUP,64,PEA SOUP,1 CUP,142,TOMADO SOUP,1 CUP,86,VEGETABLE SOUP,1 CUP,77,POTATO SOUP,1 CUP,179,SPAGHETTI,1 CUP W/SAUCE,172,SPINACH,1 CUP,43,ZUCCHINI,1 CUP,25I TURKEY,1/2 LB,79,PEAR,1 AVE,100,PEAS,1/2 CUP,57 PECANS,1 TEAS,51,GREEN PEPPER,1 AVERAGE,14,PICKLE RELISH,1 TEAS SWEET,21,POTATOE,1 SMALL,85,FRENCH FRIES,10 EACH,156,RICE,1 CUP,187,ROLLS,2 OZ EA,170,TARTAR SAUCE,1 TEAS,74,SAUSAGE,4 OZ,481,POLISH DOG,4 OZ,34UIT,1/2 MEDIUM,58,GRAPE JUICE,6 OZ,122,CHEWING GUM,1 STICK,9,JELLIE-JAM,1 TEAS,55,LEMON,1 AVERAGE,19)r LETTUCE,1 HEAD 4 IN,59,LETTUCE,3 LEAVES,6,LIVERWURST,4 OZ,350,MACARONI,1 CUP,175,MUSHROOMS,1/2 LB,61,EGG NOODLES,1 CUP,200,SALAD OIL,1 TABL,124,ONIONUTBUTTER,1 TEAS,82 ,CANTALOPE,1/2 MELON,58,CARROTS,1 MEDIUM,21,CASHEW NUTS,1/4 LB,639,CATSUP,1 TBLS,18,CELERY,1 STALK,7,CHICKEN,4 OZ BROILED,155,COLESLAW,4 OZ,108 d^ SALTINES,1 OZ,123,CUCUMBER,1 MEDIUM,29,EGGPLANT,1/4 LB BOIL,19,FLOUR,1 CUP,449,GRAPEFR156 SUGAR,1 TEAS,46,SUGAR,1 CUP,770,APPLESAUCE,1/2 CUP,116,AVOCADOS,1/2 EA,185,BACON,4 OZ,696,GREEN BEANS,1/2 CUP,16,LINA BEANS,1/2 CUP,89,CHUCK STEAK,4 OZ,329,T BONE STEAK,4 OZ,539J BEETS,1/2 CUP,27,BOLOGNA,4 OZ,312,BROCCOLI,1 CUP SPEARS,39,PEANS, 1 EA, 13, PRETZELS, 3 1/2 OZ, 390,ALMONDS, 1 OZ DRY RST, 180,WALNUTS,1 TBSP,49,PEANUTS, 1 OZ DRY RST, 179 " HOT DOG, 1 EA, 124, HOT DOG ROLL, 1 EA,113,PIZZA,1 SLICE,185,CRANBERRY SAUCE, 1 TBSP, 29,MUSTARD,1 TEAS,11,OLIVES,2,15,SWEET PICKLE,1 TBSP,JUICE, 4 OZ, 58,PINEAPPLE JUICE, 6 OZ, 104,BACON,1 SLICE,50,STEAK,6 OZ, 200,HAM,2 SLICES,167 CALVES LIVER,1 SLICE,74,CHICKEN LIVER,1 EA, 74,HAMBURGER, 4 OZ,224,PORK CHOP, 6 OZ, 314, FRITOS,1 OZ,164,DORITOS,1 OZ,149,POPCORN,1 CUP ,54n POTATO CHIP1 EA,73,PINEAPPLE,1 SLICE,39 RAISINS,3 1/2 OZ, 289,STRAWBERRIES, 1 EA,3,WATERMELON,1/16 MELON,234,BARBECUE SAUCE,1 OZ,26,BREAD CRUMBS, 1/2 CUP,175,APPLE JUICE,4 OZ, 56,CRANBERRY JUICE,3 1/2 OZ, 65\ LEMON JUICE, 1 TBSP,4,LEMONADE,8 OZ,103,ORANGE YOU ARE CONSIDERED OVERWEIGHT)!"&F1ĺ:"BECAUSE YOUR FRAME IS ONLY 'SMALL', ADDITIONAL INFORMATION ON BODY WATER, ETC DOES NOT APPLY TO YOU!":280H((H$,1,1))12((H$,3)):HH.0254:WTWT.45359QIWT(HH)@ F2QI27.5ĺ:"YOU IS FOR MALES ONLYL1TW$(W,L)H$ĺ:"YOUR IDEAL WEIGHT = ";W$(W,F1);:233ZSS((W$(W,F1),5)):SSPWĺ"---YOU ARE "(((PWSS)100SS)10.5)10" % ABOVE YOUR MAXIMUM IDEAL WEIGHT "; GG(((PWSS)100SS)10.5)10:GG10GG18ĺ"(F1TV95ĺ:"BECAUSE YOUR FRAME IS ONLY 'SMALL' & YOUR HEIGHT IS MORE THAN 6-3, THIS PROGRAM CAN OFFER YOU NO INFORMATION!":280TV64TV75ĺ:"BECAUSE OF HEIGHT LIMITATIONS, THIS PROGRAM CANNOT GIVE YOU YOUR IDEAL WEIGHT!":240W1223: THIS-----------------------------":1100r:"--------------------------------------":TV((H$,1,1))12((H$,3))F1TV64ĺ:"BECAUSE YOUR FRAME IS ONLY 'SMALL' & YOUR HEIGHT IS LESS THAN 5-4, THIS PROGRAM CAN OFFER YOU NO INFORMATION!":280" SQ. METERS (OR "((BS10.764)10.5)10" SQ. FT.)"ZWW.183809WT34.4547H35.270121:"YOUR TOTAL BODY WATER IS CA. "(WW10.5)10" LITERS (CA. "((WW1000453.6)10.5)10" LBS. WATER---OR "((WW1E02WT)10.5)10"% BODY WT.)"$"--------N & MEN, RESPECTIVELY; #'S 175 & 275 ALLOW DETERMINATION OF BODY WATER IN WOMEN m AND MEN, RESPECTIVELYWF1.48QI7::"YOUR BODY FAT = "(WF10.5)10" %"4BS(.007185WT.425(H100).725)::"YOUR BODY SURFACE AREA IS CA. "(BS100.5)100Y INDEX---START DIETING!":165c:"YOU ARE UNDER THE CRITICAL OBESITY INDEX---CONGRATULATIONS!"P LINE#'S 165 AND 265 ALLOW DETERMINATION OF BODY FAT IN WOMEN AND MEN, RESPECTIVELY; #'S 170 & 270 ALLOW DETERMINATION OF BODY SURFACE AREAS FOR WOMEWT(HH)p LINE#'S 150- 160 AND 250-260 DETERMINE WHETHER OBESITY EXISTS FOR FEMALES AND MALES RESPECTIVELYF2QI27.0ĺ"YOU ARE ALSO OVER THE CRITICAL OBESITY INDEX---START DIETING!":165F3QI29.5ĺ"YOU ARE ALSO OVER THE CRITICAL OBESITFEMALES AND MALES, RESPECTIVELYWH((H$,1,1))12((H$,3)):HH.0254:WTWT.45359 IN LINE #'S 145 & 245, 'Q' DENOTES 'QUETELET'S INDEX' WHICH IS USED FOR FEMALES AND MALES RESPECTIVELY, TO DETERMINE BODY FAT AND WHETHER A PERSON IS OBESE QI2#4K1400:K"#>944,95:9464#H944,132:946F#R944,126:946X#\944,104:946q#f:12:18:"THE END"w#p,ICKEN NOODLE SOUP","1 CUP",3,5,1,0,1,1,4,1,3q"  "SPAGHETTI AND MEAT BALLS","1 CUP",17,29,32,37,17,18,20,12,21" COLESLAW,"1/2 CUP",4,1,2,27,2,2,1,3,1"  STRAWBERRIES,"1/2 CUP",1,1,1,39,1,3,2,2,4#* PINEAPPLE,"LARGE SLICE",5,1,1,15,7,1,1,1,,14,0,0,8,3,31,3,4C! "ROAST BEEF","3 OZ",9,39,0,0,3,12,20,1,18t! "BAKED HAM","3 OZ",9,39,0,0,37,15,25,1,18! BOLOGNA,"1 OZ",4,8,0,0,3,4,4,4,3! WATERMELON,"1 CUP",3,1,24,23,4,4,2,1,6! BAGEL,"ONE PLAIN",8,9,1,0,9,6,6,1,7," "CH1,0,5,3,1,6,1,24  COLA,"8 OZ",5,0,0,0,0,0,0,0,0`  DOUGHNUT,"1 PLAIN",6,2,1,0,5,4,3,1,2  TUNA,"3 OZ",8,39,1,0,3,6,39,1,9  TACO,"ONE BEEF",11,38,7,7,7,11,15,17,14  BROCCOLI,"1/2 CUP",1,4,39,39,5,9,3,7,3! PEANUTS,"1/4 CUP",11 "SUGAR COOKIE","3 IN",4,2,0,0,3,2,2,2,2Sb JELLO,"1/2 CUP",4,3,0,0,0,0,0,0,0{l WHISKEY,"1 OZ",5,0,0,0,0,0,0,0,0v "APPLE PIE","1/6 SLICE",19,5,1,3,10,8,9,1,6 POPCORN,"1 CUP PLAIN",1,1,0,0,0,1,1,0,1  "POTATO CHIPS","10 2 IN",6, PIZZA,"1/4 14' CHEESE PIE",18,18,19,20,25,28,19,33,16g0 "CHOCOLATE BAR","1 OZ",7,3,2,0,2,7,1,8,2: BUTTER,"1 TSP",2,0,4,0,0,0,0,0,0D "CHOCOLATE CAKE","1/16 2'+ICIN",12,5,2,0,1,4,1,4,3N "COFFEE,CREAM,SUGAR",CUP,2,1,1,0,1,1,3,2,1*X( RICE,"1/2 CUP",6,3,0,0,7,5,6,1,5] "HOT DOG","BUN AND WIENER",6,5,0,0,11,7,8,3,4 HAMBURGER,"3 OZ",9,39,0,0,5,11,25,1,16 "BAKED BEANS","1/2 CUP",8,12,3,5,7,2,4,7,14 "MACRONI AND CHEESE","1/2 CUP",11,13,9,0,8,12,6,18,67&H OVER-":"EATING ALSO HAVE A LOWER LIFE SPAN.":_X:"IS YOUR ANNUAL INCOME OVER $40,000 ";glA$(A$,1)"N"ĺ10);T;"-0="T:202010);T;"-2=";T2:TT2:E$A$:(A$,1)"N"2070$:"PEOPLE WITH HIGHER INCOMES USUALLY":"EXPECEPT":"MUSICIANS, ARCHITECTS AND PHARMACISTS.""WHY THIS IS TRUE IS UNKNOWN AT THE":"PRESENT TIME. YOU HAVE A GREATER CHANCE"&"OF BEING INVOLVED IN A ACCIDENT IF YOU":"WORK AT RUGGED HEAVY LABOR. PEOPLE"10"WHO WORK AT JOBS ASSOCIATED WIT"-1=";T1:TT1:1780c"DO YOU WORK IN RUGGED HEAVY WORK OR AS":"A COOK, CHEF, OR BAKER ";:A$y(A$,1)"N"177010);T;"-2=";T2:TT2:178010);T;"+0=";T:E$A$:(A$,1)"N"1880/:"PROFESSIONALS USUALLY LIVE LONGER EXNCREASED INCOME, AND":"ACCESS TO BETTER HEALTH CARE."sr:"IS YOUR OCCUPATION CLASSIFIED AS PROFESSIONAL ";:A$(A$,1)"N"1730"ARE YOU A MUSICAN, ARCHITECT OR":"PHARMACIST ";:A$(A$,1)"N"ĺ10);T;"+2=";T2:TT2:178010);T;:1600&"A14ĺ10);T;"+0=";T:1600N,A17ĺ10);T;"+1=";T1:TT1:1600q6A17ĺ10);T;"+3=";T3:TT3{@:E$JA$:(A$,1)"N"1650Y:"ALTHOUGH ATTENDING SHOOL DOES NOT MAKE":"YOU LIVE LONGER, MORE EDUCATION"6^"CORRELATES WITH I10);T;"+0=";T:1480/10);T;"+2=";T2:TT25?3000p"PART III EDUCATION AND OCCUPATION":3000:"STARTING FROM THE FIRST GRADE, WHAT ARE":"THE TOTAL NUMBER OF YEARS YOU ATTENDED":"SCHOOL ";AA12ĺ10);T;"-2=";T2:TT2440Sn"DO YOU HAVE A BREAST EXAMINATION AND PAP":"SMEAR AT LEAST ONCE A YEAR ";kxA$:(A$,1)"N"ĺT10);T;"+2=";T2:TT2:1490"DO YOU HAVE A PHYSICAL AND PR0CTOSCOPIC":"EXAMINATION AT LEAST ONCE A YEAR ";A$:(A$,1)"N"ĺLEEP TOO MUCH US TOO MANY":"HOURS IN NONPHYSICAL ACTIVITY AND MAY"("BE UNHAPPY AND SLEEP AS AN ESCAPE OR":"MAY BE ILL. DEPRESSED PEOPLE HAVE"2"SHORTER LIFE EXPECTANCIES."PZ(S$,1)"F"AY30(S$,1)"M"AY401490d(S$,1)"M"1"Y"ī80'`:U1-167","161-181" <&> "6-0","149-159","155-172","165-186"f&H "6-1","153-164","159-177","170-191"&R "6-2","157-168","164-182","175-196"&\ "6-3","161-172","169-187","179-187"& ZERO&L"DO YOU WANT ANOTHER EVALUATION (Y/N)? ";EV$'VEV$127-140","135-153"<% "5-6","125-134","131-144","139-158"f%  "5-7","129-138","135-149","144-163"% "5-8","133-142","139-153","148-167"%  "5-9","137-147","143-157","152-171"%* "5-10","141-151","147-162","156-176"&4 "5-11","145-155","15","125-140","134-151"?$: "5-7","123-132","129-144","138-155"i$D "5-8","127-137","133-148","142-160"$N "5-9","131-141","137-152","146-165"$X "5-10","135-145","141-156","150-170"$ "5-4","118-126","124-136","132-149"% "5-5","121-130","-107","104-116","112-128"C# "5-1","102-110",!107-119","115-131"m# "5-2","105-113","110-123","118-135"# "5-3","108-116","113-127","122-139"# "5-4","111-120","117-132","126-143"#& "5-5","115-124","121-136","130-147"$0 "5-6","119-12810.5)10" LITERS (ABOUT "((MW1E02WT)10.5)10" % BODY WEIGHT)"w""-------------------------------------":1100" LINE #'S 500-600 CONTAIN WEIGHT DATA FOR FEMALES ONLY WHILE #'S 750-860 CONTAIN HEIGHT WEIGHT DATA FOR MALES ONLY# "5-0", "99DY FAT = "(MF10.5)10" %"!BS(.007185WT.425(H100).725)::"YOUR BODY SURFACE AREA IS ABOUT "(BS100.5)100" SQ. METERS (OR "((BS10.764)10.5)10" SQ. FEET)"!MW.296785WT19.4786H14.012934D":"YOUR TOTAL BODY WATER IS ABOUT "(MW ARE ALSO OVER THE CRITICAL OBESITY INDEX---START DIETING!":265 F3QI29.9ĺ:"YOU ARE ALSO OVER THE CRITICAL OBESITY INDEX---START DIETING!":265 :"YOU ARE UNDER THE CRITICAL OBESITY INDEX---CONGRATULATIONS!"! MF1.281QI10.13::"YOUR BOPCAKE,1 EA,175,JELLO, 1/2 CUP,81,ICE CREAM,1/3 CUP,174, ICE MILK,1/3 CUP,137 CHERRY PIE,1 SLICE,258,APPLE PIE,1 SLICE,255,POPSICLE, 1-3 OZ, 95,SHERBERT,1/3 CUP,152,COOL WHIP, 1 TBSP,16,DIET SAL DRESS,1 TBSP,10,EGGS,1 LGE,88 r FRIED EGG, 1 2,CEREAL,1 CUP,100,BAKED BEANS,1 CUP,275 CHOC CH COOKIE,1EA,51,VANILLA WAFER,1 EA,15,ANIMAL CRACKER,1EA,9,BUTTER,1 TBSP,100,AMERICAN CHEESE,1OZ,112,COTTAGE CHEESE,1/2 CUP, 120 L CREAM CHEESE,1 OZ,105,MARGARINE,1 TBSP,72,BROWNIE,1 EA,146,CUUICE,3.5 OZ,17 EGGNOG,6 OZ,233,SKIM MILK,8 OZ,116,MILK,8 OZ,159,WHITE BREAD,1 SLICE,62,DOUGHNUT,1 AVE,125,PANCAKES,2-4'CAKES,322( FRENCH TOAST, 1 SLICE,183,BREAD,1 SLICE, 62,HAMBURGER ROLL,1 EA,89,WAFFLE,1 5 IN,209,MILK CHOCOLATE,1 OZ BAR,15< F200P4080Z 7d DATA STARTS HERE~n TO SET COUNTING NUMBER IN SEARCH LOOP OF 1300 (FOR I=1 TO N) x  BEVERAGES COKE,6 OZ,78,GINGERALE,8 OZ,80,PEPSI,8 OZ,106,MILKSHAKE,10 OZ,421,TOMATO JUICE,3.5 0Z,19,V8 JBE IN LINES 1300 AND 3100#OO11M$,M1$,MCM$,M1$;34)MMKK1K18ĺ:"HIT ANY KEY TO CONTINUE LIST":U2$::K0I 34,0:K0("THIS IS ALL THE DATA IN MY MEMORY BANK"2"HIT ANY KEY TO RETURN TO MENU":U2$0:R10B4750L 5V TOTAL PRINT OUT SUBh` TO SET COUNTING LOOP TO SAME VALUE AS 1300pj zt34,0~255"ITEM","AMOUNT","CALORIES"34,2I1150  DATA COUNTER FOR TEST TOTAL IN O MUST PORTIONS DOES THIS RECIPE "+"MAKE ";P6R1RP>:h"EACH PORTION SERVED BY THIS RECIPE""CONTAINS ";R1" CALORIES":"DO YOU HAVE ANY MORE FOOD ITEMS TO ADD"$"TO THIS RECIPE SERVING Y/N ";:U2$.U2$"Y"47508R H34,15R16\Kf" HOW MANY ";M1$;" ARE YOU GOING TO USE ";:NVpN1NMazTTN1lRRN1r"CALORIES SO FAR THIS RECIPE "R"TOTAL CALORIES SO FAR "T4350 FIGURE RECIPE SERVING :16"HOW MANY 00:16368,0::A40:"-";:X:BE YOURSELF?"$ >$ " HAPPY: 3 2 1 0 -1 -2 -3 UNHAPPY"I$ 12);P$ A|$ A0ĺ10);T;"+";A;"=";TA:TTA:2600$ 10);T;"+";A;"=";TA:TTA$( :$2 3000$< " YOUR LIFE EXPECTANCY IS ";T;" YEARS"$F 3000$P ::$ % X1OMPETITIVE.)"# A6# 10);T;"-";A;"=";TA:TTA:# "DO YOU USE YOUR CAR'S SEAT BELTS AND":"FOLLOW SPEED LIMITS REGULARLY ";:A$# (A$,1)"N"ĺ10);T;"+0=";T:2530# 10);T;"+1=";T1:TT1 $ :"ON THE FOLLOWING SCALE HOW WOULD YOU":"RATW MUCH OF A":"CALM PASSIVE PERSON ARE YOU":"(3 IS THE MOST CALM)";i"V A:10);T;"+";A;"=";TA:TTA:"t "ON A SCALE OF 0 TO 5, HOW MUCH OF AN":"AGGRESSIVE, INTENSE AND COMPETITIVE " #~ "PERSON ARE YOU (5 IS THE MOST AGGRESSIVE":"INTENSE AND/OR CARE YOU MARRIED OR LIVING WITH SOMEONE":"ON A PERMANENT BASIS ";:A$t!(A$,1)"Y"ĺ10);T;"+3=";T3:TT3:2360! AAY25:A0A0:2350! "HOW MANY OF THE PAST ";A;" YE!$ AA10!. 10);T;"-";A;"=";TA:TTAD"8 :"ON A SCALE OF 0 TO 3, HOf(A$,1)"N"ĺ10);T;"+0=";T:2170@ p10);T;"+2=";T2:TT2F zP 3000l "PART IV LIFESTYLE"v 3000 :"DO YOU LIVE IN A RURAL OR AN URBAN AREA";:A$ (A$,1)"R"ĺ10);T;"+1=";T1:TT1:2260 10);T;"-1=";T1:TT1E!:"RIENCE MORE STRESS EARNING THEM AND"C "CONSUME MORE RICH FOOD."Iv "IS YOUR JOB ACTIVE OR SEDENTARY ";:A$4(A$,1)"A"ĺ10);T;"+3=";T3:TT3:2120>10);T;"-3=";T3:TT3:HRAY612180\"ARE YOU STILL WORKIN G ";:A$$ :21:" ";:25:" ";:33:" "Y..'" ";:9:" ";:17:" ";:25:" ";:33:" ".8'" ";:5:" ";:9:" ";:17:" ";:25:" ";:33:" ".B'" ";:5:" ";:7:" ";:9:" ";:15:" ";:17:" ";/L'23:" ";:25:" ";:31:" ";:33:" ";:B$"YES"6230-/-::::::::::5-^-" THANK YOU FOR USING THIS PROGRAM"d-j- t-1023-(#255:-'50,63::-'1:2:" ";:9:" ";:17:" ";:25:" ";:33:" ".$'" ";:5:" ";:9:" ";:13:" ";:17:" "; OF COST TO NEAREST CENT, PRINT RESULTSZ,~"TOTAL COST FOR 1 RECIPE = $";(P100.5)100,"COST PER SERVING = $";(PS100.5)100,, CALCULATE ALTERNATIVE PRICE PER SERVING,"CHANGE NUMBER OF SERVINGS Y/N",B$,B$"Y"6230-;+U7+" NUMBER OF RECIPE UNITS PER BULK UNIT";>+Fk+" NUMBER OF RECIPE UNITS CALLED FOR";r+R+$ SUM COST OF EACH INGREDIENT PER AMOUNT USED+.PPCUFR+8I+B+L+V" NUMBER OF SERVINGS";+`S+j',t ROUND*6* STATEMENTS 30 TO 180 REQUEST USER INPUTV*"NUMBER OF INGREDIENTS ";N\** LOOP TO REQUEST DATA FOR EACH INGREDIENT*I1N*"INGREDIENT ";I;":"*" COST FOR BULK UNIT IN STORE ";*C+" NUMBER OF UNITS IN BULK"ULATES THE COST & COST"G)"PER SERVING OF A SINGLE RECIPE. FOR EACH")u"INGREDIENT YOU MUST PROVIDE THE PURCHASE":"PRICE, THE AMOUNT PURCHASED, THE AMOUNT")z:" USED IN THE RECIPE, AND THE NUMBER OF"::"RECIPE UNITS PER PURCHASE UNIT"::* TURKEY,4 OZ,221,TOMATOE,1 SMALL,22,MACARONI SAL,1 CUP,355,POTATO SALID,1 CUP,99\(T34,0:d(^13(h"THANK YOU FOR CHECKING YOUR DIET WITH "(r(|"US TODAY."((" MUCH AS YOU LIKE."(:9)(1023):" THIS PROGRAM CALC OZ,346,BEAN SOUP,1 CUP,'@ CHICKEN SOUP,1 CUP,67,MUSHROOM SOUP,1 CUP,133,ONION SOUP,1 CUP,64,PEA SOUP,1 CUP,142,TOMADO SOUP,1 CUP,86,VEGETABLE SOUP,1 CUP,77,POTATO SOUP,1 CUP,179,SPAGHETTI,1 CUP W/SAUCE,172,SPINACH,1 CUP,43,ZUCCHINI,1 CUP,25P(J NION,1/2 LB,79,PEAR,1 AVE,100,PEAS,1/2 CUP,57'6 PECANS,1 TEAS,51,GREEN PEPPER,1 AVERAGE,14,PICKLE RELISH,1 TEAS SWEET,21,POTATOE,1 SMALL,85,FRENCH FRIES,10 EACH,156,RICE,1 CUP,187,ROLLS,2 OZ EA,170,TARTAR SAUCE,1 TEAS,74,SAUSAGE,4 OZ,481,POLISH DOG,4FRUIT,1/2 MEDIUM,58,GRAPE JUICE,6 OZ,122,CHEWING GUM,1 STICK,9,JELLIE-JAM,1 TEAS,55,LEMON,1 AVERAGE,19-&, LETTUCE,1 HEAD 4 IN,59,LETTUCE,3 LEAVES,6,LIVERWURST,4 OZ,350,MACARONI,1 CUP,175,MUSHROOMS,1/2 LB,61,EGG NOODLES,1 CUP,200,SALAD OIL,1 TABL,124,OUTBUTTER,1 TEAS,82 ,CANTALOPE,1/2 MELON,58,CARROTS,1 MEDIUM,21,CASHEW NUTS,1/4 LB,639,CATSUP,1 TBLS,18,CELERY,1 STALK,7,CHICKEN,4 OZ BROILED,155,COLESLAW,4 OZ,108 f%" SALTINES,1 OZ,123,CUCUMBER,1 MEDIUM,29,EGGPLANT,1/4 LB BOIL,19,FLOUR,1 CUP,449,GRAPE# SUGAR,1 TEAS,46,SUGAR,1 CUP,770,APPLESAUCE,1/2 CUP,116,AVOCADOS,1/2 EA,185,BACON,4 OZ,696,GREEN BEANS,1/2 CUP,16,LINA BEANS,1/2 CUP,89,CHUCK STEAK,4 OZ,329,T BONE STEAK,4 OZ,539$ BEETS,1/2 CUP,27,BOLOGNA,4 OZ,312,BROCCOLI,1 CUP SPEARS,39,PEANA, 13, PRETZELS, 3 1/2 OZ, 390,ALMONDS, 1 OZ DRY RST, 180,WALNUTS,1 TBSP,49,PEANUTS, 1 OZ DRY RST, 179 " HOT DOG, 1 EA, 124, HOT DOG ROLL, 1 EA,113,PIZZA,1 SLICE,185,CRANBERRY SAUCE, 1 TBSP, 29,MUSTARD,1 TEAS,11,OLIVES,2,15,SWEET PICKLE,1 TBSP,15Z, 58,PINEAPPLE JUICE, 6 OZ, 104,BACON,1 SLICE,50,STEAK,6 OZ, 200,HAM,2 SLICES,167! CALVES LIVER,1 SLICE,74,CHICKEN LIVER,1 EA, 74,HAMBURGER, 4 OZ,224,PORK CHOP, 6 OZ, 314, FRITOS,1 OZ,164,DORITOS,1 OZ,149,POPCORN,1 CUP ,54h" POTATO CHIPS, 1 EPLE,1 SLICE,39  RAISINS,3 1/2 OZ, 289,STRAWBERRIES, 1 EA,3,WATERMELON,1/16 MELON,234,BARBECUE SAUCE,1 OZ,26,BREAD CRUMBS, 1/2 CUP,175,APPLE JUICE,4 OZ, 56,CRANBERRY JUICE,3 1/2 OZ, 65R! LEMON JUICE, 1 TBSP,4,LEMONADE,8 OZ,103,ORANGE JUICE, 4 OEA,120,SCRAMBLED EGG,1 EA,135,TUNA FISH,3 1/2 OZ,145,CRABMEAT,4 OZ,86,LOBSTER,12 OZ,308,FRIED SHRIMP, 3 1/2 OZ,225  CRAB CAKE,1 EA, 110,TUNA SALAD,1 SERV,170,APPLE, 1 EA,70,BANANA,1 EA,85,GRAPEFRUIT, HALF, 41,GRAPES,3 1/2 OZ,69,ORANGE,1 EA,73,PINEAP Y E " V' ,4 OZ,221,TOMATOE,1 SMALL,22,MACARONI SAL,1 CUP,355,POTATO SALID,1 CUP,99U'34,0:]$'13.'"THANK YOU FOR CHECKING YOUR DIET WITH "3'8'"US TODAY. PLEASE USE THIS PROGRAM AS "='B'" MUCH AS YOU LIKE."L':9) Q'"G O O D B6,BEAN SOUP,1 CUP,167 CHICKEN SOUP,1 CUP,67,MUSHROOM SOUP,1 CUP,133,ONION SOUP,1 CUP,64,PEA SOUP,1 CUP,142,TOMADO SOUP,1 CUP,86,VEGETABLE SOUP,1 CUP,77,POTATO SOUP,1 CUP,179,SPAGHETTI,1 CUP W/SAUCE,172,SPINACH,1 CUP,43,ZUCCHINI,1 CUP,25I TURKEY,1/2 LB,79,PEAR,1 AVE,100,PEAS,1/2 CUP,57 PECANS,1 TEAS,51,GREEN PEPPER,1 AVERAGE,14,PICKLE RELISH,1 TEAS SWEET,21,POTATOE,1 SMALL,85,FRENCH FRIES,10 EACH,156,RICE,1 CUP,187,ROLLS,2 OZ EA,170,TARTAR SAUCE,1 TEAS,74,SAUSAGE,4 OZ,481,POLISH DOG,4 OZ,34UIT,1/2 MEDIUM,58,GRAPE JUICE,6 OZ,122,CHEWING GUM,1 STICK,9,JELLIE-JAM,1 TEAS,55,LEMON,1 AVERAGE,19)r LETTUCE,1 HEAD 4 IN,59,LETTUCE,3 LEAVES,6,LIVERWURST,4 OZ,350,MACARONI,1 CUP,175,MUSHROOMS,1/2 LB,61,EGG NOODLES,1 CUP,200,SALAD OIL,1 TABL,124,ONIONUTBUTTER,1 TEAS,82 ,CANTALOPE,1/2 MELON,58,CARROTS,1 MEDIUM,21,CASHEW NUTS,1/4 LB,639,CATSUP,1 TBLS,18,CELERY,1 STALK,7,CHICKEN,4 OZ BROILED,155,COLESLAW,4 OZ,108 d^ SALTINES,1 OZ,123,CUCUMBER,1 MEDIUM,29,EGGPLANT,1/4 LB BOIL,19,FLOUR,1 CUP,449,GRAPEFR156 SUGAR,1 TEAS,46,SUGAR,1 CUP,770,APPLESAUCE,1/2 CUP,116,AVOCADOS,1/2 EA,185,BACON,4 OZ,696,GREEN BEANS,1/2 CUP,16,LINA BEANS,1/2 CUP,89,CHUCK STEAK,4 OZ,329,T BONE STEAK,4 OZ,539J BEETS,1/2 CUP,27,BOLOGNA,4 OZ,312,BROCCOLI,1 CUP SPEARS,39,PEANS, 1 EA, 13, PRETZELS, 3 1/2 OZ, 390,ALMONDS, 1 OZ DRY RST, 180,WALNUTS,1 TBSP,49,PEANUTS, 1 OZ DRY RST, 179 " HOT DOG, 1 EA, 124, HOT DOG ROLL, 1 EA,113,PIZZA,1 SLICE,185,CRANBERRY SAUCE, 1 TBSP, 29,MUSTARD,1 TEAS,11,OLIVES,2,15,SWEET PICKLE,1 TBSP,JUICE, 4 OZ, 58,PINEAPPLE JUICE, 6 OZ, 104,BACON,1 SLICE,50,STEAK,6 OZ, 200,HAM,2 SLICES,167 CALVES LIVER,1 SLICE,74,CHICKEN LIVER,1 EA, 74,HAMBURGER, 4 OZ,224,PORK CHOP, 6 OZ, 314, FRITOS,1 OZ,164,DORITOS,1 OZ,149,POPCORN,1 CUP ,54n POTATO CHIP1 EA,73,PINEAPPLE,1 SLICE,39 RAISINS,3 1/2 OZ, 289,STRAWBERRIES, 1 EA,3,WATERMELON,1/16 MELON,234,BARBECUE SAUCE,1 OZ,26,BREAD CRUMBS, 1/2 CUP,175,APPLE JUICE,4 OZ, 56,CRANBERRY JUICE,3 1/2 OZ, 65\ LEMON JUICE, 1 TBSP,4,LEMONADE,8 OZ,103,ORANGE N"A0~'15:"O M Y G":16:"U";:40:"E";W0'17:"N":18:"D"0'50,63:::10:" ":10:" P R E S E N T S ":10:" "0'50,2550'I12000:I0'9360';39:" "/V'50,255:g/`'"A P P L E":2:"P U R I X"/j'3:"P G O B C":4:"L E G R H"0t'5:"E T R A A":14:"S A R z#     àΠŠŠԠ*ŠԠҠǠϠ ĠŠǠ͠ŠӠĠӠ̠٠Ԡ!Š٠#(Y$)201(Y$)1935206(Y$)194530I(Y$)212540_"AT LINE 625",Y$nF$"RUN":~F$"BRUN":F$"EXEC":&056,72,132,208,160,0,145,209,230,209,208,2,230,210,104,164,208,96,169,160,96: LINE #20 = DISK TITL OR RUN ANY OF THESE PROGRAMS? (THERE ARE MORE.) ";:380I hZ$W rZ$"Y"ıh |Z$"N"360 32,0:34,3:33,19:: (Y$)201(Y$)193440 (Y$)194450 (Y$)212460 470 F$"LOAD": F$"BLOAD":F$"EXEC": (X$,1)"R"İ480:2800 (X$,1)"0"2709 190Q ::D$;"CATALOG":h (X$,2,1)"0"270 "((X$,2,1))0190 ,: 6D$;F$;(A$(X),7,31);",V0" @ J33,19:32,20:: T32,0:34,22:33,40:A ^384:" DO YOU WANT TO LOAD:J10T21 T:J;3);(A$(J),7,16):JJ1:140K 32,0:34,22:33,40: 384:" TO RUN OR LOAD - TYPE OR AND PROGRAM # FOLLOWED BY A .";:380:" ";X$ X((X$,2,4)):Y$(A$(X),2,2) XJ1190 (X$,1)"L"İ400:280Q1,3:Q2,18:Q3,3:34,3X n24:D$;"CATALOG":D$;"PR#0":D$;"IN#0"::33,20:34,3::~ x384:" 0 CATALOG ":380 J1:QQ0A$(0)B$" " (A$(J),7,15)" "190 J18J53İ330 J36İ340:Z$"Y"190 T1 (I10011:A$(I)B$C$:B 2QQ(977)185:QQ0A$(0)C$" "Z <QQ0A$(0)C$" "z FI768788:PP:I,PP:I:I0 PZZ3037:I0:R0:QQ(977)185:QQ0ZZ3220 ZQ(977)(978)256ZZ:Z(107)(108)2568 d(209),(Z):(210),(Z1):Q,0:3 255:::A$(100):D$(4):D$;"NOMON C,I,O":"----------------------------------------";:384:" EMPIRE ELECTRONICS (206) 244-5200 ";:380:"----------------------------------------"C$" ":B$" "     RD...TWO DISK SIDES+ ARE YOURS WHEN YOUG IDENTIFY WITHOUT DOUBTa THAT A FILE ON THIS { DISK IS COPYRIGHTED! P .xAAA HELLO#PUBLIC DOMAIN=BY RONALD D. MALEIKAR721 PIKE STREETjCHEYENNE, WY 82001{28 FEB 198111843,5@"APPLE AVOCATION ALLIANCE, INC."TP11000:Ph1184|(4);"CATALOG" REWA  FRIED EGG, 1 EA,120,SCRAMBLED EGG,1 EA,135,TUNA FISH,3 1/2 OZ,145,CRABMEAT,4 OZ,86,LOBSTER,12 OZ,308,FRIED SHRIMP, 3 1/2 OZ,225 CRAB CAKE,1 EA, 110,TUNA SALAD,1 SERV,170,APPLE, 1 EA,70,BANANA,1 EA,85,GRAPEFRUIT, HALF, 41,GRAPES,3 1/2 OZ,69,ORANGE,,BROWNIE,1 EA,146,CUPCAKE,1 EA,175,JELLO, 1/2 CUP,81,ICE CREAM,1/3 CUP,174, ICE MILK,1/3 CUP,137 CHERRY PIE,1 SLICE,258,APPLE PIE,1 SLICE,255,POPSICLE, 1-3 OZ, 95,SHERBERT,1/3 CUP,152,COOL WHIP, 1 TBSP,16,DIET SAL DRESS,1 TBSP,10,EGGS,1 LGE,88 LK CHOCOLATE,1 OZ BAR,152,CEREAL,1 CUP,100,BAKED BEANS,1 CUP,275 CHOC CH COOKIE,1EA,51,VANILLA WAFER,1 EA,15,ANIMAL CRACKER,1EA,9,BUTTER,1 TBSP,100,AMERICAN CHEESE,1OZ,112,COTTAGE CHEESE,1/2 CUP, 120 ` CREAM CHEESE,1 OZ,105,MARGARINE,1 TBSP,72,TOMATO JUICE,3.5 0Z,19,V8 JUICE,3.5 OZ,17 EGGNOG,6 OZ,233,SKIM MILK,8 OZ,116,MILK,8 OZ,159,WHITE BREAD,1 SLICE,62,DOUGHNUT,1 AVE,125,PANCAKES,2-4'CAKES,322@ FRENCH TOAST, 1 SLICE,183,BREAD,1 SLICE, 62,HAMBURGER ROLL,1 EA,89,WAFFLE,1 5 IN,209,MI"HIT ANY KEY TO RETURN TO MENU":U2$+q 4s 200>v 1000D[ DATA STARTS HERE TO SET COUNTING NUMBER IN SEARCH LOOP OF 1300 (FOR I=1 TO N)   BEVERAGES* COKE,6 OZ,78,GINGERALE,8 OZ,80,PEPSI,8 OZ,106,MILKSHAKE,10 OZ,421DATA COUNTER FOR TESTE$ TOTAL IN O MUST BE IN LINES 1300 AND 3100O& OO1]0 M$,M1$,Mk: M$,M1$,MuD KK1N K18ĺ:"HIT ANY KEY TO CONTINUE LIST":U2$::K0X IZ 34,0] :` K0b "THIS IS ALL THE DATA IN MY MEMORY BANK"%l THIS RECIPE SERVING Y/N ";:U2$3 U2$"Y"1557A%R0:R10K*1557Q k TOTAL PRINT OUT SUB TO SET COUNTING LOOP TO SAME VALUE AS 1300  34,0  255 "ITEM","AMOUNT","CALORIES" 34,2 I1150! #  FIGURE RECIPE SERVING *:16U"HOW MANY PORTIONS DOES THIS RECIPE "e"MAKE ";PpR1RPx:"EACH PORTION SERVED BY THIS RECIPE""CONTAINS ";R1" CALORIES" :"DO YOU HAVE ANY MORE FOOD ITEMS TO ADD"!"TO:Y1:"FOOD ITEM","AMOUNT","CALORIES"/Y1=M$,M1$,MH34,15P16V" HOW MANY ";M1$;" ARE YOU GOING TO USE ";:NN1NMTTN1RRN1"CALORIES SO FAR THIS RECIPE "R"TOTAL CALORIES SO FAR "T@1200 FF$M$1500 _I s7 t HERE WE TELL USER NO= u x" I AM ";::"SORRY"::"BUT ";F$;" IS NOT IN MY MEMORY BANK"  1200   RETURN FOR MORE INPUT    PRINT DATA   34,0 YY1&Y1434,15 16 :@ "WHAT FOOD ARE YOU LOOKING FOR ";F$F L o  HERE WE CHECK DATA FOR INPUTu {  F$"STOP"10000 F$"CLEAR"T0:R0:34,0:1170 F$"CHECK"ī2000 F$"TOTAL"Y0:3000 I1150 -M$,M1$,M:"STOP";::" WHEN YOU HAVE FINISHED USING THE PROGRAM"d :"IF YOU WANT A PRINT OUT OF ALL THE" "DATA IN FILE TYPE ";::"TOTAL";::" PLEASE."  50,63 "HIT ANY KEY TO CONTINUE.":U1$  :"FOOD ITEM","AMOUNT","CALORIES" "IF YOU WANT TO KNOW THE CALORIE VALUE"Q e"OF A SERVING IN A RECIPE THEN TYPE" j:"CHECK";::" WHEN ASKED FOR FOOD ITEM." l:"IF YOU WANT TO CLEAR THE COUNTERS AND" n"THE PRINT OUT LIST THEN TYPE ";::"CLEAR": o8 t"PLEASE TYPE ";:AM ALLOWS YOU TO DETERMINE"H "RAPIDLY THE CALORIE VALUE OF ANY FOOD"u "OR OF A LIST OF FOODS SUCH AS A MEAL."{  "IT ALSO CAN BE USED TO FIND OUT THE " "CALORIE VALUE OF A SERVING OF FOOD " "FROM YOUR FAVORITE RECIPE." L' `Z&_ CALORIE COUNTING PROGRAM@d START = FRE(0) 8188Hi10nn08):"CALORIE COUNTING PROGRAM"s:12):"BY PAUL A. PAGE"x:14):"JULY 2,1978"}I12000:I200 PROGRAM STARTS HERE34,0:3 "THIS PROGR          Gl"THIS ASSUMES THAT YOUR CALORIC INTAKE ":"IS STILL "DP"% PROTEIN"MqvPC0ĺ"PREGNANCY WILL ALTER THE RESULTS,":"CHECK WITH YOUR DOCTOR"IEEK" IIN"HOW MANY WEEKS DO YOU WISH TO MAKE THE":"DIET FOR? ";DTUXDT0Ā[]b"DAILY INTAKE SHOULD BE "(KC)" + "((IWWT)1100PFDT)" = ":(KC(IWWT)1100PFDT)" CALORIES FOR "((IWWT)DT)(((IWWT)DT100.5)100)" KG/WK"g5)100" KG OR "(PW100.454.5)100" LB ":"ADDITION FOR A PREGNANCY OF "PC" WEEKS"cIWWT0Āi!&"DO YOU WISH A DIET SCHEDULE ";DI$0(DI$)78Ā:(DI$)89550D"AN OFTEN RECOMMENDED GOAL FOR WEIGHT":"CHANGE IS 0.5 KG (1 LB) / WUS ACTUAL WEIGHT"fIW;"-";WT;" = ";(100(IWWT).5)100" KG OR ";(100(IWWT).454.5)100" LBS"l"IDEAL WEIGHT FOR YOUR HEIGHT - ":(100CW.5)100" KG OR "(100CW.454.5)100" LBS +/- 10%" TPC10ĺ"THIS INCLUDES A "(PW100.8HT7 A PRECISION STATEMENT NOT IN MICROSOFT BASIC"YOUR CALCULATIONS FOLLOW"::"BASAL METABOLIC RATE - ";(BMFC.5)" CALORIES "KC(AFBMFC)PF"AVG. CALORIE REQUIREMENT - ";(KC.5)" CALORIES""STATED IDEAL WEIGHT MIN1.3A32.6A44.1A58A6)TA: ACTIVITY FACTORvCW.00192HT2.0448HTPW: CALCULATION OF OPTIMAL WEIGHT, CW(HT)460: SKIP MALE CALCULATIONSBM6713.8WT5.0HT6.8AGAF(.9A1A21.5A32.9A44.3A58.4A6)TACW.00177HT2.08TPC10PW.454(PC10):FC300: PG CORRECTIONS:^390Yh"ARE YOU LACTATING? ";LC$r(LC$)89FC500:390: LACTATION CORRECTIONS|(PR$)78(LC$)78310BM6559.6WT1.8HT4.7AG: BAS METABOLIC RATE CALCULATION /AF(.9A1A2CENT OF YOURS IS PROTEIN - ";DP% : DP0DP100260V PF1.06(DP15)100.28i "FC0:PC0:PW0 ,SX77430: FEMALE CALCULATIONS FOLLOW 6"ARE YOU PREGNANT? ";PR$ @(PR$)89360 E J"HOW MANY WEEKS POST CONCEPTION? ";PC O1RATE ACTIVITY E.G. ACTIVE WORK - ";A5N "HEAVY ACTIVITY E.G. RUNNING - ";A6g TAA1A2A3A4A5A6 TA22TA26ĺ"DOES NOT ADD UP TO ONE DAY!!!":170 "AVERAGE DIETS HAVE ABOUT 15% OF THEIR ":"CALORIES AS PROTEIN."  "WHAT PERCCURATE FOR YOUR HEIGHT":_ :"HOW MANY HOURS PER DAY ARE SPENT DOING":" THE FOLLOWING: "e "SLEEPING - ";A1:"LYING DOWN AWAKE - ";A2 "SITTING OR STANDING - ";A3 "LIGHT ACTIVITY E.G. COOKING OR ":"WALKING - ";A4% "MODEWEIGHT (LB/KG) UNDRESSED ";WT# sG x"HEIGHT (IN/CM) W/O SHOES ";HTM }q "PRESENT IDEAL WEIGHT ";IWw MS69WTWT.454:HTHT2.54:IWIW.454 WT40WT125ĺ"SORRY, NOT ACCURATE FOR YOUR WEIGHT": HT140WT200ĺ"SORRY, NOT ASX7740. <"WHAT IS YOUR AGE IN YEARS?";AGm FAG19ĺ"SORRY, I DON'T WORK FOR AGES LESS THAN":" 20": P"MEASUREMENTS MAY BE IN KG/CM OR LB/IN " U Z"DO YOU USE ENGLISH (E) OR METRIC (M)? ";MS$ dMS(MS$):MS69MS7790 i n" 33,40b :"PROGRAM FOR THE DETERMINATION OF ADULT":" ENERGY REQUIREMENTS"h"RESPONSES SHOULD BE A LETTER OR NUMBER":"FOLLOWED BY A CARRIAGE RETURN"("ARE YOU MALE (M) OR FEMALE (F)? ";SX$ 2SX(SX$):SX70      ";FOOD$(K);" ";PRTN$(K) P3210:J5355E(39J,39J11L2JW<L19^FLhPPP4|Z39,39X(K,L)PdLn944,25:946xA$:::  --> TONE GENERATOR DATA BLOCK 255,255,173,48,192,136,208,5 206,17 ";A$:A$(A$,1) A$"Y"8401A$"N"2110O944,20:946:944,22:946x:12:"DO YOU MEAN YES OR NO??????"K1800:K::1190  --> GRAPH SUBROUTINE" CAL PRO V-A V-C THI RIB NIA CALC IR" "% OF DAILY NEED.:15:"PRESS 'SPACE BAR' TO GO ON."/VA$::6` =j dt --> CALL GRAPHICS, STOP, RETURNn~12708:5:"REMEMBER......"9:10:"STOP WILL END PROGRAM."10:10:"HELP GIVES ABBREVS. AND FOODS"12:"ANOTHER FOOD GRAPH (Y,N)?46:140" --> SORRY, ";L$;" NOT ON LIST <--"I16:"PRESS RETURN."XA$::840_Ki130012:" TYPE STOP OR ANOTHER FOOD: ";FOOD$FOOD$"STOP"1490$840. --> END OF MAIN ROUTINE8 B --> PAGE SUBROUTINE#L230 f7608p10:" NOW CHOOSE YOUR FOOD, AGAIN.":840LzL$"STOP"1510XK1N1nL$FOOD$(K)1150uKBADSPBADSP10BADSP205970:12:12:"***SPELLING ERRORS***"14:15:"***PROGRAM ENDS***":2100944,BADSP9T SUBROUTINE=:3:" HERE ARE THE FOODS ON THE LIST.";LF$KJ1N12i FOOD$(J);22);FOOD$(J1)xJ29810 1100:5*J:1100:4 > --> MAIN ROUTINEH:12:"TYPE FOOD NAME OR STOP: ";L$RL$"HELP"890\:540:110TA#FOOD$(N1),PRTN$(N1),X(N1,9)5944,183:946U12:4:"FOOD RECORDS READ"aK1N1FOOD$(K),PRTN$(K),X(K,1),X(K,2),X(K,3),X(K,4),X(K,5),X(K,6),X(K,7),X(K,8),X(K,9)12:KK:944,220:946760:840  --> FOOD LISOW THE BAR GRAPH"?NLF$;"ARE 'CAL'=CALORIES, 'PRO'=PROTEIN,"lXLF$;"'V-A'=VITAMIN A, 'V-C'=VITAMIN C,"bLF$;"'THI'=THIAMIN, 'RIB'=RIBOFLAVIN,"lLF$;"'NIA'=NIACIN, 'CALC'=CALCIUM, AND"vLF$;"'IR'=IRON" -->READ BLOCK OF FOOD DA660( --> FOOD INFO SUBROUTINEXLF$;" ON THE LEFT OF THE SCREEN WILL BE 7"&LF$;"WHITE BLOCKS, REPRESENTING THE 5%, 10%"0LF$;"15%, 20%, 25%, 30% AND 35% U. S.":LF$;"RECOMMENDED DAILY ALLOWANCES."DLF$;" THE ABBREVIATIONS BELK FOR IS NOT ON THE"D LF$;"PROGRAM'S LIST, IT WILL TELL YOU AND"u LF$;"YOU MAY STOP OR ASK FOR ANOTHER FOOD." LF$;" AFTER THE GRAPH HAS BEEN PRINTED FOR" LF$;"YOU, PRESS 'SPACE BAR' TO GET ANOTHER," LF$;"GRAPH." 1100:540:1100F$;" TYPING 'STOP' AFTER A QUESTION MARK"S LF$;"WILL STOP THE PROGRAM FOR YOU." LF$;" TYPE 'HELP' AFTER A QUESTION MARK TO" LF$;"GET A LIST OF ABBREVIATIONS AND THEIR" LF$;"MEANINGS, AND ALSO THE FOOD LIST." LF$;" IF THE FOOD YOU AS IS MALE, FEMALE,"? TLF$;"UNDER 11 YEARS, UNDER 15 YEARS OR"` ^LF$;"UNDER 18 YEARS OF AGE" hLF$;" ALSO, THE GRAPH'S UPPER LIMIT IS 39%" rLF$;"AND SOME FOODS MAY SUPPLY MORE THAN" |LF$;"THAT PERCENTAGE OF NUTRITIVE VALUE." 1100) LIBUTION OF THAT FOOD TO U. S."N LF$;"RECOMMENDED DAILY ALLOWANCES WILL BE"| "LF$;"PRINTED ON THE TV SCREEN IN COLOR." ,1100 6LF$;" NOTE THAT THE RECOMMENDED DAILY" @LF$;"ALLOWANCES CHANGE SOMEWHAT DEPENDING" JLF$;"ON WHETHER THE USERFORMATION ON 'FOOD GRAPHS' (Y,N)? ";I$7 I$"Y"660f :LF$;" ENTER THE NAME OF A COMMON FOOD," LF$;"(SPELLED CORRECTLY!) AND THIS PROGRAM" LF$;"WILL SEARCH FOR IT. IF THE FOOD IS" LF$;"FOUND, A GRAPH ILLUSTRATING THE" LF$;"CONTRx(d --> FOOD GRAPH. CURT TORGERSONTn --> DATA FROM NATIONAL DAIRY COUNCIL[x r --> ASSIGNMENTS::D$(4):LF$(10)N162:BADSP70:255K023NTE:944K,NTEK  --> INFORMATION ON PROGRAM& 8:"IN          GG18ĺ"(YOU ARE CONSIDERED OVERWEIGHT)!"/F1ĺ"BECAUSE YOUR FRAME IS ONLY 'SMALL', ADDITIONAL INFORMATION ON BODY WATER, ETC. DOES NOT APPLY TO YOU!":180 IN LINE #'S 140 & 240, 'H' DENOTES HEIGHT IN METERS & 'WT' WEIGHT IN KILOGRAMS OF 3b LINE#'S 133 & 233 DETERMINE THE % THAT YOUR WEIGHT EXCEEDS YOUR MAXIMUM IDEAL WEIGHTSS((W$(W,F1),5)):SSPWĺ"---YOU ARE "(((PWSS)100SS)10.5)10" % ABOVE YOUR MAXIMUM IDEAL WEIGHT. ";)GG(((PWSS)100SS)10.5)10:GG10RAM CAN OFFER YOU NO INFORMATION!":180cTV60TV70ĺ:"BECAUSE OF HEIGHT LIMITATIONS, THIS PROGRAM CANNOT GIVE YOU YOUR IDEAL WEIGHT!":140dW111: THIS IS FOR FEMALES ONLYnL1xW$(W,L)H$ĺ:"YOUR IDEAL WEIGHT=";W$(W,F1);:13S FOR MALESaF1TV60ĺ:"BECAUSE YOUR FRAME IS ONLY 'SMALL' AND YOUR HEIGHT IS LESS THAN 5-0, THIS PROG-RAM CAN OFFER YOU NO INFORMATION!":180'bF1TV70ĺ:"BECAUSE YOUR FRAME IS ONLY 'SMALL' AND YOUR HEIGHT IS MORE THAN 5-10, THIS PROGITH BED CLOTHING)? ";WT!UPWWT/ZS95,195}_:"--------------------------------------":TV((H$,1,1))12((H$,3)) ` LINE #'S 97-99 & 137 EXPRESS THE PROGRAM LIMITATIONS FOR FEMALES WHILE LINE #'S 197-199 & 237 EXPRESS THE PROGRAM LIMITATION,1)"ZERO"JJ1:80FK,JJP:"LIST YOUR SEX (FEMALE=1; MALE=2) ";SQ"WHAT IS YOUR HEIGHT TO NEAREST INCH (E.G. 5-10) (NO SHOES) ";H$R"WHAT IS YOUR BODY FRAME SIZE? (SMALL=1; MEDIUM=2; LARGE=3) ";FS"WHAT IS YOUR WEIGHT (IN POUNDS WNE #'S 25, 96, 100, 132, 138, 143, 148, 162, 200,490."`::"TOUCH 'RETURN' TO CONTINUE!";A$h:W$(30,5): THIS IS AN ARRAY FOR HEIGHT & WEIGHTS CORRESPONDING TO SMALL, MEDIUM, & LARGE BODY FRAMESJ130(K142W$(J,K)<W$(J: %BF=100-(137*WT.WATER/BODY WT.)."}::"MORE REFERENCES: HUME & WEYERS, J.CLIN. PATH.,VOL.24,PP.234-238 (1971); JAMES,"6"(A DHSS/MRC REPORT) HER MAJESTIE'S":"STATIONERY OFFICE, LONDON, 1976 (ISBN":"0 11 450034 7). REMARKS ARE TO BE FOUND IN LINDEX' (QI). THIS CRITICAL":"INDEX IS REACHED WHEN THE PERSON'S":"WEIGHT IS ABOUT 18% ABOVE THE MAXIMUM""IDEAL WEIGHT. ALSO QI IS USED TO"#"ESTIMATE BODY FAT (BF). THE BF VIA QI ISIN GOOD AGREEMENT WITH THE VALUE FROM":"TOTAL BODY WATER USING-20%":"ABOVE THE DESIRABLE WEIGHT. 'OBESITY' ISAPPLIED TO PERSONS WHO ARE ABOUT 20% OR":"MORE OVERWEIGHT." ::"TOUCH 'RETURN' TO CONTINUE!";A$i:"IN THIS PROGRAM, OBESITY IS DETERMINED":"BY A CRITICAL OBESITY INDEX BASED UPON":"'QUETELET'S I. ABOUT":"55-60% OF THE BODY WEIGHT IS WATER.":"A DEVIATION OF NOT MORE THAN 10% ABOVE":"OR BELOW THE DESIRABLE WEIGHT FOR AN" "INDIVIDUAL IS NOT CONSIDERED SIGNIFI-"l "CANT. THE TERM 'OVERWEIGHT' IS GENERAL-":"LY APPLIED TO PERSONS WHO ARE 10 FAT, BODY SUR-":"AREA, AND TOTAL BODY WATER. THESE ARE":"APPLICABLE TO THOSE OVER THE AGE OF 16.":"GENERALLY, THE % TOTAL BODY WATER "IS LOWER IN FEMALES THAN IN MALES." "FURTHER, THE % OF WATER IN LEAN PERSONS IS HIGHER THAN IN OBESE PERSONSVEN ARE FOR BED CLOTHING AND":"ARE FOR MEN AND WOMEN OF AGES "25 AND OVER (FOR GIRLS 18-25, SUBTRACT":"1 POUND FOR EACH YEAR UNDER 25)." ::"TOUCH 'RETURN' TO CONTINUE!";A$ :"BESIDES IDEAL WEIGHTS, THIS PROGRAM":"ESTIMATES OBESITY, BODYLOTHING, WHICH WERE USED IN THIS":"PROGRAM), 'NORMAL & THERAPEUTIC NUTRI-= "TION', (13TH EDITION), BY C.H.ROBINSON,":"1972, P.848 (MACMILLAN). HEIGHT LIMIT-":"ATIONS ARE, FOR WOMEN: 5-0 TO 5-10;":"FOR MEN: 5-4 TO 6-3 (NO SHOES). IDEAL":"WEIGHTS GIF:"DO YOU WANT INFORMATION REGARDING THIS PROGRAM (Y/N)? ";FF$WFF$"N"ī20J "THIS PROGRAM TELLS YOU WHAT YOU SHOULD":"WEIGH BASED ON DATA ADAPTED FROM THE":"BOOK (WEIGHTS IN THIS BOOK WERE SUB-":"TRACTED BY 3 TO GIVE WEIGHTS IN BED":"C          ;"+0=";T:1230*10);T;"+3=";T3:TT3]:"HOW MANY HOURS DO YOU SLEEP EACH DAY ";:A|A9ĺ10);T;"-0=";T:1290A9ĺ10);T;"-4=";T4:TT4:1290A10ĺ10);T;"-6=";T6:TT6 :E$A$:(A$,1)"N"1360C#:"ADULTS THAT STOTALER"jj"THEY MAY HAVE RATHER RIGID VALUE SYSTEMS":"AND MAY UNDERGO STRESS IN MAINTAINING":"THEM."p"DO YOU EXERSISE MODERATELY--JOG, BIKE":"RIDE, TAKE LONG WALKS, SWIM--AT LEAST""2 OR 3 TIMES A WEEK ";:A$(A$,1)"N"ĺ10);T8:108098:E$"DO YOU WANT AN EXPLANATION OF THIS":E$ABA$WL(A$,1)"N"1170V:"MODERATE DRINKING (UP TO TWO DRINKS PER":"DAY) REDUCES STRESS AND AIDS DIGESTION."`"HEAVY DRINKING, HOWEVER, PRODUCES":"PHYSIOLOGICAL DAMAGE. AS FOR TEE00A2B8:1000)A3B10:1000>A4B12:1000a10);T;"-";B;" =";TB:TTB:"HOW MANY DRINKS DO YOU HAVE EACH DAY ";:AA0ĺTAB;T;"-1=";T1:TT1:1080$A2ĺ10);T;"+3=";T3:TT3:1080.A2ĺ10);T;"-8=";T8:TTNY POUNDS OVERWEIGHT ARE YOU ";:A4RA0B0:870?\BA10bf10);T;"-";B;" =";TB:TTB:"HOW MANY PACKS OF CIGARETS DO YOU SMOKE":"A DAY ";:AA0B0:1000A1B2:1000A1B4:1000A1.5B5.5:1000A2B7:10OMEN), DIGESTIVE SYSTEM CANCER":"ASTHMA, EMPHYSEMA AND/OR CHRONIC""BRONCHITIS FOUND IN YOUR PARENTS AND":"GRANDPARENTS ";A10);T;"-3 X";A;" =";T3A TT3A:3000 "PART II HEALTH AND DIET"*30004">"HOW MA"DID ANY OF THE ABOVE DIE OR HEART ATTACK":"OR STROKE BEFORE AGE 60 ";QA$w(A$,1)"N"ĺ10);T;"-0=";T:71010);T;"-2=";T2:TT2"WHAT IS THE TOTAL NUMBER OF INCIDENCES":"OF DIABETES, THYROID DISORDER, BREAST"C"CANCER (W"+0=";T:560(&10);T;"+2=";T2:TT2.0:"DID ANY OF YOUR GRANDPARENTS, PARENTS,":"BROTHERS OR SISTERS DIE OF HEART"D"ATTACK OR STROKE BEFORE AGE 50 ";XA$b(A$,1)"N"ĺ10);T;"-0=";T:640l10);T;"-4=";T4vTT4I(A$,1)"N"ĺ10);T;"+0=";T:460:10);T;"+2=";T2DTT2Jq"WHAT IS/WAS YOUR MOTHER'S AGE ";xAA80ĺ10);T;"+0=";T:51010);T;"+1.5=";T1.5:TT1.5"WHAT IS WAS YOUR FATHER'S AGE ";A A80ĺ10);T;80.7,80.9,81.2,81.4,81.6,81.9,82.2,82.4,82.7,83.0B T83.3,83.6o ^:"YOUR BASE LIFE EXPECTANCY IS":BA(C)} h:TBA(C) r3000 |"PART I HEREDITY" 3000 :"DID AT LEAST TWO OF YOUR GRANDPARENTS":"LIVE TO AGE 80 OR MORE "; A$$.3,77.7,78.1,78.6,79.0,79.5,79.9W "80.4,77.0,77.0,77.1,77.1,77.2,77.2,77.3,77.3,77.4 ,77.4,77.5,77.5,77.5,77.6,77.6,77.7,77.8,77.8,77.9 678.0,78.0,78.1,78.2,78.3,78.4,78.5,78.6,78.7,78.9 @79.0,79.1,79.3,79.4,79.6,79.7,79.9,80.1,80.3,80.53 J1)"F"CC51D 69.9,70.0,70.1,70.2,70.3,70.4,70.5,70.6,70.7,70.8{ 70.9,70.9,71.0,71.1,71.2,71.3,71.4,71.5,71.6,71.7 71.8,71.9,72.0,72.2,72.3,72.5,72.6,72.8,73.0,73.2 73.4,73.6,73.8,74.1,74.3,74.6,74.9,75.2,75.5,75.8 76.2,76.5,76.9,77TA AND STARTS WITH PEOPLE"; x"AT LEAST 20 YEARS OLD.":H BA(101)m :"WHAT IS YOUR AGE IN YEARS ";u AY AY20ĺ"SORRY, YOU MUST BE AT LEAST 20 YEARS OLD": :"WHAT IS YOUR SEX "; S$ I0101:BA(I):I CAY20 (S$,IENTIFIC EVEDENCE"m F"AVAILABLE TODAY. WHILE SCIENTISTS STILL":"DON'T KNOW ALL OF THE VARIABLES CAUSING" Z"LONG LIFE, THEY ARE AWARE OF SOME OF THE":"PHENOMENA THAT SEEM TO BE CORRELATED" n"WITH LONGEVITY. THIS PROGRAM IS BASED":"ON THAT DA" :" < < LIFETIME > >"E: WRITTEN BY T. LUKAS 4/2/77"THIS PROGRAM DETERMINES YOUR LIFE":"EXPECTANCY. DO YOU WANT INFORMATION";(A$2(A$,1)"N"1307 <"THE FOLLOWING, THOUGH NOT VALIDATED,":"IS BASED ON THE BEST SC          EN"v:"BY MAX J. NAREFF"/"DATE: 7-79"Z::"THIS PROGRAM DOES COMMON METRIC""CONVERSIONS FOR ITEMS IN THE KITCHEN"20:"PRESS ESC TO END":"<>"(16384)272000756:(16384)3219:5:I;"SQ.FEET=";R;" SQ.CENTIMETERS".740Z:5:I;"SQ.YARDS=";R;" SQ.CENTIMETERS"c740vR(I32)(59):5:I;"FAHRENHEIT=";R;" CELSIUS"740:R((95)I)32D:5:I;"CELSIUS=";R;" FAHRENHEIT"N740l5:"METRICS KITCH740*:10:I;"POUNDS=";R;" KILOGRAMS"3740Y:10:I;"KILOGRAMS=";R;" POUNDS"b740:10:I;"INCHES=";R;" CENTIMETERS"740@:10:I;"CENTIMETERS=";R;" INCHES"J740r:5:I;"SQ.INCHES=";R;" SQ.CENTIMETERS"|740%MILLILITERS"740<:10:I;"PINTS=";R;" MILLILITERS"E740q:5:I;"QUARTS=";R;"CUBIC CENTIMETERS"z740:10:I;"GALLONS=";R;" LITERS"740F:10:I;"LITERS=";R;" GALLONS"P740x:10:I;"OUNCES(DRY)=";R;" GRAMS"50,1200,1250,1300,1350,1400,1450,1500,1550,1600,1650,1700,1750,1800,1850s:10:I;"TEASPOONS=";R;" MILLILITERS"|740:10:I;"TABLESPOONS=";R;" MILLILITERS"$740L:10:I;"OUNCES(LIQ)=";R;" MILLILITERS"V740 ~::I;"CUPS=";R;" NN777ĀN888500A:5:"VALUE TO BE CONVERTED";HIUI777ĀdI888500:EQUATION FOR CONVERSION OF INPUT VALUE TO ANSWER RIC(N):DIRECT CALCULATION TO TO PROPER NAME FOR ANSWER PRINTOUTH N1000,1050,1100,10OR NEXT PAGE">g24:10:"PRESS RETURN FOR NEXT PAGE";:A$:T: TO END PROGRAMt"TO END PROGRAM ENTER 777": TO RETURN TO INDEX OF MEASUREMENTS:"FOR ACCESS TO INDEX ENTER 888":3:"ENTER INDEX NUMBER OF DESIRED CONVERSION";NTIMETERS TO INCHES";I"(14)SQ.INCHES TO SQ.CENTIMETERS"`N"(15)SQ.FEET TO SQ.CENTIMETERS"S"(16)SQ.YARDS TO SQ.CENTIMETERS"X"(17)FAHRENHEIT TO CELSIUS"]"(18)CELSIUS TO FAHRENHEIT": b"NOTE INDEX NUMBER OF DESIRED CALCULATION.WAIT F5)PINTS TO MILLILITERS"=!"(6)QUARTS TO CUBIC CENTIMETERS"Y&"(7)GALLONS TO LITERS"u+"(8)LITERS TO GALLONS"0"(9)OUNCES(DRY) TO GRAMS"5"(10)POUNDS TO KILOGRAMS":"(11)KILOGRAMS TO POUNDS"?"(12)INCHES TO CENTIMETERS"D"(13)CE ) :LIST OR INDEX OF MEASUREMENTS/ N 10:"KITCHEN-AID METRICS"m 10:"-------------------" "(1)TEASPOONS TO MILLILITERS" "(2)TABLESPOONS TO MILLILITERS" "(3)OUNCES(LIQ) TO MILLILITERS" "(4)CUPS TO MILLILITERS""(OR NEXT PAGE";:A$:: C(18):DIM.FOR CONVESION FACTORSb :DATA TABLE FOR CONVERSION FACTORS 5,15,29.57,236,473.17,946.36,3.785 .227,28.35,.4536,2.205,2.54,.3937 6.452,929.03,8361.3 :INDEX LOOP FOR DATA READ N116 C(N) LIST OF MEASUREMENTS IS PRESENTED"O P"ON THE NEXT PAGE.NOTE THE INDEX NUMB"y U"ER.ENTER THAT NUMBER WHEN QUERIED." Z"THEN ENTER THE VALUE TO BE CONVERTED." _5:"777 ENDS THE PROGRAM" `5:"888 RETURNS THE LIST" d24:8:"PRESS RETURN FOMMON MEASUREMENTS USED IN THE"N :"KITCHEN ARE PRESENTED.FRACTIONAL VALUES"~ ;"MAY BE ENTERED.FOR A MORE EXTENSIVE LIST" <"CONSULT THE OTHER PROGRAMS IN THE LIBRARY" F8:"HOW THE PROGRAM OPERATES" H8:"------------------------"# K3:"AED BY MAX J.NAREFF,SAN FRANCISCO,CA1979*4 $:1900L (16:"INTRODUCTION"e -15:"-------------" 25:"THIS IS ONE OF A SERIES OF PROGRAMS" 7"FOR THE CONVERSION OF MEASUREMENTS TO" 8"AND FROM THE METRIC SYSTEM.HERE SOME OF" 9"THE MORE C'**************************H ***TABLE OF CONTENTS*******i*INTRODUCTION..LINES 0-200**DATA AND LOOP SETUPS..200-260**INDEX OF MEASUREMENTS..500-615**PROGRAM DRIVE..700-800**ANSWER PRINTOUTS..1000-END*( #PREPAR      ";::"SORRY"::"BUT ";F$;" IS NOT IN MY MEMORY BANK"=G4350O m RETURN FOR MORE INPUTu ~  PRINT DATA  34,0 YY1*Y14ė:Y1:"FOOD ITEM","AMOUNT","CALORIES"4Y1>M$,M1$;34)MRE WE CHECK DATA FOR INPUT"0 (:<DF$"STOP"5460`NF$"CLEAR"T0:R0:34,0:4320vXF$"CHECK"ī4790bF$"TOTAL"Y0:4940lI1150vM$,M1$,MF$M$4620I  HERE WE TELL USER NO 7" I AMOF ALL THE"@"DATA IN FILE TYPE ";::"TOTAL";::" PLEASE."FQ50,63v"HIT ANY KEY TO CONTINUE.":U1$|:"FOOD ITEM","AMOUNT","CALORIES"34,1516:"WHAT FOOD ARE YOU LOOKING FOR ";F$ & HEENTER ALL FOOD ITEMS":"IN THE SINGULAR"W|:"IF YOU WANT TO CLEAR THE COUNTERS AND""THE PRINT OUT LIST THEN TYPE ";::"CLEAR":"PLEASE TYPE ";::"STOP";::" WHEN YOU HAVE FINISHED USING THE PROGRAM" :"IF YOU WANT A PRINT OUT E USED TO FIND OUT THE "C@"CALORIE VALUE OF A SERVING OF FOOD "eJ"FROM YOUR FAVORITE RECIPE."kT^"IF YOU WANT TO KNOW THE CALORIE VALUE"h"OF A SERVING IN A RECIPE THEN TYPE"r:"CHECK";::" WHEN ASKED FOR FOOD ITEM."(w"PLEASE LORIE COUNTING PROGRAM"(I12000:I1200M PROGRAM STARTS HEREW34,0`:3"THIS PROGRAM ALLOWS YOU TO DETERMINE""RAPIDLY THE CALORIE VALUE OF ANY FOOD"""OR OF A LIST OF FOODS SUCH AS A MEAL.",6"IT ALSO CAN B OF ";C$(I) I20275  I* 2530X "TO CON'T LIST HIT ANY KEY & RETURN";U5$d I21Nm 267 R;" ";A$(I);" OF ";C$(I) I 2530 1023 CALORIE COUNTING PROGRAM START = FRE(0) 81881008):"CA2400 < 5F "THANK YOU FOR LETTING ME HELP YOU "`P "WITH YOUR MEAL PLANING. CALL ON ME"Z " AGAIN ANY TIME, GOODBYE...."d 2810n R(B(I)O)S:x "TO CON'T LIST HIT ANY KEY & RETURN ";U5$ I11N 2670  R;" ";A$(I);" USE THE FOLLOWING NEW RECIPE"$ / I1N9 2670W R;" ";A$(I);" OF ";C$(I)e I10268l Ir  "DO YOU WANT TO CHANGE THE NUMBER" "OF SERVINGS  "; 50,127 "Y\N" 50,255 U2$( U2$"Y"24002 U2$"YES"INGREDIENT ";C$(I) . I 8 % B F L "HOW MANY PEOPLE DOES YOUR"f V "ORIGINAL RECIPE SERVE ";Ol ` j "HOW MANY PEOPLE DO YOU NEED" t "TO SERVE FOR THIS MEAL ";S y ~ "TO SERVE ";S" PEOPLE WITH THE" Z$;" RECIPE" "PLEASEZ$   A$(200)* B(200)7 C$(200)Z "HOW MANY INGREDIENTS ARE IN"p "THIS RECIPE ";Nv  I1N  "INGREDIENT ";I  "PLEASE ENTER THE AMOUNT, AND THE"  "UNIT OF MEASURE ";  B(I),A$(I) $ "WHAT IS THE  "A!OUNT." * 4"2 ";F >"WHEN ENTERING THE AMOUNT OF AN"q H"INGREDIENT,TYPE THE NUMBER IN FIRST" R"THEN HIT THE RETURN BEFORE TYPING IN" \"UNIT OF MEASUREMENT" f p z "PLEASE ENTER THE NAME OF THIS RECIPE "  x"ENTER THE OPTION BY NUMBER ";OO? OO2000,4000,5600,9000I l1400 ::::"WHEN ENTERING THE RECIPE PLEASE FOLLOW" "THE FOLLOWING "; 50,127 "INSTRUCTIONS" 50,255  "1 "; "ENTER FRACTIONAL AMOUNTS AS A DECIMAL":16)"EDITED BY"::7)"DICK HUBERT AND VAL GOLDING"I I13000:I:Q e: j10)"OPTIONS AVALIABLE:"::15)"(1) RECIPE CONVERTER " t 15)"(2) CALORIE COUNTER " : 15)"(3) RECIPE COST CALCULATOR" F15)"(4) EXIT PROGRAM"# (o770,173:771,0:772,3:773,32:774,218:775,253:776,173:777,1:778,3:779,32:780,218:781,253:782,96z10000 PROGRAM SELECTION PAGE :12:10)"HOME ECONOMICS PACK I"I12000:I15:19)"BY"::14)"PAUL A. PAGE "6 :           FRIED EGG, 1 EA,120,SCRAMBLED EGG,1 EA,135,TUNA FISH,3 1/2 OZ,145,CRABMEAT,4 OZ,86,LOBSTER,12 OZ,308,FRIED SHRIMP, 3 1/2 OZ,225 CRAB CAKE,1 EA, 110,TUNA SALAD,1 SERV,170,APPLE, 1 EA,70,BANANA,1 EA,85,GRAPEFRUIT, HALF, 41,GRAPES,3 1/2 OZ,69,ORANGE,,BROWNIE,1 EA,146,CUPCAKE,1 EA,175,JELLO, 1/2 CUP,81,ICE CREAM,1/3 CUP,174, ICE MILK,1/3 CUP,137 CHERRY PIE,1 SLICE,258,APPLE PIE,1 SLICE,255,POPSICLE, 1-3 OZ, 95,SHERBERT,1/3 CUP,152,COOL WHIP, 1 TBSP,16,DIET SAL DRESS,1 TBSP,10,EGGS,1 LGE,88 LK CHOCOLATE,1 OZ BAR,152,CEREAL,1 CUP,100,BAKED BEANS,1 CUP,275 CHOC CH COOKIE,1EA,51,VANILLA WAFER,1 EA,15,ANIMAL CRACKER,1EA,9,BUTTER,1 TBSP,100,AMERICAN CHEESE,1OZ,112,COTTAGE CHEESE,1/2 CUP, 120 ` CREAM CHEESE,1 OZ,105,MARGARINE,1 TBSP,72,TOMATO JUICE,3.5 0Z,19,V8 JUICE,3.5 OZ,17 EGGNOG,6 OZ,233,SKIM MILK,8 OZ,116,MILK,8 OZ,159,WHITE BREAD,1 SLICE,62,DOUGHNUT,1 AVE,125,PANCAKES,2-4'CAKES,322@ FRENCH TOAST, 1 SLICE,183,BREAD,1 SLICE, 62,HAMBURGER ROLL,1 EA,89,WAFFLE,1 5 IN,209,MI"HIT ANY KEY TO RETURN TO MENU":U2$+q 4s 200>v 1000D[ DATA STARTS HERE TO SET COUNTING NUMBER IN SEARCH LOOP OF 1300 (FOR I=1 TO N)   BEVERAGES* COKE,6 OZ,78,GINGERALE,8 OZ,80,PEPSI,8 OZ,106,MILKSHAKE,10 OZ,421DATA COUNTER FOR TESTE$ TOTAL IN O MUST BE IN LINES 1300 AND 3100O& OO1]0 M$,M1$,Mk: M$,M1$,MuD KK1N K18ĺ:"HIT ANY KEY TO CONTINUE LIST":U2$::K0X IZ 34,0] :` K0b "THIS IS ALL THE DATA IN MY MEMORY BANK"%l THIS RECIPE SERVING Y/N ";:U2$3 U2$"Y"1557A%R0:R10K*1557Q k TOTAL PRINT OUT SUB TO SET COUNTING LOOP TO SAME VALUE AS 1300  34,0  255 "ITEM","AMOUNT","CALORIES" 34,2 I1150! #  FIGURE RECIPE SERVING *:16U"HOW MANY PORTIONS DOES THIS RECIPE "e"MAKE ";PpR1RPx:"EACH PORTION SERVED BY THIS RECIPE""CONTAINS ";R1" CALORIES" :"DO YOU HAVE ANY MORE FOOD ITEMS TO ADD"!"TO:Y1:"FOOD ITEM","AMOUNT","CALORIES"/Y1=M$,M1$,MH34,15P16V" HOW MANY ";M1$;" ARE YOU GOING TO USE ";:NN1NMTTN1RRN1"CALORIES SO FAR THIS RECIPE "R"TOTAL CALORIES SO FAR "T@1200 FF$M$1500 _I s7 t HERE WE TELL USER NO= u x" I AM ";::"SORRY"::"BUT ";F$;" IS NOT IN MY MEMORY BANK"  1200   RETURN FOR MORE INPUT    PRINT DATA   34,0 YY1&Y1434,15 16 :@ "WHAT FOOD ARE YOU LOOKING FOR ";F$F L o  HERE WE CHECK DATA FOR INPUTu {  F$"STOP"10000 F$"CLEAR"T0:R0:34,0:1170 F$"CHECK"ī2000 F$"TOTAL"YH:3000 I1150 -M$,M1$,M:"STOP";::" WHEN YOU HAVE FINISHED USING THE PROGRAM"d :"IF YOU WANT A PRINT OUT OF ALL THE" "DATA IN FILE TYPE ";::"TOTAL";::" PLEASE."  50,63 "HIT ANY KEY TO CONTINUE.":U1$  :"FOOD ITEM","AMOUNT","CALORIES" "IF YOU WANT TO KNOW THE CALORIE VALUE"Q e"OF A SERVING IN A RECIPE THEN TYPE" j:"CHECK";::" WHEN ASKED FOR FOOD ITEM." l:"IF YOU WANT TO CLEAR THE COUNTERS AND" n"THE PRINT OUT LIST THEN TYPE ";::"CLEAR": o8 t"PLEASE TYPE ";:AM ALLOWS YOU TO DETERMINE"H "RAPIDLY THE CALORIE VALUE OF ANY FOOD"u "OR OF A LIST OF FOODS SUCH AS A MEAL."{  "IT ALSO CAN BE USED TO FIND OUT THE " "CALORIE VALUE OF A SERVING OF FOOD " "FROM YOUR FAVORITE RECIPE." L' `Z&_ CALORIE COUNTING PROGRAM@d START = FRE(0) 8188Hi10nn08):"CALORIE COUNTING PROGRAM"s:12):"BY PAUL A. PAGE"x:14):"JULY 2,1978"}I12000:I200 PROGRAM STARTS HERE34,0:3 "THIS PROGR          E D