' +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*`ǮȠǮҠǮԠǮנǠͩנǠƩٮǠ̠ŮǠȮǠȮǠȮǠȮǠӫӮǮ̠ǭ̠ӯήŠӠǠǮǮӠӮӠӮǠîǠ̮ˠˮǠүԮǭǠ̮ǭ̠ӯήǭ̠ӯήǭ̠ӯήǭ̠ӮήǠנҮǮǮҮǮǠǮǠǮǮخԠ̮ȠӮǠǮǠ٠ͩǠ٠ƩǮǠح٠̮Ǡح٠Ǡ̮Ǡح٠РؠĮǠح٠ǠӮǠح٠ŠͩǠح٠ŠƩǠ̠̮Ǡנ٠ĮǮǠ٠ӠŮǠ٠ǮǠ٠ǠӮǠ٠Ǡ֮Ǡ٠ӮǮǠԠĠήǭǭǮĠǮŠǮǭǠǮŠҠŠǠîǠӮҮǠǠǮǮҠǠȮǠίŮǠǠϮíǠήíǠӮíǠǮíǠԮǠŮǠŮ̠ǠέǠҠ׮íǠĮíǠήíǠŮíǠήíǠϮíǠήíŠǭǠĠҮŠǭǮǠӮǠٮҠǮǠέǠҮǠέǠҮǮȮǠԠŮŠǭŠҮŠǭԮŠǭȠӮŠǭԠ̮ŠٮŠǠȮǠƩǠͩǠȮϠҠŮ٨ǠөӮǠ ˠȮǠˮǠԮǠЮǠ̠ǮǠӮǠ̠ŮӠ٠ΠӠĠĠРӠ٠͠ӠĠӠĠŠנРӠ٠͠ӠĠŠנˠϠРӠ٠͠ӠĠŠנˠԠȠРĠڠȠȠȠĠҠҠڠȠĠȠĠΠ̠ĠڠӠ٠ΠӠĠĠԠРӠנԠРȠĠȠΠˠڠȠȠӠĠΠ̠ĠڠȠĠȠĠĠנŠԠĠڠȠĠȠڠȠˠĠڠĠӯˠȠĠȠˠĠڠȠĠȠΠȠĠڠȠĠȠڠȠĠȠȠĠȠŠڠȠĠȠӠנԠڠȠĠȠӠĠӠĠڠȠĠȠŠɠڠŠĠӠҠڠΩӠ̠͠ԠĠŠĠڠ̠͠ԠĠŠĠŠҠŠΠ͠٠ŠŠԠǠĠҠ ĩԠčŠˠӠĠˠҠ שˠŠɠ٠ڠԠέĠϠĠΠڠˠȠĠӠĠΠĠڠˠȠĠӠĠΠڠŠŠΠ͠٠ŠԠĠĠڠˠȠĠРˠȠŠΠРˠȠĠРˠȠŠΠРˠȠĠԠέĠϠĠΠڠˠȠĠڠҠƠڠˠĠĠ͠ԠŠΠԠڠˠĠĠΠԠĠ͠ڠˠĠĠΠР ĠǠĠΠĠڠ ĠǠĠΠڠ ĠҠĠΠĠڠ ĠҠĠɠΠŠĠԠРƠԠΠڠ ĠРˠȠŠĠΠР ĠРˠȠŠĠΠĠĠڠΠĠڠΠŠĠΠ͠ԠŠǠŠɠΠŠĠȠРРƠŠĠΠ͠ԠŠǠŠΠĠȠ٠ڠΠĠĠڠΠŠǮǠũǮΠΠŠӯήΠΠŠӯήΠΠŠӯήǠӮǠӠΠŮǠӠҩǮ͠ĠˠРӠ͠ĠˠĠҠРϠӠ͠ȠРԠĠӠĠРҠ שĠĠҠύӠ͠ĠĠҠύӠ͠ȭĠĠΠРԠӠӠ͠ȭĠΠĠӠӠΠĠӠĠРӠԠנҠ ΠĠׯԠ͠ĠӠԠĠĠĠӠĠӠŠРӠǠΠ̠ԠΠӠРӠΠРŠנĠΠӠĠΠĠŠנĠǠĠΠĠӠĠӠĠРĠӠРӠڠנĠҠŠΠŠΠӠРŠ٠ǠũڠŠӠǠӠРРΠԠĠҠ٠ҠΠԠĠӠĠРӠĠŠРàҠĠР٠נˠǠҠ٠ΠԠˠ٠נӠРӠРŠ٠ҠŠנԠΠΠРӠנŠ٠ΠΠөԍӠנРӠĠРŠΠҠנ٠ĠҠРŠΠӠРŠĠנ٠РŠ٠נ٠ɠĠĠŠӠ͠ˠɠĠĠӠԠϠΠРɠڠĠĠĠ͠ڠРӠӠӠҠРŠĠĠĠŠΠԠӠĠĠĠĠҠРӠĠӠĠРԠӠӠĠӠĠРĠӠĠРӠРנҠؠĠРӠРנҠؠĠӠĠРĠǠӠĠРӠĠӠΠРӠΠĠӠĠРӠ٠ĠĠРӠРΠĠРӠРԠРӠԠ٠РӠΠĠĠӠΠҠӠΠĠРӠ٠ΠӠĠӠĠĠРӠ٠ĠРԠȠԠ٠ĠҠĠ͠РӠĠĠРРӠĠĠĠӠРӠנ٠ȠҠӠĠӠѠРˠ٠ӠРΠ͠ԠҠȠӠנРӠĠӠѠРˠ٠ӠРӠĠ׭ȠӭĠҠРӠĠРŭԠŠРŭԠŠΠà̠ӠРӠנȠРӠנŠ͠ōŠŠȠ̠РŠŠĠРŠŠΠàРŠŠĠӠׯӠנΠ͠ŠĠҠΠŠàĠȠӠҠ٠РŠàΠ̠ȠӠҠ٠РӠנΠ̠̠͠ӠŠΠàĠРӠנ̠РŠĠҠРŠΠàĠ̠ӠР͠Π͠ˠҠĠԠԠĠРРԠŠРԠŠĠŠРӠĠŠ٠ǠԠ̠ĠΠ٠РԠנ͠Π͠ŠԠԠנՠΠӠĠĠҠĠҠР٠Š̠Р٠ŠĠĠРӠĠРӠנ͠Š΍ӠРӠРŠנ͠Π͠ԠӠĠĠŠӠĠĠĠԠĠРԠҠРӠŠԠנƠĭŠҩĠҠРŠĠРӠנԠҠ©ԠӠĠΠ٠РРӠĠРРӠРӠנԠҠ©ŠŠŠĠРӠנؠΠ͠ΠȠԠڠύӠĠӠĠРϠРРϠŠĠӠĠĠĠĠҠǠԍӠĠĠĠĠҠǠԍӠĠ٠ӠԍӠĠ͠ҠȠРȠĠĠРȠĠҠРȠĠҠĠРҍȠ٠ΠׯԠԠҠөĠàٍӠŠԍ˭ǠĠРɠ̠Ҡ΍ΠĠĠĠРΠĠĠРӠ͠ΠҍӠӠРΠ٩ӠĠĠР̠ĠĠР̠ĠĠРΠӠׯĠĠӠȠŠҠōΠӠĠӠРΠӠĠӠҭРΠ٩ӠĠĠ͠ŠӠנׯàǠŠӠӠׯӠŠŠׯҠŠӠŠР͠ŠŠׯҠōӠǠӠōΠԠׯĠŠǠŠӠ͠ŠӠĠŠΠŠӠŠӠŠŠƠΠŠӠŠӠנҠׯԠǠŠӠҠàǠŠӠŠ͠ŠӠΠ͠ŠӠŠӠŠˠׯҠҠŠӠŠӠΠԠׯԠǠŠӠŠׯàǠŠŠ͠ӠӠĠׯŠǠŠŠ͠ӠӠĠׯàǠŠŠӠŠ͠ӠĠàƠΠŠӠ͠ӠŠĠŠԠŠ̠ҠƠŠӠŠ͠ӠĠàΠŠӠŠ͠ӠӠ̠ԠǠŠӠŠ͠ӠӠ̠ӠŠĠ͠ԨŠԩŠĠŠҠŠ̠ҠŠĠŠҠŠ̠ҠƠŠĠŠԠŠ̠ҠŠȠӠĠΠĠРӠΠΠĠŠ٠ŠӠĭԠĠŠӠҠŠӠΠĠŠӠҠŠ٠Š̠ǠΠ̠ӠǠҠ͠ŠŠנĠҠԍΠӠΩĠΠĠРΠӠӠנРӠנ͠Π͠ŠҠŠŠĠРΠנŠРŠŠĠҠРӠӠĠڠҠРҠǠӠĠР ĠҠРӠ̠ԠӠנΠԠ͠Ӡ̠ԠӠĠРˠנөРӠĠĠ͠ŠӠĠĠĠĠŠנРŠĠ٠РˠӠѠРŠĠ٠РˠӠĠŠŠŠРРĠӠРĠӠĠР٠ӠΠҠڠ٠ˠŠРĠӠ̠٠ŠРԠ׭РĠӠȠРĠӠȠРԠ׭ԠׯԠРĠӠŠĠŠĠԠϠڠӠҠ  ŠĠԠϠڠӠҠ РĠӠŠРĠӠ͠ŠŠҠҠӠ ԨΠѠҠ©ԠҠĠӠڠԠ Ԡ©ԠŠǠӠ ԠΠѠҠ©ԠŠĠРؠĠǠˠĠΠōԠĠĠРԠĠŠԠӠĠРĠϠŠРɠΠϠŠȠŠŠРɠΠϠŠȠŠРӠȠĠҠΠōӠ̠͠ŠӠŭΠ٠ҠɠĠҠŠРɠȠԠӠϠŠŠРɠȠԠӠӠĠƠҠΠŠ̠ӠĠƠҠΠ̠ӠĠҠҠ̠ӠĠĠĠҠŠŠĠԠ٭ϭРŠŠĠРŠŠĠРŠĠĠРΠŠӠˠ̠ˠӠˠҠˠŠŠĠРΠŠРΠĠȠ̠ĠРΠĠҠРӠȠ̠ӠȠŠŠԠŠƠΠŠȠŠŠԠΠƠΠŠȠŠũΠҠƠΠ͠ŠΠĠŠŠԠĠƠΠŠȠŠŠԠΠŠƠΠŠȠŠŠԠŠƠΠŠȠŠŠԠΠƠΠ˩ŠӠΠҠˠ͠ؠׯǠ˩ŠŠԠŠƠΠŠȠŠŠԠȠƠΠŠȠŠŠԠ٠ƠΠŠȠӠȠҠԠΩĠĠР̠ҠĠӠРӠΠ͠ԠҠҠŠũŠӠΠ͠Ԡ͠ؠׯǠĠĠĠ̠РɠĩĠŠРӠȠĠŠҠΠΠ΍ӠǠөĠРРŠŠРԠӠРҠ̠ŠàӠĠŠĠׯѠ̠ҠРӠРӠ͠РҠРӠĠŠĠׯѠ̠ҠРӠĠŠĠׯѠ̠ҠԠРӠĠŠĠׯ̠̠ҠРӠĠŠĠׯѠ̠ҠǠРŠĠׯѠ̠ҠƠРӠĠŠ͠ҠΨׯ͠Ϡ˩РӠĠŠĠׯѠ̠Ҡ͠РӠĠŠĠׯѠ̠Ҡ͠РӠׯѠ̠ˠ͠РӠĠŠĠׯ̠̠ƠˠРӠĠŠĠׯѠ̠ҠׯРӠĠĠƠȠΠРӠĠŠРǠŠàׯȠŠàũРРӠĠŠĠׯѠ̠ˠ͠РӠĠŠĠŠӠҠԠΠ͠ŠΠōӠҠȠ٠ĠРŠ̠ڠŠРǠŠŠȠȠӠĠΠŠӠĠŠΠŠӠҠ̠ĠŠǠōӠҠȠĠΠӠĠĠàԠ̠ڠΠӠؠŠΠΠ٠ҠΠŠ̍ΠԠĠȠРĠàĠ̠ڠӠĠĠà̠ڠӠĠĠ̠ԭ֠Ӡ̠ڠӠĠĠàҠ̠ڠ٠̠ڠӠàΠ͠٠̠ڠӠӠԠ̠ڠӠӠŠ̠ڠӠĠӠàΠ͠٠̠ڠӠàΠ͠٠̠ڠӠàΠ͠٠̠ڠӠàΠӠРӠŠӠ٠ΠԠĠРӠŠРӠà̠ڠŠĠРҠǠŠ̠ڠ٠ĠҠРӠĠРРڠ٠ڠ٠ڠŠĠРҠǠΠ̠ڠڠ٠ŭĠڠ٠ԠӠĠ٠ڠ٠Šڠ٠͠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=* 0ZN1E53524D( 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. YOU34,9::Z' L10:M$" ACTIVITY CODE NUMBER? ":22030:IA%(NA)ZN:Z$"END"NA121000m' Z$"END"3540' ZN(ZN)ZN1ZN230ĢL2:868:"IMPROPER ACTIVITY CODE (1-230) ONLY":3520( L12:M$" TIME SPENT? ":22030:AA(NA)ZN:ZNREAD";F9$:lFTYPE$,NUM;:vLOOP1NUM:CMD$(LOOP):LOOPO:D$;"CLOSE";F9$q:LOOP1NUM:CMD$(LOOP):LOOPw:CMD$(LOOP):LOOP:ɠРӠĠРӠĠРǠРӠԠōԠͩԮРŠҠŠҠҠנΠȠƭڠРŠŠŠРРǠŠōˠ̮٠ĠӠԮРˠ̮ĠРҠΠ͠РϠŠڠŠРӠĠҠɖ8:"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" -"' (Z2$,1,27):%E R%F 16:ID%(NU)" "Z2$;:36,36:AM(NU):36,4:Z3$;:36,34:Z1$:X%G p%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": ",22((ZT$)8))"HOW MANY"ZT$"? ":22030:AM(NU)ZN:ZN0ZN993124$: 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$1ZN432ĢL2:868:"PLEASE ENTER A NUMBER 1-432":3120p#3 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"O$9 L12:M$(" LIST.":NU101:20500:3150:"+ DA$"DAY":DA1DA$"DAYS"h", 7:868:12:"- FOOD ITEM #"NU" -":3118"- 7:868:8:"- REENTER FOOD ITEM #"NU" -"". 34,9::"0 L10:M$" FOOD CODE NUMBER? ":22030:ID%(NU)ZN:Z$"END"31508#2 ZN(ZN)ZN1DA33052 ! ENTER FOODS&! G! 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 THISUR NEW WEIGHT GOAL? "= 622030:GLZN:9000:(AN)ZN02102W GLCWİ30140:20500| 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:DA"CONSIDERING 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 YO000,9100:ZZ$"":GLBWGLTWZZ$"NOT "_:"YOUR WEIGHT GOAL IS ";ZZ$;"IN THIS RANGE."r9000:AN3000L(37)3:M$"DO YOU WANT TO CHANGE YOUR GOAL? ":22050:Z$"Y"2100(GLCWCWTW)Y$"HIGH"(GLCWCWBW)Y$"LOW":: WEIGHT (G, L, OR M)? "G 22060:OJ$Z$:Z$"G"Z$"L"Z$"M"1802oOJ$"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:3:I-TAG%25BWBW(25AG%):TWTW(25AG%)?D$;"CLOSE":lL5: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 xW1,FHHEFHī30100(I163W2,FHDHEFH1460QW1W2:I\30100rBWW1:TWW2:1700}W1,W2I6177HEI1550W1W2:W2I30100AW(W1W2)2BWAW6.4:TWAW6.4:1700@I1SZJBW,TW0"D$;"READ IDLMF,R";R, F22513505L21RL12:HEHL(L)L2L21YLn(WRSM(L2)SZ12WRSM(L2)WRSM(L2).25SZ2<WRSM(L2).25SZ3FBW0:TW0:T3ZAG%19T1dAG%18AG%25SX$"M"T2nT1400,1500,1600HE61HE75)ī30100E(AG%18AG%25)SX$"M"(HE60HE77)ī30100aAG%19SX$"F"RAG%4~AG%25SX$"M"RAG%25F225SX$"F"RHE42F225SX$"M"RHE11HL(1)63:HL(2)64:SM(1)5.5:SM(2)6.0:SM(3)6.25D$;"OPEN IDLMF,L82251207W::"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"(N)? ":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):ZN10ZN991197 F1188c12: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 1187j: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"E THIS 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""Ģ10:958:1135-rA$"Y"PT1:P90:1066PuPT1ĺ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 HAVTIVITIES CAN BE":(37)2:"ENTERED. WHEN YOU ARE FINISHED ENTERING":(37)2:"ACTIVITY ITEMS, TYPE 'END'."~]PT1İ20500iPT11141l::10o::"DO YOU WANT A PRINTED COPY OF"::"THE INSTRUCTIONS? ";:SKI,3,A$:A$(A$,1):A$"Y"A$"NUTES."::(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ĺ::lZ::(37)2::"A MAXIMUM OF 100 AC."KPT1İ20500$NPT1ĺ::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ĺ::cT::(37)2:"4. ENTER THE TIME IN MINN CUPS."eB:" IF YOU ATE:";:18:"A CUP AND A QUARTER":(37)2:" YOU ENTER:";:18:"1.25":wEPT1İ20500H::(37)2::"A MAXIMUM OF 100 FOODS CAN BE ENTERED.":(37)2:"WHEN YOU ARE FINISHED ENTERING FOOD":(37)2:"DATA, TYPE 'END'z<::"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 I"1141 *:PT1İ63000J -::"INSTRUCTIONS FOR LEAN":34,3:PT1ĺ:Z 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 WANT 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"Ĺ1023,9:D$"RUN FOOD CATALOG" &:12:"DO YOU WANT INSTRUCTIONS (Y OR N)? ";:SKI,3,A$:A$(A$,1):A$"Y"A$"N"1060 'A$"NE FOOD 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."n #18:958:"DO YO IS NUTRITIOUS 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.":20500~ !::"TO FIND TH PROGRAM] NF(11),ID%(100),FD$(100),AM(100),IA%(100),FA$(100),AA(100),HI(5),ND(5),ID$(100)k F20:P91 (1023)9Ĺ1023,123:1062 :3:"LEAN ALLOWS YOU TO ANALYZE YOUR EATING"::"AND ACTIVITY HABITS. IT CAN HELP YOU"::"DEVELOP A DIET WHICH7 NUTRITION VOLUME 21PROGRAM NAME: LEANOLAST UPDATE: 3/16/83 SPMx(AUTHOR: U OF M/MECC - WILLIS JOKELA2(C) MECC 1982<:INITIALIZATIONRO31501::255D$(13)(4)D$;"NOMON I,C,O" START OF MAIN                            >>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,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 ĺ".0";,LOC7HP$"N"SP%20İ20500:SP%4:^RJ:SP%620P$"N"İ20500:SP%4:x\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 PERCENJ1NU%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))(6)" GM GM GM"]T$(7)" IU MG MG"T$(8)" MG MG"I13:S%(I)I3::S%(4)11I14P$"Y"ĺ::::T$(I):T$(I4):34,4:SP%44::T$(1)"CODE FOOD ITEM CALOR PROT FAT"aT$(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$20500:c:::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/D$,(FD$)27):TS%2:FD$(FD$,27)V:ZFD%(I):43000:FD%(I);:36,4:FD$;:36,33:AM$sDSP%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%4CODE";8);"INGREDIENT";10);"AMOUNT":1820k"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$(FOSE FOOD LIST"d::10:"DO YOU WANT TO"::"USE A PRINTER (Y OR N)? ";:CS:SKI,3,P$:P$(P$,1)~P$"Y"P$"N"1760P$"Y"ė:12:"PLEASE PREPARE YOUR PRINTER.":20500:63000:SP%4:(RA$,1)"N"1810*"INGREDIENT LIST FOR ";NA$:"(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 GRKI,3,YN$:(YN$,1)"Y"(YN$,1)"N"1700g(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%1D$;"CL" "(AM$,ZI)"S"Dh12:(25((L$)8)):"HOW MANY"L$;:CS:20900ZmZN0ZN9991640irAM(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:S2D$;"READ FOOD LIST,R";FD%(NU%):FD$(NU%):D$HAM$(FD$(NU%),6)l"FD$(FD$(NU%),((FD$(NU%))6))v,TS%16(FD$)27B$(FD$,(FD$)27):TS%2:FD$(FD$,1,27)@(AM$,1)" "L$"":1640JZI611:(AM$,ZI,1)" "1630T^L$"TYPE IN FRACTIONAL AMOUNTS AS DECIMALS.":34,6R: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%)ZNRDA IN A SERVING? ";:CS:SKI,3,PR$:PR$(PR$,1):PR$"Y"PR$"N"1410NkD$;"OPEN FOOD LIST,L67"uNU%1| H3:R$"RECIPE"H5 VTAB 1: PRINT "ENTER THE DATA FOR YOUR ";R$;"."02:"WHEN ALL ITEMS ARE ENTERED, TYPE 'END'.":: ENTERING FOODS IN A RECIPE? ";:CS:SKI,3,RA$:RA$(RA$,1):RA$"Y"RA$"N"1360rZRA$"Y"R$"RECIPE":1390|d1420n:"HOW MANY SERVINGS DOES"::"THE RECIPE MAKE";:CS:20900xSR%ZN:SR%01390H12:"DO YOU WANT PERCENTAGES OF"::"S."::"ARE YOU IN LACTATION (Y OR N)? ";:SKI,3,AC$:AC$(AC$,1)]2AC$"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"SP:5:"ARE YOUWOMEN 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"1340A(12:CS:"WOMEN IN LACTATION (BREAST FEEDING)":::"HAVE ADDITIONAL NUTRITIONAL NEEDASE ENTER 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"AG19AG501340y :CS:" 20500l :::"THE NUTRITION REPORT INCLUDES A TITLE."::"PLEASE ENTER A TITLE: ";:SKI,39(36),NA$112:CS:"YOUR NUTRITIONAL NEEDS VARY ACCORDING TO YOUR AGE. ":"WHAT IS YOUR AGE":"TO THE CLOSEST YEAR";:20900:AGZN:AG100AG1Ģ20:"PLE::"COPY OF THE FOOD CATALOG (Y OR N)? ";:SKI,3,A$:A$(A$,1):A$"Y"A$"N"1190 A$"Y"Ĺ1023,10: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'." S, SEE 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."U 18:CS:"DO YOU WANT TO USE A PRINTER TO MAKE A"E YOU 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 NUMBERD%(50),AM(50),NR(9),NF(12),CO(11),TA(11),PC(11),P$(11)V V(1023)10Ĺ1023,123:1030s `: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."i t::"TO USE RECIPx2 NUTRITION VOLUME 23PROGRAM NAME: RECIPEQLAST UPDATE: 3/16/83 SPMl(AUTHOR: U OF M / MECC2(C) MECC 1982<:BEGIN PROGRAMRO30001$:::X0:255.D$(13)(4)8D$;"NOMONICO"BCL868:CS9586 LFD$(50),F                z#|     ԠΠɮʠҠӠ נŮĠ) ԠϠƠ Π: ΠԲ.Š4ԠҠӠ Π̠Š"ԠΠ͠ĠŠĠǠ ĠԠs):42000:QRĺPC(R);:PC(R)(PC(R))ĺ" ";3.'zR9.0zL.:zP$"N"İ20500R.Dz.}SUBROUTINES TO CALCULATE NUTRIENT INFORMATION FOR FOOD ITEM FD%.d}CALCULATE CALORIES.n}NF(LO)(RO(FD%1)15)256(RO1(FD%1)15).x}.}CALCULATE PROTEIN%4:20500:6-ySP%SP%4::IA$::"SUGGESTED RDA ";F-yS15ĺ8);Z-yS11S13:S24k-yRS12S22-zZNR(R):42000:QRĺNR(R);:NR(R)(NR(R))ĺ" ";- zR-z::"PERCENT RDA ";-zS15ĺ8);-zS13S11:S22-zRS1S2,.&zZPC(RS21,yS22PC(R)((TA(R)NR(R)100).5):31131U,yPC(R)((TA(R)NR(R2)100).5)\,yRo,yRA$"N"31200,yF4:IA$;16(IA$));,yRS1S2,yZPC(R):42000:QRĺPC(R);:PC(R)(PC(R))ĺ" ";,y,y:F,y31290 -ySP%620P$"N"SPS23T$(1)" CALOR PROT"a+jyS14S15:T$(2)" CAL IRON"s+kyP$"Y"ĺ::+ly::"PERCENT RDA PER SERVING"::16);(T$(I),16):+ryF115:IA%,IA$:K19:NR(K):K+|yS23S11:S22+yS14S15,yRS1;*#yR*'y!*,yRA$"N"31100d*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$"+DIETALL"31065*^yP$"N"İ20500,+hyCO(K)0:NF(K)0CO(K)(((NF(K)A2).05)10)10N)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:QRĺTA(R);:(TA(R))TA(R)ĺ" ""(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"Ĭ(:R10:"GETTING THE MENU...":(4)"RUN HELLO"(0u328501)1uA2AM(J)NF(12):KS%(I1)1S%(I):(ZN$)))20945='Q(ZN$,1)"0"(ZN$,2)"00"(ZN$)320945x'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,ZH:CL:(RMENU-END OF PROGRAM4):ZC141ZC16020520^&2P16368,0:7:" ";:21::ZV1:ZH1:u&QNUMERIC VALIDATOR&QZH(36):ZV(37):ZM0ZM24ZM24&Q"? ";:CS&QSKI,3,ZN$:ZN$""İ20960:20915&QAA%1ZN$"END"AA%2:'Q(ZN$)(( 21030%'EXIT ROUTINE;%':::(4)"PR#0":(4)"IN#0"W%$':255:(4)"MAXFILES3"]%*}% NMECC SUPPORTED SUBROUTINES%PSPACE-BAR ROUTINE%PZH(36):ZV(37)%P24:7:16368,0%#P"PRESS ";::"SPACE BAR";::" TO CONTINUE";&(PZC(1638P100$ 40P2.5,39T$ A%$ 0$ 20500B$ RA$"N"2880M$ 1994Y$" 22:CLd$, 3:H2k$6 Is$@ :$J :5:"DO YOU WANT TO DETERMINE THE NUTRIENTS"::"OF ANOTHER RECIPE OR FOOD LIST? ";:CS:SKI,3,Z$:Z$(Z$,1):Z$"Y"Z$"N"2890%TM(Q)(TA(I)AM(Q)100)!#d 2680@#n AM(Q)(TA(I2)AM(Q)100)G#x Qd# 22:RA$"Y"Ė12:FD$(I)# A115:RA$"N"A92810# RA$"N"PPC(A)# RA$"Y"PAM(A)# THA# A10TTA9# RA$"Y"2770# T:P;# P02800$ P10012 13 14 15"G" RA$"N"Ģ21:" CAL PRO CAC IRN V-A V-C THI RIB NIA"" 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 A2:2520! :"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 50 H4:RA$"N"24704 IA$:IA$"+NUTS"2450J 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:HT OF THE RDA":L 9:"FOR EACH NUTRIENT IN THE RECIPE OR"\V 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"23Y"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   5200,80,1.7,1.8,17L8^à 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,2288ǃ"+NUTS","CALORIES","PROTEIN","CALCIUM","IRON","VITAMIN A","VITAMIN C","THIAMINE","RIBOFLAVIN","NIACIN"9 DIVERT 9,"WOMN 19-22",2100,44,800,18,4000,60,1.1,1.3,14 h7Zà 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,188]à 13,"WMNPG23-50",2600,106,1600,18,,800,10,5000,60,1.5,1.7,19 R6Uà 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,156Xà 8,"GIRL 15-18",2100,46,1200,18,4000,60,1.1,1.3,1427Yà E EXECUTED AT ALL IN THIS PROGRAM05PòUSER DATAr5Qà "+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,185Sà 3,"BOY 15-18",2800,56,1200,18,5000,60,1.4,1.7,186Tà 4,"MAN 19-22",2900,560:QR1:%46((Z)));:Z0:QR0:04$Z(Z)V4.Z0ĺ6((Z)))"0";:QR0:Z0:a48420054 ROUTINE TO RIGHT JUSTIFY 3 DIGIT NUMBERS4Z(Z)430404 Z999ĺ"***":Z0:QR1:43((Z)));:Z0:QR0:!5 : THIS SHOULDN'T HAVE TO B"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ĺ" ";3Z(Z)420204Z99999ĺ" ***** ";:Z 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"10 WOMAN 23-50 YEARS":ALCULATE RIBOFLAVIN51NF(LO)(RO12(FD%1)15)10;1Q1 CALCULATE NIACINs1*NF(LO)(RO13(FD%1)15)10y141RCALCULATE DIVISOR1\NF(12)(RO14(FD%1)15)101f92耢5:" 1 CHILD";:21:" 7-10 YEARS":" 2 BOY";:21:"11-14 YEARS":"N"00NF(LO)(RO7(FD%1)15)10(0:A0XCALCULATE VITAMIN Av0bNF(LO)(RO8(FD%1)15)256(RO9(FD%1)15)|0l0CALCULATE VITAMIN C0NF(LO)(RO10(FD%1)15)00CALCULATE THIAMIN0NF(LO)(RO11(FD%1)15)1001C/}NF(LO)(RO2(FD%1)15)#/}6/,~CALCULATE FATT/6~NF(LO)(RO3(FD%1)15)Z/@~w/~CALCULATE CARBOHYDRATES/~NF(LO)(RO4(FD%1)15)/~/~CALCULATE CALCIUM/~NF(LO)(RO5(FD%1)15)256(RO6(FD%1)15)/0&CALCULATE IROU 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  < "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    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       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 dx  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 - ٮƠǠҠԮƠǠǠԮƠǠǠӮǠӮӮǠ̠ӮǠŠŠˮǮǠǮǠǮǠǮǠǠ٠ĮǠǠǠŮ٠ǠŮ٠ǠŮ٠ǠӮ٠Ǡ٠Į٠ǠҮ٠ǠĮŮ̠Ȯˮ٠Ǡ٠Į٠ؠǠ׮ǠίŠȮ٠Ǡ͠ԮĠٮǠ͠ˮǠǠ٠ήǠΠԠΠӮǠȮǠٮǠΠԮǠǠ٠ŮӠΠԮîˮǠŮˮǠŮǠˮǠˠ٠éǮǮήǠǠҮǠĮǠԮǠŠǠǠԠȮǮǠŮǠԮǠ̮ǠРŮŠˮǠӨөԮǠͮǠήǠӠϠĮǠӠ ĮǠӠ ĮǠӠ Į˨ǩǮӠҮͩԠǠƩǠӠͩǠӠƩǠӠͩǠӠƩǠͩ͠Ǡ͠ƩǮӮŠҠנŮŠҠנǠȮ٠̮ǮԠǠǠȮǠȮǠȮӮˠǮǮ٠ŮĠŮ̮̮̠έŮǠȮǠȮǠȮǠȮٮϠǮΠӮΠ®Ӯ٠̠ƩǮ          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"K115:"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:AA(NA)ZN:ZN03579, 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?RLOOP):LOOP?UCLOSE";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"5RL10:M$"DO YOU WANT TO TRY AGAIN (Y OR N)? ":22050:Z$"Y"Ĭ5:R:10:"GETTING THE MENU...":(4)"RUN HELLO"5VNEW NUMERIC VALIDATOR 6V22080: 膢 ȱ " <67 L  8ij v vo>LOOP1NUM:CMD$(LOOP):LOOP#132  DEFAULTS/SEARCH4D$;"PR#";(952)W(151)3(151)4ĺ(9)"132N"]tD COMMANDS ON FILENF9$"PRINTER COMMANDS"XD$;"OPEN";F9$bD$;"READ";F9$lFTYPE$,NUMvLOOP1NUM:CMD$(LOOP):LOOPD$;"CLOSE";F9$ ";:21::ZV1:ZH1:F RMENU-END OF PROGRAMh R:::(4)"PR#0":(4)"IN#0" 0R(1023)10ĺD$"RUN RECIPE" :R30000:(4);"RUN LEAN"  DIVERT OUTPUT TO PRINTER "(950)63100,63200,63300 | COMM CARD775:769,(A$)3) I D$;"CLOSE"> D$"PR#0":D$"IN#0":21000U PSPACE-BAR ROUTINEy PZH(36):ZV(37):ZZ1200:ZZ P24:7:16368,0 #P"PRESS ";::"SPACE BAR";::" TO CONTINUE"; (PZC(16384):ZC141ZC16020520- 2P16368,0:7:" :JJ140:"-";:JJ:1 D$;"OPEN ACTIVE,L36":J D$"OPEN ACTIVESORT"x 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) (A$,3);:36,5:(A$,(I$)2I$" "I$! A$I$A$N (A$,3);:36,5:(A$,4,(A$)9);:36,66u ((A$,6),1)" "Q$(A$,5):2060 Q$(A$,6) Q$: D$;"CLOSE" (1023)1021000 :" ACTIVITY CATALOG FOR LEAN": "CODE";:36,15:"ACTIVITY ITEM"TALOG FOR ";:(1023)10ĺ"RECIPE":20034 "LEAN"z :"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$ I$(J):(I$)1I$" "I$ $ 7nNAME: FOOD & ACTIVITY CATALOGS VERSION:12/19/81YxAUTHOR: WILLIS JOKELA - MECCc::l255xD$(4)D$;"NOMON I,C,O":12:"PLEASE BE SURE YOUR PRINTER IS PREPARED":2050063000:D$;"OPEN FOOD LIST,L67":( :"FOOD CAL8Hmx 6*+(n*+c*ȩ*h`HH$hH,b (hHI  X $ i$h`l&OUTPUT TO PRINTER/9"(950)63100,63200,63300?9| COMM CARDQ9775:769,132W9m9 DEFAULTS/SEARCH9D$;"PR#";(952)9(151)3(151)4ĺ(9)"132N"99D COMMANDS ON FILE9NF9$"PRINTER COMMANDS"9XD$;"OPEN";F9$;",D1" :bD$;"_X_lfW_{_>fwooq?ow"ӠĠΠڠƠĠĠڠƠĠĠƠڠƠĠҠڠƠĠŠΠڠƠĠˠĠȠӠΠΠڠƠĠˠĠȠӠΠΠڠƠĠˠĠȠӠĠΠڠƠĠˠĠȠڠƠĠԠέĠȠӠ ΠĠڠƠĠԠέĠȠӠ ΠڠƠĠԠέĠӠ̠ƠĠίڠƠĠԠέĠӠ̠ƠĠƠĠĠĠԭĠΠڠƠĠĠĠԭĠΠڠƠĠҠĠƩĠڠƠĠҠĠƩĠ͠ŠРӠǠڠڠנĠΠ̠ŠׯϠǠӠŠڠҠڠĠȠˠĠǠΠӠ ӠשįĠŠŠҠؠԩРˠӠŠˠРˠӠŠˠԭРԠŠ͠٠ĠРԠŠƠˠǠàҠˠנ͠ˠנРˠӠĠˠРˠӠĠРˠӠŠ͠РԠ͠ӠǠԩҠǠׯԠ٠РԠ͠ӠנǠԩĠǠРԠ͠ӠנǠԩĠǠРˠӠ͠ǠĠ̠ŠĩР͠ǠĠ̠ŠĩРΠ͠ӠȠǠԩӠРΠ͠ӠנǠԩӠĠԠŠҠР͠ԠŠҠР͠ҠР͠ĠǠĩРĠڠŠĠӠŠĠРŠĠӠŠĠڠ͠ƠĠƠ͠Ġ˩Р͠ŠƠڠԠǠŠ̠ΠРŠ̠ڠŠĠĠڠŠӠҠŠŠ̠ڠŠ̠ǠǠ͠ĠĠРĠРŠ̠ǠǠ͠ĠĠРĠРŠ̠͠РˠĠàĠĠРˠĠĠŠ͠͠РŠ̠ŠҠԠڠŠ̠ԠڠǠȠˠĠŠРˠĠԠͩРˠ̮٠ĠԠˠӠ                                           VV:958:VV2:6F35:"PLEASE TYPE A NUMBER FROM 1 TO "N2".";:IN0YhIN:AN2İ600prAN1İ750:MENU0z|MENUSEED RANDOM # GENERATOR & CLEAR HGRX(P(78))230,32:62450GET THE PROGRAM::12:"GETTING "MN$(A)"..." 6VVVV7:VV22VV22E @IN11:VV:6F35:"WHICH NUMBER? ";A$y JPR$"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"E^A((A$)):A1AN2(A)A$Ģ7F5:HH9F386 I1N:VV:HH(I10):I". "MN$(I)Y VVVV1:F3IC2VV7F5:HH21n I:VVVV2F2F3 VV:6F35:"OTHER OPTIONS:" VV2:9(N9):N1". PROGRAM DESCRIPTION"SP$ "VV3:9(N8):N2". END" ,RESPOND TO USER'S CHOICEMENU ITEMS" F3N7:TWO COLUMNSI F5N14:FULL SCREEN (18 IS LIMIT)_ (1023)DNİ700 K48$"YES"(978)157İ550 DISPLAY MENU MENU11:1(D2$""):21(DN$)2:DN$ 2:21(D2$)2:D2$ 5F5:6F35:"PROGRAM"SP$":" VV4 2DN:(1023)DNČ2054:950,0:D$"BRUN SKI.OBJ"\ <DN$,D2$,N:MN$(N),CN$(N),DE$(N,DL)t FSP$"":N1SP$"S" PI1N:MN$(I) ZCN$"YES"ćCN$(I) dJ1DL:DE$(I,J):J:I nP(I)(I)(I1)256 xC2((N1)2):F2C2(N1)2:ODD # OF ON:PR$=PRINTER OPTION:DR$=DRIVES OPTION:K48$=48K REQUIRED:IS$=INSTRUCTIONAL PROGRAMr 29690:JUST BELOW SKI.OBJ DL6:CN$"YES":CA$"NO":PR$"YES":DR$"NO":K48$"YES":IS$"YES" D$(13)(4):D$"NOMON CIO" (16372,0::::255:0:1:D$"PR#0"O%*/49=@C ᷩ?"췩ʎ WRP`ZHELLOmVERSION 4.5-ELAST UPDATE: 11/18/82 RPB(C) MECC 1982 INITIALIZATIONSS DL=LENGTH OF DESCRIPS:CN$=DISTINCT CATALOG NAMES:CA$=CTRL-A OPTI          640120%CARD:SLOT:CARD0:SLOT0=951,CARD:952,SLOTpœCARD1Ĺ950,CARD:D$"BLOAD COMM CARD ROUTINE"v̜56:Z5(3)72:Z5(4)8<hZ7(1)56:Z7(2)24:Z7(3)72:Z7(4)72\rSLOT17:AD(SLOT192)256j|CARD14(AD5)Z5(CARD)(AD7)Z7(CARD)40110ZK02:Z2(ZK)0ZI02558:Z2(ZK)Z2(ZK)(ZWZI)::Z2(0)Z2(1)Z2(0)Z2(2)Z2(0)25T3lu950,FT:D$"CLOSE"F$"vu2 COMM CARDQˆSP:SP10Ĺ802,82:818,82r̈D$"BLOAD COMM CARD ROUTINE"xֈ@ SEARCH SLOTS FOR AN INTERFACE J CARDS: COMM=1,SERIAL=2,PAR=3,MALIBU=4TD$"CLOSE"F$:Z5(4),Z7(4),Z2(2)^Z5(1)24:Z5(2)","PERCENTAGES OF THE RECOMMENDED","DIETARY ALLOWANCES FOR EACH NUTRIENT."o0u POKE PRINTER SPECS INTO MEMORY:uF$"PRINTER COMMANDS"DuD$"OPEN"F$:D$"READ"F$:FT$NuFT$"COM-CARD"FT1:35000XuFT$"DEFAULTS"FT2:40000buFT$"USER-SET"FS,"FOOD CONSUMPTION, ENERGY EXPENDITURE,","AND RESULTING BODY WEIGHT."Q"",""f"RECIPE",RECIPEJ"CALCULATES AND DISPLAYS THE NUMBER","OF CALORIES AND AMOUNTS OF TEN","NUTRIENTS PRESENT IN A LIST OF FOODS.","IT ALSO TOTALS THESE VALUES AND GIVES(16384):Z(ZC141)(ZC160):Z@16368,0:1:868:23:: USER DATA.. FIRST LINE FORMAT: NAME,NUMBER OF MENU ITEMS123,"NUTRITION","VOLUME 2",2 LEAN,LEANFDEVELOPS AN UNDERSTANDING OF THE,RELATIONSHIP BETWEEN THE INDIVIDUAL' DIRECT INQUIRIES TO:"f:13:"MECC DISTRIBUTION CENTER":13:"2520 BROADWAY DRIVE":13:"ST. PAUL, MN 55113":13:"(612) 638-0627"p900::SPACE-BAR ROUTINE24:7:16368,0"PRESS ";::"SPACE BAR";::" TO CONTINUE";!Z01:ZCJ) J::I:900*:24SUPPORT BOOK INFO]>IP$"":IS$"YES"IP$"INSTRUCTIONAL "H4:17(IP$""):"A MANUAL TO AID IN THE "IP$"USE":6:"OF THIS DISKETTE IS AVAILABLE FROM MECC."R11:" TITLE: ";DN$:D2$""Ė13:D2$\15:" "J1600:(16384)128J600FJ:16368,0:1023,DN:16303,0L`DESCRIPTIONS ::21(DN$)2:DN$:11:"PROGRAM DESCRIPTIONS":34,4:I1N:(37)21DLİ900: MN$(I)" -"J1DL:DE$(I,J)""DE$(I,J)" "ĺ" "DE$(I,O YOU WANT TO RUN ANOTHER"LlIN11:12:868:"DISKETTE? ";A$:A$(A$,1)evA$"N"ĉ::255::yIN(A$"Y"):IN:11:8:"INSERT THE NEW DISKETTE."900:CS(P(P(999))1)16:SLOT #CS1CS7CS6CS:DISPLAY LOGOPR$"YES"(950)0İ30000<CN$"YES"ĺD$"RUN"CN$(A)OD$"RUN"MN$(A)f&NOT ENOUGH MEMORYn010:"SORRY, THIS APPLE DOES NOT HAVE ENOUGH ":"MEMORY TO RUN THIS DISKETTE."::"(48K IS NEEDED.)"D900XEND OPTIONb::10:1:"D          DTAKE"::"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_}oxG?G|}x}v{}>_~{}v{?X_s;ww|_>?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