' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 7777777 7777JJJJx 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*`9IǮȠǮҠǮԠǮנǠͩנǠƩٮǠ̠ŮǠȮǠȮǠȮǠȮǠӫӮǮ̠ǭ̠ӯήŠӠǠǮǮӠӮӠӮǠîǠ̮ˠˮǠүԮǭǠ̮ǭ̠ӯήǭ̠ӯήǭ̠ӯήǭ̠ӮήǠנҮǮǮҮǮǠǮǠǮǮخԠ̮ȠӮǠǮǠ٠ͩǠ٠ƩǮǠح٠̮Ǡح٠Ǡ̮Ǡح٠РؠĮǠح٠ǠӮǠح٠ŠͩǠح٠ŠƩǠ̠̮Ǡנ٠ĮǮǠ٠ӠŮǠ٠ǮǠ٠ǠӮǠ٠Ǡ֮Ǡ٠ӮǮǠԠĠήǭǭǮĠǮŠǮǭǠǮŠҠŠǠîǠӮҮǠǠǮǮҠǠȮǠίŮǠǠϮíǠήíǠӮíǠǮíǠԮǠŮǠŮ̠ǠέǠҠ׮íǠĮíǠήíǠŮíǠήíǠϮíǠήíŠǭǠĠҮŠǭǮǠӮǠٮҠǮǠέǠҮǠέǠҮǮȮǠԠŮŠǭŠҮŠǭԮŠǭȠӮŠǭԠ̮ŠٮŠǠȮǠƩǠͩǠȮϠҠŮ٨ǠөӮǠ ˠȮǠˮǠԮǠЮǠ̠ǮǠӮǠ̠ŮӠ٠ΠӠĠĠРӠ٠͠ӠĠӠĠŠנРӠ٠͠ӠĠŠנˠϠРӠ٠͠ӠĠŠנˠԠȠРĠӠȠĠȠȠĠҠҠӠȠĠȠĠΠ̠ĠӠӠ٠ΠӠĠĠԠРӠנԠРȠĠȠΠˠӠȠĠȠӠĠΠ̠ĠӠȠĠȠĠĠנŠԠĠӠȠĠȠӠȠˠĠڠĠӯˠȠĠȠˠĠӠȠĠȠΠȠĠӠȠĠȠӠȠĠȠȠĠȠŠӠȠĠȠӠנԠӠȠĠȠӠĠӠĠӠȠĠȠŠɠڠŠĠӠҠڠΩӠ̠͠ԠĠŠĠӠ̠͠ԠĠŠĠŠҠŠΠ͠٠ӠŠԠǠĠҠ ĩԠĠŠˠӠĠӠҠ שӠŠɠ٠ڠԠέĠϠĠΠӠˠȠĠӠĠΠĠӠˠȠĠӠĠΠӠŠŠΠ͠٠ӠԠĠĠӠˠȠĠРˠȠŠΠРˠȠĠРˠȠŠΠРˠȠĠԠέĠϠĠΠӠˠȠĠӠҠƠӠˠĠĠ͠ԠŠΠԠӠˠĠĠΠԠĠ͠ӠˠĠĠΠР ĠǠĠΠĠӠ ĠǠĠΠӠ ĠҠĠΠĠӠ ĠҠĠɠΠŠĠԠРԠƠΠӠ ĠРˠȠŠĠΠР ĠРˠȠŠĠΠĠĠӠΠĠӠΠŠĠΠ͠ԠŠǠŠɠΠŠĠȠРРƠŠĠΠ͠ԠŠǠŠΠĠȠ٠ӠΠĠĠӠΠŠǮǠũǮΠΠŠӯήΠΠŠӯήΠΠŠӯήǠӮǠӠΠŮǠӠҩǮ͠ĠˠРӠ͠ĠˠĠҠРϠӠ͠ȠӠԠĠӠĠРҠ שĠĠҠϠӠ͠ĠĠҠϠӠ͠ȭĠĠΠРӠӠ͠ȭĠΠӠӠΠĠӠĠРӠԠנҠ ΠĠׯԠ͠ĠӠԠĠĠĠӠĠӠŠРӠǠΠ̠ԠӠӠРӠΠРŠנĠΠӠĠΠĠŠנĠǠĠΠĠӠĠӠĠРĠӠРӠڠנĠҠŠΠӠΠӠРŠ٠ǠũӠŠӠǠӠРРΠԠĠҠ٠ҠΠԠĠӠĠРӠĠŠРàҠĠР٠נˠǠҠ٠ΠԠˠ٠נӠРӠРŠ٠ҠŠנԠΠΠРӠנŠ٠ΠΠөԠӠנРӠĠРŠΠҠנ٠ĠҠРŠΠӠРŠĠנ٠РŠ٠נ٠ɠĠĠŠӠ͠ˠɠĠĠӠԠϠΠРɠڠĠĠĠ͠ڠРӠӠӠҠРŠĠĠĠŠΠӠӠĠĠĠĠҠРӠĠӠĠРԠӠӠĠӠĠРĠӠĠРӠРנҠؠĠРӠРנҠؠĠӠĠРĠǠӠĠРӠĠӠΠРӠΠĠӠĠРӠ٠ĠĠРӠРΠĠРӠРԠӠӠԠ٠РӠΠĠĠӠΠӠӠΠĠРӠ٠ΠӠĠӠĠĠРӠ٠ĠРԠȠԠ٠ĠҠĠ͠РӠĠĠРРӠĠĠĠӠРӠנ٠ȠҠӠĠӠѠРˠ٠ӠРΠ͠ԠҠȠӠנРӠĠӠѠРˠ٠ӠРӠĠ׭ȠӭĠҠРӠĠРŭԠŠРŭԠŠΠà̠ӠРӠנȠРӠנŠ͠ǠŠŠȠ̠РŠŠĠРŠŠΠàРŠŠĠӠׯӠנΠ͠ŠĠҠΠŠàĠȠӠҠ٠РŠàΠ̠ȠӠҠ٠РӠנΠ̠̠͠ӠŠΠàĠРӠנ̠РŠĠҠРŠΠàĠ̠ӠР͠Π͠ˠҠԠԠĠРРԠŠРԠŠĠŠРӠĠŠ٠ǠԠ̠ĠΠ٠РԠנ͠Π͠ԠԠנՠ̠ӠĠĠҠĠҠР٠Š̠Р٠ŠĠĠРӠĠРӠנ͠ΠӠРӠРӠנ͠Π͠ԠӠĠĠӠӠĠĠĠԠĠРԠҠРӠŠԠנƠĭŠҩĠҠРŠĠРӠנԠҠ©ӠӠĠΠ٠РРӠĠРРӠРӠנԠҠ©ŠŠŠĠРӠנؠΠ͠ΠȠԠϠӠĠӠĠРϠРРϠŠĠӠĠĠĠĠҠԠӠĠĠĠĠҠԠӠĠ٠ԠӠĠ͠ҠȠРȠĠĠРȠĠҠРȠĠҠĠРȠ٠ΠׯԠԠҠөĠٍӠŠ΍˭ǠĠРɠ̠Ҡ΍ΠĠĠĠРΠĠĠРӠ͠ΠōӠōРΠ٩ӠĠĠР̠ĠĠР̠ĠĠРΠӠׯĠĠӠȠŠҠŠΠӠĠӠРΠӠĠӠҭРΠ٩ӠĠĠ͠ŠӠנׯàǠŠӠӠׯӠŠŠׯҠŠӠŠР͠ŠŠׯҠŠӠǠӠŠΠԠׯĠŠǠŠӠ͠ŠӠĠŠΠŠӠŠӠŠŠƠΠŠӠŠӠנҠׯԠǠŠӠҠàǠŠӠŠ͠ŠӠΠ͠ŠӠŠӠŠˠׯҠҠŠӠŠӠΠԠׯԠǠŠӠŠׯàˍŠ͠ӠӠĠׯŠǠŠŠ͠ӠӠĠׯàǠˍӠŠ͠ӠĠàƠΠŠӠ͠ӠŠĠŠԠŠ̠ҠƠŠӠŠ͠ӠĠàΠŠӠŠ͠ӠӠ̠ԠˍӠŠ͠ӠӠ̠ӠŠĠ͠ԨŠԩŠĠŠҠŠ̠ҠŠĠŠҠŠ̠ҠƠŠĠŠԠŠ̠ҠŠȠӠĠΠĠРӠΠΠĠŠ٠ŠӠĭԠĠŠӠҠŠӠΠĠŠӠҠŠ٠Š̠Π̠͠ӠǠҠ͠ŠŠנĠɍΠӠΩĠΠĠРΠӠӠנРӠנ͠Π͠ŠҍŠŠĠРΠנŠРŠŠĠҠРӠӠĠڠҠРҠǍӠĠР ĠҠРӠ̠ԠӠנΠԠ͠Ӡ̠ԠӠĠРˠנөРӠĠĠ͠ӍӠĠĠĠĠŠנРŠĠ٠РˠӠѠРŠĠ٠РˠӠĠŠŠŠРРĠӠРĠӠĠР٠ӠΠҠŠ٠ŠˠРĠӠ̠٠ŠРԠ׭РĠӠȠРĠӠȠРԠ׭ԠׯԠРĠӠŠĠŠĠԠڠӠҠ  ŠĠԠڠӠҠ РĠӠŠРĠӠ̠ŠŠҠҠӠ ԨΠѠҠ©ԠҠĠӠڠԠ Ԡ©ԠŠǠӠ ԠΠѠҠ©ԠŠĠӠҠĠРؠĠǠˠĠΠƠԠĠĠРԠĠӠԠӠĠРĠϠŠРɠΠϠŠȠŠŠРɠΠϠŠȠŠРӠȠĠҠΠƠӠ̠͠ŠӠŭΠ٠ӠɠĠҠŠРɠȠԠӠϠŠŠРɠȠԠӠӠĠƠҠΠŠ̠ӠĠƠҠΠ̠ӠĠҠҠ̠ӠĠĠĠҠŠŠĠԠ٭ϭРŠŠĠРŠŠĠРŠĠĠРΠ̠Ӡˠ̠ӍӠˠҠӍŠŠĠРΠŠРΠĠȠ̠ĠРΠĠҠРӠȠ̠ӠΠŠŠԠŠƠΠŠΠŠŠԠΠƠΠŠΠŠũΠҠƠΠ͠ŠΠĠŠŠԠĠƠΠŠΠŠŠԠΠŠƠΠŠΠŠŠԠŠƠΠŠΠŠŠԠΠƠΠ˩ŠӠΠҠˠ͠ؠׯǠ˩ŠŠԠŠƠΠŠΠŠŠԠȠƠΠŠΠŠŠԠ٠ƠΠŠΠӠȠҠԠΩĠĠР̠ҠĠӠРӠΠ͠ԠҠҠŠũŠӠΠ͠Ԡ͠ؠׯǠĠĠĠ̠РɠĩĠŠРӠȠĠŠҠΠΠ΍ӠǠөĠРРŠŠРԠӠРҠ̠ŠàӠĠŠĠׯѠ̠ҠРӠРӠ͠РҠРӠĠŠĠׯѠ̠ҠРӠĠŠĠׯѠ̠ҠԠРӠĠŠĠׯ̠̠ҠРӠĠŠĠׯѠ̠ҠǠРŠĠׯѠ̠ҠƠРӠĠŠ͠ҠΨׯ͠Ϡ˩РӠĠŠĠׯѠ̠Ҡ͠РӠĠŠĠׯѠ̠Ҡ͠РӠׯѠ̠ˠ͠РӠĠŠĠׯ̠̠ƠˠРӠĠŠĠׯѠ̠ҠׯРӠĠĠƠȠΠРӠĠŠРǠŠàׯȠŠàũРРӠĠŠĠׯѠ̠ˠ͠РӠĠŠĠӠӠҠԠΠ͠ŠΠŠӠҠȠ٠ĠРŠ̠ڠРǠŠŠȠȠӠĠĠӠĠŠǠӠҠ̠ĠŠǠŠӠҠȠĠΠӠĠĠàԠڠΠӠؠŠΠΠ٠ҠΠύΠԠĠȠРĠàĠڠӠĠĠàڠӠĠĠ̠ԭ֠ӠڠӠĠĠàҠڠ٠ڠӠàΠ͠٠ڠӠڠӠڠӠĠӠàΠ͠٠ڠӠàΠ͠٠ڠӠàΠ͠٠ڠӠàΠӠРӠŠӠ٠ΠԠĠРӠŠРӠàڠŠĠРҠǠŠ̠ڠ٠ĠҠРӠĠРРŠ٠Š٠ŠŠĠРҠǠΠ̠ڠŠ٠ŭĠŠ٠ԠӠĠ٠Š٠ŠŠ٠͠NA0ZN1Ģ20:"YOU MUST ENTER AT LEAST ONE ACTIVITY.":3546T* ZN3510,3550,3570* ::12:"- ACTIVITY LIST -":34,4:Z0NA:Z11:NA1* 3592* L22:M$"DELETE ANY ENTRIES ON THIS LIST? ":22050:Z$"N"3566* NAZ1:M$"DELETE THIS ENTRY? ":mR TOTAL MUST BE "1440DA".") ::"DO YOU WISH TO"::" 1) ADD SOME MORE ACTIVITIES"::" 2) DELETE SOME ACTIVITIES"::" 3) MODIFY SOME OF YOUR"::" PRESENT ACTIVITY TIMES.") L18:M$"WHICH ONE (1-3)? ":22030:ZN(ZN)ZN3ZN13546=* 3524D( AA(NA)ZN:D$"READ ACTIVE,R"IA%(NA):FA$(NA):D$:18:3590( L22:M$"IS THIS ENTRY CORRECT (Y OR N)? ":22050:Z$"N"3517( 3512( NANA1:8200:NAZ31:SUDA14403700) ::2:"YOU HAVE A TOTAL OF "SU" MINUTES OF"::"ACTIVITY. YOU:J' L10:M$" ACTIVITY CODE NUMBER? ":22030:Z$"END"NA121000]' Z$"END"3540' ZN(ZN)ZN1ZN230ĢL2:868:"IMPROPER ACTIVITY CODE (1-230) ONLY":3520' IA%(NA)ZN( L12:M$" TIME SPENT? ":22030:ZN0ZN4320:XD$;"OPEN";F9$;",D1"+:bD$;"READ";F9$;:lFTYPE$,NUM]:vLOOP1NUM:CMD$(LOOP):LOOPq:D$;"CLOSE";F9$:LOOP1NUM:CMD$(LOOP):LOOP:ɠРӠĠűЍӠĠРǠРӠԠōԠͩԮРŠҳӍנΠȠƭڠРŠŠŠРРǠŠˠ̮٠ĠӠԮРˠ̮ĠРҠΠ͠РϠŠӠŠРӠĠҠTYPE 'END' WHEN FINISHED."& NANA1:NA100Ĺ34,6::"A MAXIMUM OF 100 ACTIVITIES CAN BE"::"ENTERED. THIS LIST WILL BE ANALYZED.":NA101:20500:3540& 7:868:12:"- ACTIVITY #"NA" -":3518& 7:868:9:"- REENTER ACTIVITY #"NA" -"' 34,9:1,27): %E M%F 16:ID%(NU)" "Z2$;:36,36:AM(NU):36,4:Z3$;:36,34:Z1$:S%G k%N NUNU1:NU021000%P :D$"CLOSE FOOD LIST"% ENTER ACTIVITIES% D$"OPEN ACTIVE,L36":SU0:NA0& ::2:"ENTER THE DATA FOR YOUR "DA" DAY ACTIVITIES":8:" ",22((ZT$)8))"HOW MANY"ZT$"? ":22030:ZN0ZN993124$: AM(NU)ZN:3142:L22:M$"IS THIS ENTRY CORRECT (Y OR N)? ":22050:Z$"N"3117$> 3112%D Z3$"":Z1$(FD$(NU),6):Z2$(FD$(NU),(FD$(NU))6):(Z2$)27Z3$(Z2$,(Z2$)27):Z2$(Z2$,868:"PLEASE ENTER A NUMBER 1-432":3120k#3 ID%(NU)ZN:D$"READ FOOD LIST,R"ID%(NU):FD$(NU):D$:18:3140#4 (Z1$,1)" "ZT$"":3129#5 ZI611:(Z1$,ZI,1)" "3127#6 #7 ZT$" "(Z1$,ZI)"S"@$9 L12:M$(" .":NU101:20500:31505"+ DA$"DAY":DA1DA$"DAYS"c", 7:868:12:"- FOOD ITEM #"NU" -":3118"- 7:868:8:"- REENTER FOOD ITEM #"NU" -"". 34,9::"0 L10:M$" FOOD CODE NUMBER? ":22030:Z$"END"3150(#2 ZN(ZN)ZN1ZN432ĢL2:33052! ENTER FOODS!! B! D$"OPEN FOOD LIST,L67":NU0!& :2:" ENTER THE DATA FOR YOUR "DA"-DAY DIET"::8:"TYPE 'END' WHEN FINISHED""( NUNU1:NU100Ĺ34,6::"A MAXIMUM OF 100 CAN BE ENTERED."::"THE COMPUTER WILL ANALYZE THIS LISTW WEIGHT GOAL? "8 622030:GLZN:9000:(AN)ZN02102R GLCWİ30140:20500w OJ$"MAINTAIN":GLCWOJ$"GAIN" GLCWOJ$"LOSE" :4:"ARE YOU GOING TO SUPPLY A FOOD AND":L6:M$"ACTIVITY LIST FOR 1 OR 3 DAYS? "! 22030:DAZN:DA1DAIDERING YOUR HEIGHT, AGE AND FRAME"::"SIZE, YOUR WEIGHT GOAL IS TOO "Y$"."::"THEREFORE, A PROGRAM CANNOT BE PLANNED"::"ACCORDINGLY."L(37)3:M$"DO YOU WANT TO CHANGE YOUR GOAL? "22050:Z$"N"30120 49100:L(37)3:M$"WHAT IS YOUR NE9100:ZZ$"":GLBWGLTWZZ$"NOT "Z:"YOUR WEIGHT GOAL IS ";ZZ$;"IN THIS RANGE."m9000:AN3000L(37)3:M$"DO YOU WANT TO CHANGE YOUR GOAL? ":22050:Z$"Y"2100(GLCWCWTW)Y$"HIGH"(GLCWCWBW)Y$"LOW"::"CONSHT (G, L, OR M)? "B 22060:OJ$Z$:Z$"G"Z$"L"Z$"M"1802jOJ$"M"GLCW:OJ$"MAINTAIN":19000L(37)3:M$"WHAT WOULD YOU LIKE TO WEIGH? "222030:GLZN:ZN0(OJ$"L"CWZN)(OJ$"G"CWZN)1842l(CWTW)(CWBW)İ9000:3000'TAG%25BWBW(25AG%):TWTW(25AG%):D$;"CLOSE":gL5:M$"WHAT IS YOUR WEIGHT IN POUNDS? "22030:CWZN:ZN0ZN5001704(CWTW)(CWBW)İ30300:L(37)3:L::"WOULD YOU LIKE TO GAIN, LOSE, OR"::LL2:M$"MAINTAIN YOUR WEIGW1,FHHEFHī30100#I16.W2,FH?HEFH1460LW1W2:IW30100mBWW1:TWW2:1700xW1,W2I6177HEI1550W1W2:W2I30100AW(W1W2)2BWAW6.4:TWAW6.4:1700@I1SZJBW,TW:I(D$;"READ IDLMF,R";R' F22513500L21ML12:HEHL(L)L2L21TLh(WRSM(L2)SZ12WRSM(L2)WRSM(L2).25SZ2<WRSM(L2).25SZ3FBW0:TW0:T3ZAG%19T1dAG%18AG%25SX$"M"T2nT1400,1500,1600xHE75)ī30100@(AG%18AG%25)SX$"M"(HE60HE77)ī30100\AG%19SX$"F"RAG%4wF225SX$"M"RHE11F225SX$"F"RHE42AG%25SX$"M"RAG%25HL(1)63:HL(2)64:SM(1)5.5:SM(2)6.0:SM(3)6.25D$;"OPEN IDLMF,L80"1207R::"YOUR WRIST MEASUREMENT IS USED"::"TO DETERMINE YOUR FRAME SIZE."::"HOW MANY INCHES AROUND IS YOUR":L(37)2:M$"WRIST? "22030:WRZN:ZN0ZN121204R0F225SX$"F"(HE57HE71)ī30100F225SX$"M"(HE61:22050:Z$"Y"30200'AG%18F225::"THE LEAN PROGRAM NEEDS SOME INFORMATION"::"ON BODY MEASUREMENTS TO DETERMINE IDEAL"::"BODY WEIGHT.":L9:M$"WHAT IS YOUR HEIGHT (IN INCHES)? "22030:HE(ZN.99):ZN10ZN991197AG%25^12:958:"YOUR NUTRITIONAL NEEDS VARY ACCORDING"::"TO YOUR AGE."::"WHAT IS YOUR AGE"17:958:M$"(TO THE CLOSEST YEAR)? ":L17:22030:ZN7ZN991190AG%ZNSX$"M"AG%11AG%501194L(37)3:M$"ARE YOU PREGNANT (Y OR N)? "e:10:"YOU NEED TO OBTAIN THIS LIST BEFORE"::"CONTINUING WITH THE LEAN PROGRAM.":20500:21000:3:"THE NUTRITIONAL NEEDS OF MALES AND"::"FEMALES DIFFER."7:958:"ARE YOU MALE OR FEMALE (M OR F)? ";:SKI,1,SX$:SX$"M"SX$"F"1188S LIST (Y OR N)? ":22050:Z$"N"1186:3:"THIS PROGRAM WILL ALSO NEED A LIST"::"CONTAINING YOUR":::" 1) ACTIVITY CODE NUMBERS, AND"::" 2) THE TIME SPENT DOING THAT ACTIVITY"L13:M$"DO YOU HAVE THIS LIST (Y OR N)? ":22050:Z$"Y"1187:958:1135(rA$"Y"PT1:P90:1066KuPT1ĺD$"PR#0":D$"IN#0":P91P91:::3:"TO RUN THIS PROGRAM YOU WILL NEED A"::"LIST CONTAINING":::" 1) THE FOOD CODE NUMBERS FOR YOUR DIET"::" 2) THE QUANTITY EATEN."&L15:M$"DO YOU HAVE THIIES CAN BE":(37)2:"ENTERED. WHEN YOU ARE FINISHED ENTERING":(37)2:"ACTIVITY ITEMS, TYPE 'END'."y]PT1İ20500iPT11141l::10 o::"DO YOU WANT A PRINTED COPY OF"::"THE INSTRUCTIONS? ";:SKI,3,A$:A$(A$,1):A$"Y"A$"N"Ģ10"::(37)2:" ONE DAY EQUALS 1440 MINUTES, AND":(37)2:" 3 DAYS EQUALS 4320 MINUTES."V:(37)2::" YOU SHOULD ACCOUNT FOR EVERY":(37)2:" MINUTE OF EACH DAY.":PT1İ20500WPT1ĺ::gZ::(37)2::"A MAXIMUM OF 100 ACTIVITKPT1İ20500NPT1ĺ::Q::(37)2:"3. ENTER THE ACTIVITY ITEM AS LISTED":(37)2:" IN THE ACTIVITY CATALOG.":(37)2:" THE NUMBER MUST BE LESS THAN 231.":PT1İ20500RPT1ĺ::^T::(37)2:"4. ENTER THE TIME IN MINUTES.S."`B:" IF YOU ATE:";:18:"A CUP AND A QUARTER":(37)2:" YOU ENTER:";:18:"1.25":rEPT1İ20500H::(37)2::"A MAXIMUM OF 100 FOODS CAN BE ENTERED.":(37)2:"WHEN YOU ARE FINISHED ENTERING FOOD":(37)2:"DATA, TYPE 'END'."::"2. ENTER THE AMOUNT OF FOOD YOU":(37)2:" CONSUMED, BASED ON THE UNITS IN THE":(37)2:" FOOD CATALOG."?:(37)2:" ENTER FRACTIONAL AMOUNTS AS DECIMAL":(37)2:" NUMBERS. FOR EXAMPLE, SOME FOODS ARE":(37)2:" MEASURED IN CUP1 *:PT1İ63000E -::"INSTRUCTIONS FOR LEAN":34,3:PT1ĺ:U 0:PT1ĺ: 3::"1. ENTER THE FOOD CODE NUMBER AS LISTED":(37)2:" IN THE CATALOG.":(37)2::" THE NUMBER MUST BE LESS THAN 433." 6PT1İ20500 9PT1ĺ:u<NT A COPY OF THE CATALOGS MADE"::"BY THE PRINTER (Y OR N)? ";:SKI,3,A$:A$(A$,1):A$"Y"A$"N"1059 $A$"Y"Ĺ900,1:D$"RUN FOOD CATALOG" &:12:"DO YOU WANT INSTRUCTIONS (Y OR N)? ";:SKI,3,A$:A$(A$,1):A$"Y"A$"N"1060 'A$"N"114OD CODE NUMBERS, SEE THE"::"PRINTED FOOD CATALOG, HANDOUT 1 IN THE"::"NUTRITION VOLUME 2 SUPPORT BOOKLET."::19:"OR" ":"USE A PRINTER CONNECTED TO THIS COMPUTER":"TO MAKE A COPY OF THE FOOD AND ACTIVITY"::"CATALOGS."j #18:958:"DO YOU WANUTRITIOUS AND" :"ADEQUATE FOR YOUR LEVEL OF ACTIVITY."::"IT CAN ALSO PROVIDE INFORMATION ABOUT"::"YOUR ACTIVITIES, WHICH WILL HELP YOU" :"ADJUST ACTIVITY TO MAINTAIN PROPER BODY"::"WEIGHT AND MUSCLE TONE.":20500z !::"TO FIND THE FO PROGRAM] NF(11),ID%(100),FD$(100),AM(100),IA%(100),FA$(100),AA(100),HI(5),ND(5),ID$(100)k F20:P91 (900)1Ĺ900,0:1062 :3:"LEAN ALLOWS YOU TO ANALYZE YOUR EATING"::"AND ACTIVITY HABITS. IT CAN HELP YOU"::"DEVELOP A DIET WHICH IS 7 NUTRITION VOLUME 21PROGRAM NAME: LEANOLAST UPDATE:01/11/85 NAMx(AUTHOR: U OF M/MECC - WILLIS JOKELA2(C) MECC 1982<:INITIALIZATIONRO31501::255D$(13)(4)D$;"NOMON I,C,O" START OF MAIN                            "P+ ?  - Q   ?"  - Q   #  7    U"   -$ ( ( .2 7 2*  "Z! @0 + b2 ]F e&Z1 (_3 m ^0J! 61.J  6; *J.  17; .  H%Hk. _  "4*d%   ( & -,)% }     Z (  .  B( A ;4Z -/# U&(  "    !+< x<D t.  Id  /  , ( %2vH^(    ?& 6! 6 N/ I,@.)*%PA   >>1XD$;"OPEN";F9$;",D1"*1bD$;"READ";F9$91lFTYPE$,ZNZ1vLOOP1ZN:CMD$(LOOP):LOOPn1D$;"CLOSE";F9$1LOOP1ZN:CMD$(LOOP):LOOP1RTED DATA(0 DIVERT OUTPUT TO PRINTER20P9ıP0"(950)63100,63200,63300`0| COMM CARDr0775:769,132x00 DEFAULTS/SEARCH0D$;"PR#";(952)0(151)3(151)4ĺ(9)"132N"00D COMMANDS ON FILE0NF9$"PRINTER COMMANDS"CHED CEREALS, GREENS"/Bǃ "VITAMIN A --- CARROTS, GREENS, DRIED APRICOTS","VITAMIN C --- ORANGES, GRAPEFRUIT, TOMATOES","THIAMINE --- PORK, NUTS, BEANS"/Lǃ "RIBOFLAVIN -- MILK PRODUCTS, LIVER","NIACIN --- POULTRY, LIVER, TUNA FISH" 0`MECC SUPPO,1.1,1.3,143.Yà 2100,44,800,18,4000,60,1.1,1.3,14Y.Zà 2000,44,800,18,4000,60,1,1.2,13.[à 1800,44,800,10,4000,60,1,1.2,13/8ǃ"+NUTS","PROTEIN --- MEAT, FISH, MILK PRODUCTS","CALCIUM --- MILK PRODUCTS, SPINACH, ENDIVE","IRON --- LIVER, ENRI 0  ) % s    , 0!+ )D- sPJ FpZ  2    %*D ) OP* &a$|8 2hA! 8   -     'r ' } & ,  T' P N n3  Z #  ! 3 .w"F }   -} +J 2(s $ E ' 1 $   d  -  7       '  -  ( =N1 1)  2 N {P  ^) Z (  , ` 4 Y{* V Z (  , i Y^ s (| s r ! = "8 @ 5 D< i@ i ^ d6 -P P           Ӎ0,18,5000,50,1.4,1.6,18A-Sà 2800, 56,1200,18,5000,60,1.4,1.7,18i-Tà 2900,56,800,10,5000,60,1.5,1.7,19-Uà 2700,56,800,10,5000,60,1.4,1.6,18-Và 2400,56,800,10,5000,60,1.2,1.4,16-Wà 2200,46,1200,18,4000,50,1.1,1.3,15 .Xà 2100,46,1200,18,4000,60"WATER AND LEAN BODY MASS. DECREASING":,u"FOOD INTAKE AND AT THE SAME TIME"::"INCREASING ACTIVITY WILL MINIMIZE THE"::"LOSS OF LEAN BODY MASS.",u20500:,u,PòUSER DATA,Qà "+DIETALL",2400,34,800,10,3300,45,1.2,1.2,16-Rà 2700,50,120N TO YOU ARE:":9400:20500::+u"DECREASING THE INTAKE OF CALORIES CAN,"::"OF COURSE, RESULT IN A LOSS OF WEIGHT."::"HOWEVER, STUDIES SHOW THAT THE WEIGHT"::"LOSS IS DUE NOT ONLY TO A DECREASE IN"),u:"BODY FAT, BUT ALSO TO A DECREASE IN"::T":x*u"TOO MANY CALORIES ARE 'BANKED' AND TOO"::"LITTLE ENERGY IS SPENT, THE SCALES"::"TIP AND YOU GAIN WEIGHT."*u20500:::*u"FOR GOOD NUTRITION, YOUR FOOD INTAKE"::"SHOULD NOT FALL BELOW 1200 CALORIES":+u"PER DAY. THE OPTIONS OPE"::"THE BODY NEEDS TO KEEP GOING. THE":)u"EXCESS HAS TO FIND A PLACE SOMEWHERE"::"AND IT DOES. IT IS STORED UP AS BODY"::"FAT. YOUR INTAKE FROM FOOD SHOULD":*u"BALANCE THE ENERGY THE BODY REQUIRES."::"HOWEVER, WHAT OFTEN HAPPENS IS THA:868:L1:!("V YES-NO INPUTN($V22080:Z$(Z$,1):Z$"Y"Z$"N"22052T(&Vj(,V ONE CHAR INPUT(.V22080:Z1$Z$:Z$(Z$,1):(@V INPUT ROUTINE(BVL:868:M$;:SKI,39(36),Z$(DV(uP91+)u:::"OVERWEIGHT IS EATING MORE FOOD THAN N)? ":22050:Z$"Y"ĺD$"RUN LEAN"7'0R(1023)123Āk':R10:868:"GETTING THE MENU...":D$"RUN HELLO"'V NEW NUMERIC VALIDATOR 'V22080:ZN(Z$):Z$"END"22036'VZN0Z$"0"Ģ24:" THAT IS NOT A NUMBER -- TRY AGAIN";:1::22032 (V247:16368,0>&#P"PRESS ";::"SPACE BAR";::" TO CONTINUE";f&(PZC(16384):ZC141ZC16020520&2P16368,0:7:" ";:21::ZV1:ZH1:&RMENU-END OF PROGRAM&R:::9000#'RL10:M$"DO YOU WANT TO TRY AGAIN (Y ORE OF WEIGHT CHANGE HAS EXCEEDED"::"THE RECOMMENDED TWO POUNDS PER WEEK.":%$::5:"1. EAT LESS FOOD"::5:"2. EAT LOWER CALORIE FOODS"::5:"3. INCREASE ACTIVITY.":%PSPACE-BAR ROUTINE%PP9ı%PZH(36):ZV(37):ZZ1200:ZZ &P24:ITY PLAN DESIGNED TO MEET YOUR"::"NEEDS."8$20500:C$p21000`$(#P9ĺD$"PR#0"D$"IN#0":f$*#$#::5:"1. EAT MORE FOOD"::5:"2. EAT MORE FREQUENTLY"::5:"3. EAT HIGHER CALORIE FOODS.":$#$#L5(((Z))):Z$(Z):L%T$"YOUR RAT:Z1(Z1100)100\#:"THIS INDICATES YOU CAN REACH YOUR"::"WEIGHT GOAL IN "Z1" WEEKS."i#20500:+$::"GOOD LUCK ON YOUR NEW HEALTHFUL PLAN"::"FOR LIVING. YOU MAY WANT TO USE 'LEAN'"::"AGAIN IN THE FUTURE TO MAINTAIN A DIET"::"AND ACTIV..: "(BW)" TO "(TW);:36,34:"LBS."P"Z(DD5)100:Z$"GAIN":Z0Z$"LOSS"":"RATE OF WEIGHT "Z$" .: "(Z);" LBS / WEEK""GL05550"(GLCW)(Z)ĺ::"THIS INDICATES THAT YOU CANNOT REACH"::"YOUR WEIGHT GOAL.":5550#Z1(GLCW)ZLS."!020500=!:::" SUMMARY OF YOUR WEIGHT PLAN"r!::"PRESENT WEIGHT ......: "CW;:36,34:"LBS."!GL0ĺ:"WEIGHT GOAL .........: "CW;:36,34:"LBS.":5516!:"WEIGHT GOAL .........: "GL;:36,34:"LBS."%":"IDEAL WEIGHT RANGE ,:"YOU SHOULD NOW HAVE A BETTER"::"UNDERSTANDING OF YOUR FOOD INTAKE AND"::"ACTIVITY LEVEL AND THEIR EFFECT ON EACH"::"OTHER. THIS INFORMATION WILL BE HELPFUL"!.:"IN ESTABLISHING AND MAINTAINING GOOD"::"NUTRITION, WEIGHT, AND ACTIVITY GOAI13:AC1(I)A05360`IA%(A);1);(FA$(A),(FA$(A))4);:36,35:(C(I)100.5)100i:I{:"LOWEST":I46:AC1(I)A05400IA%(A);1);(FA$(A),(FA$(A))4);:36,35:(C(I)100.5)100:I20500:"63000 "; ,LOC2HP$"N"SP%20İ20500:SP%4:YRJ:SP%620P$"N"İ20500:SP%4:s\S1S%(I1)1:S2S%(I)~f31000pI::D$"PR#0":D$"IN#0"::. RA$"Y"24008 5:"DO YOU WANT TO SEE A BAR GRAPH"B 7:"REPRESENTING THE PERCENT OF NU%FD%FD%(J)*LOS%(I1)1S%(I)| LOOP32100,32200,32300,32400,32500,32550,32600,32650,32700,32750,32800,32850LO:30000ZFD%:43000:FD%;:" ";FD$(J); LOS%(I1)1S%(I)%ZCO(LO):42000:QRĺCO(LO);:CO(LO)(CO(LO))ĺ".0 GM GM GM"XT$(7)" IU MG MG"T$(8)" MG MG"I13:S%(I)I3::S%(4)11I14P$"Y"ĺ::::T$(I):T$(I4):34,4:SP%44::J11)"CODE FOOD ITEM CALOR PROT FAT"\T$(5)" GM GM"T$(2)"CODE FOOD ITEM CHO CAL IRON"T$(3)"CODE FOOD ITEM VIT.A VIT.C THIAM"T$(4)"CODE FOOD ITEM RIBO NIACIN"&T$(6)"0: ^:::8:5:"NUTRIENT ANALYSIS FOR ";NA$:P$"N"Ģ15:8:"ONE MOMENT PLEASE..."|D$;"BLOAD XNUT BIN,A";RORA$"Y"2000A$:A$"+DIETALL"1970I1IG%IA%,IA$:K19:NR(K):K:I:J111:TA(J)0:J*T$(FD$)27):TS%2:FD$(FD$,27)Q:ZFD%(I):43000:FD%(I);:36,4:FD$;:36,33:AM$nDSP%SP%3:TS%1870,1880N36,33:AM(I):1890X36,4:B$;:36,33:AM(I)bFD$(I)(FD$(I),10):ZL(0)lSP%19P$"N"İ20500:SP%4:vI:P$"N"SP%4İ2050;8);"INGREDIENT";10);"AMOUNT":1820f"FOOD LIST FOR ";NA$:"CODE";8);"INGREDIENT";10);"AMOUNT""----------------------------------------":34,4:&I1NU%::AM$(FD$(I),6):FD$(FD$(I),(FD$(I))6):ZL(0)0TS%1:(FD$)27B$(FD$,(OOD LIST"_::10:"DO YOU WANT TO"::"USE A PRINTER (Y OR N)? ";:CS:SKI,3,P$:P$(P$,1)yP$"Y"P$"N"1760P$"Y"ė:12:"PLEASE PREPARE YOUR PRINTER.":20500:63000:SP%4:(RA$,1)"N"1810%"INGREDIENT LIST FOR ";NA$:"CODE"(R):C1(R)D:DCR.AGW((FA$(I),4))6DIqR43B:AC(R)CA:AC(R):C(R)C:CC1(R):C1(R)D:DCxRI63000::36,31:"CALORIES""NO. ACTIVITY ITEM";:36,29:"BURNED/MIN"I139:"-";::"HIGHEST":URNED THE MOST AND LEAST CALORIES? ":22050:Z$"N"5410UsI16:C(I)0:C1(I)0:IltI46:C(I)100:IxI1NA:DI:BI:B3B3AGW((FA$(I),4))I1C(1)A:C(4)A:C1(1)I:C1(4)I:5301DIR1B:AC(R)CA:AC(R):C(R)C:CC1A);1);FD$;f#T(RO14(ID%(A)1)15)10:T1((RO(ID%(A)1)15)256(RO1(ID%(A)1)15))AM(A)Ty(TS%5170,5180236,33:T1:5190<:36,4:B$;:36,33:T1F:IP20500:90008Z::"WOULD YOU LIKE TO KNOW WHAT ACTIVITIES":L4:M$"BHE HIGHEST CALORIES? ":22050:Z$"N"52107:63000v"NO. FOOD ITEM";:36,30:"CALORIES":K139:"-";:K:I15:AND(I):TS%1A05200 FD$(FD$(A),((FD$(A))6))(FD$)27B$(FD$,(FD$)27):TS%2:FD$(FD$,1,27) ID%(THESE FOODS WHICH"::"ARE GOOD SOURCES OF:":I@I18:PD(I)664936BA$N$(I):B$"":(A$)39B$(A$,(A$)12):A$(A$,12)DA$:" "B$:B$""ĺH9000:20500*::"WOULD YOU LIKE TO KNOW THE FOODS YOU ATE":L4:M$"WHICH HAD T OF NUTRIENTS IS AT"::"SATISFACTORY LEVELS.":50608:"YOUR INTAKE IS BELOW THE RECOMMENDED"::"AMOUNTS FOR THE FOLLOWING NUTRIENT(S):"::Z0:I18:PD(I)664925;Zĺ<(N$(I),10),:Z1Z=::20500::.>:"YOU MAY WISH TO EAT OWING"::"WILL RESULT IN A LEANER BODY."4$20500B&:Z1::\(A$:A$"+NUTS"4904.I18:N$(I):RD(I1)0PD(I)0:Z0:4914/I1PD(I)(NF(2)RD(2)1E3.5)100PD(I)(NF(I3)RD(I1)1E3.5)10:PD(I)66Z0:42:Zĺ"YOUR INTAKEHIEVE"Z:"YOUR GOAL YOUR FOOD INTAKE SHOULD BE"::"CLOSE TO YOUR PHYSICAL ACTIVITY.":"IN YOUR CASE YOU MAY WANT TO INCREASE"::"YOUR PHYSICAL ACTIVITY. REMEMBER, YOU"::"ARE STILL GROWING, THEREFORE":) "MAINTAINING YOUR WEIGHT WHILE GRYN$:(YN$,1)"Y"(YN$,1)"N"1700b(YN$,1)"N"ė:8:"- REENTER FOOD ITEM #"NU%" -":1500NU%NU%1:NU%50ė:5:"A MAXIMUM OF 50 FOODS CAN BE ENTERED"::"I WILL ANALYZE THIS LIST":NU%50:20500:17501490NU%NU%1 D$;"CLOSE F(AM$,ZI)"S"?h12:(25((L$)8)):"HOW MANY"L$;:CS:20900UmZN0ZN9991640drAM(NU%)ZN|15:FD%(NU%);1);FD$;:33:AM(NU%)TS%1680,169033:AM$:17005:B$;:33:AM$%21:"IS THIS ENTRY CORRECT (Y OR N)? ";:CS:SKI,3,D$;"READ FOOD LIST,R";FD%(NU%):FD$(NU%):D$CAM$(FD$(NU%),6)g"FD$(FD$(NU%),((FD$(NU%))6))q,TS%16(FD$)27B$(FD$,(FD$)27):TS%2:FD$(FD$,1,27)@(AM$,1)" "L$"":1640JZI611:(AM$,ZI,1)" "1630T ^L$" "E IN FRACTIONAL AMOUNTS AS DECIMALS.":34,6M:11:"- FOOD ITEM #"NU%" -"10:" FOOD CODE NUMBER";:CS:AA%1:20900AA%2NU%121000AA%21740ZN0ZN432Ģ18:"PLEASE ENTER A NUMBER 1-432":20500:1500FD%(NU%)ZN-N A SERVING? ";:CS:SKI,3,PR$:PR$(PR$,1):PR$"Y"PR$"N"1410IfD$;"OPEN FOOD LIST,L67"pNU%1w H3:R$"RECIPE"H5 VTAB 1: PRINT "ENTER THE DATA FOR YOUR ";R$;"."+2:"WHEN ALL ITEMS ARE ENTERED, TYPE 'END'."::"TYPRING FOODS IN A RECIPE? ";:CS:SKI,3,RA$:RA$(RA$,1):RA$"Y"RA$"N"1360mZRA$"Y"R$"RECIPE":1390wd1420n:"HOW MANY SERVINGS DOES"::"THE RECIPE MAKE";:CS:20900xSR%ZN:SR%01390C12:"DO YOU WANT PERCENTAGES OF"::"RDA I:"ARE YOU IN LACTATION (Y OR N)? ";:SKI,3,AC$:AC$(AC$,1)X2AC$"Y"AC$"N"1320<IAG:IG%(AG6)(AG10)(AG14)(AG19)(AG22)(AG50)(5(AA$"F"AG6))(2(AB$"Y"))(4(AC$"Y")):V7(4(AA$"F"))FR$"FOOD LIST"NP:5:"ARE YOU ENTE WHO ARE PREGNANT HAVE"::"ADDITIONAL NUTRITIONAL NEEDS."::"ARE YOU PREGNANT (Y OR N)? ";:SKI,3,AB$:AB$(AB$,1)AB$"Y"AB$"N"1290AB$"Y"1340<(12:CS:"WOMEN IN LACTATION (BREAST FEEDING)":::"HAVE ADDITIONAL NUTRITIONAL NEEDS.":NTER AN AGE BETWEEN 1 AND 100.":20500:1240::"THE NUTRITIONAL NEEDS OF MALES AND"::"FEMALES DIFFER."::"ARE YOU MALE OR FEMALE (M OR F)? ";:SKI,1,AA$AA$"M"AA$"F"1250AA$"M"1340AA$"F"AG19AG501340t :CS:"WOMEN0500g :::"THE NUTRITION REPORT INCLUDES A TITLE."::"PLEASE ENTER A TITLE: ";:SKI,39(36),NA$,12:CS:"YOUR NUTRITIONAL NEEDS VARY ACCORDING TO YOUR AGE. ":"WHAT IS YOUR AGE":"TO THE CLOSEST YEAR";:20900:AGZN:AG100AG1Ģ20:"PLEASE E"COPY OF THE FOOD CATALOG (Y OR N)? ";:SKI,3,A$:A$(A$,1):A$"Y"A$"N"1190{ A$"Y"Ĺ900,2:D$"RUN FOOD CATALOG" :2::"A MAXIMUM OF 50 FOODS CAN BE ENTERED.":(37)2::"WHEN YOU FINISH ENTERING FOOD":(37)2:"DATA, TYPE 'END'." 2SEE THE"::"PRINTED FOOD CATALOG, HANDOUT #1 IN THE"::"MECC SUPPORT BOOKLET FOR RECIPE & LEAN."::19:"OR"::"USE A PRINTER CONNECTED TO THIS COMPUTER" "TO MAKE A COPY OF THE FOOD CATALOG."R 18:CS:"DO YOU WANT TO USE A PRINTER TO MAKE A"::OU NEED A LIST OF:"::" 1. ALL FOODS YOU WISH TO INCLUDE"::" 2. A CODE NUMBER FOR EACH FOOD ITEM" ~:" BASED ON THE UNIT IN THE FOOD"::" CATALOG"::" 3. THE AMOUNT OF EACH FOOD ITEM" 20500 ::"TO FIND THE FOOD CODE NUMBERS, ,FD%(50),AM(50),NR(9),NF(12),CO(11),TA(11),PC(11),P$(11)S V(900)2Ĺ900,0:1210p `:14:"R E C I P E":: j"RECIPE LISTS THE NUTRIENT CONTENT OF "::"A RECIPE FOR ALL AGE GROUPS OR OF A FOOD":"LIST FOR ONE AGE GROUP."f t::"TO USE RECIPE Y2 NUTRITION VOLUME 23PROGRAM NAME: RECIPES LAST UPDATE:01/10/85 NAMn(AUTHOR: U OF M / MECC2(C) MECC 1982<:BEGIN PROGRAMRO30001$:::X0:255.D$(13)(4)8D$;"NOMONICO"BCL868:CS9588 LFD$(50)                z#8    ԠΠɮʠҠӠϠ ů ԠϠƠ Π: ΠԲ.Š4ԠҠӠ Π̠Š"ԠΠ͠ĠŠĠǠ ĠԠsS11:S22.zRS1S2N.&zZPC(R):42000:QRĺPC(R);:PC(R)(PC(R))ĺ" ";U.'zR[.0zn.:zP$"N"İ20500t.Dz.}SUBROUTINES TO CALCULATE NUTRIENT INFORMATION FOR FOOD ITEM FD%.d}CALCULATE CALORIES/n}NF(LO)(RO(FD%1)15)256(RO1(FD%1) -y31290.-ySP%620P$"N"SP%4:20500:X-ySP%SP%4::IA$::"SUGGESTED RDA ";h-yS15ĺ8);|-yS11S13:S24-yRS12S22-zZNR(R):42000:QRĺNR(R);:NR(R)(NR(R))ĺ" ";- zR-z::"PERCENT RDA ";-zS15ĺ8); .zS1311:S22,yS14S15$,yRS1S2S,yS22PC(R)((TA(R)NR(R)100).5):31131w,yPC(R)((TA(R)NR(R2)100).5)~,yR,yRA$"N"31200,yF4:IA$;16(IA$));,yRS1S2,yZPC(R):42000:QRĺPC(R);:PC(R)(PC(R))ĺ" ";,y,y:FALL"31065+^yP$"N"İ20500N+hyS23T$(1)" CALOR PROT"+jyS14S15:T$(2)" CAL IRON"+kyP$"Y"ĺ::+ly::"PERCENT RDA PER SERVING"::16);(T$(I),16):+ryF115:IA%,IA$:K19:NR(K):K,|yS23SQRĺTA(R);:(TA(R))TA(R)ĺ" ";**#yR0*'yC*,yRA$"N"31100*6yWS1S2:TA(W)((TA(W)SR%)10.5)10:W::"PER SERVING ";*JyRS1S2:ZTA(R):42000:QRĺTA(R);:(TA(R))TA(R)ĺ" ";*KyR*Oy*TyPR$"N"31290*Wy +YyJ$:J$"+DIET2AM(J)NF(12):KS%(I1)1S%(I):CO(K)0:NF(K)0CO(K)(((NF(K)A2).05)10)10p)2uK9K10CO(K)CO(K)10)4uK9K10CO(K)0CO(K)((CO(K).05)10)10)6uTA(K)TA(K)CO(K):K)7uSP%SP%1)9u)y:"TOTAL";9);#*"yRS1S2:ZTA(R):42000:,ZH:CL:"(RMENU-END OF PROGRAMD(R:::(4)"PR#0":(4)"IN#0"(R10:"WOULD YOU LIKE TO TRY"::CL:"AGAIN (YES OR NO)? ";:SKI,3,Z$:Z$(Z$,1):Z$"Y"Z$"N"21020(&R:Z$"Y"Ĭ(:R11:"GETTING THE MENU...":(4)"RUN HELLO"(0u32850S)1uAZN$"END"AA%2:0'Q(ZN$)(((ZN$)))20945_'Q(ZN$,1)"0"(ZN$,2)"00"(ZN$)320945'QZM:"THAT IS NOT A NUMBER - TRY AGAIN";:20960:20915'Q(ZN$)0ZN$"0"20940'QZM:CL:ZV1(ZV23):ZN(ZN$): (Q16368,0:16384,128:ZV1:36::" TO CONTINUE";;&(PZC(16384):ZC141ZC16020520&2P16368,0:7:" ";:21::ZV1:ZH1:&QNUMERIC VALIDATOR&QZH(36):ZV(37):ZM0ZM24ZM24&Q"? ";:CS&QSKI,3,ZN$:ZN$""İ20960:20915'QAA%1(Z$,1):Z$"Y"Z$"N"2890)%T 21030;%'EXIT ROUTINE]%':::(4)"PR#0":(4)"IN#0"y%$':255:(4)"MAXFILES3"%*% NMECC SUPPORTED SUBROUTINES%PSPACE-BAR ROUTINE%PZH(36):ZV(37)%P24:7:16368,0&#P"PRESS ";::"SPACE BAR";P;$ P02800!$ P100P1004$ 40P2.5,39TA$ LL1:AG$ R$ 20500d$ RA$"N"2880o$ 1994{$" 22:CL$, 3:H2$6 I$@ :%J :5:"DO YOU WANT TO DETERMINE THE NUTRIENTS"::"OF ANOTHER RECIPE OR FOOD LIST? ";:CS:SKI,3,Z$:Z$(TA(I)AM(Q)100)#d 2680;#n AM(Q)(TA(I2)AM(Q)100)B#x Q_# 22:RA$"Y"Ė12:FD$(I)# L1:A115:AA2(A3)(RA$"N"):RA$"N"A11A16:2810# RA$"N"PPC(A)# RA$"Y"PAM(A)# THL# L10TTL9# RA$"Y"2770$ T: 14 15"B" RA$"N"Ģ21:" CAL PRO CAC IRN V-A V-C THI RIB NIA"z" 3:RA$"N"Ģ23:"PERCENT RDA GRAPH FOR ";IA$:2690" I19" " A$:A$"+DIETALL"2590"( Q115"2 IA%,IA$"< K19:NR(K):K"F AM(Q)NR(I)"P I32670#Z AM(Q)520{! :"CAL = CALORIES"::"PRO = PROTEIN"::"CAC = CALCIUM"::"IRN = IRON"::"V-A = VITAMIN A"::"V-C = VITAMIN C"! :"THI = THIAMINE"::"RIB = RIBROFLAVIN"::"NIA = NIACIN"! 20500! " RA$"Y"Ģ21:" 1 2 3 4 5 6 7 8 9 10 11 12 13 H4:RA$"N"2470/ IA$:IA$"+NUTS"2450E Q19:FD$(Q):Q{ ::"THE FOLLOWING ";:RA$"N"ĺ"ABBREVIATIONS"; RA$"Y"ĺ"CATEGORIES"; " ARE USED IN"::"THE NEXT PART OF THE NUTRIENT ANALYSIS." RA$"N"2500! X2:33000:H2:2THE RDA"5L 9:"FOR EACH NUTRIENT IN THE RECIPE OR"WV 11:"FOOD LIST? ";:CS:2410` 5:"DO YOU WANT TO SEE GRAPHS COMPARING":7:"THE PERCENT RDA FOR DIFFERENT":9:"AGE GROUPS? ";:CSj SKI,3,A$:A$(A$,1)t A$"N"2880~ A$"Y"2350 Y"2092" 4D$"WRITE"F$:FT$:NUM/ >Q$(34)M HJ1NUM:Q$;CM$(J);Q$:JW R3000i STRING INPUT} S$"":16368,0 C$:A(C$):A132600 L(S$) A34(A8L0)2520 A82580 C$" "C$;:L1S$"":2520 S$(S$,L1):258:2500 S$""ĺ:2090. 4000:CM$(I)S$9 I:I9 *NUMI1:NUM0FT$"DEFAULTS":12:"RESETTING PRINTER OPTIONS TO DEFAULTS (SLOT SEARCH).":2100 ,20:868:"ARE THE ABOVE COMMANDS CORRECT? ";OK$ .OK$(OK$,1):OK$"N"2020 0OK$"SP(SP$):SP10SP3015207 D$"WRITE"F$:FT$:SPA 3000X SPECIAL INTERFACEk FT$"USER-SET" :4:"ENTER THE COMMANDS NECESSARY" "TO TURN ON YOUR PRINTER." :"(TO END, JUST PRESS 'RETURN'.)" I19 I8:" "I". ";:86:I01:10:868:"ARE YOU USING A COMMUNICATIONS CARD? ";CC$:I(CC$):Im CC$(CC$,1):CC$"N"2000 CC$"Y"1030 GET SPEED FOR COMM CARD FT$"COM-CARD" 14:"DO YOU WANT TO USE 10 OR 30 CHARACTERS" :"PER SECOND?";SP$  & SET PRINTER OPTIONS PROGRAM 2.1CLAST UPDATE: 5/6/82 RPBV(C) MECC 1982ad9000snD$(13)(4)xTI$"SET PRINTER OPTIONS"::11:TI$:34,3F$"PRINTER COMMANDS"DETERMINE TYPE OF PRINTER FILE950,3:D$"OPEN"F$N    13,"WMNPG23-50",2600,106,1600,18,5200,80,1.7,1.8,17n8^à 14,"WMNLG19-22",3100,86,1600,18,6400,120,1.9,2.4,238_à 15,"WMNLG23-50",3000,86,1600,18,6400,120,1.8,2.2,2298ǃ"+NUTS","CALORIES","PROTEIN","CALCIUM","IRON","VITAMIN A","VITAMIN C","THIAMINE",",1200,18,4000,60,1.1,1.3,14T7Yà 9,"WOMN 19-22",2100,44,800,18,4000,60,1.1,1.3,14 7Zà 10,"WOMN 23-50",2000,44,800,18,4000,60,1,1.2,137[à 11,"WOMN 50+ ",1800,44,800,10,4000,60,1,1.2,137\à 12,"WMNPG19-22",2700,106,1600,18,5200,80,1.8,2.0,1848]Ã7,18=6Tà 4,"MAN 19-22",2900,56,800,10,5000,60,1.5,1.7,19 t6Uà 5,"MAN 23-50",2700,56,800,10,5000,60,1.4,1.6,186Và 6,"MAN 50+ ",2400,56,800,10,5000,60,1.2,1.4,166Wà 7,"GIRL 11-14",2200,46,1200,18,4000,50,1.1,1.3,157Xà 8,"GIRL 15-18",2100,46C5 : THIS SHOULDN'T HAVE TO BE EXECUTED AT ALL IN THIS PROGRAMR5PòUSER DATA5Qà "+DIETALL",1,"CHILD 7-10",2400,34,800,10,3300,45,1.2,1.2,165Rà 2,"BOY 11-14",2700,50,1200,18,5000,50,1.4,1.6,186Sà 3,"BOY 15-18",2800,56,1200,18,5000,60,1.4,1.42020*4Z99999ĺ" ***** ";:Z0:QR1:G46((Z)));:Z0:QR0:R4$Z(Z)x4.Z0ĺ6((Z)))"0";:QR0:Z0:48420054 ROUTINE TO RIGHT JUSTIFY 3 DIGIT NUMBERS4Z(Z)430404 Z999ĺ"***":Z0:QR1:53((Z)));:Z0:QR0:10 WOMAN 23-50 YEARS":"11 WOMAN 50+ YEARS":"12 WOMAN PREGNANT 19-22 YEARS":"13 WOMAN PREGNANT 23-50 YEARS":"14 WOMAN LACTATING 19-22 YEARS":"15 WOMAN LACTATING 23-50 YEARS"33(3S%(I)11ĺ" ";4Z(Z)":" 2 BOY";:21:"11-14 YEARS":" 3 BOY";:21:"15-18 YEARS":" 4 MAN";:21:"19-22 YEARS"2" 5 MAN";:21:"23-50 YEARS":" 6 MAN";:21:" 50+ YEARS":" 7 GIRL";:21:"11-14 YEARS":" 8 GIRL";:21:"15-18 YEARS":" 9 WOMAN";:21:"19-22 YEARS"3"(RO11(FD%1)15)10151CALCULATE RIBOFLAVINW1NF(LO)(RO12(FD%1)15)10]1s1 CALCULATE NIACIN1*NF(LO)(RO13(FD%1)15)10141RCALCULATE DIVISOR1\NF(12)(RO14(FD%1)15)101f[2耢5:" 1 CHILD";:21:" 7-10 YEARSD%1)15)0#0&CALCULATE IROND00NF(LO)(RO7(FD%1)15)10J0:c0XCALCULATE VITAMIN A0bNF(LO)(RO8(FD%1)15)256(RO9(FD%1)15)0l0CALCULATE VITAMIN C0NF(LO)(RO10(FD%1)15)00CALCULATE THIAMIN1NF(LO)15) /x}!/}CALCULATE PROTEIN?/}NF(LO)(RO2(FD%1)15)E/}X/,~CALCULATE FATv/6~NF(LO)(RO3(FD%1)15)|/@~/~CALCULATE CARBOHYDRATES/~NF(LO)(RO4(FD%1)15)/~/~CALCULATE CALCIUM 0~NF(LO)(RO5(FD%1)15)256(RO6(Fx  U x    -    J '|%6(  5!  %P8  &( #- U    7  Z  i  #  m8&  <7!   $@  B   k"   (  <   d 22 (  2 )! <  (!  } ( i      (j\( x*(  %n  d,   <  7;< < :F ^3 ( ^2b T  ^4N }, 1 -    'P  -3x _ ( 2  2  2 d  $ }  } x  x }*x  s  d  n (2 F  F  A  A   2 Z(( /<  ()d x2  9  -F( ". 7  ; 07  G8  P $,('N<-D 1$i (  F  b 7 ZX ( "h }-7 s     i " i ( d+  A  A  < ( nf F$ vf # ( A  4 L K L mM``U :)3 * d  2  Kd  2x Z 2 "%x   5  F  ,2 ,-!L _\  d T d`  Ad *  !   ' n d A6B  n| x d x&x sm }  d 7 J 9  d d>?3!f  % L r%  v+# d   U. " U <? i%|  * ( h< i5Z' < 2 h - U x!  ((82  -/8@ 44   9!  $, "  '/ -Z '<A+  66Bh  (  h*  2  z)   - '  #6"  ND! F2 x = [ ( <0 #D  <2P  <2hAs %\!,% 2*`  6^ 6F Z   i     d} d}/2  /J  s  d- /'  n | - )/D  - 0 ;t  FB  d '  7 ! (W% F6  (    &"01 << RD  . N D M,R  < E "LN:5000:3000SF#"PLEASE REMOVE THE WRITE PROTECT LABEL.":5000:CC$"N"2100]P#1550wpO ROUTINE24:7:16368,0O"PRESS ";::"SPACE BAR";::" TO CONTINUE";~Z01:ZC(16384):Z(ZC141)(ZC160):Z16368,0:1:868:20::(#ERROR RECOVERY2#ER(222):LN(218)(219)256<#:12:ER4ĺ"ERROR NUMBER "ER" IN LIN5,JK5):X((X$))'X0X127X0CL$"":K1L$(S$,K1)_R$"":LJR$(S$,LJ)qS$L$(X)R$LKLJ:4090JK5:868:L(S$):K1LC$(S$,K,1):A(C$):A32AA64:(A);:"K,:SPACE BAR20  A32AA64:1  (A);::S$S$C$:2520A ( 16368,0:V END THE PROGRAMn D$"CLOSE"F$:950,0 D$"RUN HELLO" SCAN FOR CHR$ L(S$):L74140 K1L6:(S$,K,5)"CHR$("4090 JK6L:(S$,J,1)")"4080X$(S$,K , x  '"B @c!  2\  :  ,<2(   K    ~ + }"  _$7!, 4K       ` 4 Z ( , - !  1 " &C $  )*) ;x  b "   ?   F 2 P " p _  )F  i% .  Z  P   P  | 'J#U #sx%x-xsx'x  " ((   F    F   n Z Z }0< A 7 2  7# <  (  xdins}# != c-L d  K  A ( A  P d ( P2 s*  AP   !  i s dٮƠǠҠԮƠǠǠԮƠǠǠӮǠӮӮǠ̠ӮǠŠŠˮǮǠǮǠǮǠǮǠǠ٠ĮǠǠǠŮ٠ǠŮ٠ǠŮ٠ǠӮ٠Ǡ٠Į٠ǠҮ٠ǠĮŮ̠Ȯˮ٠Ǡ٠Į٠ؠǠ׮ǠίŠȮ٠Ǡ͠ԮĠٮǠ͠ˮǠǠ٠ήǠΠԠΠӮǠȮǠٮǠΠԮǠǠ٠ŮӠΠԮîˮǠŮˮǠŮǠˮǠˠ٠éǮǮήǠǠҮǠĮǠԮǠŠǠǠԠȮǮǠŮǠԮǠ̮ǠРŮŠˮǠӨөԮǠͮǠήǠӠϠĮǠӠ ĮǠӠ ĮǠӠ Į˨ǩǮӠҮͩԠǠƩǠӠͩǠӠƩǠӠͩǠӠƩǠͩ͠Ǡ͠ƩǮӮŠҠנŮŠҠנǠȮ٠̮ǮԠǠǠȮǠȮǠȮӮˠǮǮ٠ŮĠŮ̮̮̠έŮǠȮǠȮǠȮǠȮٮϠǮΠӮΠ®Ӯ٠̠ƩǮ          W" POUNDS.":-4 NMECC SUPPORTED SUBROUTINESD4PSPACE-BAR ROUTINEO4PP9ıe4PZH(36):ZV(37)z4P24:7:16368,04#P"PRESS ";::"SPACE BAR";::" TO CONTINUE";4(PZC(16384):ZC141ZC1602052052P16368,0:7:" U0ıN3 Z1NU:AM(Z)0FD$(Z3)FD$(Z):ID%(Z3)ID%(Z):AM(Z3)AM(Z):Z3Z31V3 :3(#AN(BWGLGLTW)(GLCWBWCW)(GLCWTWCW): 4#::"BASED ON CURRENT DATA FOR PEOPLE OF"::"YOUR AGE AND SIZE OF FRAME, YOUR WEIGHT"::"SHOULD BE "BW" TO "To2""YOU ARE EATING THE RIGHT FOODS. TO DO"::"THIS YOU MAY WANT TO RUN THE RECIPE"::"COMPUTER PROGRAM."2620500:210002 SU0:Z31:NA0ı2 Z1NA:SUSUAA(Z):AA(Z)0FA$(Z3)FA$(Z):IA%(Z3)IA%(Z):AA(Z3)AA(Z):Z3Z312 :3 Z31:N:30160"1P9ĺD$"PR#0"D$"IN#0"K111:"ONE MOMENT PLEASE. . .":34,20w1P1(950):P2(951):P3(952):P4(151)1D$;"BLOAD CHAIN,A520"1520"LEAN PART2"2:"WHILE YOUR WEIGHT IS RIGHT FOR YOUR"::"SIZE, YOU MAY WISH TO CHECK TO SEE IF":OU HAVE ENTERED ";SU;" MINUTES"::"OR "DA" DAY"DA$" OF ACTIVITIES.":_02"YOU HAVE ENTERED:"0<:"NO. ACTIVITY ITEM";:36,35:"TIME":0AI139:"-";:I::34,80PZ4NA:NA1Z4:35900d(37)19İ20500:0n:NAZ4:(37)6İ205001:AMOUNT"$/I139:"-";:I::34,4?/Z4NU:NU1Z4:3140:_/ID%(NU);:5:Z2$;:34:Z1$t/((Z3$)0)3820/34:AM(NU):3850/5:Z3$;:34:AM(NU)/ (37)19İ20500:/:NUZ4:(37)4İ20500/-::::DA$"":DA1DA$"S"F0/"Y"H.::L10:M$"DO YOU WANT OUTPUT TO A PRINTER? ":22050:P9(Z$"N").P9ĺ::"OUTPUT WILL NOW GO TO THE PRINTER"::"QUESTIONS WILL STILL BE ASKED AT"::"THE SCREEN":20505.:63000::13:"- FOOD LIST -":/"NO. FOOD ITEM";:36,32:"NANA1:3576- 205008-Z1Z16:NAZ1:Z1Z03572J-NAZ01:3540}-Z$(AA(NA)):Z5(Z$):Z$((" ",Z)Z$,4)-868:IA%(NA)" "(FA$(NA),(FA$(NA))4);:36,32:Z$" MIN":-- 3590:NANA1:NAZ0NAZ163594- .tD$"CLOSE1 , 3592N, L22:M$"CHANGE ANY TIMES ON THIS LIST? ":22050:Z$"N"3584Z, NAZ1:, M$"CHANGE THIS TIME? ":3590:L(37)1:22050:Z$"N"3581, M$"WHAT IS THE CORRECT TIME? ":22030:ZN03579, AA(NA)ZN:L2:3576- L:NAZ0NAZ16+ 3590:L(37)1:22050:L:Z$"Y"ĢL2:100:" ----- DELETED ----- "::255:AA(NA)0:L+ NAZ0NAZ16NANA1:3562+ 20500+ Z1Z16:NAZ1:Z1Z03552+ NAZ01:3540, :::11:"- ACTIVITY LIST -":34,4:Z0NA:Z11:NAs5L%tktlt%tL.uɯd(t 8ɀ   Lޥ8e湥 -uH,uH L`ktltL   ߅ lݢ_ u u , " tLtH uh u` u        u L{ڭ)` #u #u LSKt` 8ɀ   Lޥ8e湥 -uH,uH L`ktltL   ߅ lݢ_ u u , " tLtH uh u` u ?NF9$"PRINTER COMMANDS"2?XD$;"OPEN";F9$;",D1"E?bD$;"READ";F9$T?lFTYPE$,ZMu?vLOOP1ZM:CMD$(LOOP):LOOP?D$;"CLOSE";F9$?LOOP1ZM:CMD$(LOOP):LOOP?M:CMD$(LOOP):LOOP?F9$?LOOP1ZM:CMD$(LOOP):LOOP?UP CALORIES THAT MIGHT"::"OTHERWISE TURN INTO UNWANTED FAT.":20500:f> DIVERT OUTPUT TO PRINTERp>P9ı>"(950)63100,63200,63300>| COMM CARD>775:769,132>> DEFAULTS/SEARCH>D$;"PR#";(952)>>D COMMANDS ON FILE":"FOR YOUR SIZE, YOU ARE WITHIN THE"b=fv:"CORRECT RANGE (";(BW.5);" TO ";(TW.5);" LBS.)."=kv::"REMEMBER, TO STAY THIS WAY, YOU MUST"::"CONTINUE TO BE CONCERNED ABOUT THE FOOD"::"YOU EAT AND YOUR PHYSICAL ACTIVITY."G>pv:"EXERCISE BURNS :"IS ALWAYS A GOOD TIME TO ANALYZE WHAT":< v"YOU ARE EATING. THE PROGRAMS ON"::"NUTRITION VOLUME 1 AND NUTRITION VOLUME"::"2 CAN HELP YOU.":20500:21000&=\v:2:" C O N G R A T U L A T I O N S":::"BASED ON CALCULATIONS OF THE BEST WEIGHT::"PROTEIN, AND FAT AS COMPARED TO WHAT"::"IS RECOMMENDED."N;u20500::;u:"FOR THE BEST HEALTH OF YOU AND YOUR"::"CHILD, WEIGHT LOSS DURING PREGNANCY"::"IS NOT RECOMMENDED. WHILE, THIS MAY"+<v:"NOT BE A GOOD TIME FOR WEIGHT LOSS, IT"::"TO WORK AND FOR LEISURE ACTIVITIES."::"THE PARTS OF FOOD THAT SUPPLY CALORIES":u:"ARE CARBOHYDRATES, FATS, AND PROTEINS."::"REMEMBER, ALCOHOL ALSO SUPPLIES"::"CALORIES. IN THE CHART BELOW, YOU WILL"?;u:"SEE YOUR INTAKE OF CARBOHYDRATE,"GRAM WILL BE PLANNED ACCORDING TO"::"THIS GOAL. WHEN YOU ACHIEVE THIS WEIGHT"::"YOU MAY WANT TO RUN 'LEAN' AGAIN."|9u9u::"ENERGY IS MEASURED IN CALORIES. "::"CALORIES ARE NEEDED TO KEEP YOUR BODY"T:u:"FUNCTIONING AND TO PROVIDE ENERGY":UR HEIGHT.":20500:210008u:3:"A PROGRAM CANNOT BE PLANNED FOR YOU."::"PLEASE TRY AGAIN WHEN YOU FEEL LIKE"::"CHANGING YOUR WEIGHT GOAL."8u20500:21000v9u13:"YOU HAVE TAKEN THE FIRST STEP IN"::"ADJUSTING WEIGHT. THE REST OF THE"::"PROUTINE(7BVL:868:M$;:SKI,39(36),Z$.7DVL70uUSER WRITTEN SUBROUTINES7uD$;"CLOSE"::4:"THIS COMPUTER PROGRAM IS WRITTEN FOR":8u"PEOPLE WITHIN AVERAGE HEIGHT RANGES."::"UNFORTUNATELY THE INFORMATION IS NOT"::"AVAILABLE FOR PEOPLE OF YOZN(Z$):Z$"END"22036b6VZN0Z$"0"Ģ24:" THAT IS NOT A NUMBER -- TRY AGAIN";:1::22032w6V24:868:L1:6"V YES-NO INPUT6$V22080:Z$(Z$,1):Z$"Y"Z$"N"220526&V6,V ONE CHAR INPUT6.V22080:Z1$Z$:Z$(Z$,1):7@V INPUT RO ";:21::ZV1:ZH1:25RMENU-END OF PROGRAMA5 R::21020c5R:::(4)"PR#0":(4)"IN#0"5RL11:M$"DO YOU WANT TO TRY AGAIN (Y OR N)? ":22050:Z$"Y"Ĭ5:R:11:"GETTING THE MENU...":(4)"RUN HELLO"5VNEW NUMERIC VALIDATOR 6V22080: 膢 ȱ " <67 L  8ij v vo>D$;"CLOSE";F9$6LOOP1NUM:CMD$(LOOP):LOOP< COMM CARD775:769,132"8 DEFAULTS/SEARCHMD$;"PR#";(952)p(151)3(151)4ĺ(9)"132N"vD COMMANDS ON FILENF9$"PRINTER COMMANDS"XD$;"OPEN";F9$bD$;"READ";F9$lFTYPE$,NUMvLOOP1NUM:CMD$(LOOP):LOOP520H 2P16368,0:7:" ";:21::ZV1:ZH1:a RMENU-END OF PROGRAM R:::(4)"PR#0":(4)"IN#0" 0R(900)2ĺD$"RUN RECIPE" :R29690:(4);"RUN LEAN"  DIVERT OUTPUT TO PRINTER "(950)63100,63200,63300 |# (A$,3);:36,5:(A$,(A$)3)* I: D$;"CLOSE"Y D$"PR#0":D$"IN#0":21000p PSPACE-BAR ROUTINE PZH(36):ZV(37):ZZ1200:ZZ P24:7:16368,0 #P"PRESS ";::"SPACE BAR";::" TO CONTINUE"; (PZC(16384):ZC141ZC16020E";:36,15:"ACTIVITY ITEM":JJ140:"-";:JJ:L D$;"OPEN ACTIVE,L36":e D$"OPEN ACTIVESORT" I1230:D$"READ ACTIVESORT":G$:J(G$) D$;"READ ACTIVE,R";J:A$ I$(J):(I$)1I$" "I$ (I$)2I$" "I$ A$I$(A$,(A$)4)I$(J):(I$)1I$" "I$1 (I$)2I$" "I$> A$I$A$k (A$,3);:36,5:(A$,4,(A$)9);:36,66 ((A$,6),1)" "Q$(A$,5):2060 Q$(A$,6) Q$: D$;"CLOSE" (900)221000 :" ACTIVITY CATALOG FOR LEAN":0 "CODOOD LIST,L67":E :"FOOD CATALOG FOR ";:(900)2ĺ"RECIPE":2003Q "LEAN" :"CODE";:16:"FOOD ITEM";:36,66:"UNITS":JJ172:"-";:JJ: D$"OPEN FOODSORT" I1432:D$"READ FOODSORT":G$:J(G$) D$;"READ FOOD LIST,R";J:A$ = 7nNAME: FOOD & ACTIVITY CATALOGS VERSION:12/19/81YxAUTHOR: WILLIS JOKELA - MECCxLAST UPDATE: 01/11/85 NAM::255D$(4)D$;"NOMON I,C,O":12:"PLEASE BE SURE YOUR PRINTER IS PREPARED":20500 63000:D$;"OPEN FL8Hmx 6*+(n*+c*ȩ*h`HH$hH,b (hHI  X $ i$h`l&RIBOFLAVIN","NIACIN"39 DIVERT OUTPUT TO PRINTERQ9"(950)63100,63200,63300a9| COMM CARDs9775:769,132y99 DEFAULTS/SEARCH9D$;"PR#";(952)9(151)3(151)4ĺ(9)"132N"99D COMMANDS ON FILE9NF9$"PRINTER COMMANDS"_X_lfW_{_>fwooq?ow"C AC~}~|JU.5B;J*NGAGsBsB63Cwx{JUNGAGsBs600p00CBnJ*NGAGsBcB6cCtwutJUNGAGsBsB63CCnJ*NAsBc600`CFJUOAs``wBfgC{9{{ J*B MBlLC8W0W8JUBBgBlgC {k J*BBGY@B@B O?OO]GsBBqCFJ*NGYDsB p`ggpx``]Gs00{C3ACFJUNGY|xDyjGsvC6ACFJ*NGAGsBcB6f`CBwJUNGAGsBBCFB;FJ*NGAGsB`B0`Ca]a}}JUNGAGsBgB0gCFJUNGVA|D|ApECD]GOD@CAAGA <8xjGOH@NHxBByB{CFJUNJUNGYAByxyEB<]GOGCGAHBBOBYOCFJ*NGWA|ApB|@aBAA?C>]GO~x`FGA>B~BBBYCFJUNGY DyBB~D>8x]GQF@`Dp`@HB@@_BY_CFJ*NGY><|ED]GOG|L|HBFACFBAQB oBlOCFJUNGAGP?D@B`ABpAB8ABAABBLBlOCFJ*NGVI?jGOaHBAQBBOB`OCFJUNGVABBFO?^GQ|0TAA ~~B@@oBLOCFJ*NGYDsBFgsx|]GOE@`pG`@GBBYCFBB3CFJ*NGAGJ`@UCUBUBUUUBUABUCUBOBfFCFJUNGAGN~C*B*B* FBC BBB CFJ*NGAGOCUBWBB@B`@CFJUNGAGOCC@B`ABpAB8ABAABBGlo`OCFJ*NGAGO~x`捿ttmtt`BB0xXCFJ*B037B6ACFJUBBC3ACFJ*BA_BBC3ACFJUNA]??B/++*C*BB3?>CFJ*NGAGO?_WUUUBUABUCUBB>0CFJUNGTvGJ??C*B*B***B*AB*C*Bt u@ )` t t t0H)?hJ t t t?Lt t&'&Ȅ``tt ttt`t)tJJ tttt .t .t ntt)     wn.";2@IN11:VV:6F35:"WHICH NUMBER? ";A$fJPR$"YES"A$"PR"ĺD$"RUN SET PRINTER OPTIONS"ODR$"YES"A$"DR"ĺD$"RUN SET DRIVE OPTIONS"TCA$"YES"A$(1)ĺD$"RUN TEACHER OPTIONS"2^A((A$)):A1AN2(A)A$ĢVV:958:VV2:6F5:HH21 I:VVVV2F2F3> VV:6F35:"OTHER OPTIONS:"p VV2:9(N9):N1". PROGRAM DESCRIPTION"SP$ "VV3:9(N8):N2". END" ,RESPOND TO USER'S CHOICE 6VVVV7:VV22VV22;(64435)6Ģ24:" Make sure your caps lock key is doULL SCREEN (18 IS LIMIT)- (900)DNİ700? DISPLAY MENUk MENU11:1(D2$""):21(DN$)2:DN$ 2:21(D2$)2:D2$ 5F5:6F35:"PROGRAM"SP$":" VV7F5:HH9F38 I1N:VV:HH(I10):I". "MN$(I) VVVV1:F3IC2VV7FBJ"+ <DN$,D2$,N:MN$(N),CN$(N),DE$(N,DL)C FSP$"":N1SP$"S"V PI1N:MN$(I)m ZCN$"YES"ćCN$(I) dJ1DL:DE$(I,J):J:I nP(I)(I)(I1)256 xC2((N1)2):F2C2(N1)2:ODD # OF MENU ITEMS F3N7:TWO COLUMNS F5N14:FNO":K48$"YES":IS$"YES"3 P(I)(I)(I1)256R K48$"YES"(978)157550s D$(13)(4):D$"NOMON CIO" (16372,0::::255:0:1:D$"PR#0" 2DN:(900)DNĹ230,32:(4)"BRUN LOGO":16304,0:16297,0:16300,0:16302,0:D$"BRUN SKI.OMN CARD INITIALIZATIONS DL=LENGTH OF DESCRIPS:CN$=DISTINCT CATALOG NAMES:CA$=CTRL-A OPTION:PR$=PRINTER OPTION:DR$=DRIVES OPTION:K48$=48K REQUIRED:IS$=INSTRUCTIONAL PROGRAM 29690:JUST BELOW SKI.OBJ DL6:CN$"YES":CA$"NO":PR$"YES":DR$"W HELLOVERSION 4.5-E>LAST UPDATE: 01/18/85 EJGQ(C) MECC 1982y CHECK INITIAL VALUES AT LOCATIONS(1023)0Ĺ1023,0:900,255:950,0 (64435)6(49175)128ĺ(4)"PR#0":(4)"IN#0":16372,0:33,40: TURN OFF 80-COLU          Z2(ZK)(ZWZI)::BZ2(0)Z2(1)Z2(0)Z2(2)Z2(0)25640120`CARD:SLOT:CARD0:SLOT0x951,CARD:952,SLOTœCARD1Ĺ950,CARD:D$"BLOAD COMM CARD ROUTINE"̜BU=4(TD$"CLOSE"F$:Z5(4),Z7(4),Z2(2)O^Z5(1)24:Z5(2)56:Z5(3)72:Z5(4)8whZ7(1)56:Z7(2)24:Z7(3)72:Z7(4)72rSLOT17:AD(SLOT192)256|CARD14(AD5)Z5(CARD)(AD7)Z7(CARD)40110ZK02:Z2(ZK)0ZI02558:Z2(ZK)35000%XuFT$"DEFAULTS"FT2:40000>buFT$"USER-SET"FT3Wlu950,FT:D$"CLOSE"F$]vum COMM CARDˆSP:SP10Ĺ802,82:818,82̈D$"BLOAD COMM CARD ROUTINE"ֈ@ SEARCH SLOTS FOR AN INTERFACE J CARDS: COMM=1,SERIAL=2,PAR=3,MALIIN A LIST OF FOODS.","IT ALSO TOTALS THESE VALUES AND GIVES","PERCENTAGES OF THE RECOMMENDED","DIETARY ALLOWANCES FOR EACH NUTRIENT."0u POKE PRINTER SPECS INTO MEMORY:uF$"PRINTER COMMANDS"DuD$"OPEN"F$:D$"READ"F$:FT$NuFT$"COM-CARD"FT1:N UNDERSTANDING OF THE,RELATIONSHIP BETWEEN THE INDIVIDUAL'S,"FOOD CONSUMPTION, ENERGY EXPENDITURE,","AND RESULTING BODY WEIGHT.""","""RECIPE",RECIPE"CALCULATES AND DISPLAYS THE NUMBER","OF CALORIES AND AMOUNTS OF TEN","NUTRIENTS PRESENT "PRESS ";::"SPACE BAR";::" TO CONTINUE";]Z01:ZC(16384):Z(ZC141)(ZC160):Z|16368,0:1:868:23:: USER DATA.. FIRST LINE FORMAT: NAME,NUMBER OF MENU ITEMS 0,"NUTRITION","VOLUME 2",2 LEAN,LEANDEVELOPS A:" TITLE: ";DN$:D2$""Ė13:D2$J\15:" DIRECT INQUIRIES TO:"f:13:"MECC DISTRIBUTION":13:"3490 LEXINGTON AVENUE NORTH":13:"ST.PAUL, MINNESOTA 55112":13:"(612) 481-3527"p900::SPACE-BAR ROUTINE24:7:16368,0. -"8J1DL:DE$(I,J)""DE$(I,J)" "ĺ" "DE$(I,J)I J::I:900Q*:f4SUPPORTBOOKINFO>IP$"":IS$"YES"IP$"INSTRUCTIONAL "H4:17(IP$""):"A MANUAL TO AID IN THE "IP$"USE":6:"OF THIS DISKETTE IS AVAILABLE FROM MECC."&R119))1)16: SLOT #&CS1CS7CS60CS:BDISPLAY LOGOdJ1600:(16384)128J600J:16368,0:900,DN:16303,0DESCRIPTIONS::21(DN$)2:DN$:15:"VERSION 1.5":34,3:I1N:(37)21DLİ900: MN$(I)"50)0İ30000*CN$"YES"ĺD$"RUN"CN$(A)=D$"RUN"MN$(A)T&NOT ENOUGH MEMORY^0:10:"THIS PRODUCT NEEDS AT LEAST 48K TO RUN.":16384,128:16368,0:660XEND OPTION::11:9:"INSERT ANOTHER DISKETTE.":900CS(P(P(9935:"PLEASE TYPE A NUMBER FROM 1 TO "N2".";:IN0FhIN:AN2İ600]rAN1İ750:MENU0g|MENUSEED RANDOM # GENERATOR & CLEAR HGRX(P(78))230,32:62450 GET THE PROGRAM::12:"GETTING "MN$(A)"..." PR$"YES"(9          ӠĠΠӠƠĠĠӠƠĠĠƠӠƠĠҠӠƠĠŠΠӠƠĠˠĠȠӠΠΠӠƠĠˠĠȠӠΠΠӠƠĠˠĠȠӠĠΠӠƠĠˠĠȠӠƠĠԠέĠȠӠ ΠĠӠƠĠԠέĠȠӠ ΠӠƠĠԠέĠӠ̠ƠĠίӠƠĠԠέĠӠ̠ƠĠƠĠĠĠԭĠΠӠƠĠĠĠԭĠΠӠƠĠҠĠƩĠӠƠĠҠĠƩĠ͠ŠРӠǠڠڠנĠΠ̠ŠׯϠǠӠŠڠҠڠĠȠˠĠǠΠӠ ӠשįĠӠŠҠؠԩРˠӠŠˠРˠӠŠˠԭРԠŠ͠٠ĠРԠŠˠǠàҠˠנ͠ˠנРˠӠĠˠРˠӠĠРˠӠŠ͠РԠ͠ӠǠԩҠǠׯԠ٠РԠ͠ӠנǠԩĠǠРԠ͠ӠנǠԩĠǠРˠӠ͠ǠĠ̠ŠĩР͠ǠĠ̠ŠĩРΠ͠ӠȠǠԩӠРΠ͠ӠנǠԩӠĠԠŠҠР͠ԠŠҠР͠Р͠ĠǠĩРĠӠŠŠĠӠŠĠΠРŠĠӠŠĠڠ͠ƠĠƠ͠Ġ˩Р͠ŠƠڠԠǠŠ̠ΠĠРŠ̠ӠŠŠĠĠΠŠŠӠҠŠŠ̠ҠŠŠ̠ǠǠ͠ĠĠРĠРŠ̠ǠǠ͠ĠĠРĠРŠ̠͠РˠĠàĠĠРˠĠĠŠ͠͠РŠ̠ŠҠԠŠŠŠ̠ԠڠǠȠˠĠŠРˠĠԠͩРˠ̮٠ĠԠˠӠ                                           TAKE"::"SHOULD BE CLOSE TO "RD(1);" CALORIES":"PER DAY. TO MAINTAIN OR CONTINUE TO"::"WORK TOWARD YOUR WEIGHT GOAL CONSIDER"::"INCREASING YOUR PHYSICAL ACTIVITY.":4900:"YOUR GOAL WAS TO LOSE, BUT YOU"::"WILL ";GO$;". IN ORDER TO ACMUST CONTINUE TO EXERCISE.":4900:"CONGRATULATIONS! IF YOU CONTINUE TO EAT"::"AND MAINTAIN ACTIVITY LEVELS AS YOU"::"HAVE BEEN YOU WILL ACHIEVE YOUR WEIGHT":/"GOAL. REMEMBER FOR BEST HEALTH BECAUSE"::"OF YOUR AGE AND GROWTH YOUR FOOD IN:"CALORIES. SOME SUGGESTIONS ARE TO:":9100:4900:"CONGRATULATIONS! IF YOU CONTINUE TO EAT"::"AND MAINTAIN ACTIVITY LEVELS, YOU WILL"::"ACHIEVE YOUR WEIGHT GOAL. HOWEVER, TO"!:"PREVENT YOUR ADDED WEIGHT FROM TURNING"::"INTO FLAB YOU $"LOSE"468084GO$"GAIN"4902:SUCCESSFULLY GAININGP>4800:UNSUCCESSFULzHGO$"LOSE"4902:SUCCESSFULLY LOSINGR30100:4902:UNSUCCESSFULTK500DD"IN ORDER TO ACHIEVE YOUR GOAL YOU"::"MUST INCREASE YOUR FOOD INTAKE BY ";TK420500::,OJ$"MAINTAIN"AN4902=AG%184640RAGE 18 OR UNDERgOJ$"LOSE"4620GO$"GAIN"4820:SUCCESSFULLY GAINING4800:UNSUCCESSFUL GO$"LOSE"4840:SUCCESSFULLY LOSING4860:UNSUCCESSFUL ADULTS *OJWGOWIZ:63000IGO$"GAIN":GP$"A GAIN":IIGO$"LOSE":GP$"A LOSS"(DD)10GO$"MAINTAIN":GP$"MAINTAINING YOUR WEIGHT"::"FOR YOUR AGE, SIZE AND ACTIVITY PATTERN"::"YOUR FOOD INTAKE AND ENERGY EXPENDITURE"::"WILL RESULT IN "GP$".":"REMEMBER THAT YOU HAVE TO ADD 3500"::"CALORIES TO GAIN A POUND OF FAT OR"::"USE 3500 CALORIES TO LOSE ONE."+20500::::II0:DDNF(1)BU:DD0II1D(DD)1000İ9300:20500X9000:ZDD3500:I((GWOW)Z):J((GLOW)Z):I0JIIJb)):BUAA(I)GWABU:ISBU(BUDA.5):NF(1)(NF(1).5):DA$"":DA1DA$"/DAY"20500::::" YOU HAVE EATEN ";NF(1);" CALORIES";DA$::" YOU HAVE USED ";BU;" CALORIES";DA$:" THE DIFFERENCE IS ";NF(1)BU;" CALORIES";DA$s:RATES ARE USED TO ROUND THE"::"DIFFERENCE. IN ORDER TO GET ENOUGH"::"NUTRIENTS FROM FOOD YOUR CALORIE INTAKE"::"SHOULD NOT FALL BELOW ";:A1200:AG%19ARD(1)A;" CALORIES"::"PER DAY.":BU0:OWCW:GWCW.4535924BU0:I1NA:A((FA$(I),47:16:"% FAT";:26:"% PROTEIN"e :"RECOMMENDED";:Z30:9200:(15L):30;:Z15:9200:(27L):15 :"YOUR INTAKE";:ZYF:9200:(15L):YF;:ZYP:9200:(27L):YP :"DISCREPANCY";:ZFD:9200:(15L):FD;:ZDP:9200:(27L):DP:"CARBOHYD:A$"+DIETALL"4180' ^I1Z:J196 hRD(J)::d |YF(NF(3)9NF(1)100.5):FD(YF30.5) YP(NF(2)4NF(1)100.5):DP(YP15.5) 63000 :::"FOR GOOD HEALTH, THE DISTRIBUTION OF"::"CALORIES SHOULD BE AS LISTED BELOW:": TNF(7)' NF(8)(Z10)AM(I)TNF(8)Y K910:NF(K)((ZK2)100)AM(I)TNF(K):K~ NF(11)(Z13)10AM(I)TNF(11) I I111:NF(I)NF(I)DA:I "Z((AG%7)4):Z(Z4)Z(Z4)4(Z0)Z(AG%50)1:AG%10SX$"F"ZZ5 J TA$D(1)I:4040! DI:BI:I5B5] R1B:AHI(R)CA:AHI(R):HI(R)C:CND(R):ND(R)D:DCd R K24:NF(K)(ZK)AM(I)TNF(K):K NF(5)((Z5)256(Z6))AM(I)TNF(5) NF(6)(Z7)10AM(I)TNF(6) NF(7)((Z8)256(Z9))AM(I)1,P2:952,P38 NPO2PO3ĺD$"BLOAD COMM CARD ROUTINE"V D$;"BLOAD XNUT BIN,A";ROt I15:HI(I)0:ND(I)0:I I111:NF(I)0:I I1NU:IC%ID%(I):ZRO(IC%1)15 T(Z14)10:A((Z)256(Z1))AM(I)T:NF(1)NF(1)A I1HI(1)A:N+ NUTRITION VOLUME 27PROGRAM NAME: LEAN PART2ULAST UPDATE: 3/16/83 SPM~(AUTHOR: U OF M/MECC - WILLIS JOKELA2(C) MECC 1982<:RO31501255D$(13)(4)D$;"NOMON I,C,O"START OF MAIN PROGRAM L950,P1:95                          wpO_X_lfW_{_>fwooq?ow?o@?x?~>{m?_Uv?G_@X~nx1{~?G_ |~?_?|k{o;_ow[o_?>ox? }xcuv{}>_~{}V{?X_{{?ww~_>wv{?x?o~_}?@{?|c@ooo}}`|a?l?~gO~n~{z{fn{{on}wpg_X_nvW_{]_~nwoo|?ow?o@G?xx>{m?_mv_??`@?`@?W~v[k>w-w.{~?> x`\o_`O0?~}~?_qwlw`\o<>@ox?a@}xxmv{}@_~{}6{?8o{;?o{~_}~.wvs?x?ocO}{o_nn~{v{nn{{wn~gxs_X_nfWO{]_>nwOo?~?og?o@q?|C>{m?_}~g?@~`?@_O~zog>{K/{~??~>{o7_ow[oO?_o88`}~?~~gox?O}x~]v{}v_~{}vz?|p{{@|~?~~1wvw?~xc?oox p|ao?lxg}sO{_qq~{nqan{`xq`~ox_8onV;W[]_]nw_ox?|go?~o@|?p>{m?_}v{?ppx?X_~zoo>{k/?{~?~>{o7owoW_ox<@}~??|_Oox?g}xG=v{}n_~{}vy?g~xA?o/wu>o{{^o_k~s}wg?|{_wxo?~_|pn6|Xg]_cnw_opg?xwo~o@_~{~?g]{m?_}v}?~~~?~PO>zog>{k/{~?|>{o7ow[n_oox>?|}?~?xp~@|_>?7{ox?s}|q}v{}^_~{}v{?o~xA?oOoy]_{??oogO{}qqpnpqan`{qqqwqq`}Owsownw_opq?xgO|O@_~{~?k{m?_}v~?|x~0W]v[k6wmo.{~?y>x`ow[m_sox?q?@}|?}v`@p`w{?8ok=?o{z^>?Wt?~Ox?x|}}|}>~~`w{?O|xA?ooo}@n?_}xA_y_@_8{~??~wp`}xxs~xXc{o~_ow[k_}WGW7Po(WWWWWWWWWWWWoW/7TWWWWWWWWWWWWWWWWWWU)((PWWWWWWWWWW7WWWWWU^SUwWWRT_RVVVVVVV(V7pw[Www|_>?gv|_x?o~~~~~~~~~~~~~~>}?_}xA?ooo}];?oogy{s~nnun{~n{{nnow?~oxp67\_{]qcfwgog?wox?o@?~?x>{m?_9v>_`_@_~{~?p_0G~~?]{o}_ow[g_~ox?>pp}xOyv{}>_~{}f{?X_{{@ww~_>?wvyx?o`}?_yxA?ooo}={{^o^k|sg~np{p{~`{{aqswxO8oJV[_{]n]v