' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#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 < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`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- (   Ϡ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠z# u*`.";:10.(16384)160(16384)141280@"16368,0:50v6:12:"DO YOU WISH TO USE ANOTHER DISKETTE?";IN$@(IN$,1)"Y"ė:J:12:3:"PLEASE INSERT YOUR OTHER DISKETTE.":24:6:"PRESS 'SPACE BAR' TO GO ON.";:1:1T(16384)127MBER":"OF CALORIES AS A GLASS":"OF 2% MILK.":"(ABOUT 120 CALORIES)" '50290:(12)::"^WHICH CHOICE DO YOU THINK";:"GIVES YOU MORE NUTRIENTS":"FOR YOUR CALORIES ?" ' '" 1) DOUGHNUT":" 2) 2% MILK"::"^ENTER 1 OR 2. "! '10:17:BS$;U EAT SOMETHING,":"YOU WANT TO GET YOUR":"CALORIES' WORTH."H `'50290 t'"^OR IN OTHER WORDS....."::"YOU WANT TO GET THE":"^M^O^S^T NUTRIENTS FOR THE":"CALORIES YOU TAKE IN." ~'50290 '(12)F ':"^A DOUGHNUT GIVES YOU":"ABOUT THE SAME NUq:16302,0:D$(13)(4)A8192:D$;"BRUN MASTER-LG-32"(UC1:KE16384:PR128:CL16368:WI0:LI3:BS$(8):CU$(95)'(12)':"^WHEN YOU BUY SOMETHING,":"YOU WANT TO GET YOUR":"MONEY'S WORTH.".'502908'(12)= B':"^WHEN YO     TING,.022()LAUNDRY (APPLIANCES),.038L*LAUNDRY (HANGING CLOTHES),.058d*LYING AT EASE,.017z*MAKING BEDS,.059&*MARCHING RAPIDLY,.1420*MECHANIC,.059:*MOWING LAWN (HANDMOWER),.1D*MOWING LAWN (RIDING MOWER),.035N*MOWING LAWN ()HOUSEWORK,.0316)HUNTING (PISTOL SHOOTING),.035X)HUNTING (HUNTING DUCKS),.042)HUNTING (HUNTING SMALL GAME),.071)ICE HOCKEY,.128)ICE SKATING (9 MPH),.092)IRONING ,.048)JOGGING (5 MPH),.1)JUDO OR KARATE,.195 )KNIT.A"R3:660%XNUT$"V.C"R4:660>bNUT$"THI"R5:660WlNUT$"RIB"R6:660pvNUT$"NIA"R7:660NUT$"CAL"R8:660NUT$"IRON"R9460:A$"^DO YOU GET "NUT$" FROM ":R9700,700,710,720,730,740,750,760,77N":#NUT$"^V^I^T^A^M^I^N ^A":BNUT$"^V^I^T^A^M^I^N ^C":^NUT$"^T^H^I^A^M^I^N":NUT$"^R^I^B^O^F^L^A^V^I^N":NUT$"^N^I^A^C^I^N":NUT$"^C^A^L^C^I^U^M":&NUT$"^I^R^O^N":0:R1DNUT$"PRO"R2:660 NNUT$"VT. "%260:80:R29:C(R)0Ă:::3:"^ARE ANY OTHER NUTRIENTS LOW?(^Y OR ^N)";:1000:ANSW$BB$::(ANSW$,1)"N"İ320:(ANSW$,1)"Y"430A$"ANOTHER ":380:R560,480,490,500,510,520,530,540,550NUT$"^P^R^O^T^E^I^6:"^USE THE NAMES UNDER THE GRAPH."::20:1000:NUT$BB$:570:R1390A(R)MAXĺ:5:"^YES, YOU NEED MORE "NUT$"."::12:"^YOU ONLY HAVE "A(R)"%."::C(R)1:420"^ACTUALLY, YOU DID OKAY IN THAT NUTRIENT.":4:"^HERE'S SOME INFORMATION ABOUT I^NAME "A$"NUTRIENT THAT IS LOW."::20:1000:NUT$BB$::570:R1400iNUT$"C"NUT$"CALORIE"390:4:"^CALORIES ARE A MEASURE OF ENERGY, NOT":"A NUTRIENT. PLEASE NAME A NUTRIENT.":260:R0:380H:4:"^NAME "A$"NUTRIENT THAT IS LOW."::OF"::9:"SPENDING YOUR CALORIES!!!"BELL$BELL$BELL$:M@R29:C(R)1360J460::R2(R2)Ė6:"^LET'S TAKE A LOOK AT "NUT$"."::350T12:"^WHAT ABOUT "NUT$"?":^12:"^YOU HAVE ONLY "A(R)"%."::260:80h:rA$"ONE "F|:4:"AISINS,"::7:"RED MEAT, AND DRIED BEANS.";260:680:k24:7:"^PRESS SPACE BAR TO CONTINUE";:2216368,0:Q$:(Q$)322611500:D8İ310:320:"D8İ310:,370:66::16302,0:7:"YOU HAVE DONE A GREAT JOB YOU NEED "NUT$".":260|9:"^SOME FOODS THAT CONTAIN":8:NUT$" ARE: MILK, CHEESE,":9:"YOGURT, AND LEAFY GREENS.":250R9:460::17:"* "NUT$" *"::10:NUT$" HELPS CARRY OXYGEN":11:"THROUGHOUT YOUR BODY.":260+7:"^YOU GET "NUT$" FROM R J)GOLF (CARRYING CLUBS),.085GT)HANDWASHING (SMALL ARTICLES),.032l^)HANDWASHING (BIG ARTICLES),.071h)HANDWORK,.022r)HIKING (20LB PACK OR 3.5 MPH),.09|)HORSERIDING (WALK),.041)HORSERIDING (TROT),.11)HORSERIDING (GALLOP),.137,20,25,29,19,33,15M"SOUP, CHICKEN NOODLE",1 CUP,59,5,.9,0,1.3,1.2,4,.9,3"SOUP, CREAM OF TOMATO",1 CUP,173,10,24,25,7,15,7,17,4 SPAGHETTI & MEAT BALLS,1 CUP,332,29,32,37,17,18,20,12,21 TACO,1 TACO,216,38,7,7,7,11,15,17,14.  " & VEGETABLE STEW,1 CUP,209,23,46,27,9,9,23,3,16e~ CHILI WITH BEANS,1 CUP,333,29,3,0,5,11,17,8,24 "CUSTARD, BAKED",1/2 CUP,152,16,9,0,3,15,.5,15,3 MACARONI AND CHEESE,1/2 CUP,215,13,9,0,7,12,5,18,5"PIZZA, CHEESE",1/4 14"PIE,354,28,19B TOMATO,1/2 MEDIUM,22,1.7,18,38,4,2,4,1.3,3aL TOMATO JUICE,1/2 CUP,26,1.7,19,32,4,2,5,.9,6V TOSSED SALAD,3/4 CUP,13,1.1,28,43,2,2,1.5,3,3` WATERMELON,1 CUP,52,1.5,24,23,4,4,2,1.4,6j BAKED BEANS,1/2 CUP,156,12,3,5,7,2,4,7,130t BEEFS, STEWED",4 MEDIUM,108,1.1,9,1.7,1.3,2,2,1.9,5a RAISINS,4 1/2 TBSP,123,1.7,.2,0,3,1.8,1,3,8$"SQUASH, SUMMER",1/2 CUP,16,1.7,9,20,3,5,4,3,2."SQUASH, WINTER",1/2 CUP,56,3,29,22,3,8,4,4,68 STRAWBERRIES,1/2 CUP,28,.8,.9,73,1.3,3,2,1.6,4.47,9,4,12,1.3,6D"POTATOES, BOILED",2 SMALL,79,4,0,33,7,2,8,.7,3 "POTATOES, FRENCH FRIES",20 PIECES,233,6,0,30,7,4,13,1.3,6 "POTATOES, MASHED",1/2 CUP,63,3,.4,17,5,3,5,2,2"POTATO, SWEET",1/2 MEDIUM,78,1.9,89,20,3,2,2,2,3/"PRUNE,5,93,7,.6,2,1.1,.6C PEACHES,1/2 CUP,100,.8,11,6,.9,1.5,4,.5,2q PEAR,1 MEDIUM,101,1.9,.7,12,2,4,1,1.3,3"PEAS, GREEN",1/2 CUP,54,6,10,17,15,4,7,1.5,8 PINEAPPLE,1 SLICE,90,.6,1.2,15,7,1.2,1,1.3,2 "POTATO, BAKED",1 LARGE,132,6,0,z LETTUCE,1/6 HEAD,10,1.1,5,8,3,3,1,1.5,2^ LETTUCE LEAVES,2 LARGE,9,1.1,19,15,2,2,1,3,4 OKRA,4 PODS,12,1.4,4,15,4,5,2,4,1.1 ONIONS,1/2 CUP,30,2,0,12,2,1.8,1,3,2 ORANGE,1 MEDIUM,65,2,5,110,9,3,3,5,3 ORANGE JUICE,1/2 CUP,56,1.4ORN,5" EAR,114,6,10,18,10,8,9,.4,4QR FRUIT SALAD,1/2 CUP,99,2,11,73,7,5,4,5,5\ GRAPEFRUIT,1/2 MEDIUM,48,.9,1.9,75,3,1.2,1,1.9,3f GRAPES,1/2 CUP,48,.6,1.4,5,3,1.2,1,.9,1.7p GREENS (MUSTARD-SPINACH-TURNIP),1/2 CUP,17,3,106,60,5,8,2,10,8+ROTS,1/2 CUP,22,1.1,152,7,3,2,2,2,2]  CARROT STICKS,5" CARROT,21,.9,110,7,2,1.8,1.5,1.9,2* CAULIFLOWER,1/2 CUP,13,2,.7,55,3,3,2,1.3,24 CELERY STICKS,8" STALK,10,.8,3,8,1.3,1.2,1,2,1.1> COLESLAW,1/2 CUP,82,1.1,1.8,27,2,1.8,1,3,1.1"H C PROVIDED BY THE FOODS EATEN." :"CALORIES":" COMPARES THE CALORIES CONSUMED":" FROM A ONE-DAY DIET ENTERED BY THE":" STUDENT WITH THE CALORIES USED BY":" THE STUDENT'S ACTIVITIES THAT DAY."16368,0:24:5:"PRESS 'SPACE BAR' TO CONTINUEO NUTRITION":" THROUGH A SHORT, COLORFUL,":" ANIMATED SEQUENCE." :"NUTRIENTS":" ANALYZES A ONE-DAY DIET ENTERED BY":" THE STUDENT BY CALCULATING THE":" PERCENTAGES OF RDA FOR EACH OF" " EIGHT NUTRIENTS AND THE NUMBER OF ":" CALORIES (IN$)225,230,240B 12:14:"CALORIE BANK":D$"RUN BI"l 12:15:"NUTRIENTS":5,0:D$"RUN FL" 12:16:"CALORIES":5,2:D$"RUN FL" :2:10:"ELEMENTARY VOLUME 13":13:"DESCRIPTIONS"::D "CALORIE BANK":" INTRODUCES STUDENTS T13:"3. CALORIES"::13:"4. END"U P18:"TYPE THE NUMBER OF THE PROGRAM YOU WANT" Z20:"(IF YOU WANT DESCRIPTIONS";:16303,0 d", TYPE 'D') ";:958:"";IN$ nIN$"D"250 ((IN$))IN$50 (IN$)1(IN$)490 (IN$)4310 ET ELEMENTARY PROGRAMS":" NET PROJECT - ROCHESTER PUBLIC SCHOOLS":16301,0o -(16384)128JJ1:J30045 21023,123::10:"ELEMENTARY VOLUME 13":11:"AVAILABLE PROGRAMS"::: 422016" 7958:13:"1. CALORIE BANK"::13:"2. NUTRIENTS"::? 795,0:D$(13)(4):D$"PR#0"::::255:(1023)12350w:16302,0:::D$"BLOAD LOGO":16304,0:16368,0(16384)128JJ1:J30030L (J0::D$"BLOAD NETLOGO":16304,0:16368,0::22:5:"NUTRITION EDUCATION AND TRAINING":10:"N     Ԫժժժժ` ժժժժժ` (U*U*`ժժժT` ՊժժժժՊ *U ժժժժՀժժժժժ` `ժժժժժ` Ԫժժժժ` ժժժժժ` (U*U*~yժժժ@*T` ժЂyxA?ooo}={{^o^k|sg~np{p{~`{{aq{wxO8oJV[_{]n]vDANT,.059'(GARDENING (PLANTING),.07D)GARDENING (RAKING),.054b)GARDENING (HEDGING),.077)GARDENING (HOEING),.064")GARDENING (MOWING),.112,)GARDENING (HEAVY DIGGING),.1266)GOLF (RIDING POWER CART),.05@)GOLF (PULLING CART),.07136 (EATING,.023* (FIELD HOCKEY,.134G (FISHING (FROM BANK),.05e (FISHING (FROM BOAT),.032} (FISHING (ICE),.041 (FISHING (IN CURRENT),.092 (FISHING (FLYFISHING),.064 (FOOTBALL,.132 (FOOTBALL (TOUCH),.128 (GAS STATION ATTENG MEALS,.04 <(CROQUET,.059: F(DANCING (BALLROOM),.051] P(DANCING (TWIST & WIGGLE),.103z Z(DANCING (FOX TROT),.078 d(DANCING (SQUARE & POLKA),.1 n(DIGGING (LIGHT EARTH),.086 x(DISHWASHING,.018 (DRIVING (MOTORCYCLE),.032 (DUSTING,.0OEING OR ROWING (RACING),.1031 'CARPENTRY,.052F 'CHILD CARE,.047d 'CLASSWORK (SITTING),.021w 'CLERKING,.032 (CARPET SWEEPING,.046 (MOPPING FLOORS,.06 (SCRUBBING FLOORS,.108 (CLEANING ROOM,.06 ((CLIMBING HILLS,.121 2(COOKIN0,3,10,38,0,8F$"TURKEY, ROAST DARK", 3 OZ,175,585,0,0,2,12,18,0,11$"TURKEY, ROAST LIGHT", 3 OZ, 120,47,2,0,3,10,38,0,8$ MUSTARD, 1 TSP, 5,0,0,0,0,0,0,0,0$ CATSUP, 1 TBSP,15,0,4,3,0,0,1,0,0 %"CHOW MEIN, CHICKEN", 1 CUP, 255,69,6,17,5 CUP,161,10,3,0,2,12,.5,13,2R#n"ROLL, DANISH PASTRY",1 ROLL,274,7,4,0,3,6,3,3,3#x "SHERBET, ORANGE",1/2 CUP,129,2,1.2,3,.7,1.8,0,1.5,0# SOFT DRINK,8 OZ,96,0,0,0,0,0,0,0,0# SUGAR,1 TSP,14,0,0,0,0,0,0,0,0 $"CHICKEN, ROAST",3 OZ,120,47,2,BSP,49,0,0,1.7,0,.6,0,.4,1.7M"< MAYONNAISE,1 TBSP,101,.4,.8,0,0,.6,0,.3,.6"F "PIE, APPLE",1 SLICE,403,5,.9,3,10,8,9,1.3,6"P POPCORN,1 CUP,23,1.2,0,0,0,.6,.5,.1,1.1"Z POTATO CHIPS,10 CHIPS,114,1.7,0,5,3,.6,5,.8,2#d"PUDDING, CHOCOLATE",1/2FFEE, BLACK",3/4 CUP,2 ,0,0,0,0,0,3,.3,1.1c! "COOKIE, SUGAR",3" COOKIE,89,1.9,.4,0,3,2,2,1.6,1.7! DOUGHNUT,1 DOUGHNUT,125,2,.5,0,5,4,3,1.3,2!"DRESSING, FRENCH",1 TBSP,66,.2,0,0,0,0,0,.2,.6!( JELLO,1/2 CUP,71,3,0,0,0,0,0,0,0"2 JELLY,1 TCHOCOLATE BAR",1 OZ,147,3,1.5,0,1.3,6,.5,7,1.7U  BUTTER,1 TSP,36,0,3,0,0,0,0,.1,0 "CAKE, DEVILS FOOD",1 PIECE,234,5,2,0,1.3,4,1,4,3 "CAKE, SPONGE",MED. PIECE,196,8,6,0,2,5,.5,2,4  CHOCOLATE SYRUP,2 TBSP,93,1.4,0,0,.7,1.8,.8,.6,3*!"COt'BICYCLING (6 MPH),.0645 ~'BICYCLING (8 MPH),.078R 'BICYCLING (10 MPH),.093o 'BICYCLING (11 MPH),.107 'BICYCLING (12 MPH),.128 'BICYCLING (13 MPH),.15 'BOWLING,.059 'CALISTHENICS,.07 'CANOEING OR ROWING (LEISURE),.044 'CAN4)"BLOAD CHAIN,A520"" F520"EIP"0 P -EXLIST: ' 144L $'ARCHERY,.065j .'BADMINTON (DOUBLES),.064 8'BADMINTON (SINGLES),.078 B'BAKING,.035 L'BASEBALL,.083 V'BASKETBALL,.138 `'BASKETBALL (NON-GAME),.085 j'BICYCLING (5 MPH),.057 & EXL - LOAD EXERCISE LIST2 63990KF$:F$"-EXLIST"40S20r(FLL%:NF$(FLL%),CAL(FLL%),:12:12:"ONE MOMENT PLEASE"-:23:"READING EXERCISE NUMBER ";2F1FLL%:NF$(F),CAL(F)723:30:F;; <10:(13)(       ժժժժՊ Uժժժժ8ժժժժժ` ժժժժժ` ԪժժժՊ` ժժժժժ` (U*E*Ъժժժ@8P*U ` ժՊժժժժՊ Pժժժժpժժժժժ` ժժժժժ` ЪժժժՊ` ժժժժժ` (U*E*Ъժժժ`pU*U ` ժժժ@;ժժժժՊ| ժժժժ`ժժժժժ` ժժժժժ` ժU*ժՊ` ժժժժժ`           ox?>pp}xOo?}WZ<__;_;?X_{{@ww~_>?wvyx?o`}?_"NUT$" *"::5:"^YOU NEED "NUT$" BECAUSE IT HELPS":7:"THE NERVOUS SYSTEM AND SKIN.":2604:"^MOST CEREALS AND BREADS, PEANUTS,"::6:"AND MEATS HAVE "NUT$" IN THEM."::250R8:460:16:"* "NUT$" *"::11:"^FOR STRONG BONES AND":9:"TEETH REALS,"::10:"BREAD, PORK, AND NUTS."::250 R6:460::14:"* "NUT$" *"::7:NUT$" HELPS KEEP YOUR":9:"EYES AND SKIN HEALTHY.":260 5:"^FOODS THAT ARE RICH IN IT ARE:"::5:"MILK, CHEESE, YOGURT, AND MEATS."::250[R7:460::16:"* $" IS IN: TOMATOES, BROCCOLI":5:"POTATOES, AND FRUITS, ESPECIALLY":2:"ORANGES, GRAPEFRUIT, AND STRAWBERRIES.":250 R5:460::16:"* "NUT$" *"::7:NUT$" IS NEEDED BECAUSE IT":9:"HELPS THE NERVOUS SYSTEM.":260. 4:NUT$" IS FOUND IN MOST CE260 4:"^FOODS WITH "NUT$" IN THEM ARE:"::4:"LIVER, FORTIFIED MILK, ORANGE AND":4:"DARK GREEN VEGETABLES AND BUTTER.":250 R4:460::15:"* "NUT$" *"::4:NUT$" IS NECESSARY FOR HEALTHY":6:"TEETH, GUMS, SKIN, AND NAILS.":260v 3:NUTT$" IS USED FOR BUILDING":9:"AND REPAIRING YOUR BODY.":260 n6:"^MEAT, FISH, CHEESE, EGGS, AND"::7:"MILK GIVE YOUR BODY "NUT$"."::250 xR3:460::15:"* "NUT$" *"::4:NUT$" HELPS PREVENT INFECTION":5:"AND KEEPS SKIN AND EYES HEALTHY.":9:"SPENDING YOUR ^C^A^L^O^R^I^E^S? ";:1000:ANS$BB$S 2(ANS$,1)"Y"İ270:810p <(ANS$,1)"N"İ290:810z A:40 FC(9):D0:R29:C(R)A(R)MAX:DDC(R):: PR250,100,120,140,160,180,200,210,230= dR2:460::14:"* "NUT$" *"::7:NU 63900 EPCR19:A(R)256(7982R)(7992R):Y(795)37İ10000kD$(13)(4)MAX75:BELL$(7):16302,0:D$"BLOADPRINT":1772634,18:35,24:#706 (:9:"^DO YOU THINK YOU HAVE"::10:"DONE A GOOD JOB OF"::     A!@@AC@`|NNNNNNDNN@  "BAA!@@AC@`|:A$:(A$)3250320ı@  "BAA!@@AC@`|`|N$,J,1):Z(A$):Z64X,Y:31120rIJSPACE BAR ROUTINE|ĺ" ^PRESS THE SPACE BAR"Ĺ16368,0@@AC@`|NN0:J y:yJJ1:A$(Z$,J,1):Z(A$):Z64X,Y:31120QrIJSPACE BAR ROUTINEp|ĺ" ^PRESS THE SPACE BAR"Ĺ16368,0:A$:(A$)3250320ı@  "BAA!_`_@_~{~?p_0G~~?]{o}_ow[g_?^wgog?wox?o@?~?x{m7}fYOow}xA?ooo}];?oogy{s~nnun{~n{{nn{w?~oxp67\_{]qcfoxG?G|}xo?}gY>_?=_}~?X_s;ww|_>?gv|_x?o~?~}?__y_@_8{~??~_8@w`xxs~xXc{o~_ow[k_?]wwoO?w{nsox|?xO{8}v`_x|xA?ooo}@|>`}~?8ok=?o{z^>?Wt?~Ox?x|}0@v`>_o7_o?OO|O@_~{~?/o7}v[_ow?|x~0W]v[k6wmo.{~?y>x`ow[m_?[wsownw_opq?xg~xA?oOoy]_{??oogO{}qqpnpqan`{qq{wqq`}Oox>?|}?~?xp~@|_>?7{ox?s}|qo?}w[>_o7oo?oo~o@_~{~?gwn7}v[_w?~~~?~PO>zog>{k/{~?|>{o7ow[n_?Wwxo?~_|pn6|Xg]_cnw_opg?xw~xA?o/wu>o{{^o_k~s}wg?|{_ox<@}~??|_Oox?g}xGo?}w[_o7wo?go?~o@|?p{m7}v[_w?ppx?X_~zoo>{k/?{~?~>{o7owoW?O~ox_8onV;W[]_]nw_ox?|g?~xc?oox p|ao?lxg}sO{_qq~{nqan{`xq`o88`}~?~~gox?O}x~o?}w[._0{o?|p{{@|~?~~1wvwg?o@q?|C{m7}vx_?x?@~`?@_O~zog>{K/{~??~>{o7_ow[oO?_gxs_X_nfWO{]_>nwOo?~?o?x?ocO}{o_nn~{v{nn{{wn{O0?~}~?_qwlw`\o<~`ox?a@}xx<Awx6_o7`o?8o{;?o{~_}~.wvsw?o@G?xx{m7}6[_w??`@?`@?W~v[k>w-w.{~?> x`\o_`wpg_X_nvW_{]_~nwoo|?o?x?o~_}?@{?|c@ooo}}`|a?l?~gO~n~{z{fn{{on{_ |~?_?|k{o;_ow[o_?>_ox? }xco?}7[:_o7_W?X_{{?ww~_>wv{w?o@?x?~{m7}VZWwG_@X~nx1{~?G wpO_X_lfW_{_>fwooq?o              8:7,100:8,2:768KY1X1X2X3X3:0:YY1:440:YY1X3:3:440:Qa20(Z2):(222)255Ĺ216,0:D$"RUN HELLO"216,0:UCZ64ZZ326BS$(Z)CU$;:A$A$(Z):UF0:62010RBS$BS$;:(A$)262000tCU$;:A$(A$,(A$)1):62010KEY,PRESS:Z(KEY)PRESS:CLR,WIPE:@  "BA-,%-,%-,%--,--,--55-6.--------------------?????????қ#ȖȲ666.5--.-,%-,,-LII776I IIIIII..%&%<77..%%<<-,-,-,-..-%%,--%--%-5..---,$>>>>>>>>>>>>>>>>????????'??'??????????77???'?<'?$'$$%%%%66666666666666&$$$$$$$$$$$$$$$$$$$>>66666666666-.6/7)6?$I ;65-?-4$6...%&%%<<ۓ775.%%'gI -6?>6..%%%%''II77..%&&%<?>>6655--,,$<<<<.%%$<II).55677-.677..6>~II ,$$'<,$%<<,%$'III555>>65-677..5677I26&,-%''ے...--,$>>677?>777?766666III!$'$%-656v ,-.-%-,%%%<7???>?77.%-,-&5-5-.5-.-.-5---.---,-,-%--%-%-%-%-,,,,,,,,---5-.5-.5-$$$$$$$$$$$?>7?>7?>7?>7??'<'''''?<'?'?'?<'????????7?7?>?>7?>7?>7>>>67>6?>66665-.5-'?>>>>>7?>7?7?7?7????'?'?'?'''''''$$dI6.6vI<$'$II;7?>?-,-,-,Ȓ$4$IIIIIIIIIIIIIIIIIIII-----------------%$$$$$$$$$$$$$$$$$$$$$$$$$$677?>7?>766?',$$-$$-$,%$,$$%$?IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII%$$$666'$$$$$--.-5---.5.-%,%,%-$%,%-$-$566666666%IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII$$$$$$$$$$$$$$$$$$$$,5-.5-.5-----%-,%-,%-,-666666666666666666IIIIIIIIIIIIIIIIIRIIII 7>>>>>>5--------,,,,,,,----5666??????$$>>>>>???????,,,,,,LIIIIIIIII55555555=????$$$<5IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIQ:$'<$'<$'<$'<$$'$-5-5-5-5-5.--%-$-%,-$-%,-.66>6767>67>67>67>.--%-,%-,%-,$$466'$$$$$$>>>>>>>>>>>%%%-,%-$ۓS9-.-.-.-.-.-------%--,-%-%-%-,%-,%-,%-,%6IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIJIIIIIIIII?????????777655--5???777655---5???>>665----5?????>6...-------------%%%%,$%,,$%$<$'<$'<$''<IIIIIIIIIIIIIIIIIIIIIIIIIIIIIII<<<<<<<<<<<>7?>7?>7?>7?>7?>7?>7?>7?>7?>7?>?>7?>7?>7?>?>7?>7?>7?>7?IIIIIII '$$<666%$$<4?666-%$$ے?$$$4/566?$$$>766.5tIIIIIIIIIIII-?&-$$$&>67---------55>6767676777-5-..5-.5-.5-.5-6?>>>>7?>7755555555555557??77?7?7?7?7.-...655..>7?>>>>>-9?'''$$$$$$%%---55566666677?IIIIIIIIIIII9?'''$$$$$$%%---..666666>>>766666>>>>????IIII155----------------%%%$$$'ۓۓۓے?>?>7?7?'$$$%$$$%$%?<'''''''''/,,,,,,%-,<<<<<<''''''%%%%%,@q 0\Y?a zVS  q IIIIIIIIIIIIIIIII 6.66666666666666666676>6>6>>>7>>>7?>7?>7?67>6?>7?>77?>77?7?>????????>>>?>????''         >19)4200 3900< ::20((C$)26):"FOOD LIST - "C$C 3Y hF;". ";NF$(F,1)_ ri 3900o 8:"FOOD LIST - "C$ 3( F1FLL/  U F17XC17:C$"MEAT, FISH, EGGS"| F39XC1:C$"BREADS AND CEREALS" F58XC1:C$"FRUITS AND VEGETABLES" F103XC8:C$"COMBINATIONS" F113XC18:C$"OTHER" ((FXC)19)((FXC)ACE BAR TO CONTINUE ";E F16368,0:16384,128:(16384)1603910U P16368,0:p  PRINT THE FOOD LIST| ::12 "DO YOU WANT A FOOD LIST ?";A$:A$(A$,1) A$"N"4999 A$"Y"ĺ"INPUT YES OR NO":4010 C$"MILK PRODUCTS" :EADY? (YES OR NO)";:A$:A$(A$,1)3 LA$"Y"1150~ V:10:"DOESSOMEONE ELSE WANT TO USE THIS":"PROGRAM (YES OR NO) ?";A$ `A$"Y"1000 jA$"N"1110 t:D$"RUN HELLO" ~4000 17:D$"BLOAD CHAIN,A520":520"EXDIP" <24:7:"PRESS SPM3 ::2:"TO RUN THIS PROGRAM, YOU WILL NEED:"` :" HANDOUT #4 - NUTRIENTS DATA SHEET" :18:"-AND-"::" HANDOUT #10 - ACTIVITY DATA SHEET" ::"FILLED IN WITH DATA FROM THE SAME DAY."" B22:9:"DO YOU HAVE BOTH DATA":6:"SHEETS Rɠ` >19)4200 3900= ::20((C$)26):"FOOD LIST - "C$D 3Z hF;". ";NF$(F,1)` rj 3900p :8:"FOOD LIST - "C$ 3) F1FLL0  V F17XC17:C$"MEAT, FISH, EGGS"} F39XC1:C$"BREADS AND CEREALS" F58XC1:C$"FRUITS AND VEGETABLES" F103XC8:C$"COMBINATIONS" F113XC18:C$"OTHER" ((FXC)19)((FXC)PACE BAR TO CONTINUE ";F F16368,0:16384,128:(16384)1603910V P16368,0:q  PRINT THE FOOD LIST} ::12 "DO YOU WANT A FOOD LIST ?";A$:A$(A$,1) A$"N"4999 A$"Y"ĺ"INPUT YES OR NO":4010 C$"MILK PRODUCTS" EADY? (YES OR NO)";:A$:A$(A$,1)3 LA$"Y"1150 V:10:"DOES SOMEONE ELSE WANT TO USE THIS":"PROGRAM (YES OR NO) ?";A$ `A$"Y"1000 jA$"N"1110 t:D$"RUN HELLO" ~4000 17:D$"BLOAD CHAIN,A520":520"EXDIP" <24:7:"PRESS SM3 ::2:"TO RUN THIS PROGRAM, YOU WILL NEED:"` :" HANDOUT #4 - NUTRIENTS DATA SHEET" :18:"-AND-"::" HANDOUT #11 - ACTIVITY DATA SHEET" ::"FILLED IN WITH DATA FROM THE SAME DAY."" B22:9:"DO YOU HAVE BOTH DATA":6:"SHEETS Rq$nNAME: BETWEEN VERSION:9/4/81@xAUTHOR: SHANE MCCARRON^LANGUAGE: APPLESOFT (FP)uASSOCIATED FILES:{INITIALIZATION::255D$(13)(4)D$;"NOMON I,C,O"USER DEFINED FUNCTIONS START OF MAIN PROGRA     24:7:"PRESS SPACE BAR TO CONTINUE ";UF16368,0:16384,128:(16384)1603910eP16368,0: PRINT THE FOOD LIST::12"DO YOU WANT A FOOD LIST ?";A$:A$(A$,1)A$"N"4999A$"Y"ĺ"INPUT YES OR NO":4010:15:"FO CALORIES"$> :" PRO - PROTEIN"@H :" V.A - VITAMIN A"\R :" V.C - VITAMIN C"v\ :" THI - THIAMIN"f :" RIB - RIBOFLAVIN"p :" NIA - NIACIN"u :" CAL - CALCIUM"z :" IRON - IRON (WHAT ELSE?)" 3900;&< ***FRAME # 5***  :5O "4. WHEN YOU HAVE TYPED IN ALL THE FOODS" :" YOU HAVE EATEN, TYPE 'END' INSTEAD OF" " A FOOD NUMBER." 3900 ***FRAME # 6***  :3* "5. THESE ABBREVIATIONS ARE USED:" 4 :" C - TELL YOU HOW MUCH IS"3 :" IN ONE SERVING.";O " YOU WILL BE ASKED";v :" HOW MANY SERVINGS YOU HAD." :" ANSWER IN WHOLE NUMBERS OR IN DECIMALS" " (EXAMPLES: 6 FOR SIX," " 1.5 FOR ONE AND A HALF.) 39003NS((A$))X:ZY:FE((A$))F$8i::12:"DO YOU WANT TO ADD ANY FOOD ITEMS ";:A$:(A$)01200(A$,1)"Y"(A$,1)"N"1200(A$,1)"N"1410140E1360F550:PF". "NF$(FE(F),1):" "NS(F)" SERV. OF "NF$(FE(F),2)ZdF:550nDNS((A$))X:ZY:FE((A$))F8::12:"DO YOU WANT TO ADD ANY FOOD ITEMS ";:A$:(A$)01200 (A$,1)"Y"(A$,1)"N"1200"(A$,1)"N"1420+140I::"FOODS ENTERED & NUMBER OF SERVINGS":34,2e(q2F1EF<F7(F7)(37):"";XX01060958:"HOW CAN YOU EAT LESS THAN 0 SERVINGS??"Q41:Q51:868:1:1040$X201075^)958:"YOUR RESPONSE DOESN'T SEEM REALISTIC."::"PLEASE ENTER A NUMBER BETWEEN 0 AND 20."}.Q41:Q51:868:1:10403PE 0.":11:"CODE NUMBER ->";F$:F(F$):F0Ģ(37):868:1020F0āI(A$)EF1:FE(I)FE(I1):NS(I)NS(I1):I:EFEF1:ZY:10808958:"SERVING SIZE FOR ";NF$(F,1)L "IS ";NF$(F,2)"HOW MANY SERVINGS DID YOU HAVE? ";:Q5(36):Q4NG,":"TYPE THE ITEMS NUMBER ":"IF ALL ITEMS ARE CORRECT, PRESS RETURN.":22:23:A$:(A$)0FA0::(A$)((A$))Ģ20:958:10005(A$)Y(A$)Z1Ģ20:958:1000::10:"TYPE IN NEW FOOD ITEM":13:"TO REMOVE ITEM FROM YOUR LIST, TYhHȱh L2B Hȱh ``@@ ȑiiȑȑȑ  ȑ L2BH h`hȑ L2B Hi hLAhi#LAHi) ȑh`@@L A` ,0,0,1,3,0,0 N& CHOCOLATE SKIM MILK,1/2 PINT,190,18,4,5,7,2,2,27,3 & FRENCH FRIED SHRIMP,3 OZ,190,38,0,0,7,3,4,0,4 & COOKED SPAGHETTI NOODLES,HALF CUP,78,3,0,0,7,3,4,0,4,4,0,7,3,4,0,4D,14,22,6,143% FISH STICKS,1,50,11,0,0,0,1,3,0,0o%"MILK, CHOCOLATE SKIM",1/2 PINT,190,18,4,5,7,2,2,27,3 % "SHRIMP, FRENCH FRIED",3 OZ,190,38,0,0,7,3,4,0,4% "SPAGHETTI",HALF CUP,78,3,0,0,7,3,4,0,414,22,6,14& FISH STICKS,1,50,11,0& )-u6??6-- $??$ -)-u6?$)--6666II I---???   --L )-u6??$$$ --66?-?$,>? -$66$?$ 6666$ -6? -u?6-e I 6666$?$ -266$$/=$ u -$66?4m1?=6666$ -6&6I66 dI6II666 I6666$$ LI:--- I266&$?/--=-R <. .*--=R <.-II $)-u666??$$$ ---I 6666?/--=- --.--= --6?/-6??66---'$4666&---???66--u6??/?II?.--6??$,----6?$$$ 6666$$$$--u6??/u6)-u??6--6??6---??5666&?666v-- $$$4 66v $$4$6666 $$$$ v# 46v66$$ 4=---.--=I666M 6 $- 6666 $$$$6/-???-66=?---?I6666<-- ??d-- II& #7J 5' v-e- $??7-)-u&??666-- 4?6666--e$$$??/6---???66--??66---6---???66--??66-)-u??666--%$?-66666$$---$$6666)-=7666>/-=6II666??46666$$4- 66666--- 6666$$$$ 66666666$$$t&$$$4$)-u666??$$$ -6666$$$$--u6??7)-u66(7 6LHɃ,Ƀ,hLC <<''????II!$$$$$ے6777777?>7577..5-...4-,$''$''?<II"%%%%%%%$67>67>676...------,,<<>>??????76677?<$$$$$$,-.56666,----><<<>>>>7O M..,?-..55-656??6?'?765v ,,%'''?I166>666.%-$%<'-----5777777-5.>7?>I ......6577777?'''%%-,%%%-$<$''''<$3>>>>677->>>6-.5-.5-%%%%''''????II1,$%%,,$L ....65.65.45555%-,%-,%%>>?I<$'<$'<$'?56666>7665-----%%%$$$$$$$$$$$$$$$$$$$$$$$$$<,----5??/6$-&-666666666666666666666666666666>'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$?666666666666666666666666666666.????'''''''$$,,,,,,---%--$$???6??'$$?<<$$,$$,,,%%-,$'?<<$<77 ------=?????'$$466>??????????66>????/----------------?766????????????????766.-------??$$$----%$$???????? I --------------------------mIIIIIIIIIIIIIIIIII--------------------------M$$$$$''??>?7?7?>>777?>>>>>?LIIIIIIIIIIIIIIII'$$<<<$'<$'<<<<<$''''<<<<<<<''''???>?7?7?>7?>7>>>777?>>>7777777777>>>6777>6>666----------566--??????????????????/----566>????/------------%$$466.-----4??????????????????????????????$-----------------------------''''''?IQQQQQQ:?<<<<<<<<<-------------------------------------------6/$????-$$$$$$$$$$$$$$$$$$ -$$,-%$ N VP69:HP52Y L18s D(L):D(L)HP7L,VPy VP78:HP66 L14 D(L) D(L)HPL7,VP 7,D(L)3:8,25:768: HG170:STP130 3 4STP,HG:5STP,HG(13)(4) 60000 610002 'D$;"RUN BI2"F ` THE OPENING g j16300,0:62450::16302,0| tD$"BLOAD OPEN1" ~232,0:233,64:1:0 3 1105,180:2107,180:2158,180 A$:A$"-LETTERING"ī60076 VP60:HP55 L6 * LAST MODIFIED 9/22/81 RJGE  END PART OF INTRO  2,2,2,2,1,1,-2,-2,-2,-2,1,1,2,2,2,2,2,-2,1,1,1,1,1,-2,-1,-1,-1,-1,-2,1,1,1,-2,-2,4,4,4,4,1,1,-4,-4,-4,-4,1,1,4,4,4,4,1,-4,-4,-4,-4,1,4,4,4,4,1,1,-4,-4,-4,-4,2,1,1,1,1 D$Я  BI639005H768786:HI:H,HI::20R SUB FOR MOVING DOLLAR 4:1478,YO:1578,YO:1577,YO:1:1478,YO5:1578,YO5:1577,YO5:DATA FOR TONE GENERATOR  173,48,192,136,208,4,198,8,240,8,202,208,246,166,7,76,0,3,9     40:AZ$"ON A BUN PROVIDES":20000:X0:Y60:AZ$"PROTEIN, IRON AND":20000:X0:Y80:AZ$"VITAMINS.":20000:/X0:Y115:AZ$"THE 'SNACK' FOODS":20000:X0:Y135:AZ$"CONTAIN VERY FEW":20000:X0:Y155:AZ$"NUTRIENTS.":20000:50290D/134002:1630GER ON A BUN":20000:X18:Y140:AZ$"2) CHIPS, SOFT DRINK":20000:X54:Y160:AZ$"AND A COOKIE":20000/X18:Y180:AZ$"ENTER 1 OR 2: ":20000/Q$:Q$"2"13000&/Q$"1"12060j0/:16302,0:250,20:X12:Y20:AZ$"ES, A HAMBURGER":20000:X0:Y:20000@.X18:Y150:AZ$"PROVIDE 300 CALORIES.":20000:50290.2372,30:X84:Y30:AZ$"HICH CHOICE":20000:X60:Y50:AZ$"GIVES YOU MORE":20000:X36:Y70:AZ$"NUTRIENTS FOR YOUR":20000f/X90:Y90:AZ$"CALORIES?":20000:X18:Y120:AZ$"1) HAMBUR124,25:X48:Y25:AZ$"HAMBURGER ON A BUN":20000:X42:Y45:AZ$"HAS 305 CALORIES.":20000:160,70:X84:Y70:AZ$"SMALL BAG OF":20000.X66:Y90:AZ$"POTATO CHIPS,":20000:X30:Y110:AZ$"AN 8 OZ. SOFT DRINK":20000:X36:Y130:AZ$"AND A SUGAR COOKIE"Ĺ16368,0:A$:(A$)3250320,ĺ(12):M0A$"":CLR,WIPE:251,1:CU$;j:62900:Z27UF1:62010DA$""Z3262010NZ862100XZ24āZ0(A$):BS$;::62000bZ13Ĺ251,0:BS$:lZ32Z90(A$)LIMIT62010vWIPEUFWIPEN0uD$"RUN HELLO"$|yJ1(Z$)CyA$(Z$,J,1):A$"^"31150[yZ(A$):Z3231120fyZX,YtyXX10:Jzyy::"RETURN":yJJ1:A$(Z$,J,1):Z(A$):Z64X,Y:31120rIJSPACE BAR ROUTINEsĢ12|ĺ" ^PRESS THE SPACE BAR"8:16368,0eH:(12):3:"^WOULD YOU LIKE TO TRY":"AGAIN (YES OR NO) ?":A$:A$"Y"A$"N"14920}R:A$"Y"ĺD$"RUN BI"\:D$"RUN HELLO":30000 NL(AZ$)*NF01L:20050:HNRNZ9$(AZ$,F0,1)\NZ9(Z9$)fNZ9X,YpNXX12zX150:Y89:Z$"7%":31100:X213:Y68:Z$"21%":31100:X258:Y94:Z$"2%":311006X0:Y138:Z$"^BLACK BAR- HAMBURGER":31100:X0:Y150:Z$"^WHITE BAR- 'SNACK' FOODS":311004:X0:Y175:Z$"^PRESS SPACE BAR TO CONTINUE":31100 >:16368,0:16384,12170,99150,99150,11076X1151169:X1,110X1,99:X16215,110235,110235,78215,78215,110:255,110275,110275,104255,104255,1106X1256274:X1,110X1,104:X1N6X3:Y15:Z$"57%":31100:X45:Y94:Z$"4%":31100:X108:Y50:Z$"33%":31100:31100:X111:Y117:Z$"^N^I^A^C^I^N":31100:X226:Y117:Z$"^I^R^O^N":31100:0,129276,12965,11025,11025,255,255,110:45,11065,11065,10445,10445,1106X14664:X1,110X1,104:X16110,110130,110130,60110,60110,110:150,110170,110(12):"^NO, THESE 'SNACK' FOODS":"PROVIDE VERY FEW":"NUTRIENTS."2:"^A HAMBURGER ON A BUN":"CONTAINS PROTIEN, IRON":"AND VITAMINS":50290X4(13);(4);"BLOAD MEDIUM CHARACTERS,A20624":232,144:233,80:1:0:3[4X0:Y117:Z$"^P^R^O^T^E^I^N":":" AND A COOKIE":"^TYPE A 1 OR 2 :">/Q$:Q$"2"13000Q&/Q$"1"120600/(12):"^YES, A HAMBURGER":"ON A BUN PROVIDES":"PROTIEN, IRON, AND":"VITIMINS.":/:"^THE 'SNACK' FOODS":"CONTAIN VERY FEW":"NUTRIENTS.":50290D/13400B2G OF":" POTATO CHIPS,":" AN 8 OZ. SOFT DRINK":" AND A SUGAR COOKIE":" PROVIDE 300 CALORIES.":50290(.:" ^WHICH CHOICE":" GIVES YOU MORE":" NUTRIENTS FOR YOUR":" CALORIES ?"::"1) HAMBURGER ON A BUN":"2) CHIPS, SOFTDRINKNDS FOR MILK.":31100:X0:Y150:Z$"^WHITE BAR IS FOR DOUGHNUT.":31100\+X10:Y175:Z$"^PRESS SPACE BAR TO CONTINUE":31100+16368,0:16384,128:16368,0".::17408n.:" ^A HAMBURGER ON A BUN":" HAS 305 CALORIES."::" ^A SMALL BA255,106255,1102*X1256274:X1,110X1,106:X1*X5:Y50:Z$"16%":31100:X48:Y91:Z$"2%":31100:X110:Y13:Z$"28%":31100:X153:Y77:Z$"5%":31100:X215:Y5:Z$"30%":31100:X258:Y96:Z$"1%":311000*16302,0G*X0:Y138:Z$"^BLACK BAR STA10:45,11065,11065,10145,10145,110G)X14664:X1,110X1,101:X1)110,110130,110130,23110,23110,110:150,110170,110170,87150,87150,110)X1151169:X1,110X1,87:X1*215,110235,110235,15215,15215,110:255,110275,110275,106z#?p   ŠҠҠ βϠ!ɲ"٠ŠϠ ԠР Ϡ Р!͠Ӡ̠Рҭǭ α ̠  ԱΠԠàɲ̠ Π Ϡ Ϡ"ɠ Ǡ РР U*U*`ժժժT` ՂժժժժՂ *U ԪժժժՀժժժժժ` x@ժժժժx8 LANCE A LOW "NUT$::7:"DAY WITH A HIGH "NUT$" DAY!"::260: R3R8Ė5:"^YOU SHOULD TRY TO HAVE ENOUGH"::5:NUT$" EVERY DAY.":260::(BB$,1)"N"680 A$"^YOU NEED MORE "NUT$".":20((A$)2):A$::"^THINK ABOUT WAYS YOU COULD GET780V9:A$::8:"CHEESE, YOGURT, AND LEAFY"::5:"GREENS ON OTHER DAYS? ";:7806:A$"RAISINS,":6:"PRUNES, EGGS, LIVER, RED MEAT,":6:"AND DRIED BEANS ON OTHER DAYS?":16> "(^Y OR ^N)";:1000:(BB$,1)"Y"Ė2:R4R7ĺ"^GOOD, YOU CAN BADAYS? ";:780^9:A$::10:"CEREALS, BREAD, PORK,"::4:"AND NUTS ON OTHER DAYS? ";:7808:A$::8:"MILK, CHEESE, YOGURT, AND"::5:"MEATS ON OTHER DAYS? ";:78010:A$::9:"CEREALS, BREADS, PEANUTS"::4:"AND MEATS ON OTHER DAYS? ";:0N9:A$::11:"MEAT, FISH, EGGS,"::5:"AND MILK ON OTHER DAYS? ";:780A$"FORTIFIED"::"MILK, LIVER, ORANGE AND GREEN VEGETABLES":"AND BUTTER ON OTHER DAYS?";:780 8:A$::3:"TOMATOES, BROCCOLI, POTATOES, AND"::"CITRUS FRUITS OTHER 340 ^6h .":24:6:"PRESS 'SPACE BAR' TO GO ON.";:1:1\T(16384)127340c^6ih LO"216,0:0:"RUN HELLO"2216,0: G (3 MPH),.071(t,WALKING (4 MPH),.082P~,WALKING (UPSTAIRS-DOWNSTAIRS),.107f,WASHING CAR,.054,WASHING CLOTHES (APPLIANCES),.038,WATER SKIING,.1,WEIGHT LIFTING,.071,WINDOW CLEANING,.058,YOGA,.054(222)255ĺD$"RUN HELG,.021!,TENNIS (SINGLES),.109<,TENNIS (DOUBLES),.085X$,TYPING (ELECTRIC),.027r.,TYPING (MANUAL),.0318,VOLLEYBALL (NON-COMPETITIVE),.067B,VISITING ,.022L,WAITRESS,.058V,WALKING (1 MPH),.032`,WALKING (2 MPH),.044j,WALKIN(CRAWL AT 30 YDS/MIN),.1A+SWIMMING (CRAWL AT 35 YDS/MIN),.128j+SWIMMING (CRAWL AT 40 YDS/MIN),.142+SWIMMING (CRAWL AT 55 YDS/MIN),.198+TABLE TENNIS (PING PONG),.068+TALKING (SITTING),.022+TEACHING (STANDING),.028,TELEPHONINMIN.),.1567p+ RUNNING IN PLACE (135 STEPS/MIN.),.285Jz+ SAILING,.035\+SAWING ,.119+SCRAPING PAINT/SANDPAPERING,.063+STOCK CLERK,.054+STUDYING,.02+SWIMMING (TREADING),.062+SWIMMING (CRAWL AT 20 YDS/MIN),.071+SWIMMING ROLLER OR CART,.05$ +READING,.0196*+RESTING,.017W4+ROLLER SKATING (9 MPH),.092>+ROPESKIPPING (50-60 STEPS/MIN),.121H+RUNNING (6 MPH),.157R+RUNNING (8 MPH),.19\+ RUNNING IN PLACE (55 STEPS/MIN),.121 f+ RUNNING IN PLACE (85 STEPS/ (PIANO),.04%*MUSIC (VIOLIN),.045:*NEEDLEWORK,.022J*NURSE,.054`*OFFICE WORK,.034|*PAINTING (INSIDE),.034*PAINTING (OUTSIDE),.077*PERSONAL CARE,.048+PLAYING POOL,.042 +PRINTING & GRAPHING & DRAWING,.035+PUSHING STPOWERMOWER),.064(X*MUSIC (CELLO),.041@b*MUSIC (ORGAN),.055Xl*MUSIC (DRUMS),.066uv*MUSIC (CONDUCTING),.039*MUSIC (TRUMPET),.031*MUSIC (WOODWIND),.032*MUSIC (HORN),.029*MUSIC (FLUTE),.035*MUSIC (ACCORDIAN),.032 *MUSIC:LI1:62000:A$"1"A$"2"102006 '(12):16302,0H 'A$"1"10500 <("^YES, THE GLASS OF MILK":"GIVES MORE NUTRIENTS":"THAN THE DOUGHNUT."::"^MILK IS RICH IN":"PROTEIN, CALCIUM, AND":"RIBOFLAVIN. ^A DOUGHNUT":"HAS FEW NUTRIENTS." P(5029 B1$;%(B1$)94B1$(B1$,1)5BB$BB$B1$?1080K1500:t0:Z0144191:0,Z0279,Z0::3::(222)255ĺD$"RUN HELLO"216,0:222,0:EB1131250VB181184*`LL(BB$)9jLL01080KtB1$;" ";B1$;h~LL1BB$"":CAP0:1080tLLLL1BB$(BB$,LL)1080GOOD0B164B191GOOD1CAP0GOOD1B1$"^"B1$:CAP1B146CAP0:1210GOOD01080 MORE."::260:v*"":::12:"WOULD YOU LIKE TO TRY":"AGAIN (YES OR NO) ?";:A$:A$(A$,1):A$"Y"A$"N"8104A$"Y"ė:12:11:"ONE MOMENT PLEASE":D$"RUN FL">D$"RUN HELLO"CAP0$BB$""816368,0:B1$BB1(B1$) LU*U ` ժժժ`qՂT ժՂ` ժժժժպ@(U**Ԫժժժpժժժժժ` ժժժժժO`ժժժժժ` ժժժժժ` U*U ` ժժժp`T ЊԂ` ժժժժ՞*U**Ԫժժժ8@ժժժժժ` ժժժժ`p ժժժժժ` ժժժժժ` U*U*`ժժժ8@T` ժժժժՊ*U*(ԪժժժՀժժժժժ` ժժժժx0 ժժժժժ` ժժժժժ` N8ND,(A$)1):62010:KEY,PRESS:Z(KEY)PRESS:CLR,WIPE:@  "BAA!@@AC@`|62010DA$""Z3262010+NZ862100OXZ24āZ0(A$):BS$;::62000gbZ13Ĺ251,0:BS$:lZ32Z90(A$)LIMIT62010vWIPEUFWIPEUCZ64ZZ32BS$(Z)CU$;:A$A$(Z):UF0:62010BS$BS$;:(A$)262000CU$;:A$(A$,YyXX10:Jy*y::"RETURN":ZyJJ1:A$(Z$,J,1):Z(A$):Z64X,Y:31120qrIJSPACE BAR ROUTINEysĢ12|ĺ" ^PRESS THE SPACE BAR"Ĺ16368,0:A$:(A$)3250320ĺ(12):0A$"":CLR,WIPE:251,1:CU$;:62900:Z27UF1:YOU WANT TO TRY":"AGAIN (YES OR NO) ? ";:LI3:4:21:62000GH:(29)dM::::(13);(4);"PR#0"oN:22016R:(A$,1)"Y"ĺ(13);(4);"RUN BI"\:(13);(4);"RUN HELLO"|yJ1(Z$)yA$(Z$,J,1):A$"^"31150yZ(A$):Z3231120yZX31100:X258:Y94:Z$"2%":311006X0:Y138:Z$"^BLACK BAR- HAMBURGER":31100:X0:Y150:Z$"^WHITE BAR- 'SNACK' FOODS":311004:X0:Y175:Z$"^PRESS SPACE BAR TO CONTINUE":31100>:16368,0:16384,128:16368,0C:::17408<D:(12):3:"^DO 1,99:X1\6215,110235,110235,78215,78215,110:255,110275,110275,104255,104255,1106X1256274:X1,110X1,104:X16X3:Y15:Z$"57%":31100:X45:Y94:Z$"4%":31100:X108:Y50:Z$"33%":31100:X150:Y89:Z$"7%":31100:X213:Y68:Z$"21%":26:Y117:Z$"^I^R^O^N":31100:0,129276,129s65,11025,11025,255,255,110:45,11065,11065,10445,10445,1106X14664:X1,110X1,104:X16110,110130,110130,60110,60110,110:150,110170,110170,99150,99150,1106X1151169:X1,110X FEW":"NUTRIENTS."c2:"^A HAMBURGER ON A BUN":"CONTAINS PROTEIN, IRON":"AND VITAMINS":50290X4(13);(4);"BLOAD MEDIUM CHARACTERS,A20624":232,144:233,80:1:0:3,4X0:Y117:Z$"^P^R^O^T^E^I^N":31100:X111:Y117:Z$"^N^I^A^C^I^N":31100:X2/A$"2"13000"&/A$"1"12040z0/(12):"^YES, A HAMBURGER":"ON A BUN PROVIDES":"PROTEIN, IRON, AND":"VITAMINS.":/:"^THE 'SNACK' FOODS":"CONTAIN VERY FEW":"NUTRIENTS.":50290D/134002(12):"^NO, THESE 'SNACK' FOODS":"PROVIDE VERY A SUGAR COOKIE";:"PROVIDE 300 CALORIES.":50290."^WHICH CHOICE GIVES YOU":"MORE NUTRIENTS FOR YOUR":"CALORIES ?"::" 1) HAMBURGER ON A BUN":" 2) CHIPS, SOFT DRINK,";:" AND A COOKIE"/12:"^ENTER 1 OR 2. ";:17:BS$;:LI1:62000FOR DOUGHNUT.":31100M\+X10:Y175:Z$"^PRESS SPACE BAR TO CONTINUE":31100q+16368,0:16384,128:16368,0".::17408|.(12)1.:"^A HAMBURGER ON A BUN HAS":"305 CALORIES."::"^A SMALL BAG OF POTATO":"CHIPS, AN 8 OZ. SOFT":"DRINK, AND*X5:Y50:Z$"16%":31100:X48:Y91:Z$"2%":31100:X110:Y13:Z$"28%":31100:X153:Y77:Z$"5%":31100:X215:Y5:Z$"30%":31100:X258:Y96:Z$"1%":311000*16302,0*X0:Y138:Z$"^BLACK BAR STANDS FOR MILK.":31100:X0:Y150:Z$"^WHITE BAR IS 64:X1,110X1,101:X1g)110,110130,110130,23110,23110,110:150,110170,110170,87150,87150,110)X1151169:X1,110X1,87:X1*215,110235,110235,15215,15215,110:255,110275,110275,106255,106255,110*X1256274:X1,110X1,106:X1 )232,144:233,80:1:0:3 )X0:Y117:Z$"^P^R^O^T^E^I^N":31100:X90:Y117:Z$"^R^I^B^O^F^L^A^V^I^N":31100:X210:Y117:Z$"^C^A^L^C^I^U^M":31100 )0,129276,129 )5,11025,11025,605,605,110:45,11065,11065,10145,10145,110)X1460 Z(10700 )"^NO, THE DOUGHNUT":"PROVIDES MUCH FEWER":"NUTRIENTS THAN THE":"GLASS OF MILK."::"^MILK GIVES YOU LARGE":"AMOUNTS OF PROTEIN,":"CALCIUM AND RIBOFLAVIN.":50290 h)(29)::16302,0 )(13);(4);"BLOAD MEDIUM CHARACTERS,A20624"3:690,87NQ2FDFD127,NQ:8,5:7688IFQ12000:P24q:16368,0:16384,128:16368,0H::X10:Y40:Z$"^WOULD YOU LIKE TO TRY":31100:X10:Y60:Z$"AGAIN (YES OR NO) ?":31100:0:YC5070:110,YC160,YC:YC:X100:Y60:XC1@:X1,110X1,104:X16X3:Y15:Z$"57%":31100:X45:Y94:Z$"4%":31100:X108:Y50:Z$"33%":31100:X150:Y89:Z$"7%":31100:X213:Y68:Z$"21%":31100:X258:Y94:Z$"2%":311006X0:Y138:Z$"^BLACK BAR- HAMBURGER":31100:X0:Y150:Z$"^WHITE BAR- 45,110(6X14664:X1,110X1,104:X1z6110,110130,110130,60110,60110,110:150,110170,110170,99150,99150,1106X1151169:X1,110X1,99:X16215,110235,110235,78215,78215,110:255,110275,110275,104255,104255,1106X1256274Z$"AND VITAMINS.":20000:50290BX4D$;"BLOAD MEDIUM CHARACTERS"4X0:Y117:Z$"^P^R^O^T^E^I^N":31100:X111:Y117:Z$"^N^I^A^C^I^N":31100:X226:Y117:Z$"^I^R^O^N":31100:0,129276,12965,11025,11025,255,255,110:45,11065,11065,10445,1042:16302,0:140,20:X12:Y20:AZ$"O, THESE 'SNACK' FOODS":20000:X0:Y40:AZ$"PROVIDE VERY FEW":20000:X0:Y60:AZ$"NUTRIENTS.":20000 210,100:X24:Y100:AZ$"HAMBURGER ON A BUN":20000:X0:Y120:AZ$"CONTAINS PROTEIN, IRON":20000:X0:Y140:ARED & NUMBER OF SERVINGS":34,2%(12F1EFG<F7(F7)1360RF550:PF". "NF$(FE(F),1):" "NS(F)" SERV. OF "NF$(FE(F),2)ZdF:550nCAL0:F1EF:CALCALFV(FE(F),1)NS(F):C1(CAL256):C2CALC1256:0,C1:1,C2ER A NUMBER BETWEEN 0 AND 20."=.Q41:Q51:868:1:1040]3NS((A$))X:ZY:FE((A$))Fc8::12:"DO YOU WANT TO ADD ANY FOOD ITEMS ";:A$:(A$)01200(A$,1)"Y"(A$,1)"N"1200(A$,1)"N"1410140::"FOODS ENTES ";NF$(F,2)M"HOW MANY SERVINGS DID YOU HAVE? ";:Q5(36):Q4(37):"";X\X01060958:"HOW CAN YOU EAT LESS THAN 0 SERVINGS??"Q41:Q51:868:1:1040$X201075)958:"YOUR RESPONSE DOESN'T SEEM REALISTIC."::"PLEASE ENT:"TO REMOVE ITEM FROM YOUR LIST, TYPE 0.":11j:"CODE NUMBER ->";F$:F(F$):F0Ģ(37):868:1020F142Ģ(37):868:1020F0āI(A$)EF1:FE(I)FE(I1):NS(I)NS(I1):I:EFEF1:ZY:1080958:"SERVING SIZE FOR ";NF$(F,1)  "I970:21:"IF AN ITEM IS WRONG,":"TYPE THE ITEMS NUMBER ":"IF ALL ITEM'S ARE CORRECT, PRESS RETURN.";:22:24:A$:(A$)0FA0::(A$)((A$))Ģ20:958:1000(A$)Y(A$)Z1Ģ20:958:1000.::10:"TYPE IN NEW FOOD ITEM":15". "NF$(FE(Z),1):" "NS(Z)" SERV. OF "NF$(FE(Z),2);RZZ1:Z1EF920i1000:Z1EF1200ZEF2::"FOODS ENTERED & NUMBER OF SERVINGS":34,2:IYEF:I". "NF$(FE(I),1):" "NS(I)" SERV. OF "NF$(FE(I),2)IZZ1:"NF$(FE(Z),1):" "NS(Z)" SERV. OF "NF$(FE(Z),2)8OZZ1:Z1EF920f1000:Z1EF1200ZEF2::"FOODS ENTERED & NUMBER OF SERVINGS":34,2:IYEF:I". "NF$(FE(I),1):" "NS(I)" SERV. OF "NF$(FE(I),2)IZZ1:97 CORRECT ";:A$:(A$)0860?f(A$,1)"Y"(A$,1)"N"860Up(A$,1)"Y"1420z::"FOODS ENTERED & NUMBER OF SERVINGS":34,2Z1:Y1Z6(Z6)950FAFA1:1000::"FOODS ENTERED & NUMBER OF SERVINGS":34,2:YZ:2Z". ENTER A NUMBER":Q41:Q51!,216,02 [ ::5:8:"YOU WILL NOW SEE A LIST"*:7:"OF THE FOODS YOU ENTERED."::7:"CHECK CAREFULLY TO SEE IF"4:7:"THERE ARE ANY ERRORS."H550R1310\::12:"IS THE ENTERED FOODS LISTONSE DOESN'T SEEM REALISTIC."::"PLEASE ENTER A NUMBER BETWEEN 0 AND 20."h Q41:Q51:868:1:610~ NS(EF)0EFEF1  EFEF1:FE(EF)F: ER(222):EL(218)(219)256 ER254770ERR254ĢQ41:Q51:958:Q43:1:"PLEASE IZE FOR ";NF$(F,1)( X"IS ";NF$(F,2):n b"HOW MANY SERVINGS DID YOU HAVE? ";:Q5(36):Q4(37):"";NS(EF) lNS(EF)0650 v958::"HOW CAN YOU EAT LESS THAN 0 SERVINGS??" Q41:Q51:868:1:610 NS(EF)20680J 958::"YOUR RESP" 3 F1FLL. (F18)(F18)5107 550P ::15:"FOOD LIST"W 3m F;". ";NF$(F,1)s | 550  &24:7:"PRESS SPACE BAR TO CONTINUE "; 016368,0:16384,128:(16384)160560 :16368,0: N::"SERVING S "710 ,590 6140T J:::"WHEN FINISHED, TYPE 'END' AS FOOD ITEM":34,3\ T10u ^"ENTER A FOOD ITEM"{ h r 16368,0:"CODE NUMBER ->";F$:F(F$) F$"END"800 (F$)1Ģ(37):958:390   :15:"FOOD LIST0 F$"END"800 ::12K "THAT NUMBER IS NOT ON THE FOOD LIST." "DO YOU WANT TO SEE THE FOOD LIST ";:868:YN$:YN$(YN$,1) (YN$,1)"N"140 (YN$,1)"Y"270 :"INPUT YES OR NO":13 220 4000: FOOD LIST 140& DIP - ENTER FOOD ITEMS RUN BG0 730O<EF0: TOTAL FOODS ENTEREDaPD$(13)(4)pZBELL$(7)nFE(200): FOODS ENTEREDxNS(200): #OF SERVINGS330: PROMPT390: GET FOODF$"0"İ420:140 FFLLF0F(F)29     D$(13)(4)9 EIP - EXERCISE INPUT CHAIN BALC 730f<EF0: TOTAL EXERCISES ENTEREDxPD$(13)(4)ZBELL$(7)nFE(200): EXERCISES ENTEREDxNS(200): TIME OF EXERCISING y::12:"DO YOU WANT TO SEE AN EXERCISE LIST";     "32000A(F2)32000::F119:A(F1)(A(F1).5):EF19gF1(A(F)256):F2A(F)256F17982F,F1:7992F,F2F:D$"RUN BG"<24:7:"PRESS SPACE BAR TO CONTINUE ";F16368,0:16384,128:(16384)1603910 R A NUMBER BETWEEN 0 AND 20."<.Q41:Q51:868:1:1040\3NS((A$))X:ZY:FE((A$))Fb8::12:"DO YOU WANT TO ADD ANY FOOD ITEMS ";:A$:(A$)01200(A$,1)"Y"(A$,1)"N"1200(A$,1)"N"1420140::"FOODS ENTER ";NF$(F,2)L"HOW MANY SERVINGS DID YOU HAVE? ";:Q5(36):Q4(37):"";X[X01060958:"HOW CAN YOU EAT LESS THAN 0 SERVINGS??"Q41:Q51:868:1:1040$X201075)958:"YOUR RESPONSE DOESN'T SEEM REALISTIC."::"PLEASE ENTETO REMOVE ITEM FROM YOUR LIST, TYPE 0.":11g:"CODE NUMBER ->";F$:F(F$):F0Ģ(37):868:1020F142Ģ(37):868:1020F0āI(A$)EF1:FE(I)FE(I1):NS(I)NS(I1):I:EFEF1:ZY:1080958::"SERVING SIZE FOR ";NF$(F,1)  "IS0:21:"IF AN ITEM IS WRONG,":"TYPE THE ITEM'S NUMBER ":"IF ALL ITEMS ARE CORRECT, PRESS RETURN.";:22:24:A$:(A$)0FA0::(A$)((A$))Ģ20:958:1000(A$)Y(A$)Z1Ģ20:958:1000+::10:"TYPE IN NEW FOOD ITEM":15:"37X,Y" : RETURN TO MAIN PROG6 Z9$(AZ$,F0,1)D& Z9(Z9$)P0 Z9X,YZ: XX7`D n'ER(222)'ER25510100.'t'"ERROR ";ER~'"LINE ";(218)256(219)' *CHAIN TO EVALUATION* D$"RUN EP"O,.,.,HI,IB,IA,AL, RON8P R1:Y103:F319:AZ$MZ X31F327:3040Sd Y { AZ=THE NUMBER TO BE PRINTED (X,Y) IS POINT OF FIST NUMERAL 1000 DRAW NUMBER ATX,Y AZ$(AZ) L(AZ$) F01L:3100: R13070 E,100 E PGM4% Q325101  PGPG4;  2250S ' *PLOT THE #'S* b ( :Y113:3u + 232,0:233,64 - D$"BLOAD SC":1:0 2 R19:AZB(R):X31R27 3 AZ999R1AZ999 4 AZ9999R1AZ9999 5 3000: < FSC(0)F ,ROF12220 F02240( PG(2L)M2 2250C PGM(3L)5M 2250_ PG(4L)10Mi 2250{ PG(4L)15M R  ` PGPG31 j 2250 t PGPG22 ~ 2250 PGPG13 2250 Q0 MPG5 QQ1 EPGM E,0M E,0E,100 E# PGM45 A(R)A(R)100? FF1I 1960Z A(R)02080d 2160s C100A(R)~ >MPG5 HEPGM RE,CE,100 \E fFF1 pB(R)02400 rB(R)1002420 tB(R)2002440 vF32192 zF22200 RAPHS THERE ARE GOING TO BE AND IT POKES IN VALUESu l THIS AREA OF THE PROGRAM HAS A SET HEIGHT AND WILL GRAPH IT.~ vPG4  R19 52(R2(R2)) R1Ē1 F0 A(R)3002500 A(R)1001980 2060 MPG5 EPG WHAT IS THE SPACING ON THE GRAPH?/ PN9:L4L Z STORING THE A(N) VALUEr nNOW TO GRAPH WITH A SET HEIGHT!!| x1900 2600 2:0,130279,130 HERE WE GO TO MARY'S EVALAUTION 639982 B THIS AREA OF THE PROGRAM GETS HOW MANY G 10000 BG3 L=LINES BETWEEN GRAPHSX A(R) THE NUTRIENTS PERCENTAGES B(N)=EQUALS THE SAME VALUES AS A(N). DIM IN 2310 D$(13)(4)R19A(R)256(7982R)(7992R)#B(R)A(R)(2A(1)(A(1)10.5)# F     .A"R3:660%XNUT$"V.C"R4:660>bNUT$"THI"R5:660WlNUT$"RIB"R6:660pvNUT$"NIA"R7:660NUT$"CAL"R8:660NUT$"IRON"R9460:A$"^DO YOU GET "NUT$" FROM ":R9700,700,710,720,730,740,750,760,77N":#NUT$"^V^I^T^A^M^I^N ^A":BNUT$"^V^I^T^A^M^I^N ^C":^NUT$"^T^H^I^A^M^I^N":NUT$"^R^I^B^O^F^L^A^V^I^N":NUT$"^N^I^A^C^I^N":NUT$"^C^A^L^C^I^U^M":&NUT$"^I^R^O^N":0:R1DNUT$"PRO"R2:660 NNUT$"VT. "%260:80:R29:C(R)0Ă:::3:"^ARE ANY OTHER NUTRIENTS LOW?(^Y OR ^N)";:1000:ANSW$BB$::(ANSW$,1)"N"İ320:(ANSW$,1)"Y"430A$"ANOTHER ":380:R560,480,490,500,510,520,530,540,550NUT$"^P^R^O^T^E^I^6:"^USE THE NAMES UNDER THE GRAPH."::20:1000:NUT$BB$:570:R1390A(R)MAXĺ:5:"^YES, YOU NEED MORE "NUT$"."::12:"^YOU ONLY HAVE "A(R)"%."::C(R)1:420"^ACTUALLY, YOU DID OKAY IN THAT NUTRIENT.":4:"^HERE'S SOME INFORMATION ABOUT I^NAME "A$"NUTRIENT THAT IS LOW."::20:1000:NUT$BB$::570:R1400iNUT$"C"NUT$"CALORIE"390:4:"^CALORIES ARE A MEASURE OF ENERGY, NOT":"A NUTRIENT. PLEASE NAME A NUTRIENT.":260:R0:380H:4:"^NAME "A$"NUTRIENT THAT IS LOW."::OF"::9:"SPENDING YOUR CALORIES!!!"BELL$BELL$BELL$:M@R29:C(R)1360J460::R2(R2)Ė6:"^LET'S TAKE A LOOK AT "NUT$"."::350T12:"^WHAT ABOUT "NUT$"?":^12:"^YOU HAVE ONLY "A(R)"%."::260:80h:rA$"ONE "F|:4:"AISINS,"::7:"RED MEAT, AND DRIED BEANS.";260:680:k24:7:"^PRESS SPACE BAR TO CONTINUE";:2216368,0:Q$:(Q$)322611500:D8İ310:320:"D8İ310:,370:66::16302,0:7:"YOU HAVE DONE A GREAT JOB YOU NEED "NUT$".":260|9:"^SOME FOODS THAT CONTAIN":8:NUT$" ARE: MILK, CHEESE,":9:"YOGURT, AND LEAFY GREENS.":250R9:460::17:"* "NUT$" *"::10:NUT$" HELPS CARRY OXYGEN":11:"THROUGHOUT YOUR BODY.":260+7:"^YOU GET "NUT$" FROM R"NUT$" *"::5:"^YOU NEED "NUT$" BECAUSE IT HELPS":7:"THE NERVOUS SYSTEM AND SKIN.":2604:"^MOST CEREALS AND BREADS, PEANUTS,"::6:"AND MEATS HAVE "NUT$" IN THEM."::250R8:460:16:"* "NUT$" *"::11:"^FOR STRONG BONES AND":9:"TEETH REALS,"::10:"BREAD, PORK, AND NUTS."::250 R6:460::14:"* "NUT$" *"::7:NUT$" HELPS KEEP YOUR":9:"EYES AND SKIN HEALTHY.":260 5:"^FOODS THAT ARE RICH IN IT ARE:"::5:"MILK, CHEESE, YOGURT, AND MEATS."::250[R7:460::16:"* $" IS IN: TOMATOES, BROCCOLI":5:"POTATOES, AND FRUITS, ESPECIALLY":2:"ORANGES, GRAPEFRUIT, AND STRAWBERRIES.":250 R5:460::16:"* "NUT$" *"::7:NUT$" IS NEEDED BECAUSE IT":9:"HELPS THE NERVOUS SYSTEM.":260. 4:NUT$" IS FOUND IN MOST CE260 4:"^FOODS WITH "NUT$" IN THEM ARE:"::4:"LIVER, FORTIFIED MILK, ORANGE AND":4:"DARK GREEN VEGETABLES AND BUTTER.":250 R4:460::15:"* "NUT$" *"::4:NUT$" IS NECESSARY FOR HEALTHY":6:"TEETH, GUMS, SKIN, AND NAILS.":260v 3:NUTT$" IS USED FOR BUILDING":9:"AND REPAIRING YOUR BODY.":260 n6:"^MEAT, FISH, CHEESE, EGGS, AND"::7:"MILK GIVE YOUR BODY "NUT$"."::250 xR3:460::15:"* "NUT$" *"::4:NUT$" HELPS PREVENT INFECTION":5:"AND KEEPS SKIN AND EYES HEALTHY.":9:"SPENDING YOUR ^C^A^L^O^R^I^E^S? ";:1000:ANS$BB$S 2(ANS$,1)"Y"İ270:810p <(ANS$,1)"N"İ290:810z A:40 FC(9):D0:R29:C(R)A(R)MAX:DDC(R):: PR250,100,120,140,160,180,200,210,230= dR2:460::14:"* "NUT$" *"::7:NUz 63900 EPCR19:A(R)256(7982R)(7992R):Y(795)37İ10000kD$(13)(4)MAX75:BELL$(7):16302,0:D$"BLOADPRINT":1772634,18:35,24:#706 (:9:"^DO YOU THINK YOU HAVE"::10:"DONE A GOOD JOB OF"::d66.---='$$66666----????66.--u???d -?6e--??$----6& --??v-- ??d -  ---66&??-- 566&I  Ibb5 IIT----????]  @ --?6Iq>???/---566$$$ `6 Nd I16$II66uuLuu66 I16666fI  --????-hI16666&$$??----J  6hR---  4II --&&$$$ 666-- $$$I 66666?/--= ------b--u??--??^!>Yq)C^t!8H[V_k#1GTj{ 0DI1666@ 6n $4PI66666$";NS(EF)c bNS(EF)0650 l958::"YOUR RESPONSE SEEMS A LITTLE LOW.":13:590 NS(EF)2460670 958::"**THERE ARE ONLY "2460" MINUES IN A DAY":13:590 T" 3 F1FLL%0 (F18)(F18)5109 550V ::12:"EXERCISE LIST"] 3q F;". ";NF$(F)w  550  &24:7:"PRESS SPACE BAR TO CONTINUE"; 016368,0:16384,128:(16384)160570 5560 :16368,0:& N:"EXERCISE CATALOG 140" "710+ ,5904 6140p J:::"WHEN DONE, TYPE 'END' AS EXERCISE NUMBER":34,3x T10 ^"ENTER AN ACTIVITY." h 16368,0:Q5(36):Q4(37):868:"CODE NUMBER ->";F$:F(F$)   :12:"EXERCISE LISFFLL%F0F(F)290( F$"END"8004 ::12d "THAT NUMBER IS NOT ON THE EXERCISE LIST."j "DO YOU WANT TO SEE THE FOOD LIST ";:868:YN$:YN$(YN$,1) YN$"N"140 YN$"Y"270 :"INPUT YES OR NO":13 220 420: :A$:(A$)0121' z(A$,1)"Y"İ420c ::16368,0:12:"TYPE IN YOUR WEIGHT IN KILOGRAMS: " 14:"IF YOU DON'T KNOW YOUR WEIGHT IN":"KILOGRAMS, TYPE '0'":12:35:"";KG KG0ī1500 KG0131 17 330 F$"0"İ420:140 ED & NUMBER OF SERVINGS":34,2$(02F1EFF<F7(F7)1360QF550:PF". "NF$(FE(F),1):" "NS(F)" SERV. OF "NF$(FE(F),2)ZdF:550nF119:A(F1)0:F11EF:F219A(F2)A(F2)FV(FE(F1),F2)NS(F1)A(F2)E(Z)):" FOR "NS(Z)" MINUTES"%<ZZ1:Z1EF920S1000:Z1EF1200ZEF2::"EXERCISES ENTERED & TIME DONE":34,2:IYEF:I". "NF$(FE(I)):" FOR "NS(I)" MINUTES."IZZ1:970d:21:"IF AN ITEM IS WRONG,":$$,$,$$$$$$7777/-.-.-.5% .....>>>>><<<<,,,,,666666666666666.-7667667?>7?6IIJ67>.-.65.4,><><><&-?4?'>?4?'>?4?4.-4>4?4.-4>4?4.-4-----=,<,<466?.->'?7?'?7?',5?--%.-45-=.-?/>?,=?4?'=?7--.--.-?,%?75?'-?,->>>><<<<,,,666666.65.65.67>67.5''$$,????????.------------5?????????????.------------5????????????666666666666666.---------------------------$$$$$$$$$$$$$$$???????????'..-4-%.-4-%.-4-%.-4%6????'$$$$,--&$$$$$566666.$$$$$$566666.$$$$$$566666.$$$$$$566666.$$$$$$566666.$$$$$$566666.$$$$$$566666.$$$$$,66666.$$$$$$566666.$$$$$$566666.$$$$$$????????????.------------666667????????????<$$$$$.------------5?????????????.------------5?????????????.------------5?????$4r266f u$$$ruۛ e 26v- %$4666?66------?66666----????'Y$$$${?I $$$$-6>>55v!$$%$565?W 6v)%$<'$,M6666-9I1666N$<<%%$?I?????????????%------------.66666???????-------%?66666%$$$$$566666.$$$$$$566666.$66&6vII6666?$66666$d 2I$$66666266&$ 66&$d 66&2266&$ -66 -u6?$ 26666$$$ -6?$*---/--- -%46666$$<?$2. -u?76& --u??v--u??vI6?--?666ve226v- %$466&626e ----????6  $ --?6 --66'$<6=$$466--6 -%466&<?$ 66666$d -6? --??6--  -%$$46666&<?$ 6 -u>???v--*-=766&$$$d -$ -%4666?-e$$?$ 666f -66#$$I666-- $$$I 66666?/--= ------b--u??--??66.---='$$66666----????66.--u???d -?6e--??$&----6&6 --??v-- ??d -? ---66&??-- 566&6I  Ibb5 II$4-I16666&$$$$-u???6---6???-)u?d-M nI) ?v- Iv-- Nd I16$II66uuuu66 -I16666fI  --????-I16666&$$??----J  6$R---6  4II  --&&$$$  --666 ??$$$ -6---?w?766$$$$$I --??v--???----??66666M6666-- $$$$666 $$$ 6666v  $$$$4$vd 4v66&$$ 4----.---=I1666? 6n $46I66666$???/---566$$$ 666666--- ???--- ??/6 --&??666-- 4 66666--- $$$???6-@ )@Xgw9Sar!>Z`mx 6K]t-Lbw(5K\m#7;G=        8TT '0 TLT 8T' `% "$`TTijTTkl8`iiLRTȱȱȱ`TTT TTLT`TTTX TTTT"TTԢ DTLRȑhhLR` TLi TX TTTLR TLRB>H)hɠFȄBLRLRB<%=eB$$ " CBFFLR=$<% " C0` UUUUUUUUUUUUUUUU UU P iSi>CBCC` uS TH)HJJh)JJLTR)hLSD D0 ELSL>SdF?0hԢ DT TpULTTTTȑ *TBC uSI DTȱ8#>LP?ȱ81@ȱ Dȱ Eȱ81ׅh<&݅ۅ߅,`߅߅ h%<$=ЅTTTTFȄB@ ИL P`LPø{{ttlnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# !LP`Ԣ DTȱLPMULTTF DTH?@DE >LQ %ULTi0 ]ULT81??*---/---4I---66666>??'--%$$$$??'-6666666.$$$$$$$,6666666.$$$$$$$,6666666.$$$$$$$,6666666.$$$$$$$,6666666.$$$$$$$,6666666>` LO0`LOLO0`LOLO PJFP8ȹPe8-I$$66666266&$ 66&$d 66&6266&$ -66 -u6?$ 626666$$$ -6? -%46666$$<?$$2. -u?76&6 --u??v--u??uI6?--?666ve26v- %$466&726e $4?266f u$$$-ruۛ e ?26v- %$4666$$ 46----.---=?6----- -%466&<?$ 666666$d -6?u --??6--  -%$$46666&<?$ ? -u>???v--*-=766&$$$d -6 -%4666?-e$$?$-666f -66#$$6I66&66II6666?66666$d 6I66666$$$$$6&u&$$$$4 --666??$$$ ----???66&$$$$4 --666 ??$$$ -$---?w?766$$$$$6 --??v--??----??666666666-- $$$$666 $$$6666v  $$$$4vd 46v66&6666--- ???--- ??/ --&??666-- 466666--- $$$???----????66.--??766--------????66.--??766 --u??666--e$$?/A66.---=???766MI $$$$$ --?66666-??II 6666??466666$ 66666----666666$$$$$ 6666 >3D 膢 ȱ " <67 L  8ij v vo>XO235:YO136:XC4:YC3:26:0:X230239:Y137140:X,Y::q @3:Y134140:231,Y: BXO245:YO137:XC4:YC4:26 D0 FX248250:Y130140:X,Y:: H3:Y134140:255,Y::255,132 JXO265:YO137:XC4:YC4:26O138:XC4:YC4:26* (Y130136:48,Y:< *Y13014010R ,X200208:X,Y:X .p 0Y130140:200,Y: 2X200205:X,135: 4T07:211T,133T:218T,133T: 6XO225:YO137:XC4:YC4:26 80:X228230:Y138140:X,Y:: :3 EWR TPHEE2 ?hHh`0 i Hɝ67  9,T,Q Xhh`ɍ[Ɉ  D L-EɊ%%# bE "L-Eɇ L-EɌ**+*++8 $%QQHH Eh%HJJJ'hH*&'*&'*&')&&EH <&""" ,2"<"><$ " "&""  0 $" "8****&"""""""""< `&< ("""""""""*6""""">>88   (""*:<"">""""""""""""">>>"2"""">""" """  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> > *""""">(((>>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""<   >>?LD"6 >>">""""A~>I**<<>6>H$$H$H$AAIAI6>6"> """6"">" >>::>>>     ̠ҮŠŮҠɤȮΤĮ̠Ů̠ĮɥԠĮU"COMBINATIONS"*F113XC18:C$"OTHER"N((FXC)19)((FXC)19)4200X3900::20((C$)26):"FOOD LIST - "C$3hF;". ";NF$(F,1)r3900P16368,0:( PRINT THE FOOD LIST?C$"MILK PRODUCTS"Z:8:"FOOD LIST - "C$a3nF1FLLu F17XC17:C$"MEAT, FISH, EGGS"F39XC1:C$"BREADS AND CEREALS"F58XC1:C$"FRUITS AND VEGETABLES"F103XC8:C$ FOR "NS(F)" MINUTES"Z(dF:550.n4x:KCT0:F1EFlCTCT(NS(F)CAL(FE(F))KG)rC1(CT256):C2CTC1256D$"BLOAD CHAIN,A520"2,C1:3,C2520"BAL" NEW SCREEN ROUTINE:4:"TYPE IN YOUR WEIGHT::12:"DO YOU WANT TO ADD ANY ACTIVITIES ";:A$:(A$)01200f(A$,1)"Y"(A$,1)"N"1200|(A$,1)"N"1410140::"EXERCISES ENTERED & TIME DONE":34,2(2F1EF<F7(F7)1360F550:PF". "NF$(FE(F)):" "";XX01060[958:"HOW CAN YOU DO SOMETHING FOR A NEGATIVE PERIOD OF TIME??"wQ41:Q51:868:1040$X14411075)958:"THERE ARE ONLY 1440 MINUTES IN A DAY.".Q41:Q51:868:10403NS((A$))X:ZY:FE((A$))F8B.":11B:"CODE NUMBER ->";F$:F(F$):F0Ģ(37):868:1020`F144Ģ(37):868:1020F0āI(A$)EF1:FE(I)FE(I1):NS(I)NS(I1):I:EFEF1:ZY:1080958 "HOW MANY MINUTES DID YOU DO:":NF$(F)" ?";Q5(36):Q4(37):"TYPE THE ITEM'S NUMBER ":"IF ALL ITEMS ARE CORRECT, PRESS RETURN.";:22:24:A$:(A$)0FA0::(A$)((A$))Ģ20:958:1000(A$)Y(A$)Z1Ģ20:958:1000::10:"TYPE IN NEW ACTIVITY":15:"TO REMOVE ITEM FROM YOUR LIST, TYPE 0,6,6,6,6,6,6,6,7,7,7,7,7,7,7,7,7,7,7,8,8,8,8,8,8,8,8,9,9,9,9,9,9 10,12,14,17,21,26,32,39,47,56,66,77,89,102,112,121,129,130,131,13130,30Y250,30Y30,30Y0,80Y60,80Y30,30Y250,30Y279,80Y220,80Y250,30Y7,130:8,3:76"N"400EA$"Y"ė:12:11:"ONE MOMENT PLEASE":5,20:D$"RUN FL"XD$"RUN HELLO" 0,1,2,3,4,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5@ 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6I66?7666$-  6666&$ & 6&66$, u6& -6?$4666$,e$?> u66$$66$, u -=?-?/& 666$$=/6ve $666 $66 $$&M 66ve $66?----/---6.-=$466&---??6-u6?I9.-?$--6$)u?v- ?d)u6?d-6/?6 I6--??Iq - - I)u6'4$46v-= u$66$>4666$ u6 -?6- I166&$ -6&" ->?7--'du66&? -6&$6M??666$ u6&)6&-%vd 46v6&$ 4?--.-= 16M16$L6&$166&,?--7&$$4>?--6 666LQ |ULIUi0 ULIU81Hȱ81Hȥ 8$Ʌ<ȥ 8$(=ȱ8"(>ȱ8#>L8Q?ȱ81@ȱ Dȱ Eȱ81ׅh<&݅ۅ߅,``LPL P0`L!PL'P qPJFqP8ȹqPe8ИLbP`LoPø{{ttlnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# !LP`Ԣ TȱLQ$666$$26&d - --??-u?? 6-??-66ve26- $662ve $626f u$$ru e 26- $666?/*----=----5????7----5????7----5????7----5????7----5????7----5????'R)-5666??'--$$??v-=266$$/=$ u -$66?4m1?6666$ -6&I66I666?/6666d  666646$du6&$ 56&6&$t -6& -u6?$2666$$d -6? u6666$$4- 6666---6666$$$$ 66666666$$$t&$$$4)-u666??$$$ -6666$$$$--u6??7)-u66?$$$ 6666$$$$--u6??/u)-u??6--6??---??5666&666v-- $$$466v $$46666 $$$$v# 4v66$$ 4)-u6?$)--6666II I---???  --LI66#$--=??$ 6666--e$??-- $??7)-u&??666-- 46666--e$$$??/---???66--??66------???66--??66)-u??666--%$?-6666$$---$$6666)-=7666>/-=II666??46 I6666$$ LI:---I266&$?/--=R <. *--=R <.II )-u666??$$$ --I 6666?/--= --.--= --6?/-6??66---'$4666&---???66--u6??/II?.--6??$,---6&)-u6??6-- $??$ '4@Wav"4APbr);MXivI666M 6 $ 6666 $$$$6/-???-66=?---I6666<-- ??d--II& #7J 5' v-e dI6II6{FhhhhnFoFL2FII 0III|F}F~FFI `#! "`#6F7 X IxFyFzF  TWRP{FvFwFoF``` H0HwF$% W `  _16BLmz )?SYamxHH` LGޅhhLG$(`L XwFLI+**++8 $%` $%%#"%L"$$!LPH` H0HxF`*U HyFH}Fm}F|FhHFmF~FhII 0I` HzF` H0 vF`oF{F{F80 ``sFtFmFlFnF`6F nFnFɡ`hhL2Fhh7FCG8FDG L2FnF H8   ` e jFȱ e kFzFuFpFqFrF jFkFvF uF qFrF`67 ( 0ITQLX GhhL2F F HhhL/FwF FqFHrFHyFH NGpFHqFHrFF F P F`LFLOLOLP ;I F G F HG cH F`G;IG#H HHTHPHGHoHHHHI|II%pF |FmpFpF$qFrF~FmqFqFrFL"lFmF0 i nFsFxFtFyF{F`nFoFoFnF`      F;". ";NF$(F,1)r"3900(NT, FISH, EGGS"5F39XC1:C$"BREADS AND CEREALS"_F58XC1:C$"FRUITS AND VEGETABLES"F103XC8:C$"COMBINATIONS"F113XC18:C$"OTHER"((FXC)19)((FXC)19)42003900::20((C$)26):"FOOD LIST - "C$3h }520"DIP"D 10,10,23,12,12,23,16,18,21,21,25,15,21,25,23,27,31,15U}::2f }H166:T:}V122:T,B,L:T,BL:}H119:L,R,P:L,RP:}D$"BLOAD CHAIN,A520"}520"DIP"D"BEANS, LIMA",1/2 CUP,94,10,5,23,10,5,6,4,12^ BEETS,1/2 CUP,31,1.2,.3,3,.7,1.2,.5,1.6,3 BROCCOLI,1/2 CUP,20,4,39,117,5,9,3,7,3 CABBAGE,1/6 HEAD,13,1.1,1.7,28,.7,.6,.5,3,1.1  CANTALOUPE,1/4 MEDIUM,29,1.1,65,53,3,1.8,3,1.3,2# CAR,24 APPLESAUCE,1/2 CUP,116,.5,1,1.7,2,.6,0,.5,3l"APRICOTS, DRIED",4 HALVES,39,1.2,33,3,0,1.2,3,1,4 ASPARAGUS,4 SPEARS,12,2,11,27,7,6,4,1.3,2 BANANA,1 MEDIUM,101,2,5,20,4,4,4,1,4"BEANS, GREEN",1/2 CUP,16,1.5,7,13,3,4,1.5,3,2.5,0,0,11,6,7,3,4>"ROLL, HARD",1 ROLL,156,8,0,0,13,7,9,2,7o"TOAST, WHITE",1 SLICE,61,3,0,0,6,4,4,1.9,3"TORTILLA, CORN",6" DIAM,63,2,.1,0,3,1.2,1.5,6,5 "WAFFLES",2 3.5X5.5",130,7,2,0,6,8,3,11,3 APPLE,1 MEDIUM,80,.5,2,10,3,1.8,.5,1ODLES, EGG",1/2 CUP,100,5,1.1,0,7,4,5,.8,4XN OATMEAL,1/2 CUP,66,4,0,0,7,1.2,.5,1.1,4X PANCAKE,4" DIAM,61,3,1.4,0,4,5,1.5,6,1.7b RICE,1/2 CUP,112,3,0,0,7,4,5,1,5l"ROLL, HOT DOG",1 BUN,119,5,0,0,11,6,7,3,4v"ROLL, HAMBURGER",1 BUN,119,1.7,9,12,5,9,7J "CEREAL, CORN FLAKES",3/4 CUP,72,2,0,0,5,1.2,2,.3,1.7&"CRACKERS, GRAHAM",2 CRACKERS,54,1.7,0,0,.7,1.8,1,.6,1.10"CRACKERS, SALTINE",5 CRACKERS,60,1.9,0,0,0,.6,.5,.3,1.1: HOMINY GRITS,1/2 CUP,62,2,1.5,0,3,2,3,.1,2*D"NONA,3 OZ,168,54,1.4,0,3,6,51,.7,9J BAGEL,1 BAGEL,165,9,.6,0,9,6,6,.9,7u BISCUIT,28 GRAMS,103,3,0,0,5,5,4,3,2"BREAD, WHITE",1 SLICE,61,3,0,0,6,4,4,1.9,3"BREAD, WHOLE WHEAT",1 SLICE,55,4,0,0,4,1.8,3,2,3 CORNBREAD,2.5" X 3",191,9,5,"PEAS, MATURE BLACKEYE",1/2 CUP,94,10,.2,0,13,3,3,2,9d"PERCH, FRIED",3 OZ,193,36,0,0,6,5,8,3,6 PORK CHOP,3 OZ,308,46,0,0,55,14,25,.9,15 SAUSAGE,1 OZ,135,11,0,0,15,6,6,.6,4"STEAK, T-BONE",3 1/3 OZ,212,64,.4,0,5,13,28,1.1,19  TUF,3 0Z.,230,34,2,0,18,14,17,7,13V HAMBURGER PATTY,3 OZ,186,52,.3,0,5,12,26,1.0,17 PEANUT BUTTER,2 TBSP,186,14,0,0,3,2,25,2,3"PEANUTS, SALTED",1/4 CUP,211,14,0,0,8,3,31,3,4"PEAS, IMMATURE BLACKEYE",1/2 CUP,134,15,9,35,25,8,9,3,146IED",1 LARGE ,108,15,14,0,3,9,.5,3,7[T "EGG, HARD COOKED",1 LARGE,82,14,12,0,3,8,.5,3,7^ "EGG, SCRAMBLED",1 LARGE ,111,16,14,0,3,11,.5,5,6 h HOT DOG,2 OZ,172,16,0,0,6,6,7,.3,5r"HAM, BAKED",3 OZ,179,57,0,0,37,15,25,1.1,18 | MEAT LOA"BEANS, REFRIED",1/2 CUP,142,14,0,0,0,0,0,.5,0b " "BEEF, ROAST",3 OZ,182,57,.3,0,3,12,20,1.1,18 , BEEF LIVER,3 OZ,195,50,908,38,15,209,70,.9,42 6 BOLOGNA,1 OZ,86,8,0,0,3,4,4,.2,3 @"CHICKEN, FRIED",3 OZ,201,58,3,0,4,22,30,1.2,11$J"EGG, FR,1 CUP,118,16,10,4,7,28,1.2,30,.7S "MILK, SKIM",1 CUP,77,16,10,4,7,28,1.2,30,.7 "MILK SHAKE, CHOCOLATE",1 1/2 CUP,391,27,14,5,7,33,3,38,4 "YOGURT, STRAWBERRY",1 CUP,225,20,1.8,8,5,24,1.1,29,1.1  BACON,1/2 OZ,92,10,0,0,5,3,4,.2,3.  ,0,.6,0D "CREAM, HALF & HALF",1 TBSP,20,1.1,1.4,0,.7,1.2,0,1.6,0~ "ICE CREAM, VANILLA",1/2 CUP,138,6,7,1.7,2,8,.5,8,.6 "MILK, WHOLE",1 CUP,150,16,5,4,7,28,1.2,30,.7 "MILK, CHOCOLATE",1 CUP,213,19,7,5,5,24,1.5,28,3 ! "MILK, LOWFAT 2%",.6,6,.5,20,.6G "CHEESE, COTTAGE",1/2 CUP,120,34,4,0,2,16,.5,11,1.7w "CHEESE, SWISS",1 OZ,103,18,4,0,0,5,0,27,0 COCOA,3/4 CUP,182,16,6,3,5,20,2,22,4 "CREAM, SOUR",1 TBSP,25,0,2,0,0,1.2,0,1.2,0 "CREAM, WHIPPED",1 TBSP,26,.4,2,0,0,.6:F119:FV(F,F1):" A21:F;:V F10:D$"BLOAD CHAIN,A520":(5)2Č520"BETWEEN"d P520"GPA"j ct d 142 n BUTTERMILK,1 CUP,88,20,0,3,7,26,1,30,0 x "CHEESE, AMERICAN",1 OZ,104,14,5,0,0,6,0,17,0 "CHEESE, CHEDDAR",1 OZ,113,15,5,1.6 FL - LOAD FOOD LIST&(29)/ 20730a216,0:(222)255Ģ10:D$"RUN HELLO"gyD$(13)(4))+12:11:"ONE MOMENT PLEASE"2FLL:NF$(FLL,2),FV(FLL,9)723:"READING FOOD NUMBER "; <F1FLL:NF$(F,1),NF$(F,2)         L YOU HOW MUCH IS"/ :" IN ONE SERVING.";J " YOU WILL BE ASKED"q :" HOW MANY SERVINGS YOU HAD." :" ANSWER IN WHOLE NUMBERS OR DECIMALS.": " (EXAMPLES: 3 FOR THREE," " 1.5 FOR ONE AND A HALF)" 3900A$"N"ı A$"Y"32004 :15:"NUTRITION":5a 4:"1. USE THE NUMBER IN THE FOOD LIST" :" TO NAME THE FOODS YOU ATE." 8:"2. TYPE IN ONLY ONE FOOD AT A TIME." 10:"3. EACH TIME YOU ENTER A FOOD, THE" :" PROGRAM WILL TEL,17,10,17,18,9,18,20,8,20,21,9,21,29,10,29,30,9,30,31,8 t 7,10,14,11,13,15,14,16,16,17,18,17,19,19,18,20,31,19,19,19,20,17,18,21 x 14,16,22,11,13,23,7,10,24,7,31,28  ***FRAME # 3***  :12:"DO YOU WANT INSTRUCTIONS ?";A$:A$(A$,1):O) ? ";A$:A$(A$,1):A$"Y"32003  A$"N"3050M  ***FRAME # 2*** W & :10 : 10:"DOES SOMEONE ELSE WANT TO USE"::"THIS PROGRAM (YES OR NO) ? ";A$:A$(A$,1) D A$"Y"100 N A$"N"3100 X D$"RUN HELLO"7 p 7,31,0,7,8,8,8,9,9,9 ***FRAME # 1*** J :5:"TO RUN THIS PROGRAM, YOU WILL NEED" :" HANDOUT #4 - NUTRIENTS DATA SHEET"::"FILLED IN WITH DATA FROM"::" HANDOUT #1 - FOOD DIARY."! 17:"DO YOU HAVE #4 - NUTRIENTS DATA SHEET"::"READY (YES OR N IN$ IS USED FOR INPUT FROM FOOD LIST FILEQ d *THE MAIN PROGRAM STARTS HERE 3000: PRINT INSTRUCTIONS IF THE USER WANTS THEM 4000: PRINT A FOOD LIST IF THE USER WNATS ONE 32004: END OF GREETING PROGRAM GIVE INSTRUCTIONS  IS NUTRITIONAL VALUES OF FOOD FE 7 DLY IS USED FOR DELAY LOOPS_ P STRING VARIABLES} QD$(13)(4): CONTROL-D R A$ IS USED FOR Y/N INPUT S NF$(F,1) IS THE NAME OF FOOD F T NF$(F,2) IS THE SERVING SIZE OF FOOD F* U Y % GPA - REQUIRED MATERIALS LIST110000I( *DECLARATIONS*d2 NUMERIC VARIABLES3 FLL IS LENGTH OF FOOD LIST4 F IS USED FOR LOOPING THROUGH THE FOOD LIST5 Z,Z1 ARE USED FOR DRAWING GRAPICS INTRO 6 FV(F,X)        " " " """"")) EXDIP - ENTER FOOD ITEMS RUN BG3 730R<EF0: TOTAL FOODS ENTEREDdPD$(13)(4)sZBELL$(7)nFE(200): FOODS ENTEREDxNS(200): #OF SERVINGS330: PROMPT390: GET FOODF$"0"İ420:140 FFLLF0F(F) ! ! ! ! !!!  ***FRAME # 1*** J :5:"TO RUN THIS PROGRAM, YOU WILL NEED" :" HANDOUT #4 - NUTRIENTS DATA SHEET"::"FILLED IN WITH DATA FROM"::" HANDOUT #1 - FOOD DIARY", 17:12:"DO YOU HAVE READY":7:"#4 - NUTRIENTS DATA SHEET ?":1TLT`PUQUQUX QURUSUOU"RUOUԢ TLRȑhhL S` TL̠ҮŠŮҠɤȮΤĮ̠Ů̠ĮɥԠĮ UU UU P TTU '0 ULvT T' `% "$`TTijTTkl8`iiLTȱȱȱ`TTT TSURUȑ TBC SI TULIUFȩȩ멍 ` QUi QUX QURUSULtR fTLtRB>H)hɠFȄBLtRLRB<%=eB$$ " CBFFLtR=$<% " C0` UUUUUUUUUUUUUU߅߅ h%<$=ЅPUQURUSUFȄB@ iSi>CBCC` S UH)HJJh)JJLR)hLrSD D0 ELrSLSdF?0hԢ T OUǢULIURU((FXC)19)42003900F::20((C$)26):"FOOD LIST - "C$M3chF;". ";NF$(F,1)irs3900y'ER(222)'ER25410100&'ER254ĺ"**THAT IS NOT A PROPER INPUT**".'ER255ĺD$"RUN HELLO"t'216,0~' | END CTS":8:"FOOD LIST - "C$&33F1FLL9_F17XC17:C$"MEAT, FISH, EGGS"F39XC1:C$"BREADS AND CEREALS"F58XC1:C$"FRUITS AND VEGETABLES"F103XC8:C$"COMBINATIONS"F113XC18:C$"OTHER"((FXC)19)6I666?/6666d $ 6666646$du6&$ 56&I6&$t -6& -u6?$2666$$d -6? u$666$$26&d -? --??-u??< 6-??-66ve26- $6662ve $626f u$$ru e ?26- $666?//*----=*----F& )-u6??6-- $??$ -)-u6?$)--6666II I---???   --L )-u6??$$$ --66?-?$,>? -$66$?$ 6666$ -6? -u?6-e I 6666$?$ -266$$/=$ u -$66?4m1?=6666$ -6&6I66 dI6II666 I6666$$ LI:--- I266&$?/--=-R <. .*--=R <.-II $)-u666??$$$ ---I 6666?/--=- --.--= --6?/-6??66---'$4666&---???66--u6??/?II?.--6??$,----6?$$$ 6666$$$$--u6??/u6)-u??6--6??6---??5666&?666v-- $$$4 66v $$4$6666 $$$$ v# 46v66$$ 4=---.--=I666M 6 $- 6666 $$$$6/-???-66=?---?I6666<-- ??d-- II& #7J 5' v-eIST CORRECT ";:A$:(A$)0860Bf(A$,1)"Y"(A$,1)"N"860Xp(A$,1)"Y"1410z::"FOODS ENTERED & NUMBER OF SERVINGS":34,2Z1:Y1Z6(Z6)950FAFA1:1000::"FOODS ENTERED & NUMBER OF SERVINGS":34,2:YZ:5ZSE ENTER A NUMBER":Q41:Q51$/216,05 ^ ::5:8:"YOU WILL NOW SEE A LIST"*:7:"OF THE FOODS YOU ENTERED."::7:"CHECK CAREFULLY TO SEE IF"4:7:"THERE ARE ANY ERRORS."H550R1310\::12:"IS THE ENTERED FOODS LESPONSE DOESN'T SEEM REALISTIC."::"PLEASE ENTER A NUMBER BETWEEN 0 AND 20."k Q41:Q51:868:1:610 NS(EF)0EFEF1  EFEF1:FE(EF)F: ER(222):EL(218)(219)256 ER254770ERR254ĢQ41:Q51:958:Q43:1:"PLEAG SIZE FOR ";NF$(F,1)+ X"IS ";NF$(F,2):q b"HOW MANY SERVINGS DID YOU HAVE? ";:Q5(36):Q4(37):"";NS(EF) lNS(EF)0650 v958::"HOW CAN YOU EAT LESS THAN 0 SERVINGS??" Q41:Q51:868:1:610 NS(EF)20680M 958::"YOUR RIST" 3 F1FLL1 (F18)(F18)510: 550S ::15:"FOOD LIST"Z 3p F;". ";NF$(F,1)v  550  &24:7:"PRESS SPACE BAR TO CONTINUE "; 016368,0:16384,128:(16384)160560 :16368,0: N::"SERVIN40 "710 ,590 6140W J:::"WHEN FINISHED, TYPE 'END' AS FOOD ITEM":34,3_ T10x ^"ENTER A FOOD ITEM"~ h r 16368,0:"CODE NUMBER ->";F$:F(F$) F$"END"800 (F$)1Ģ(37):958:390   :15:"FOOD L290 F$"END"800" ::12N "THAT NUMBER IS NOT ON THE FOOD LIST." "DO YOU WANT TO SEE THE FOOD LIST ";:868:YN$:YN$(YN$,1) (YN$,1)"N"140 (YN$,1)"Y"270 :"INPUT YES OR NO":13 220 4000: FOOD LIST 1- $??7-)-u&??666-- 4?6666--e$$$??/6---???66--??66---6---???66--??66-)-u??666--%$?-66666$$---$$6666)-=7666>/-=6II666??46666$$4- 66666--- 6666$$$$ 66666666$$$t&$$$4$)-u666??$$$ -6666$$$$--u6??7)-u66@d';L_q~ !5AN[l~ "CPZaju)/7CNZg $4AN`r} -u>??v-==I66#$--=??$ -6666--e$??-!! !!!!02 )(13);(4);"BLOAD MEDIUM CHARACTERS,A20624"P )232,144:233,80:1:0:3 )X0:Y117:Z$"^P^R^O^T^E^I^N":31100:X90:Y117:Z$"^R^I^B^O^F^L^A^V^I^N":31100:X210:Y117:Z$"^C^A^L^C^I^U^M":31100 )0,129276,129&)5,11025,11025,605,605,1VIN. ^A DOUGHNUT":"HAS FEW NUTRIENTS."3 P(50290> Z(10700 )"^NO, THE DOUGHNUT":"PROVIDES MUCH FEWER":"NUTRIENTS THAN THE":"GLASS OF MILK."::"^MILK GIVES YOU LARGE":"AMOUNTS OF PROTIEN,":"CALCIUM AND RIBOFLAVIN.":50290 h)(29)::16302, DOUGHNUT":" 2) 2% MILK"::"^TYPE A 1 OR 2:"R 'AX$:AX$"1"AX$"2"10200g '(12):16302,0z 'AX$"1"10500( <("^YES, THE GLASS OF MILK":"GIVES MORE NUTRIENTS":"THAN THE DOUGHNUT."::"^MILK IS RICH IN":"PROTIEN, CALCIUM, AND":"RIBOFLAIVES YOU ABOUT":" THE SAME NUMBER OF":" CALORIES AS A":" GLASS OF 2% MILK.":" (ABOUT 120 CALORIES)" '50290::" ^WHICH CHOICE":" DO YOU THINK":" GIVES YOU MORE":" NUTRIENTS FOR YOUR":8:"CALORIES ?" '0 '" 1)23,12,12,23,16,18,21,21,25,15,21,25,23,27,31,15:}::2K }H166:T:g}V122:T,B,L:T,BL:}H119:L,R,P:L,RP:}D$"BLOAD CHAIN,A520"}520"DIP"V122:T,B,L:T,BL:}H119:L,R,P:L,RP:}D$"BLOAD CHAIN,A520""}520"DIP"D1,25,23,27,31,156}::2G }H166:T:c}V122:T,B,L:T,BL:}H119:L,R,P:L,RP:}D$"BLOAD CHAIN,A520"}520"DIP"D,7,16,19,11,22,24,9,28,31,3,28,30,7,27,30,11,34,37,3,34,35,7,34,37,11/} 10,10,M }-}::10:11:"ONE MOMENT PLEASE"G}D$"BLOAD CHAIN,A520"U}520"DIP"DDIP"1,21,25,15,21,25,23,27,31,15}::2 }H166:T:}V122:T,B,L:T,BL:}H119:L,R,P:L,RP:}D$"BLOAD CHAIN,A520"}520"DIP19)42003900=::20((C$)26):"FOOD LIST - "C$D3ZhF;". ";NF$(F,1)`rj3900p~'ER(222)'ER25410100&'ER254ĺ"**THAT IS NOT A PROPER INPUT**".'ER255ĺD$"RUN HELLO"t'216,0~'| END OF PROGRA:8:"FOOD LIST - "C$3*F1FLL0VF17XC17:C$"MEAT, FISH, EGGS"}F39XC1:C$"BREADS AND CEREALS"F58XC1:C$"FRUITS AND VEGETABLES"F103XC8:C$"COMBINATIONS"F113XC18:C$"OTHER" ((FXC)19)((FXC) SPACE BAR TO CONTINUE ";HF16368,0:16384,128:(16384)1603910XP16368,0:r PRINT THE FOOD LIST~::12"DO YOU WANT A FOOD LIST ?";A$:A$(A$,1)A$"N"4999A$"Y"ĺ"INPUT YES OR NO":4010C$"MILK PRODUCTS" CALORIES"$> :" PRO - PROTEIN"@H :" V.A - VITAMIN A"\R :" V.C - VITAMIN C"v\ :" THI - THIAMIN"f :" RIB - RIBOFLAVIN"p :" NIA - NIACIN"u :" CAL - CALCIUM"z :" IRON - IRON" 3900;<24:7:"PRESS ***FRAME # 5***  :5O "4. WHEN YOU HAVE TYPED IN ALL THE FOODS" :" YOU HAVE EATEN, TYPE 'END' INSTEAD OF" " A FOOD NUMBER." 3900 ***FRAME # 6***  :3* "5. THESE ABBREVIATIONS ARE USED:" 4 :" C - '" ^WHEN YOU EAT SOMETHING,":" YOU WANT TO GET YOUR":" CALORIE'S WORTH."\ `'50290 t'" ^OR IN OTHER WORDS....."::" YOU WANT THE ^M^O^S^T":" NUTRIENTS FOR THE":" CALORIES YOU TAKE IN." '50290 's '8:"^A DOUGHNUT":" G:16302,0:D$(13)(4)A8192:D$;"BRUN MASTER-LG-32"(UC1:KE16384:PR128:CL16368:WI0:LI3:BS$(8):CU$(16)"4."(16)"1"''" ^WHEN YOU BUY SOMETHING,":'" YOU WANT TO GET YOUR":" MONEY'S WORTH.".'50290Q B" " """"       IN POUNDS:";PO`KG(PO2.2016):8:"THIS IS YOUR WEIGHT IN KILOGRAMS:":10:KG;" KILOGRAMS"15:"REMEMBER THIS AND TYPE IT IN ON THE "::"NEXT SCREEN.":550:131B