L%hh LHH` X% " ӠӠΠǠ ˮԠˠǠӬĠӠ٠٠ϠŮ+JJJJ ,,,L Lک ٥ҥ>ӥ? ( ㆭ  ؆` | A""""""QQQYV <"<Q '(h((QQQ`@GHOHO $"!$q}T@` `@@``p0 8p@@`00 |0@` `pppPox`D3 < p?|@@@|@`f ppn|>0p  qcs6<, 3['Nxxxpp0` ```@vl  ?`@:3q  AcqcCyO@  0p`@@q @p?|`3cC ? ?>|xp`p`@Acwsssssss__????????~^^ ?~~~~~~~?>~||xpp`@~| xyy{~|@`pp xpp`@yyyyyyyx~ ~x`|xpxqa` cqx|||||||cCC?>>>??<<|||~?`ppxx||<||xxpp`|||||||| |?|p`@@@@`p|? OOGgccqpxsssssssppxxx|<<~?>~||xxxxppp```@@@`?~|x|~|||||||p@@p|~><|xp`@>|x|xpx}yyyyyyyAA?~|xpp`ppx|~? ?? 33@``@@glloLL LlOgloloG @`@glolo@@gLLL GaamGGlg`GGlg`G  xL| x@@xMLLxMyyM MyxAxMx|Yq @lllLglllgG LlL`@GLOLo033366m~0>3>33~G<`G}rccb``acccq{{{{8008????~ |lL COoooog CgoooocCFFLLXXPpqa88`}}}}>????~ | ~FCCFL ____|GG|GGccp{{{{ ;1q``qp`aas{{{{8008 0y| |}}}}AAQg((h' $C@0j ed`y < I1@@q q s8EE9EE8> ` `$DC0ANPQN@'h(' WPG((H@stq q8AyEx:NPQ@GhHHG#$p# @ (*Y9AyEy: QQQO~C%%C~_DDD qAAAaq9`ppxxx|xxx|AsGN8088 Ccˆʎõĵ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 iõ`  \ 濭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- ( t Ϡ@跻~!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䵍䵐`"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 Ucca(ŠŠנӠԠŠƠŠΠՠ̠Ŭ)2a(ǠՠŠԠϠĠŮ)-ca(Š)/ca(Π)0ca(β@ `@9()$*`@9()%q4`@9()%q>`@9()%qH`@9()%qR`@9()$\`@9()$f`@9()$p`@9()$'zM6a(Š¬ìĠҠŠ)cAM6cca(ՠĠŠϠϠŠĠŠƮ)b() a(©)R@`@9()%_`@9()%q`@9()%_!M6a(ŠҠ )cM6a(Π)ca(ҠŠ)ca(Ҡ)a(©Ϡ)a(éϠ)a(ĩϠ) a(ũҠ)R@9()%qD`@9()%qN`@9()$vX`@9()$vb`@9()$v%lM6a(Š¬àҠĠ)cvM6a(Π)cka(ƠՠŠҠϠլƠŠԠΠ̠ЬҠŠŠԠŠ)ca`@9()$$M6a(ŠҠ )_M6a(Π)ca(Šՠ)c a()a(©Ӭ٠ϠӮ)a(éӬ٠ϠӮ)!a(ĩӬ٠ҠŠӮ)R@&`@9()$v0`@9()%q:`^`@9()%_h`@9()%_r`@9()%_%|M6a(Š¬àҠĠ)cM6a(Π)cNa(ϠՠˠŠԠƠҠŠƠҠ٠Ҡ) ca() a(©)R@`@9()$`@9()%q_`@9()$M6a(Π)ca(Ϡՠ)c a()a(©ӠӠ)(a(éӠϠӠ٠)"a(ĩӠϠ),R@6`@9()%_@`@9()%qJ`@9()%qT`@9()%q)%_$M6a(ŠҠ )_PM6a(Π)cza(Ӡ٠ԬҠҠҠҠӠĠҠҠԠάҠӠĠӠŠ)ca() a(©)R@`@9()%q`@9()%@9()%q(`@9()%_F2`@9()%_F'<M6a(ŠҠ Š)c_FM6a(Π)cCPa(Š̠ӠĠϠӠƠŠҠ)c Za() da(©)nR@x`@9()%q`@9()%_`@9(2#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&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 BOYOU 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 QI)  ]( ](2 ]îȮׇɇ̇̇ɇ͇Ӡ< ] F ]P QE 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$$ 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$D CATEGORY NUMBER":6370"%BL$:(%;%, WRITE RECIPEL%6R$"T"C$T$U%;DD$s%@DD$;"WRITE ";F$;", R";NR{%JR$%TNRNR1%^I1NI%hR$"I"Q$(I)U$(I)I$(I)" "%rDD$;"WRITE ";F$;", R";NR%|R$%DD$%NRNR1%I&I1 $$NDND1"$.D$(ND)(R$,2,39),$861502$BS$ PRINT CATEGORIES AND INPUTa$I1292z$INCĺI;" ";C$(I);$I1NCĖ20:I1;" ";C$(I1)$I$$19:"ENTER CATEGORY NUMBER ";C$$C$""180$C(C$)%C1CNCĺ"INVALININI1A#Q$(NI)(R$,2,5):U$(NI)(R$,7,5):I$(NI)(R$,12,27)P#SS06060\#J1SI#SI$(J)(I$(NI),1,(SI$(J)))6210#J#6060#SS1SS1:6210#ND0#DD$;"READ ";F$;", R";RNNIND1#R$#DD$$(R$,1)"D"6210DEX";F$"vT(I)"DD$!"I;"DD$;"CLOSE INDEX";F$A"V"p READ IN RECIPEs"zDD$;"READ ";F$;", R";RN{"R$"DD$"T$(R$,17,24)"C$(R$,2,15)"NI0"DD$;"READ ";F$;", R";RNNI1"R$"DD$"(R$,1)"I"6140#2,15)5630!NCNC1+!C$(T$(I),2,15)A!C$(NC)C$:C(NC)IH!IT!NCNC1`!C(NC)1f!x!D WRITE INDEX!NJNT2:T(J1)NR:T(J)NX!SDD$;"DELETE INDEX";F$!XDD$;"OPEN INDEX";F$!bI1J!g(T$(I),1)"X"5770"lDD$;"WRITE INT(C3) hT$(C4)T$5530' rC3C4C1E |T$(C3)T$(C4):T(C3)T(C4)R C4C4C1a C415480n C3C4C1 T$(C3)T$:T(C3)T I 5420 NC0:C$" " NT05640 I1NT (T$(I),1)"X"NTI1:5640 !C$(T$(I),5240DD$;"CLOSE ";F$'216,0CDD$;"OPEN ";F$;", L41"YNANT:5400:5700b180} SORT INDEX OF TITLESNT0NT15570"C1NT1:C31:C41,C1(C12)6C105570@C2NTC1JI1C2TC3IC1:C4I ^T$T$(C3):TZNCNC1:C(NC)1:NANT d180:nNR1:SS0:NT0:5320WxDD$;"READ ";F$;", R";NR_R$hDD$wT$(R$,1)T$"E"5320NRNR1T$"X"SS1T$"T"SS1NXNX1T$"T"5240NTNT1:T$(NT)(R$,40):T(NT)NR1:SS0;"CLOSE INDEX";F$-DD$;"OPEN ";F$;", L41"<NT15230^ NTNT3:NRT(NT1):NXT(NT2)jI1NTDD$;"READ ";F$;",R";T(I)(R$2DD$7T$(I)(R$,40)<C$(T$(I),2,15)5200FNCNC1:C$(T$(I),2,15):C$(NC)C$:C(NC)IPIDD$;"CLOSE ";F$(5400:5700.O OPEN FILES AND BUILD INDEXxNA0:NC0:SR0:C$" "5090DD$;"OPEN INDEX";F$NT1MT2DD$;"READ INDEX";F$T(NT)DD$NTNTNT1216,0DD$$ 7 DD$: DD$;"CLOSE ";F$6D DD$;"CLOSE WORK1"UN DD$;"RENAME ";F$;",WORK2"qX DD$;"RENAME WORK1,";F$b DD$;"DELETE WORK2"l 5700v DD$;"OPEN ";F$;", L41" :"FILE REORGANIZED" :"PRESS RETURN ";R$ 180 CLOSE FILEFILE"::"REORGANIZE IN PROCESS - PLEASE WAIT"M NR1:SF$F$:NX0:NA0:SS0W 5400f NT03200 DD$;"OPEN WORK1, L41" I1NT RNT(I):F$SF$:6000 F$"WORK1":T(I)NR:6700 I0 F$SF$:NANT5 DD$;"WRITE WORK1, R";NR6 LRECIPE (Y OR N) ";R$@ R$"Y"R$"N"ĺ"INVALID REPLY ":2560w R$"Y"NTMTĄ"FILE FULL PRESS RETURN ";R$:R$"N" R$"Y"2000 DD$;"CLOSE ";F$# DD$;"OPEN ";F$;", L41"( 5400:57002 180 REORGANIZE FILE. :10:"REORGANIZE 24āIL124:T$T$" ":I3H1:ND0:NI0:7000E :10:H$(1);o 3:1:"ADDING RECIPE - PLEASE WAIT"; NTNT1:T(NT)NR:6700 CNC2550 C$(NC)C$:C(NC)NT NCNC1:C(NC)1 T$(NT)"T"C$T$ NANA1 5:1:"ADD ANOTHER RC$(C):2110620:1:"ENTER CATEGORY (MAX 15) ";C$BL(C$)f L15Ģ21:1:L15;H$(5);:2050o*BL$4L15āIL115:C$C$" ":I>21:1:"ENTER TITLE (MAX 24)"H" ";T$RL(T$)\L24Ģ23:1:L24;H$(5);:2110fBL$pL40:"-";:X:B0: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::A!ECIPE"70"2 - PRINT RECIPE";:20:"5 - NEXT PAGE OF"j0"3 - MODIFY RECIPE";:24:"SELECTED RECIPIES"020:1:"SELECT OPTION ";R$0R$""10000J(R$)0J0J5ı0J5SS0ı0"INVALID OPTION":7840FMLINE"(/P"CTRL B RETURN - BOTTOM LINE"J/Z" RETURN - NEXT FIELD"/d:"TO END DISPLAYED PAGE":"CTRL E RETURN - END PAGE"/n24:1:"PRESS RETURN FOR RECIPE ";R$:/x DISPLAY OPTIONS 016:1:"1 - DISPLAY RECIPE";:20:"4 - DELETE R(7);&.L39āJL139:R$R$" ":JK.C3C11:D$(C1)R$:C1NDNDND1U.7560n. PRINT INSTRUCTIONS.:10:H$(H):.("TO POSITION CURSOR USE".2"CTRL N RETURN - NEXT LINE".<"CTRL P RETURN - PREVIOUS LINE"/F"CTRL T RETURN - TOP SS1:C312-LP$(02)SS1:C3ND1:C321C320D-VP$(5)SS2S-`SS07600v-jC1ND1ĢC13:1:" ";D$(C1);-tSS2ı-C320C31C31-C3ND1C3ND1-C1C3:SS0:7440-L(R$)-L39Ģ24:1:L39;H$(5);:7445.24:1:H$-,24:1:"CTRL I RETURN FOR INSTRUCTIONS";P,C1ND1ĢC13:1:" ";D$(C1);e,C13:1:" ";R$},R$""SS1:C3C11,R$""C1ND7445,$P$(R$,1),)P$(09)İ7700:7405,.P$(14)SS1:C3C11,8P$(16)SS1:C3C11 -BP$(20)7040+L(R$)6+L27Ģ24:1:L27;H$(5);:7045I+24:1:H$(7);k+L27āJL127:R$R$" ":J+C41:C3C11:I$(C1)R$:C1NISW3NINI1+7150+SS0:C11+:10:H$(H):12:"DIRECTIONS"+ND0āI1ND:I3:1:" ";D$(I);:ISS0:7040**L(R$)8*4L5Ģ24:1:L5;H$(5);:7045K*>24:1:H$(7);k*HL5āJL15:R$R$" ":J~*RC22:Q$(C1)R$*\7040*pL(R$)*zL5Ģ24:1:L5;H$(5);:7045*24:1:H$(7);*L5āJL15:R$R$" ":J*C23:U$(C1)R$+SS1:C31:C417)P$(02)SS1:C3NI1:C321C320I)P$(5)SS2f)SS0ĴC27210,7280,7340)C1NI1ĢC13:1:" ";Q$(C1);" ";U$(C1);" ";I$(C1);)SS27400)C43C41:C3C31)C320C31C31)C3NI1C3NI1 * C1C3:C2C4:Q$(C1);" ";U$(C1);" ";I$(C1);=(C13:((C21)6)1:" ";R$L(C21SW0d(R$""SS1:C4C21(R$""C1NIR$" ":SS0:SWSW1(P$(R$,1)(P$(09)İ7700:7010(P$(14)SS1:C3C11:C41(P$(16)SS1:C3C11:C41)P$(20)NXNDNI1'0@'X INPUT RECIPE INGREDIENTS AND DIRECTIONSS']SS0:C11:C21'b:10:H$(H)::" QUAN UNIT INGREDIENT"'lNI0āI1NI:" ";Q$(I);" ";U$(I);" ";I$(I);:I'q24:1:"CTRL I RETURN FOR INSTRUCTIONS";(C1NI1ĢC13:1:" ";ND&R$"D"D$(I)2&DD$;"WRITE ";F$;", R";NR:&R$C&DD$O&NRNR1V&If&SR06880&DD$;"WRITE ";F$;", R";NR&LR$&DD$&& DELETE RECIPE&T$(T)"X"(T$,39)&DD$;"WRITE ";F$;", R";RN&T$(T)&DD$ '&NXULATES 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,PINEAPPCAKE,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$,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 :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"PUT"4 "THE PROGRAM CAN BE STOPPED OR THE INDEX"E "RECALLED."e 10);"PRESS RETURN";:A$:k  6:17:"INDEX" 17:"-----" :10)"(A)FAHRENHEIT TO CELSIUS" :10)"(B)CELSIUS TO FAHRENHEIT" :10)"(C)WEIGHT" :* FIRST PAGE IS A GENERAL INDEX.SELECT"S "THE UNIT NEEDED.ENTER THE APPROPRIATE" "LETTER.(C)PRESENTS THE MORE DETAILED" "INDEX OF WEIGHT UNITS.WAIT FOR THE" "REQUEST FOR INDEX NUMBER AND THEN FOR" "THE VALUE TO BE CONVERTED.AT ANY INx"SYSTEM.THIS ONE DEALS WITH TEMPERATURE"W }"AND WEIGHT CONVERSIONS.OTHERS IN THE" "SERIES INVOLVE LENGTH,AREA,VOLUME AND" "A COMPILATION FOR KITCHEN USE. ::8:"HOW THE PROGRAM OPERATES" 8:"------------------------"& 1:"THELISHER0 P:ADAM OSBORNE ASSOC.INC.,BERKLEY,CA.e U:PREPARED BY MAX J.NAREFF,SAN FRANCISCO,CA.1979q Z:1700 d14:"INTRODUCTION" i14:"-------------" n6:"THIS PROGRAM IS ONE OF A SERIES FOR" s"THE CONVERSION,TO AND FROM THE METRIC"+ " -:*UNIT CONVERSIONS..800-END*< 2:*ACKNOWLEDGEMENT..*e 7:SOME OF THE PROGRAMMING TECHNIQUES <:USED HAVE BEEN ADAPTED & MODIFIED A:FROM A PROGRAM IN "SOME COMMON F:BASIC PROGRAMS"BY POOLE & BORCHERS,1978 K:PERMISSION FOR USE BY PUB:**TABLE OF CONTENTS**; :*INTRODUCTION..100-190*[:*INDEX OF UNITS..190-220*:*INDEX COMMAND DRIVE..245-300*:*TEMP.U.S.-METRIC..300-345*:*TEMP.METRIC-U.S..345-390*#:*WEIGHT UNITS..400-590* (:*PROGRAM DRIVE..600-700*           :"PRESS ESC TO END"? :"<>"V(16384)272100t 756:(16384)322000*:16368,0:4:" INCHES"v8326:I;"MILLIMETERS ";R;" INCHES"?832p:PREPARED BY MAX J.NAREFF,SAN FRANCISCO,CA.5:"METRICS LENGTH":"BY MAX J. NAREFF""DATE: 7-79"::"THIS PROGRAMS DOES METRIC CONVERSIONS""FOR LENGTH"2000:16368,0::14);TC;28);TK: ECI273.18 :6000% :::1060- :I :"TEMPERATURE =";KI:O ` TCKI273.18s TF(95)TC32} TKKI :6000::::1060 p"DEGREES";14);"DEGREES";28);"DEGREES" z"FAHRENHEIT";14);"CENTEGRADE";28);"KELVIN" :;TF; :' :"TEMPERATURE =";FI:- 7 TFFIJ TC59(TF32)[ TKTC273.18g :6000o :w : $"TYPE 'P' TO PROCEED ";A$ .A$"P"ī100 8999 : :"TEMPERATURE =";CI:  TF(95)CI32 TCCI TK"METRICS FOR AREA".20:"PRESS ESC TO END"Y:"<>"p"(16384)271600,756:(16384)3215006:16386,0:@: Y E " V'  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                  KILOMETERS ";R;"FEET"J832<r:I;"METERS ";R;" MILES"E|832c:I;"METERS ";R;" YARDS"l832:I;"METERS ";R;" FEET"832:I;"METERS ";R;" INCHES"832::I;"CENTIMETERS ";R;" FEET"D832 l:I;"CENTIMETERS ";R;T ";R;" CENTIMETERS"832<F:I;"INCHES ";R;" METERS"EP832ix:I;"INCHES ";R;" CENTIMETERS"r832:I;"INCHES ";R;" MILLIMETERS"832:I;"KILOMETERS ";R;" MILES"832:I;"KILOMETERS ";R;" YARDS"832@:I;"TERS")832:RETURNS FOR ANOTHER INPUTG:I;"MILES ";R;" METERS"P$832rL:I;"YARDS ";R;" KILOMETERS"{V832~:I;"YARDS ";R;" METERS"832:I;"FEET ";R;" KILOMETERS"832:I;"FEET ";R;" METERS"832:I;"FEE;9N>N777Ā$?N888510*@HC"VALUE TO BE CONVERTED";OHI\JI777ĀkKI888510xMRIC(N)RN1000,1050,1100,1150,1200,1250,1300,1350,1400,1450,1500,1550,1600,1650,1700,1750,1800,1850,1900,1950:I;"MILES ";R;" KILOME9)CENTIMETERS TO INCHES"9*"(20)MILLIMETERS TO INCHES"o/22:"NOTE NUMBER,BUT FIRST PRESS RETURN.";:A$:4"TO END ENTER 777 AT ANY INPUT LEVEL"6:"TO RETURN TO LIST ENTER 888 AT ANY INPUT"7:"ENTER LIST NUMBER OF UNIT TO BE CONVERTED" TO MILLIMETERS"/"(11)KILOMETERS TO MILES"N"(12)KILOMETERS TO YARDS"l"(13)KILOMETERS TO FEET""(14)METERS TO MILES""(15)METERS TO YARDS""(16)METERS TO FEET" "(17)METERS TO INCHES""(18)CENTIMETERS TO FEET" "(1TO KILOMETERS"( "(2)MILES TO METERS"F 0"(3)YARDS TO KILOMETERS"` D"(4)YARDS TO METERS"} X"(5)FEET TO KILOMETERS" l"(6)FEET TO METERS" "(7)FEET TO CENTIMETERS" "(8)INCHES TO METERS" "(9)INCHES TO CENTIMETERS""(10)INCHES48,30.48,.0254,2.54,25.4,.6214D 1093.6,3280.8,.0006,1.094,3.281b 39.37,.0328,.3937,.0394 .6214,1093.6,3280.8,6.2E-4,1.094 3.281,39.37,.033,.394,.0394 I120:INDEX OF LOOP C(I):READS DATA THRU LOOP   "(1)MILES "& V"A REQUEST FOR THE VALUE TO BE"P W"CONVERTED WILL THEN APPEAR.PROCEED"} Z20:"PRESS ANY KEY FOR THE LIST";:A$: C(20):SETS DIM.FOR NUMBER OF CONVERSIONS :CONVERSION FACTORS TO BE USED 1.609,1609.35,.0091,.9144,.00031 .30MENTS", ("TO AND FROM THE METRIC SYSTEM."S 210:5:"HOW THE PROGRAM OPERATES"v 75:"------------------------" <:"THE NEXT COMMAND WILL PRESENT THE" F"LIST OF AVAILABLE MEASUREMENTS." P"NOTE THE NUMBER AND ENTER WHEN" U"CALLED FOR. & LOOP SETUP LINES 0-90,200-270I :LIST OF MEASUREMENTS LINES 510-800k :PROGRAM DRIVE LINES 820-850w :2000 10:"METRICS....LENGTH" 10:"-----------------" "THIS IS ONE OF A SERIES OF PROGRAMS" "FOR THE CONVERSION OF MEASURE W:ONE OF THE PROGRAM TECHNIQUES USED HAS BEEN ADAPTED AND MODIFIED FROM THE:BOOK'SOME COMMON BASIC PROGRAMS'.:BY POOLE & BORCHERS.:PERMISSION FOR USE BY PUBLISHER:ADAM OSBORNE & ASSOC.INC.,BERKLEY,CA. :INTROD.& DATA          F RECIPE UNITS CALLED FOR";" R2 PPCUFR9 IT "NUMBER OF SERVINGS";[ Sa "TOTAL COST FOR 1 RECIPE = $";(P100.5)100 "CHANGE NUMBER OF SERVINGS (1=YES,0=NO)"; N N1170 R "RECIPE COST"8"NUMBER OF INGREDIENTS";?(NJ2I1Nc<"INGREDIENT ";I;":"F" COST FOR BULK UNIT IN STORE";PCZ" NUMBER OF UNITS IN BULK";dUn" NUMBER OF RECIPE UNITS PER BULK UNIT";xF " NUMBER O  ";::"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  "AMOUNT." * 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 :                  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     Y OR N) ";R$9R$"Y"R$"N"ĺ"INVALID REPLY ":1920JR$"N"1990SBL$]6900"RECIPE DELETED"::H$(4);:" ";R$NSNS1:NANA11320 ADD RECIPE TO FILE:10:H$(1):C$(NC)"NEW CATEGORY ":6300 CNCC$T(T)&T(T)NR0670025SR0NRSR:1860X:NISI:NDSD:6900:T$(T)"1"C$T$kD:10:H$(2):X"RECIPE MODIFIED"::H$(4);:" ";R$b1330l DELETE RECIPEv:10:"DELETE RECIPE":3:1:C$;" ";T$ 5:1:"DELETE RECIPE (" "1720J&(D$(I),J);" ";B(D$(I),J,1)"."ĺ2);YNDI1ĺ" ":1760fD$(I1)mI TURN OFF PRINTER:"RECIPE PRINTED"::H$(4);:" ";R$1330 MODIFY RECIPEH2:SINI:SDND:7000SINISDNDSRNR:NRS RETURN";R$"T TURN ON PRINTER9^20);T$;20);C$:EhI110WrNIIĺ:1680{|Q$(I);" ";U$(I);" ";I$(I);" ";NI11ĺ" ":1680Q$(I10);" ";U$(I10);" ";I$(I10)II1202NDI1760 J3911:(D$(I),J,1) "U$(I);" ";I$(I):NLNL1:I*:NLNL16I1NDxNL21Ģ24:"PRESS RETURN FOR NEXT PAGE ";R$::NL2:T$;" "C$D$(I)"NLNL1,I124:H$(4);:" ";R$61330@ PRINT RECIPE J:10:"PRINT RECIPE"::"READY PRINTER AND PRESSS1:7800423:1:"SELECT RECIPE NUMBER ";R$DR$""1000PT(R$)T1(T$(T),1)"1"TNTĺ"INVALID RECIPE NUMBER";:1420RNT(T):SS0:6000J1500,1600,1800,1900 DISPLAY RECIPE:NL2:T$;" ";C$I1NI:Q$(I);"RN ";R$:100002NL0:C$" ":SS0=7IBSESW<(T$(I),1)"1"1400wFNL12İ7800:NL0:J51420PNL0ė:10:H$(3):NL1ZNL1C$(T$(I),2,15)C$(T$(I),2,15)::3:C$:NLNL2dNLNL1nI;" ";(T$(I),17,24)xI 15)13203ST$""ĭST$(T$(I),17,(ST$))1300BSI01260TRNT(I):6000dSS11300~T$(I)"1"(T$(I),39)NSNS1ESI 1310T$(I)" "(T$(I),39)I (NS0ė:10:H$(3):23:1:"NO RECIPIES SELECTED - PRESS RETU#B20I:1:"INGREDIENT ";I;" ";1GSI$(I)""=LSI$(I)QVSI$(I)""1160a`L(SI$(I))~jL27ĺL27;H$(5);:1090tBL$;:SISI1~INS0:BSC(SC):ESBSIBSNTSS1:(T$(I),1)"X"1310SCNCĭC$(SC)(T$(I),2,3 I1NT:(T$(I),1)"X"T$(I)"T"(T$(I),39): Iy NT0Ģ20:1:"NO RECIPES IN FILE - PRESS RETURN ";R$:180 C$(NC)"ALL CATEGORIES":6300:SCC 20:"ENTER TITLE ";ST$ L(ST$) $L24ĺL24;H$(5);:1040 .BL$;:SI08I13";:25:NX- 5:"TOTAL RECORDS";:25:NR1P 10:" SELECT FUNCTION ";R$\ "I(R$) ,I1I4ĺ" INVALID FUNCTION":280 1I2NTMTĺ"FILE FULL":280 6BL$ @I1000,2000,3000,4000  SELECT RECIPIES :10:"SELECT RECIPIES":$ 5:"RECIPE BOX FUNCTIONS":K "1 - RETRIEVE RECIPIES FROM FILE"k "2 - ADD RECIPIES TO FILE" "3 - REORGANIZE FILE" "4 - EXIT PROGRAM" 14:5:"STATISTICS FOR ";F$: 5:"NUMBER OF RECIPIES";:25:NA 5:"DELETED RECORDS " x2 9:13:"THE RECIPE BOX"V 11:10:"BY MARILYN FETTINGER" 15:6:"PRESS RETURN FOR RECIPE FILE" 17:6:"OR ENTER FILE NAME (MAX 15)"::11:" ";R$ (R$)15Ė12:(R$)15;H$(5);:150 R$""F$R$ 5000 S":H$(4)"PRESS RETURN FOR RECIPE LIST ":H$(5)" CHARACTERS TOO LONG ":H$(6)"LINES LEFT":H$(7)"CTRL I RETURN FOR INSTRUCTIONS" PDD$(4) ZF$"RECIPE FILE" dLR$"E " nBL$" ) RECIPE BOX5 WRITTEN BY MARILYN FETTINGERU PHONE NUMBER 312-395-0791h:MC30:MT100(C$(MC1),C(MC1),T$(MT2),T(MT2)2I$(20),U$(20),Q$(20),D$(20),SI$(3) FH$(1)"ADD NEW RECIPE":H$(2)"MODIFY RECIPE":H$(3)"SELECTED RECIPIE               \z#??Xβ   àŠ àŠȠŠ͠ ŠԠҠǠ ŠŠ àӠŠàΠР!àР àȠ àРҠԠ ̠٠Ԡ!ŠŠ"Š٠Šؠ+àΠŠŠԠ* ŠԠӮЮîϠàŠǠ͠ŠӠĠӠŠ٠Ԡ"HIT ANY KEY TO START.":A$:, A$""Ā@ START PROGRAM_ ROUND(X)(X100.5)100e l 8~ "DEGREES? "; 4000: INPUT LOOP TYPE$: TY$""Ā TY$"C"1000 TY$"F"2000 9 180  CELSIUS TO FARENHEIT6 TEMPERATURE CONVERSION PROGRAM BY ED HANLEYBT$(20)HdPi10yn"THIS PROGRAM WILL CONVERT DEGREES"s"CELSIUS TO FARENHEIT AND DEGREES"x"FARENHEIT TO CELSIUS."}:"ENTER DEGREES FOLLOWED BY 'C' OR 'F'.":   EIGHT""20:"PRESS ESC TO END"M:"<>"d(16384)271800756:(16384)321700:16368,0::S0(@:6:I;" MILLIGRAMS=";R;" POUNDS"1J620Xr:6:I;" MILLIGRAMS=";R;" GRAINS"a|6205:"METRICS TEMPERATURE & WEIGHT":"BY MAX J. NAREFF""DATE: 7-79"::"THIS PROGRAM DOES METRIC CONVERSIONS""FOR TEMPERATURE AND WDS" 6202F:6:I;" KILOGRAMS=";R;" OUNCES";P620ax:6:I;" KILOGRAMS=";R;" POUNDS"j620:6:I;" METRIC TONS=";R;" TONS(SHORT)"620:6:I;" METRIC TONS=";R;" POUNDS"620:6:I;" MILLIGRAMS=";R;" OUNCES"62OUNDS=";R;" KILOGRAMS"$620GL:6:I;" POUNDS=";R;" METRIC TONS"PV620w~:6:I;" POUNDS=";R;" MILLIGRAMS"620:6:I;" TONS(SHORT)=";R;" METRIC TONS"620:6:I;" GRAMS=";R;" OUNCES"620:6:I;" GRAMS=";R;" POUN0,1600,1650- :6:I;" OUNCES=";R;" GRAMS"6*620\R:6:I;" OUNCES=";R;" KILOGRAMS"e\620:6:I;" OUNCES=";R;" MILLIGRAMS"620:6:I;" GRAINS=";R;" MILLIGRAMS"620:6:I;" POUNDS=";R;" GRAMS"620:6:I;" P CONVERTED";I I777Ā/I888450M:EQUATION FOR CONVERSIONvRIC(N):ENTERS FACTOR AND COMPUTES:DIRECTS PROGRAM FOR UNIT COMPUTATION AND PRINTOUT N800,850,900,950,1000,1050,1100,1150,1200,1250,1300,1350,1400,1450,1500,155UNDS"!0"(18)MILLIGAMS-GRAINS"TN24:"SELECT INDEX NUMBER.PRESS RETURN";:A$:xX6);"TO END PROGRAM ENTER 777"b:6:"FOR INDEX ENTER 888"l:5:"ENTER THE SELECTED INDEX NUMBER";vN{N777ĀN888450 :10:"VALUE TO BE"3:"WEIGHT..METRIC TO U.S.":"(10)GRAMS-OUNCES"R "(11)GRAMS-POUNDS"n"(12)KILOGRAMS-OUNCES""(13)KILOGRAMS-POUNDS""(14)METRIC TONS-TONS(SHORT)"!"(15)METRIC TONS-POUNDS"&"(16)MILLIGRAMS-OUNCES"+"(17)MILLIGRAMS-POOUNCES-GRAMS"("(2)OUNCES-KILOGRAMS"D"(3)OUNCES-MILLIGRAMS"`"(4)GRAINS-MILLIGRAMS"w"(5)POUNDS-GRAMS""(6)POUNDS-KILOGRAMS""(7)POUNDS-METRIC TONS""(8)POUNDS-MILLIGRAMS""(9)TONS(SHORT)-METRIC TONS"PAUSE11000:E FOR FACTORS628.35,.0284,2835,64.80,453.59,.4536^4.5E-4,453,.9072,.0353,.0022,35.272.205,1.102,2204.6,3.5E-5,2.2E-6,.0154:INDEX LOOP FOR DATA READN118C(N):READ DATA TABLE3:"WEIGHT..U.S.TO METRIC" "(1)c:6);"ENTER CELSIUS VALUE";&hI<j:TO END OR INDEXImI777ĀXrI888190wR((95)I)32:EQUATION FOR CONVERSION|:I;"DEGREES CELSIUS=";R;"DEGREES FAHRENHEIT"355C(18):FOR THE 18 CONVERSION FACTORS :DATA TABL FAHRENHEIT VALUE";@I0A:TO END OR INDEX=BI777ĀLDI888190xER(I32)(59):EQUATION FOR CONVERSIONJ:I;"DEGREES FAHRENHEIT=";R;"DEGREES CELSIUS"T315Y^10:"TO END PROGRAM ENTER 777"`10:"FOR INDEX ENTER 888"5:"SELECT DESIRED MEASUREMENT BY LETTER"H:COMMAND DRIVE FOR INDEXk::10:"ENTER INDEX LETTER";qyA$A$"A"300A$"B"345"A$"C"400,15);"TO END PROGRAM ENTER 777"65);"FOR INDEX ENTER 888";:"ENTERLLILITERS".S"(18)PINTS(LIQ)TO MILLILITERS"SX"(19)QUARTS(LIQ)TO MILLILITERS"]3:"IF THE CONVERSION WANTED IS ON THIS PAGE,NOTE ITS NUMBER,BUT WAIT UNTIL IT IS ASKED FOR.PRESS RETURN";:A$:g5:"VOLUME-METRIC TO U.S." h5:"-------------IQ)TO CUBIC CENTIMETES"D0"(11)FLUID OUNCES TO CUBIC CENTIMETERS"c5"(12)PINTS(LIQ)TO LITERS":"(13)PINTS(DRY)TO LITERS"?"(14)QUARTS(LIQ)TO LITERS"D"(15)QUARTS(DRY)TO LITERS"I"(16)GALLONS(LIQ)TO LITERS" N"(17)FLUID OUNCES TO MI! "(4)BUSHELS TO CUBUC METERS"G"(5)GALLONS(LIQ)TO CUBIC METERS"p"(6)PINTS(LIQ)TO CUBIC CENTIMETERS""(7)PINTS(DRY)TO CUBIC CENTIMETERS"!"(8)QUARTS(LIQ)TO CUBIC CENTIMETES"&"(9)QUARTS(DRY)TO CUBIC CENTIMETERS"+"(10)GALLONS(LARRAYN138(C(N):READS ARRAY.O:INDEX(LIST)OF MEASUREMENTSn5:"VOLUME-U.S.TO METRIC"5:"--------------------""(1)CUBIC YARDS TO CUBIC METERS""(2)CUBIC FEET TO CUBIC METERS""(3)CUBIC INCHES TO CUBIC METERS".0038,473.18,550.61,946.36,1101.23j3785.43,29.574,.4732,.5506,.9463,1.1012,3.785,29.57,473.167,946.331.308,35.31,61023,28.38,264.17,.0021,.0018,.0011,.0009,.0003,.03382.114,1.182,1.057,.908,.227,.0338,.0021,.0011:INDEX LOOP FOR DATA AND ENTER":" "ON REQUEST.":R "SUBSEQUENTLY THE USER ENTERS THE VALUE":l "TO BE CONVERTED.": 10);"PRESS RETURN FOR INDEX";:A$: C(38):DIMS CONVERSION FACTORS :DATA TABLE FOR CONVERSON FACTORS".7645,.0283,.00002,.0353,12000** 10:"HOW THE PROGRAM OPERATES"O 10:"-------------------------"| 5:"AN INDEX OF MEASUREMENTS IS LISTED" :"ON TWO PAGES.THE FIRST IS U.S.-METRIC.": "THE SECOND IS METRIC-U.S..SELECT THE": "DESIRED MEASUREMENT BY NUMBER.,BERKLEY,CA.A n:PREPARED BY MAX J.NAREFF,SANFRANCISCO,CA.1979] x:**TABLE OF CONTENTS**z }:*INTRODUCTION..50-200* :*DATA AND LOOP SETUP* :*LIST OF MEASUREMENTS...500-700* :*PROGRAM DRIVE..710-900* :*ANSWER PRINTOUT SETUP..1000-PILATION,KITCHEN METRICS."X U:ONE OF THE PROGRAMMING TECHNIQUES USED HAS BEEN ADAPTED Z:AND MODIFIED FROM THE BOOK"SOME COMMON BASIC PROGRAMS. _:AUTHORED BY POOLE & BORCHERS,1978 d:PERMISSION FOR USE BY PUBLISHER i:ADAM OSBORNE ASSOC.INC21 :16368,0+ 212:"INTRODUCTION"D 712:"-------------"r <5:"THIS IS ONE OF A SERIES OF PROGRAMS" A"FOR THE CONVERSION TO AND FROM THE" F"METRIC SYSTEM.OTHER PROGRAMS DEAL WITH" K"LENGTH,AREA,WEIGHT,TEMPERATURE AND A" P"COM:5:"METRIC VOLUME"5:"BY MAX J. NAREFF"G"DATE: 7-79"w::"THIS PROGRAM DOES METRIC CONVERSIONS" "FOR VOLUME" 20:"PRESS ESC TO END" :"<>" (16384)2720000 756:(16384)3         MAY 18, 1980  :7 :::HELP::YOURSELF:::S X**********************Y bt l DONATED TO APPLE PI v BY ED HANLEY  JULY, 1980  **********************d DI$DI$T$(I) I& DI(DI$)< T$(N1)"C"1000R T$(N1)"F"2000n  CHECK FOR INPUT ERROR "DEGREES =";DI "C OR F?";:M$: M$""Ā M$"C"1000 M$"F"2000 : p BY ED HANLEY z AT REMINGTON, INDIANA"Ā A$"N"150" *"OK.":3  INPUT LOOP; N1E NN1P T$(N)\ T$(N);m T$(N)""Ā T$(N)"C"4500 T$(N)"F"4500: CONCATENATE 4010  CONCATENATE   NN1: CUT OFF'C' OR 'F' DI$"" I1N DO(1.8DI)32% DOROUND(DO)G DI;" DEG. C = ";DO;" DEG. F"M W 2050r  FARENHEIT TO CELSIUS DO(DI32)1.8 DOROUND(DO) DI;" DEG. F = ";DO;" DEG. C"  "ANOTHER CONVERSION? (ANY KEY OR 'N')"; A$: A$" :98:"WILLIE WORM'S MATH GAME BY HELEN TUFTSd9:"DECEMBER,1980";:29:"48K SYSTEM" 14:"IF YOU HAVE NEVER PLAYED THIS GAME BEFORE AND WOULD LIKE AN EXPLANATION, PLEASE TYPE NEW AND HIT THE RETURN KEY; OTHERWISE HIT THE RETURN      S=";R;" FLUID OUNCES" d#820J ':4:I;" MILLILITERS=";R;" PINTS(LIQ)"S '820 B':4:I;" MILLILITERS=";R;" QUARTS(LIQ)" L'820 N:" LITERS=";R;" PINTS(LIQ)"#b820J:4:I;" LITERS=";R;" PINTS(DRY)"S820{@:4:I;" LITERS=";R;" QUARTS(LIQ)"J820r:4:I;" LITERS=";R;" QUARTS(DRY)"|820(#:4:I;" LITERS=";R;" GALLONS(LIQ)"2#820 Z#:4:I;" MILLILITER8209:2:I;" CUBIC CENTIMETERS=";R;" QUARTS(LIQ)"B820u:2:I;" CUBIC CENTIMETERS=";R;" QUARTS(DRY)"~820p:4:I;" CUBIC CENTIMETERS=";R;" GALLONS"z820:2:I;" CUBIC CENTIMETERS=";R;" FLUID OUNCES"820X:4:I;IC METERS=";R;" CUBIC INCHES"& 820P :4:I;" CUBIC METERS=";R;" BUSHELS"Y 820 :4:I;" CUBIC METERS=";R" GALLONS(LIQ)" 820:2:I;" CUBIC CENTIMETERS=";R;" PINTS(LIQ)"820:2:I;" CUBIC CENTIMETERS=";R;" PINTS(DRY)" MILLILITERS"820B::4:I;" PINTS(LIQ)=";R;" MILLILITERS"KD820xl:4:I;" QUARTS(LIQ)=";R;" MILLILITERS"v820:4:I;" CUBIC METERS=";R;" CUBIC YARDS"820:4:I;" CUBIC METERS=";R;" CUBIC FEET"820:4:I;" CUBINTS(LIQ)=";R;" LITERS" 820G@:4:I;" PINTS(DRY)=";R;" LITERS"PJ820xr:4:I;" QUARTS(LIQ)=";R;" LITERS"|820:4:I;" QUARTS(DRY)=";R;" LITERS"820:4:I;" GALLONS=";R;" LITERS"820 :4:I;" FLUID OUNCES=";R;"820:F:2:I;" QUARTS(LIQ)=";R;" CUBIC CENTIMETERS"CP820vx:2:I;" QUARTS(DRY)=";R;" CUBIC CENTIMETERS"820:4:I;" GALLONS=";R;" CUBIC CENTIMETERS"820:I;" FLUID OUNCES=";R;"CUBIC CENTIMETERS"820:4:I;" PV820+j:*DATA AND LOOP SETUP..200-300*U~:4:I;" BUSHELS=";R;" CUBIC METERS"^820:4:I;" GALLONS=";R;" CUBIC METERS"820:2:I;" PINTS(LIQ)=";R;" CUBIC CENTIMETERS"820:2:I;" PINTS(DRY)=";R;" CUBIC CENTIMETERS"050,3000,3050,4000,4050,5000,5050,6000,6050,7000,7050,8000,8050,9000,9050,10000,10050,11000,11050:4:I;" CUBIC YARDS=";R;" CUBIC METERS"820:4:I;" CUBIC FEET=";R;" CUBIC METERS"$820L:4:I;" CUBIC INCHES=";R;" CUBIC METERS"E TO BE CONVERTED";MI'RI777Ā6WI888500c\:EQUATION FOR CONVERSION OF INPUT VALUEaRIC(N):C(N)OBTAINED FROM ARRAY LOOPafN1000,1050,1100,1150,1200,1250,1300,1350,1400,1450,1500,1550,1600,1650,1700,1750,1800,1850,1900,1950,2000,2DEX NUMBER".10:24:"PRESS RETURN";:A$:4 F%:PROGRAM ENDl*10:"TO END PROGRAM ENTER 777":/10:"FOR INDEX ENTER 888":4:4);"ENTER THE INDEX NUMBER OF THE DESIRED CONVERSION";9N>N777ĀCN888500H:10:"VALUTERS TO PINTS(DRY)"4"(33)LITERS TO QUARTS(LIQ)"U"(34)LITERS TO QUARTS(DRY)"w"(35)LITERS TO GALLONS(LIQ)""(36)MILLILITERS TO FLUID OUNCES""(37)MILLILITERS TO PINTS(LIQ)""(38)MILLILITERS TO QUARTS(LIQ)" 5:"SELECT THE INCUBIC CENTIMETERS TO PINTS(DRY)"L"(27)CUBIC CENTIMETERS TO QUARTS(LIQ)"x"(28)CUBIC CENTIMETERS TO QUARTS(LIQ)""(29)CUBIC CENTIMETERS TO GALLONS(LIQ)""(30)CUBIC CENTIMETERS TO FLUID OUNCES""(31)LITERS TO PINTS(LIQ)""(32)LI---------"1l"(20)CUBIC METERS TO CUBIC YARDS"Wq"(21)CUBIC METERS TO CUBIC FEET"v"(22)CUBIC METERS TO CUBIC INCHES"{"(23)CUBIC METERS TO BUSHELS""(24)CUBIC METERS TO GALLONS(LIQ)""(25)CUBIC CENTIMETERS TO PINTS(LIQ)" "(26)10:C,R10C10,R:H:C10,R10C20,R:C,R10C10,RAXGzX 40,30,40,50,60,70,80,70,60,50,40,30,50,50,50Y 10,20,30,40,50,60,70,60,50,40,40,30,50,50,50 Z 80,70,60,50,40,30,20,30,40,50,40,30,50,50,50 [ 40,40,40,40,40,40,40,40P1:910;,"":"":"THE GAME IS OVER. GOOD BYE ";P$:E(23)QX125X0}pC10,R10C20,R:C,R10C10,RuHzC10,R10C20,R10: : HPLOT C, R + 10 TO C + 10,R 0:C10,R10C20,R6ĺ"WILLIE SAYS THAT YOU WERE TERRIFIC!! ";P$:5000oT17ĺ"WILLIE SAYS YOU DID A VERY GOOD JOB.....";P$T17ĺ"WILLIE WANTS YOU TO PRACTICE SOME MORE, ";P$"WOULD YOU LIKE TO PLAY AGAIN?(YES OR NO) ";N$ "N$"YES"C20:OK0:NO0:T0:P30,R509.C20,R60C10,R60C,R50C,R40C10,R30D8CC20MW530h`C10,R10C20,R:530jC,R10C10,R:530t2:C9,R33C1,R33y3~C10,R25:C9,R26:C8,R27:C1,R25:C,R26:C1,R27:1500TNOOK6T15T1:TO(23)520.M0::: GRAPHICS5R\Z16336:I15:SOUND(Z)(Z):IlOK111065|OK131120OK141130OK151140OK151150$C10,R30C20,R30C30,R40C30,R50&1070)C10,R30C20,R30:CȺ"WOULD YOU LIKE TO KEEP PRACTICING WITH THE SAME KIND OF QUESTIONS? YES OR NO":N$:N$"NO"ĺ::240}N(N$):N11580N$"YES"ĺ"ANSWER YES OR NO!":920:SET GRAPHICS MODE:H((1)5)1H4950HC20:OK0:NO0":NONO1:MM1:M256352"WRONG, TRY AGAIN":535X3" HERE IS THE CORRECT ANSWER"w4W1ĺX"+"Y"="XY:M0:5355W2ĺX" TIMES "Y"="XY:M0:5356W3XYĺX"-"Y"="XY:M0:5357W3XYĺY"-"X"="YX:M0:535::P11Į:P0f14:5430W3XYĺ"WHAT IS "Y" MINUS "X"?":543WW3XYĺ"WHAT IS "X" MINUS "Y"?"gI$:I(I$)v!I11580&W1IXYOKOK1:1000'W2IXYOKOK1:1000(W3XYIXYOKOK1:1000)W3XYIYXOKOK1:10000"":"OQ$:Q(Q$)RQ115806TQ2Q150ĺ"":330aYP0ĺ:"TYPE IN YOUR FIRST NAME ";P$j^935:SET UP NUMBERSW2S0XS:532X((1)Q)1Y((1)Q)1W1ĺ"WHAT IS "X"+"Y"?":543W2ĺ"WHAT IS "X" TIMES "Y"?":@:W1ĺ"CHOOSE THE LARGEST NUMBER YOU WOULD LIKE FOR AN ADDEND."B:W2ĺ"CHOOSE THE HIGHEST NUMBER YOU WOULD LIKE FOR THE MULTIPLICAND."CW3ĺ"CHOOSE THE HIGHEST NUMBER YOU WOULD LIKE TO WORK WITH."J"TYPE IN A NUMBER BETWEEN 2 AND 150"HE MULTIPLICATION TABLES? YES OR NO"AN$:N(N$):N11580WN$"NO"S0:310p N$"YES"ĺ"":285":"WHAT NUMBER DO YOU WISH TO USE FOR THE MULTIPLIER? TYPE A NUMBER 2 TO 20.":S$:S(S$)'S11580(S2S20ĺ"":2906D# :"WOULD YOU LIKE TO PRACTICE"9 10)"1 ADDITION"U 10)"2 MULTIPLICATION"n 10)"3 SUBTRACTION"t  "CHOOSE 1,2 OR 3" W$:W(W$) W11580 W1W3ĺ"":270 W2310&:W2ĺ"WOULD YOU LIKE TO PRACTICE ONE OF T:"TO BEGIN THE GAME PLEASE TYPE CONT AND HIT THE RETURN KEY."E _q ::5)"***WILLIE WORM'S MATH GAME***" :"TO PLAY THE GAME, TYPE IN YOUR ANSWERS AND HIT THE RETURN KEY." "IF YOU WISH TO STOP THE GAME TYPE IN -1 FOR ANY ANSWER."ENT OR THE CHILD." U"WILLIE WILL BE DRAWN DIFFERENTLY EACH TIME. HIS COLOR IS SELECTED RANDOMLY FROM 1 OF 6 COLORS AND HIS POSITION ON THE SCREEN WILL BE ONE OF 11 DIFFERENT ONES. HE HAS A SPECIAL REWARD FOR AN EXCEPTIONAL PERFORMANCE."? ZOWS A CHILD TO PRACTICE NUMBER FACTS WHILE DRAWING A SEGMENT OF WILLIE WITH EACH RIGHT ANSWER.IT TAKES 15 RIGHT ANSWERS TO DRAW WILLIE COMPLETELY." P" THE DEGREE OF DIFFICULTY AND THE TYPE OF MATH PROBLEM MAY BE SELECTED BY A TEACHER, PARKEY TO BEGIN THE GAME. "/ A$:A$"NEW"658 200N A:"INTRODUCTION" F"IT IS MY BELIEF THAT LEARNING BY ROTE CAN BE FUN. THIS IS MY FIRST ATTEMPT TO USE GRAPHICS AND TO WRITE A PROGRAM FOR A LEARNING GAME." K"WILLIE WORM'S MATH GAME ALL0,30,40,50,40,30,50,50,50 Qa 60,70,60,50,40,50,60,70,60,50,40,30,50,50,50 b 40,30,40,50,60,70,80,70,60,50,40,30,50,50,50 ,40,40,40,30,50,50,50H\-20,-10,0,10,20,30,40,50,60,50,40,30,50,50,50{] 20,20,30,30,40,40,50,50,60,70,70,60,80,80,80^ 70,60,50,40,40,40,40,40,40,40,40,30,50,50,50 _ 40,40,40,40,40,40,40,40,40,40,40,30,50,50,50 ` 20,10,0,-10,0,10,25, 28, 7, 2, 4, 28, 8, 2, 4, 28, 8N  2, 4, 29, 7, 2, 5, 30, 5, 2, 6, 31, 3}  2, 7, 29, 4, 2, 9, 25, 6, 2, 12, 19, 9  3, 15, 5, 3, 5, 12Z $:6 )" AMERICAN SOFTWARE PUBLISHING COMPANY"< .  3, 14, 1, 12, 1, 12, 3, 16, 1, 8, 3, 12, 3, 18, 1, 5, 4, 12  3, 19, 1, 3, 4, 13, 5, 14, 2, 4, 1, 2, 3, 3, 2, 9  5, 10, 9, 2, 1, 1, 1, 2, 9, 5, 2, 8, 29, 3"  2, 6, 29, 5, 2,  255 ,(1155)Č1184*1000;XP12500:PC:W (4);"CATALOG"]s34,19:35,19::Z034215A039:A,Z:L10:L0:L20:0LOPS:A1LOPSL1L1LL2:LALOPSćL2 BL1L1L1:B,Z:  6:I;" SQ.METES=";R;" SQ.MILES"(P480Ox:6:I;" HECTARES=";R;" SQ.MILES"X480:6:I;" SQ.KILOMETERS=";R;" SQ.MILES"4805:"METRICS AREA":"BY MAX NAREFF""DATE: 7-79"::"THIS PROGRAM DOES CONVERSIONS TO"6:I;" SQ.CENTIMETERS=";R;" SQ.INCHES"0V480X~:6:I;" SQ.METERS=";R;" SQ.FEET 2a480:6:I;" SQ.KILOMETERS=";R;" SQ.FEET"480:6:I;" SQ.METERS=";R;" SQ.YARDS"480:6:I;" SQ.KILOMETERS=";R;" ACRES"480F:;" SQ.FEET=";R;" SQ.KILOMETERS"(\480L:6:I;" SQ.FEET=";R;" METERS"U480:6:I;" SQ.INCHES=";R;" SQ.CENTIMETERS"480:6:I;" SQ.INCHES=";R;" SQ.MILLIMETERS"480:6:I;" SQ.MILLIMETES=";R;" SQ.INCHES"$480'L::6:I;" SQ.MILES=";R;" SQ.KILOMETERS"/b480V:6:I;" SQ.MILES=";R;" HECTARES"_480:6:I;" SQ.MILES=";R;" SQ.METERS"480:6:I;" ACRES=";R;" SQ.KILOMETERS"480 :6:I;" SQ.YARDS=";R;" SQ.METEERS"*480R:6:ID"; II777Ā&I888300E:EQUATION FOR COMPUTATIONpRIC(N):C(N) OBTAINED FROM DATA LOOP :DIRECT PROGRAM TO PROPER UNIT FOR PRINTOUTN600,650,700,750,800,850,900,950,1000,1050,1100,1150,1200,1250,1300,1350,1400,1450&XMETERS-SQ.MILES"D24:5:"NOTE INDEX NUMBER.PRESS RETURN";:A$:g6:"TO END PROGRAM ENTER 777":4:"FOR INDEX ACCESS ENTER 888":3:"ENTER UNIT IDENTIFICATION NUMBER";NN777ĀN888300:10:"VALUE TO BE CONVERTE8:"(11)SQ.CENTIMETERS-SQ.INCHES"Cm8:"(12)SQ.METERS-SQ.FEET"gr8:"(13)SQ.KILOMETERS-SQ.FEET"w8:"(14)SQ.METERS-SQ.YARDS"|8:"(15)SQ.KILOMETERS-ACRES"8:"(16)SQ.METERS-SQ.MILES"8:"(17)HECTARES-SQ.MILES"8:"(18)SQ.KILOETERS")J8:"(6)SQ.FEET-SQ.KILOMETERS"HO8:"(7)SQ.FEET-SQ.METERS"nT8:"(8)SQ.INCHES-SQ.CENTIMETERS"Y8:"(9)SQ.INCHES-SQ.MILLIMETERS"^10:"AREA-(METRIC TO U.S.)"_10:"--------------------"c8:"(10)SQ.MILLIMETERS-SQ.INCHES"#hC(N): READS DATA TABLE"B,10:"AREA-(U.S.TO METRIC)"b-10:"--------------------"18:"(1)SQ.MILES-SQ.KILOMETERS"68:"(2)SQ.MILES-HECTARES";8:"(3)SQ.MILES-SQ.METERS"@8:"(4)ACRES-SQ.KILOMETERS"E8:"(5)SQ.YARDS-SQ.MSS RETURN FOR INDEX";:A$:> C(18):FOR CONVERSION FACTORS[ :DATA TABLE FOR FACTORS 2.59,259,2.6E+6,.0041,.836,9.0E-8 .093,6.45,645.2,.0016,.155,10.76,1.08E+7 1.196,247.1,3.86E-7,.0039,.386 :INDEX LOOP FOR DATA READ N118 ENTER"4 "ON REQUEST.YOU WILL THEN BE ASKED FOR"c "THE VALUE TO BE CONVERTED.TO STOP ENTER" "777,AND FOR ACCESS TO THE INDEX ENTER" "888 AT ANY INPUT LEVEL.THE VALUE REQUEST" "IS REPEATED UNLESS DIRECTED OTHERWISE." 24:10:"PREH,WEIGHT"5 "VOLUME,TEMPERATURE AND A COMPILATION"] "OF MEASUREMENTS FOR KITCHEN USE." :::8:"HOW THE PROGRAM OPERATES" 8:"------------------------" 2:"ON THE NEXT PAGE IS A LIST OF MEASURE-" "MENTS.NOTE THE INDEX NUMBER AND,SANFRANCISCO,CA.1979! A:15009 d14:"INTRODUCTION"Q i14:"------------" n2:"THIS IS ONE OF A SERIES OF PROGRAMS FOR" s"THE CONVERSION OF MEASUREMENTS TO AND" x"FROM THE METRIC SYSTEM.OTHERS IN THE" }"SERIES INVOLVE UNITS OF LENGTOF THE PROGRAMMING TECHNIQUES USED HAS BEEN ADAPTED AND MODIFIED -:FROM A PROGRAM IN "SOME COMMON BASIC PROGRAMS",BY POOLE & BORCHERS,2ED.1978 2:PERMISSION FOR USE BY PUBLISHER 7:ADADM OSBORNE ASSOC.INC.BERKLEY,CA <:PREPARED BY MAX J.NAREFF:***********************=:***TABLE OF CONTENTS***\ :***INTRODUCTION.100-190*:***DATA ENTRY & LOOP.190-230*:***INDEX OF UNITS.300-400*:***COMPUTATION SETUP.415-530*:***ANSWERS*#:***********************@ (:ONE       ST.": HPL A$,B$:/ L33.5HPL.1= GL3.785G P100Y L(LP.5)Pk G(GP.5)Pt L,G{ L ANVERSION"1 n" --------------------":I xA$"PRICE/LITRE ="_ B$"PRICE/GALLON" "THE HIGH RANGE OF THE PRICE/GALLON WILL DEPEND UPON WHAT VALUE YOU ASSIGN PRICE PER LITRE." :"WHAT IS THE: HIGH-PRICE-PER-LITRE THAT YOU WISH TO LI} ::128 " * THIS IS TO CONVERT THE PRICE"c" * PER GALLON OF GAS FROM LITRE"" * PRICE RANGE STARTING AT 33.5"(" * CENTS/LITRE - AND ENDING AT"2" * A HIGH RANGE AS SELECTED." d:" GAS PRICE CO   $$''L>>,,$%%?? -->>?$$$--??-M;?$$$--??-- $,,-?-6?'$$$L6>?/-56-$$$?--?(.%%$$$$$LJ=>>>555$$$666--$$$...,,&4666$$$65555$$$ $,,556>>'$$$-55>>? $,,556>6=<'$$$--6>?555 ..%%'?<,,55 $$$?-- $$66..%%$$ <$'$L6>6 $$666%%..$$$,,$''L>>/655@%M]er},:FN\es )%%$<<776.&/,,,)=$$$>>--??,,,,<<77-%%'?%%%??I!>'-,,$<<775- %7$$$--6>?/-56$$$-55>?/-5>>? $,,-?'$$$-556   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           2A$(2)d::<n"TEMPERATURE CONVERSION PROGRAM"`x:"ENTER SCALE OF TEMPERATURE"x"BEING CONVERTED.":"(1) FAHRENHEIT SCALE""(2) CENTEGRADE SCALE""(3) KELVIN SCALE":"SCALE= ";SS1000,2000,3000  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          Ǡ)ca() a(©)R@`@9()%q`@9()%_`@9()%_M6a(Ҡ )_M6a(Π)ca(٠)c/a(ӠԠԠԠĠϠ)c a() a(©)R@`)*Ba(©ŠҠ̠)!La(éҠҠӠ)VR@``@9()%qj`@9()%qt`@9()%_8~`@9()$`@9()%_a(ŠҠ Š)_.M6a(Π)c)a(ŠՠҠĠ̠Ҩa(Π)c!a(ϠՠΠ)ca() a(©)R@`@9()%q`@9()%_$`@9()%_$$M6a(ŠҠ )_$M6a(Π)!.ca(̠)c8a(Ġ)%_p`@9()%_pfa(ŠҠ )_*pM6a(Π)cBza(ŠՠĠǠԠҠԠΠŠԠ)ca() a(©)R@`@9()%q`@9()%_`@9()$a(ŠҠ)_pM6Ү)R@`@9()%q`@9()%q `@9()$ `@9()$ a(ŠҠ )_ M6a(Π)c!*a(ՠŠ٠)#4a(©ՠŠ٠)>R@H`@9()%qR`@9()%q\`@9(Ƞ)cca() a(©)R@`@9()%q`@9()$`@9()%_&M6a(ŠҠ )c_vM6a(Π)c7a(ՠŠŬŬ٠Į)c1a(©ՠŠǬĬ:`@9()%qD`@9()%qN`@9()%qX`@9()%qDb`@9()%_v`@9()%_v`@9()%_v`@9()%_v`@9()%_v,lM6a(Š¬ìĠҠŠ)c_vM6a(Π)c3a(ϠՠРŠΠӠĿ)ca()4a(©ϬɧŠĠŠҠŠԠ)4a(éϬɧŠĠŠҠŠԠ)4a(ĩϬɧŠĠŠҠŠԠ)4a(ũϬɧŠĠŠҠŠԠ)&R@0`@9()%q)cka(ϠՠŠ٠ӬǬǬîˠҠԠԠƭҬ)ca() a(©)R@`@9()%q`@9()$`@9()$M6a(Π)c-a(ϠՠŠȠŠҠˠĠ):@a(©ҠˠӠҬ٠̠) Ja(éҠҠ)TR@^`@9()%qh`@9()%qr`@9()$|`@9()$`@9()$(M6a(Š Ҡà)c_,M6a(Π)7a(©ՠŠΠΠҠҠΠ)a(éŠƠŠ)R@`@9()%q`@9()%q`@9()$,`@9()$,`@9()$,("M6a(Š Ҡà)c_,M6a(Π)c 6a(ՠ)cxa(ҠؠӮ)ca()a(©)R@`@9()%q`@9()%q`@9()$`@9()$!a(ŠҠ Ů)_xM6a(Π)cEa(ՠŠΠΠΠȠΠҠŠ٠٠ĠΠĠӠƠŮ)P4a(Ӡ͠Ӡŭŭ٧ӭŠנƠŠŮ)7UVW@8Y _N@" r d^qHNnM6a(ŠŠҠԠԠ٠ӠՠΠԠӠ͠ ]ŠǠѤӠĠ ]ŠȠҠ ]Į ]]]îȮӠ]%]ҠŠ٠ǠӠ]]] -M6+2cccca(Š٠)P3cca(ƠՍ%]Ӡ͠Ӡՠ]٠ĠΠŠ#]ŠӠĠΠŠ]$]Š̠ӠĠŠ]ǠԠŠŠ$]ӠĠΠŠ]