' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]L L}BBL]浍국絍뵍䵺L 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"_]` L/  !"#$%&'()*+,-./0123456789:;<=>?  1#"""  (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0EB H  @H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`HIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   vLDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^L iõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( H  Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(`F d ֠z# u`qq8/?r r \H  űq̱qqq- `-r$ q-r`$  `%a(ɠŠ)G- `%a(ɠŠ)FE()Gq\p B a(Ҡ)Gde2MT`$* `$ ̠ĠԠԠӠŠ)a(ŠԠϠ)8D ca(ϠԠԠ٠ŬŠӠ)a()c2N a(ԠΠΠՠŠ٠Ϡ)M6 X M6 b O4 r2l qqqqUVW -rqY v a()2 qq)R a(ԠŠҠӮ)a(ҠӠŠҠϠӠ)S& a(ŠȠΠΠҠƠӮ)ca(ŠҠӠԠǠ)L0 a(ŠӠƠŠŻԠ̠)a(Ǡ٠͠ծ)cC: a(ՠ̱ a(̠ʮ)cUVWY2 M6Pa(ŠŠӠĠӠӺ)cW a(ԠŠǠƠŠŠ)a(ҠƠӠŠĠΠŠ)T a(ŠŠӠӠȠΠ)a(ҠƠӮΠȠΠdedededeLdedede` dedU oa(ŠƠΠӠӠ)Pa(Π٠à)cZ a(ΠҠŠɠ٠̠ʮ)ca(ϠĠ̠ӠĠٺ), cPUVWb-rGYYQ5UVWcUVWb-rE()GYYQ \ Q/ Kd ed!e(d"ed#eM6] dede0dededededed ed ed eT d ed eYQL?VUVW XUVW X-rq-rq0`qqf\qqf\YY%jqqf\- rqSta(ɠԠ٠ŠԠ)FE()FE()G\ a(ҠŮ)\\R\X_t0UVWc_p#3UVW-rq-rqYW8UVW X-rq-8rrq-8rrqEBUVW X-8rrq-8rrqY?LUVWX6-8rrq-rqYή)X)a(ӠĠԠŠĠϠ)a(ӮՠΧԠĠŠ)_.a(ŠƠ٠)a(ɠԠŠԠ)ca(ӠΠϠΠŠŠ)cM6C1O4crD4rD4rD4rqqa()GϠĠ)Ta(ŠĠȠҠΠϠ)a(ŠϠŠŠŮ)Sa(٠ŠԠҠ٠)a(٠ԠԠٮϬ)W$a(ՠΧԠĠŠ٠)a(ҠŠԠҠԠԠŠƠŠĠϠ)T a(ԠŠŠɠΠŠ͠)a(͠ϠŠЮӠŠŠ)Na(ǠӠ͠ŠƠ)a(ӠϠŠԮŠŠ)Oa(ӠϠŠŠҠϠ)a(ΠŠՠΠ)ca(Π٠̠ӠĠΠ̬)/ca(ӠȠ̬נˬ)c_a(ĠĠĠҠŠŠ)cP a(٠̠ʮ)UVWYM6Uca(ŠԠƠŠŠӠϠ)a(͠Š$uS(٠Ҡ)'`$u5zS(̠̠)'`$3_zWq8rq8rijkijkijk[KM6oP `a(ŠƠ)cP a(ĠϠGu]ĠٺSϊ]Ġ®Π< ]ŠĠ͠8rr\vqf8r\`%q`%qqVM6cq;@r`%q;@rP a(נ)G`%a@G`%a@Gҿ)G_a`-r$d2ecP a(Π)d2eP a(٠Ԡġ)G_`8r8r$ O`$` $D` $`\fqq\$q\\q\\_]M6c`%a@G`%a@Ga(ӠΠϠŠŠ)G`%a()G`%a()Ga(ٮ)UVWdY\0M6T`$a(ՠ٠٠ԠҮ٠ΧԠՠ٠qqhhS(ŠŠҠŠĠ٠Ӡ)&@`;@r $ S(ŠŠҠŠŠ٠Ӡ)&@`;@r $ )rM6LfUVW'lm'nYA|fUVW\bUVWYZUVW\bY;fq;q;qq;ԠΠŠ)q6a(ΠƠҠҠȮӠŠŠĠӠĠǠŠŠӮ)"@a(ӠΧϠή)"Jq.?6@r`$Jd6?eT`$'8^d6?eM6UVW?-rqY٠Ӯ٠Π٠Š­Ġ٠ǠҠ)S"a(٠ȠŠӠƠ٬Ǡ͠Į){,a(ŠƠŠΠӠƠŠ٠ӬԠΠŠӠ٠٬Ҡ٩ĠŠȠ٠ȠƠŠӮŠ)|a(ӠƠŠӠ̠ҠԠҠ٠ŮҠԠΠԠŠԠ)wa(ŠȠƠՠŠĠȠ)UVWY@oa(Ԡ٠à)UVWY,M6a(Ġ٠Ԡ)Yoa(ĠӠԠΠĠƠظӮȠŠӠƠ){a(ŠŠ٬gرhٱgرhٱq.?6?rYZkUVWf88rrlٱmٱnرf 88rriرjرkٱq.?6?rY[N@"2rC@"2rD4@r[KM6o Pa()UVWYo P a(٠ԠnY[_eUVWUVWq.?6?r.?6?r.?6?rYq.?6?rUVWq.?6?rUVWYZQUVWq.?6?rq.?6?rf8rgرhٱgرhٱgYUVWq.?6?rfiرjرkٱq`$ qq6qq& UVWXfijk fijkY[N qqqq`$ q6qq6q& UVWXflmn flmO q\ q8rq\ qq%q\ 0 qqoq.?6?r`$ , P bE()GPbE()oq_ ' PbE()GP!bE()oq q.?6?rY[O q6qq6lmn'\ Yoa(ՠŠ)FGa()GP Cf a(Ġ)FGa()GPa(ɠŠ)FGa()d"eM6[p q q`%qgz UVWq%8rq%`%qq 88rrĠ)FE(ӠĠΠ)FE()cP a(ɮŮ)Fd8rE()ccL> a(ɠŠՠӠӠȠΠӠɠć)UVWY_'#H Lq q$fUVWOR q8rqlmnq.?6?r)_ ' bE(ӠΠ̠Š)G_ 3 `-̱űr%-̱űrq-̱űr" a(ϠՠԠϠ٠Π)" q.?6@r`$" !% d6?e`<()r$* _ $* Kd"eM6o `$' / qc4 a(ՠ  q\p `$ _  `%a(ɠŠ)= `%a(ɠŠ)FE()-rqqq\p  `$  a(ŠҠՠΡ)> q`-r$ -rq-r_ " a(ŠҠɠΠ<#]ȠŠנ].]ŬX9])a(Ӡ)a())'oPd2e?a()d2eR'q.?6@r`$'d6?e`%q_8r] ]Ҡˠ֊<]ŠĠ͠a()GP(a()G'Pa()Pa()d'd2e?ccP a()P a(РҠŠӠŠΠԠӠ)P a() 'd2e'UVW YF'KM6oP a(ЮЮ̮ŮӺ)oa(Ҡˠ)<'o a(ɠ)Pa(РՠҠɠ)Wj'Pa(РǠϠ )Pa(̠ŠǠҠ)Ot'Pa(ŠԠҠ)Pa(ӠҠ);~'Pa(Ϡ͠٠)P()GP!a()?8'a()GPa()GP a()GPa()GPa()GP!a()@B'a()GPa()GPa()GP a()GPa()GPa()GAL'Pa()GPa()GPa()GP!a()GP'a()V'd2ecR`'a(РР̠]Ŭ' d2e?KM6J'oPa()GP a()GPa()GPa()GP!a()U$'a()GPa()GP a()GP a()GPa()GPa()GPa()GP!a()@.'a()GP a()GPa()GPaqرq8rٱq8rf\UVW Y_f]p]Ģz]Ԡî]]Š ]]ЮЮ̮Ů]͠٠]]ȠŠ>8rr\vq<4qqqUVWf\UVW2q.?6?rY9>f=ر>ٱr\vf\UVW2q.?6?rYZHf=ر>ٱr\vq/?rNR`8r%q/?Ar`%q/?Ar`-r-r$Rqqf\F\q_[I o a(ŠԠӠϠӮ)UVWYM6_h/q.?6@r`$^`$d6?eQf M6d2ecP a(ҠҠ)d2e?Pa(ΠĠΡ)d2e/*qf=8ra()Ga(٠Ӡġ)UVWYn`%q`%q`%q`$`$a(ŠŮ٠ΠٯΩ)_JM`%a@G`%a@Ga(ӡ٠ΠٯΩ)_J`$`$qٱgرhٱgرhٱ[q_qUV6WUV6Wq`6 %q` %q6P`6?%q88-rrrYZ`$P`%M6`%a()G`%hٱgرhٱgرhٱ\v[zرq8rٱq8r`$iرjرkٱlٱmٱnرlٱmٱnرlٱmٱnر[{iرjرkٱiرjرkٱgرhٱgرhٱgرhٱgرhhٱgرhٱf gرhٱgرhٱ}gرhٱfgرhٱgرhٱgرhٱgرhٱfgرhٱgرhٱgرhٱyfgرhٱgرhٱgرhٱfgرhٱgرq/? r`8r%q`-r$b-rq"l\vUVWq.?6?rY[yvرq8rٱq8rlٱmٱnرlٱmٱnرlٱmٱnرlٱmٱnرlٱmٱnر[cf\v\fgرhٱgرrr`?%q?رq8rٱq8rq=ر>ٱrfgرhٱ\:Աq82?rr`Ա?%Աq?`.?6?8rr$X`Ա$Nfq` %f)D` %gرhٱ`%q_:Nfgرhٱ_0Xfgرhٱ[,"CHANGE NUMBER OF SERVINGS Y/N"F,B$W,B$"Y"6230j,B$"YES"6230p,,::::::::::,," THANK YOU FOR USING THIS PROGRAM",, ,1023,(#255:H-%770,173:771,0:772,3:773,32:7D+.PPCUFR+8I+B$+L@+V" NUMBER OF SERVINGS";G+`SM+j+t ROUND OF COST TO NEAREST CENT, PRINT RESULTS+~"TOTAL COST FOR 1 RECIPE = $";(P100.5)100+"COST PER SERVING = $";(PS100.5)100+, CALCULATE ALTEIENT ";I;":"3*" COST FOR BULK UNIT IN STORE ";:*C\*" NUMBER OF UNITS IN BULK";c*U*" NUMBER OF RECIPE UNITS PER BULK UNIT";*F*" NUMBER OF RECIPE UNITS CALLED FOR";*R+$ SUM COST OF EACH INGREDIENT PER AMOUNT USEz:" USED IN THE RECIPE, AND THE NUMBER OF"::"RECIPE UNITS PER PURCHASE UNIT"::[)a)) STATEMENTS 30 TO 180 REQUEST USER INPUT)"NUMBER OF INGREDIENTS ";N)) LOOP TO REQUEST DATA FOR EACH INGREDIENT)I1N *"INGREDAY." (+(" MUCH AS YOU LIKE."6(:9)@(1023r(:" THIS PROGRAM CALCULATES THE COST & COST"("PER SERVING OF A SINGLE RECIPE. FOR EACH"(u"INGREDIENT YOU MUST PROVIDE THE PURCHASE":"PRICE, THE AMOUNT PURCHASED, THE AMOUNT"U)TATO SOUP,1 CUP,179,SPAGHETTI,1 CUP W/SAUCE,172,SPINACH,1 CUP,43,ZUCCHINI,1 CUP,25'J TURKEY,4 OZ,221,TOMATOE,1 SMALL,22,MACARONI SAL,1 CUP,355,POTATO SALID,1 CUP,99'T34,0:'^13'h"THANK YOU FOR CHECKING YOUR DIET WITH "'r(|"US TODH,156,RICE,1 CUP,187,ROLLS,2 OZ EA,170,TARTAR SAUCE,1 TEAS,74,SAUSAGE,4 OZ,481,POLISH DOG,4 OZ,346,BEAN SOUP,1 CUP,R'@ CHICKEN SOUP,1 CUP,67,MUSHROOM SOUP,1 CUP,133,ONION SOUP,1 CUP,64,PEA SOUP,1 CUP,142,TOMADO SOUP,1 CUP,86,VEGETABLE SOUP,1 CUP,77,PO OZ,350,MACARONI,1 CUP,175,MUSHROOMS,1/2 LB,61,EGG NOODLES,1 CUP,200,SALAD OIL,1 TABL,124,ONION,1/2 LB,79,PEAR,1 AVE,100,PEAS,1/2 CUP,57s&6 PECANS,1 TEAS,51,GREEN PEPPER,1 AVERAGE,14,PICKLE RELISH,1 TEAS SWEET,21,POTATOE,1 SMALL,85,FRENCH FRIES,10 EAC$" SALTINES,1 OZ,123,CUCUMBER,1 MEDIUM,29,EGGPLANT,1/4 LB BOIL,19,FLOUR,1 CUP,449,GRAPEFRUIT,1/2 MEDIUM,58,GRAPE JUICE,6 OZ,122,CHEWING GUM,1 STICK,9,JELLIE-JAM,1 TEAS,55,LEMON,1 AVERAGE,19%, LETTUCE,1 HEAD 4 IN,59,LETTUCE,3 LEAVES,6,LIVERWURST,4BONE STEAK,4 OZ,539# BEETS,1/2 CUP,27,BOLOGNA,4 OZ,312,BROCCOLI,1 CUP SPEARS,39,PEANUTBUTTER,1 TEAS,82 ,CANTALOPE,1/2 MELON,58,CARROTS,1 MEDIUM,21,CASHEW NUTS,1/4 LB,639,CATSUP,1 TBLS,18,CELERY,1 STALK,7,CHICKEN,4 OZ BROILED,155,COLESLAW,4 OZ,108 LICE,185,CRANBERRY SAUCE, 1 TBSP, 29,MUSTARD,1 TEAS,11,OLIVES,2,15,SWEET PICKLE,1 TBSP,15# SUGAR,1 TEAS,46,SUGAR,1 CUP,770,APPLESAUCE,1/2 CUP,116,AVOCADOS,1/2 EA,185,BACON,4 OZ,696,GREEN BEANS,1/2 CUP,16,LINA BEANS,1/2 CUP,89,CHUCK STEAK,4 OZ,329,T OP, 6 OZ, 314, FRITOS,1 OZ,164,DORITOS,1 OZ,149,POPCORN,1 CUP ,54! POTATO CHIPS, 1 EA, 13, PRETZELS, 3 1/2 OZ, 390,ALMONDS, 1 OZ DRY RST, 180,WALNUTS,1 TBSP,49,PEANUTS, 1 OZ DRY RST, 179 Y" HOT DOG, 1 EA, 124, HOT DOG ROLL, 1 EA,113,PIZZA,1 Sz#     Šàˠɠ*... ..   5ҠˠɠҠˠ֠>ҠРӠ ٠ˠŠҠŠ )Pa()c'deccP a()P a(РҠŠӠŠΠԠӠ)P a() 'de'UVWY[)̮ŮӺ)oa(ˠˠ)*[PҠɠ)Wj'Pa(РǠϠ )Pa(̠ŠǠҠ)Ot'Pa(ŠԠҠ)Pa(ӠҠ);~'Pa(Ϡ͠٠)Pa()GP(a()G'Pa(a()GP a()GPa()GPa()GP!a()@B'a()GPa()GPa()GP a()GPa()GPa()GAL'Pa()GPa()GPa()GP!a()GP'a() V'decR`'a(РР̠)Pa(Рՠd'deKMJ'oPa()GP a()GPa()GPa()GP!a()U$'a()GPa()GP a()GP a()GPa()GPa()GPa()GP!a()@.'a()GP a()GPa()GPa()GP!a()?8'a()GP@p(Ҡˠ)\6@p(Ҡˠ)\@@p(ҠР)\J@p(٠)\T@p(Š)\^@p()\h@p(Šàˠ)\<`$a(ԠŠҠϠԠՠ)\_dc\_Jq.?6@r`6$2`$d6?eqq6w_nq`$(@p()[B(wKM6o P8;@rra(Ǻ)E@a()E@E()E@&2d6?eqq6M6[dq qqq6 n@p()xcc,3N@" ra(άɬϬ)KM6d6?e1q2q?qq6\'KM0odeP a(ˠˠ)de_d qP bE()E@c[d ed%e[8decd ecoP a(Ԡ)de     v L M6 _D  UVWY _@L'q/?rq/?rq/?rq/?rqq(qq(#qqqq`$fij'kfij'kflm'nflm'nq.?6@r d6?gh&g&h&[ UVW q`%q f-r UVW qq\  qq\  YZ& q.?6@r 0 d6?e: `$ D q8/?r/?rrN q/?rX _  b q l qL ]ŠV ]ӠԠc O4r-rq-rq-rq-rq-rq -rq-rq-rq[ - rq- rq - rq- rq - rq-rq-rq -rq  _b ) ghg&h ŠŠĠ)\M6    KM6 N@" roP a(Ҡ)'o a(Ԡ٠٠ϠР)] M  q.?6@r `$8  $ d6?e. UVWY_@8 Mp B _ ĠƸàŠ ĠİƠĠĠ)\M6z*@p(ŰĠàƱŠ ĠĠĠĠ)\M6Y4@p(°ĠĠ@p(ùƠŠĠĠĠù)\M6z@p(àƸĠàư ĠĠƸà)\M6z @p(ðM6z@p(ŹŠƠĠƠƠĠĠĠĠĠ)\M6z@p(ĠŠŠŠĠ ŠĠĠ)\M6z e_@]ΠƠҠN@"rq_K@B;@rrp(Ÿ)UVW;@rde<@*rrYdHe[z@p(ĸ ĠƠƸĠƸƴŠŶ)\`lmn'jlmnt]Ġ~ijkijk'lm'nlm'n]Ƞij'kij'k'lm'nlm'n'Yq.?6@r`$ d6?נ)ca()d2e=^q.?6@r`$^d6?e_8rL M6UVWf]Ԡijk$ijk.lmn8lmnB]ĠLij'kVij'kРҠŠӠŠΠԠӠ)P a() ,d2e6UVW YH@KM6oP a(ЮЮ̮ŮӺ)oa(Ҡˠ)KJo a(Ҡ)a(Ҡ)a(Ҡ)a()@Tod2e?a(ԠçPa(̠ŠǠҠ)OPa(ŠԠҠ)Pa(ӠҠ);Pa(Ϡ͠٠)Pa()GP(a()GPa()Pa()d"d2e?ccP a()P a(a()GPa()GP a()GPa()GPa()GAPa()GPa()GPa()GP!a()GP'a()d2ecRa(РР̠)Pa(РՠҠɠ)WPa(РǠϠ ))GPa()GP!a()Ua()GPa()GP a()GP a()GPa()GPa()GPa()GP!a()@a()GP a()GPa()GPa()GP!a()?a()GPa()GP a()GPa()GPa()GP!a()@a()GPd]-n]Ҡˠɠx]ŠĠ]٠Ŋ]ȠŠנ]Ŭ d2e?KM6JoPa()GP a()GPa(      $V-rq-rq-rqq.VYq\,`%[a(ՠΡ)fw>kS(ϠՠԠϠ٠Π)&@`@:()$mKM6_' ma()G#pS(Ӡ٩)&@`@9()$zauS(ҠҠ)'`q`- r%qG%`-r$*-rq-rq-rqq1*Yq\,`%[a(ɠΡ)_fYR-rq-rq-rqqqUVW X`-r%qFT`-r$qqƱqDZq-rq_ ,qqƱqDZq-rq qqf\[Fq2?rq@q2?rq'8@rq=>r[c qq-rq-rq-rqUVW Xfghqqqf%`.?6?r$`.?6?r$2q=>r`%f`%fgh_a()G`$a(̠Ň)_Efghqq`  $E`=>r $` $`-r$ YYPUV WX6UVW `-r$YYa(ҠԠ)Q5qq-rqf\qq[\qqqf:\`$$_Dvqq`-r$qqq_q<qq`-r$qqq_q@UV6WUV6W`Ʊ$qq_qqT`1?r1?r$`q` %q[-qq`  %q[-qq` %q[Xqq`/?r$;b`Ʊ%_-r b_-8rr b,lqq`$qqqq`-rqq`%q[-qq` %q[-qq`%q["qq` %q[-qq` %q[-qq`  %q["qq[ q[ `$q0?r[(`-8rr$q_ q_q_8r!qq`%q[-qq` %q[-qq`%q[!6` $^8@qq`-8rr$JqqQJUVWX-rqUVW\`$T`-r%-rqTYY`-r-r%[ ^\[%`$`$`$q0?r[ )KQ`q8rq8rq8rq8r`%ijk\`%ijk`%lmn`%lmn[;,q`%[`$6` $^_@qq_qq_Ya(ҠԠ)Q8q0?rq0?r\`  %[\NqUVW\`$ `-r$ qqqD Yqqqq`$`$a(ҠԠq_7Yq-rq-rq-rq_]ŠǠ]fq-rq-ra()q`%q`%qUVWXZ`-r$q-rq-r`$`$VW\`$Q`-r$q-rq-rq-rqqKY`$`$qqq-rq-rq_XqUVWX`-r$`-r-r$<_' qA`%[q-rq-rq-r`$q_K-rqUVWX6`-r$Ya(ҠԠ)Qq-rq-rM`8 r8 r$\qU                   ±ð±±ùƹƴ¹ƹøİƷƶ)\ 6L@p(ưƴ¹ŰƵͱ)\ [\\qYc,Y`.?6@r$ d6?eXYQ6 q]ǠԠŠr@p(¶±øƹƴ¹øİƷƴø±ð)\ r@p(ƸqdeM UVW >]Ԡʽ̨pq\qdeM8bE()FE()JUVW]ҨҨҨѩq8rdeM]ԨҨѩ2qq\q d\\qq$@p()q\q]̨$q'\qdeMP]̨$q\qdeMqqdeM|qqUVW ]Ԡɽ̨Dq\qY["q.?r.?r;@r["\dede[,0N@" r@p(Ӥ)\N@"rq\ ]ŠŠƮЮ2@p()q\O4rqde\@p()q\q@p()q\N dedeq a()FE(Ӥ)E@E( )[N ]ŠϠŠŠؠΠǠӤϠ٠ԠΠ̠ UVW;@rX H q<@*rr` %q$ q<@*rr` %qde)'lS(ԠҠ)'a()FE(̠)F4]̩Ӥ de-qUVWq.?rqq` ` %qq ` %qq( dede q`d$  \  T q YqdeMLqdeMqdeMdeM5xde.?rq-rqqq#`%[qq6[@]Š٠ΠǠS(ǠӠ)'S(ǠӠ'Gq.?$rPa()GP[]Ԡؠ̨é$X]ą̀éԩB-|rq-r-}rq-rqqq qdeqMAde.?rq-rdedeMr deUVW!qqqdeMqqdeMde.?rYqqq[,]̨Ԡԩ5-rqde.?rde[JbG`.?$r8.?!rr%cbƙ "d]Π٠ΠӠ_0]̨éԨ̨;-rq-r-rq-rqqq`.?r%[`-r%[ q.?r`%q8r`%q8     R`'"A P P L E":2:"P U R I X"j'3:"P G O B C":4:"L E G R H"t'5:"E T R A A":14:"S A R N",~'15:"O " ";:33:" "J.'" ";:9:" ";:17:" ";:25:" ";:33:" "8'" ";:5:" ";:9:" ";:17:" ";:25:" ";:33:" "B'" ";:5:" ";:7:" ";:9:" ";:15:" ";:17:" ";L'23:" ";:25:" ";:31:" ";:33:" ";:39:" "V'::8:" BY ":9050:8:" VAL J. GOLDING ":9050:I12500:::uZ#8:I124:" ";:::'::'1:2:" ";:9:" ";:17:" ";:25:" ";:33:" "$'" ";:5:" ";:9:" ";:13:" ";:17:" ";:21:" ";:25:G ":TE$"TEMPERATURE = ":WC$"WIND CHILL"JWS$"WIND SPEED":CR$" CONVERTER":PH$" PER HOUR":MP$"MILES":KP$"KILOMETERS":KN$"KNOTS":AP$"ATMOSPHERIC PRESSURE":MB$"MILLIBARS":IM$"INCHES MERCURY":Z(#:8::9050:8:" METEOROLOGY PAK ":9050AP:IMMB.029529928:250:600/A$"5"60008730`8::8:CV$;::IM$;" TO ";MB$:200BMBAP33.86395:IMAP:250:600LA$"5"6000V730X:)@DG$"DEGREES":FH$"FAHRENHEIT":CL$"CELSIUS":KV$"KELVIN":SP$" ":CV$"CONVERTIN50:600A$"5"5000"730Qp::AP$;CR$::"SELECT ";CR$;" FROM MENU"z34,10::32,6::"1 ";MB$;" TO ";IM$::"2 "IM$;" TO ";MB$::32,0:::22:10:"SELECT":B$:B(B$):B6100,6200::8:CV$;::MB$;" TO ";IM$:200MBS:KPWS1.609:KNWS.86897624:350:6009 A$"5"5000B730gP::8:CV$;::KP$;" ";PH$:300ZPHWS.6215:KPWS:KNPH.86897624:350:600dA$"5"5000n730::8:CV$;::KN$;" ";PH$:300PHWS1.1507794:KPPH1.609:KNWS:3WC::8:1020=::WS$;CR$::"SELECT ";CR$;" FROM MENU"34,10::32,12::"1 ";MP$;" ";PH$::"2 ";KP$;" ";PH$::"3 ";KN$;" ";PH$::32,0:::22:10:"SELECT":W$:W(W$):W5100,5200,5300::8:CV$;::MP$;" ";PH$:300'PHW:600 A$"5"3010  730=::8:CV$;::WC$;::21:868:TE$;:13:"IN ";FH$;" = ";:"";T:T79Ģ23::"INVALID - REENTER"::4010:"WIND SPEED IN MPH = ";:"";V:V5V5A(V)(10):A.6335A:B.4013A:BB(T90):WCETTB:FI30# ::8:CV$;::CL$;::" "> 21:868:TE$;:"";CIz :TF(95)CI32:TCCI:TKCI273.18::500:::::600 A$"5"2010 730 ::8:CV$;::KV$;:: 21:868:TE$;:"";KI :TCKI273.18:TF(95)TC32:TKKI::500:: :32,0::::"SELECT";::" ";:S$:S(S$):[ S1000,2000,3000,4000,5000,6000,7000u ::8:CV$;::FH$: 21:868:TE$;:"";FI :TFFI:TC59(TF32):TKTC273.18::500:::::600 A$"5"S41010 S4A$"5"4000 75 TO RETURN TO MAIN MENU":"ANY OTHER KEY TO RESUME"::A$: ::"METEOROLOGY CONVERSION ROUTINES"::"SELECT";CR$;" FROM MENU" 34,6: 32,12::"1 ";FH$::"2 ";CL$::"3 ";KV$::"4 ";WC$::"5 ";WS$::"6 ";AP$::"7 EXIT PROGRAM"1; :S4ĺ" WIND CHILL EFFECTIVE TEMPERATURE IS: "; " ";DG$;SP$;" ";:21:DG$;SP$;:34:DG$;:" ";FH$;SP$;" ";:21:CL$;SP$;:34:KV$;" ";:220: PTF:400:P$;SP$;" ";:PTC:400:17:P$;SP$;" ";:PTK:400:30:P$;" ":< X"TYPE ";KP$;SP$;KN$;" ";:PH$;SP$;PH$;SP$;PH$;" ";:220:z ^PPH:400:P$;SP$;:PKP:400:P$;SP$;:PKN:400:P$;" "::: (P).05P$"0.0":430 P(P)((P)10.5)10:P$((P)((P).05)):P$(P$,(P$)1) (P$)8450 P$" "P$:430 d10000:9000:8000:700@:21:868:AP$;" =";:" ";APg:::" ";MB$;SP$;" ";IM$;SP$;I139:" ";::" ";:PMB:400:P$;SP$;" ";:PIM:400:P$;SP$;" ";:::,:21:868:WS$;" =";:" ";WS8 6:::" ";MP$;SP$;"       ;:15:" ";:17:" ";RL'23:" ";:25:" ";:31:" ";:33:" ";:39:" "`V'50,255:`'"A P P L E":2:"P U R I X"j'3:"P G O B C":4:"L E G R ";:25:" ";:33:" "g$'" ";:5:" ";:9:" ";:13:" ";:17:" ";:21:" ";:25:" ";:33:" ".'" ";:9:" ";:17:" ";:25:" ";:33:" "8'" ";:5:" ";:9:" ";:17:" ";:25:" ";:33:" "B'" ";:5:" ";:7:" ";:9:" "tQ1(P$):(P$,Q,1)"."WQ&~AW(P$)P(P$):1040k((P$,W1,(P$)))DPP(P$):1040q~E(222)E5ĺD$;"DELETE ";T$:23::"*** NO SUCH DATA FILE ***"::Q11500::250'::'1:2:" ";:9:" ";:17:" 0/.Q1(P$)DP1P$P$("000",DP1):1130O8((P$,Q1,(P$)))DP1130zB((P$,Q1,(P$)))DPP$P$"0":1080L((P$,QDP1,1))51120VP$(((P$,1,QDP1))((".000",DP1)"5"))`P$(P$,1,QDP)j(P$)(LE)P$" "P$:1130 MODE ";:676:8"HIT RETURN TO CONTINUE":1030:840SQ((R)):R0R1Q1cBQ);R;:iQ13000:Q:20::" ":R$:P$(P)Q1(P$):(P$,Q,1)"."Ă$(P$)1QP$P$(".000",DP1):1131040:P$TGTGG(J)X::"TOTALS:";::11:LE7:DP1:PD(L)D(1):1040:P$;|20:LE5:DP1:PPRL:1040:P$;28:LE4:DP1:PTGL:1040:P$;:34:LE5:DP2:P(D(L)D(1))(TGG(1)):1040:P$:LNĺ"HIT ANY KEY FOR FOR COMMAND HKK18:LL18:LNLNKR:" DATE ODOMETER COST GALLONS MPG"Y\TG0:PR0f:JKL:D$(J);:PD(J):11:LE7:DP1:1040:P$;pPC(J):20:LE5:DP1:1040:P$;zPRPRC(J)PG(J):28:LE4:DP1:1040:P$;:34:P(M$(J)):LE5:DP2:T$;",R";J&D$(J):D(J):C(J):G(J),5ZTIID$;"CLOSE ";T$O N1Ģ20::"*** NOT ENOUGH DATA ***":1020: M$(1)"0":J2N:G(J)0G(J1)0M$(J)"0":830*R(D(J)D(J1))G(J):T0R99999R04M$(J)(R)>:K17:L0420 l470?vN1Ģ20::"*** NO DATA TO WRITE ***":1020:c:"NAME FOR FILE ";:T$""660}"(DEFAULT=";T$;") ";S$:KNS$""T$S$D$;"OPEN ";T$;",L50"K1:LND$;"WRITE ";T$;",R";0LJKL D$;"WRITE ";(N):LE5:DP2:10401 &:18::"MPG:";27);P$:Y 018:10::" - IS INPUT OK ? -":: :20:"(Y=YES, N=NO, F=YES AND FINISHED) ? ";:R$ D NR$"N"NN1:23::"*** PLEASE RE-ENTER ***"::Q11500::470 XR$"F"ıbR$"Y"R$(13)LON ? ";R:R0R500490I C(N)R:13:"# GALLONS ? ";R:R0R9999490 G(N)R:10:958:3:"INPUT DATE: ";27);D$(N) 3:"CHECK ODOMETER:";27);D(N):17:"COST:";27);C(N):14:"GALLONS:";27);G(N) N1560 P(D(N)D(N1))G! 5:" - DATE (E.G. 1/30/78)"D " - ODOMETER READING (MILES)"f " - COST PER GALLON (CENTS)" " - # GALLONS BOUGHT" NN1:10:958:"DATE ? ";R$:R$(R$,8):D$(N)R$ 11:"ODOMETER ? ";R:R0R999999480 D(N)R:12:"COST PER GALLOG"::280 ,T$"STOP"ı6 6D$;"OPEN ";T$;",L50"O @D$;"READ ";T$;",R0"X JNUMe TJ1NUM ^D$;"READ ";T$;",R";J hD$(J),D(J),C(J),G(J) r |D$;"CLOSE ";T$ NNUM 216,0:  :"ENTER THE FOLLOWING DATA AS REQUESTED:" MILEAGE DATA":"5 - TERMINATE PROGRAM"5 14:958Z 14:"COMMAND BY NUMBER ? ";:R$b R${ (R$)1(R$)5200 R(R$) R260,410,630,790,1010:140 1190 17:958 :"NAME OF THE FILE TO LOAD ? ";T$ "T$""ė:D$;"CATAd:16298,0:10000$nD$(4)3xN0:MR100XD$(MR),D(MR),G(MR),M$(MR),C(MR):10:"MILEAGE MINDER":::"COMMANDS:":"1 - READ DATA FROM DISK""2 - INPUT DATA FROM KEYBOARD""3 - WRITE DATA TO DISK"' "4 - DISPLAY        #rr$&Y0qq#:qqqD@Brp@*#rNq`$:Xq`%qoba@GPbG%lPUVWX6a@*#rGY vc_#<@*#rr<@*rr<@*rr<@*rr<@*rr$_KQ1qqUVW;@rq<@*#rr<()r` %q`$&(q@Brp@*#rq,!`;@r<@*)cad2e?a(͠Š)FGPa(Š)GPa(ϠŠ)Fd2ecq.?%rd"e,d"eoS(ҠҠ)&@@p())`@9()$`@9()$`@9()$2` ;@r<@*#rr$_o`<@*#rr@"(rC@"rC@"$rC@"(rM6/@p()QM6oS(ҠԠŠ)'qoS(ҠԠŠ)'*`$$$3KM6a(ŠϠԻҠנ[d]ˠŢ٠ΠӠĠ̠NJ_n]Ӡ͠ӠͭӠ͠٠ŠϠ٠ҠŬŠϠ>x]κӠԠŠҠԊ/N    34,0 YY1?*Y14ė:Y1:"FOOD ITEM","AMOUNT","CALORIES"H4Y1Z>M$,M1$;34)MeH34,15mR16s\f" HOW MANY ";M1$;" ARE YOU GOING TO USE ";:NpN1NMzTTN1RRN1"CALORIES SO FAR THIS RECIPE "R"TOTAL C,M1$,MF$M$4620I% B HERE WE TELL USER NOJ " I AM ";::"SORRY"::"BUT ";F$;" IS NOT IN MY MEMORY BANK"4350  RETURN FOR MORE INPUT   PRINT DATA  34,1516:B"WHAT FOOD ARE YOU LOOKING FOR ";F$HP u& HERE WE CHECK DATA FOR INPUT}0 :DF$"STOP"5460NF$"CLEAR"T0:R0:34,0:4320XF$"CHECK"ī4790bF$"TOTAL"Y0:4940lI1150vM$::"STOP";::" WHEN YOU HAVE FINISHED USING THE PROGRAM"f:"IF YOU WANT A PRINT OUT OF ALL THE""DATA IN FILE TYPE ";::"TOTAL";::" PLEASE."50,63"HIT ANY KEY TO CONTINUE.":U1$:"FOOD ITEM","AMOUNT","CALORIES" ERVING IN A RECIPE THEN TYPE"Mr:"CHECK";::" WHEN ASKED FOR FOOD ITEM."w"PLEASE ENTER ALL FOOD ITEMS":"IN THE SINGULAR"|:"IF YOU WANT TO CLEAR THE COUNTERS AND""THE PRINT OUT LIST THEN TYPE ";::"CLEAR"::"PLEASE TYPE ";E VALUE OF ANY FOOD"A""OR OF A LIST OF FOODS SUCH AS A MEAL."G,s6"IT ALSO CAN BE USED TO FIND OUT THE "@"CALORIE VALUE OF A SERVING OF FOOD "J"FROM YOUR FAVORITE RECIPE."T^"IF YOU WANT TO KNOW THE CALORIE VALUE"h"OF A S3" CALORIE COUNTING PROGRAM(D START = FRE(0) 8188L10r08):"CALORIE COUNTING PROGRAM"I12000:I200 PROGRAM STARTS HERE34,0:3"THIS PROGRAM ALLOWS YOU TO DETERMINE""RAPIDLY THE CALORIS:2x "TO CON'T LIST HIT ANY KEY & RETURN ";U5$> I11NH 2670f R;" ";A$(I);" OF ";C$(I)t I20275{ I 2530 "TO CON'T LIST HIT ANY KEY & RETURN";U5$ I21N 267 R;" ";A$(I);" OF ";C$(I) I 2530 102ERVINGS  "; 50,127% "Y\N"1 50,255: U2$L( U2$"Y"2400`2 U2$"YES"2400f< F "THANK YOU FOR LETTING ME HELP YOU "P "WITH YOUR MEAL PLANING. CALL ON ME"Z " AGAIN ANY TIME, GOODBYE...."d 2810n R(B(I)O)IS MEAL ";S y  ~ < "TO SERVE ";S" PEOPLE WITH THE"N Z$;" RECIPE"y "PLEASE USE THE FOLLOWING NEW RECIPE" I1N 2670 R;" ";A$(I);" OF ";C$(I) I10268 I "DO YOU WANT TO CHANGE THE NUMBER" "OF SEASE ENTER THE AMOUNT, AND THE"8  "UNIT OF MEASURE ";H  B(I),A$(I)m $ "WHAT IS THE INGREDIENT ";C$(I)t . Iz 8 B L "HOW MANY PEOPLE DOES YOUR" V "ORIGINAL RECIPE SERVE ";O ` j "HOW MANY PEOPLE DO YOU NEED" t "TO SERVE FOR THNIT OF MEASUREMENT" f p% zR "PLEASE ENTER THE NAME OF THIS RECIPE "X ` Z$f l y A$(200) B(200) C$(200) "HOW MANY INGREDIENTS ARE IN" "THIS RECIPE ";N  I1N  "INGREDIENT ";I  "PL"INSTRUCTIONS" 50,255# . "1 ";[ "ENTER FRACTIONAL AMOUNTS AS A DECIMAL"j "AMOUNT."p *{ 4"2 "; >"WHEN ENTERING THE AMOUNT OF AN" H"INGREDIENT,TYPE THE NUMBER IN FIRST" R"THEN HIT THE RETURN BEFORE TYPING IN" \"Uj"1 RECIPE CONVERTER":"2 CALORIE COUNTER":"3 RECIPE COST CALCULATOR":"4 EXIT PROGRAM"::32,0:::10:"SELECT": tOO:OO2000,4000,5600,9000 ~1120 ::::"WHEN ENTERING THE RECIPE PLEASE FOLLOW" "THE FOLLOWING "; 50,127 ( d9500) PROGRAM SELECTION PAGE P:12:10)"HOME ECONOMICS PACK I"aI12000:I15:19)"BY"::14)"PAUL A. PAGE "::16)"EDITED BY"::7)"DICK HUBERT AND VAL GOLDING"I13000:I:`:::10:"OPTIONS:":32,15:z