' +JJJJ ?\>m0M='+l> /+l  H d@hLҦ L~ L  ﵪ*i BB䵊嵰`72µ- i ư&( Rp s P  LLʬLoō 鷎귭෍ᷩ췩緈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)*++`NG8`0($ p,&" ۿ ۿڿL흍ٿ vLQ  !"#$%&'()*+,-./0123456789:;<=>?  ( 9 +"  "*  (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#0).).*#!.*'!.8)(#/-)(#/-,,eb)++$ h( ,!!"@h !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`HH ᥠ L\HIHHHHhHH݌hHhHh݌H6 VDP (FD Z $0x8x D- ܸDD#LHH`?F Vk *f???0xF Hh D#-FFF8` D ܸx D - ܸx8`-0ݩ?ʥD FFF`   LDcpq` [` ~  L IH 20 LDIVERSI-DOS(TM) BY BILL BASHAM C1982 DSR THIS DISK CONTAINS A HIGH-SPEED OPERATING SYSTEM CALLED DIVERSI-DOS. TO LEGALLY USE DIVERSI-DOS, PLEASE SEND A ONE-TIME FEE OF $30 DIRECTLY TO: DSR, INC. 5848 CRAMPTON CT. ROCKFORD, IL 61111 815 877-1343 (VISA/MC) YOU WILL RECEIVE A UTILITY DISK, DOCUMENTATION, AND A VALIDATION STICKER AS PROOF OF PAYMENT. YOUR HONESTY WILL ALLOW DSR TO DISTRIBUTE FUTURE PROGRAMS THIS SAME, LOW-COST WAY. <> Ӝsqu`".Q`pNФbptťܥm2<(-Py0\|e<6e< ~ vL~ JJJJj귍hI  aUL@ kU8  L  ^R(jQ0l^l\ IOÌȌ`W ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQL߼YLeLXLeLee ўQ0 L&RE;BY; Ꝥ$`( 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 We)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ\L \ şL_ NLjHv 3h`0h8` [L NС õ`A@` ŵL]Lõ`  \ 濭0 ş  Q ^\lZl^\8  ş Lȟ`fhjõĵ@OAP`u@`@&`QR`F Ls  @DAF@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@ ,\Z[PRN,XɄOɊRQF(0Bhhhw4h/ ^0(p ߩRP1Q ɿ, P\L˵B̵C8pBZ\  յյ\BIR Z-^ Jp\IZLL-p  Ю@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J LsL Q(`贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / şFD B / / ]ƴS0Jȴ ȴ)  紅D贅F B ƴ  / 0L Ν `ND8HFFhDh N ş`, ŵBѵ`, ѵB8` ܫ 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˵̵ֵ׵`LzĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`` ᥠ hh`ĵµ`ڿ8.ڿ.ۿ`êL`õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH x(`# d£àĠz# u`50 Y13T$(N$,Y,1)?T$"0"T$"9"M$M$T$:YVM$""ER%1:4250m(M$)1M$"0"M$(M$)3ER%1:4250(M$)12(M$)1ER%1:4250"Y46,T$(N$,Y,1)6T$"0"T$"9"DA$DA$T$:Y @DA$""(DA$)3E3020(: (IN$)31IN$((IN$)64):aD IN$;::E(37):F(36):23:1:958:E1:F1:3020vN N$"MENU"20000X CO0:N0:b :l D$;"RUN P.1" <>M$"":DA$"":Y$""N$""ER%1:4250(N$)8ER%1:42""ER%1:3150* IN$(13)Č868:3150C IN$(3)ĺG$;:3020b IN$(8)N$N$IN$:3120{ (N$)1ĺIN$;:3010 N$""3020 N$(N$,(N$)1):IN$;:30200 (N$)N1N$(N$,(N$)1):E(37):F(36):24:1:"TOO LONG";:E1:F1:G$;:,0-:790,104:791,168:792,104:793,166:794,223:795,154:796,72:797,152:798,72:799,96D$(4):G$(7):R$"READ":W$"WRITE":O$"OPEN":C$"CLOSE":DE$"DELETE"(700 d5:14::" MASTER MENU ":::.2"!"RUN P.1"(!D$;C$;"PRT.INIT".!d!:10:"SETTING UP PRINTER INITIALIZATION STRING"j!! D$;"EXEC PRT.INIT"!!@:%:PI$:PL%:PR% D$;C$* PI$"0"ıS D$;O$;"PRT.INIT":D$;DE$;"PRT.INIT"{ D$;O$;"PRT.INIT":D$;W$;"PRT.INIT" "LOAD P.4" "30000 PRINT ";PI$;" : RETURN" "SAVE P.4" "LOAD P.2" "30000 PRINT ";PI$;" : RETURN"!"SAVE P6ER%1TER%1ĺG$;:18:958:23:1:"MUST BE A NUMBER FROM 1 TO 6.";:1:6250lSI$"W":SI%(N$)7rX <>bCH%0ıglD$;O$;"INIT":D$;DE$;"INIT":D$;O$;"INIT":D$;W$;"INIT" vSI$:SI%:CD$:PD$:NA$:NR%:PSA$"A$"2"SI$"B":SI%0:6330BA$"3"SI$"M":SI%0:6330b$A$"4"SI$"V":SI%0:6330|.A$"1"SI$"W":62508G$;:16:958:1:6150j:18::"HOW MANY WEEKS IN EACH"::"SHOPPING INTERVAL (1-6)? ";tN1:3000~5000(N$) CD$N$:;10:"WHICH SHOPPING INTERVAL CATAGORY? "l5:"WEEKLY OR MULTIPLE WEEKS";:30::"1":5:"TWICE A MONTH";:30::"2":5:"MONTHLY";:30::"3":5:"VARIABLE";:30::"4"::"SELECT A NUMBER ";:A$ 16:17:z::3:" SHOPPING INTERVAL INITIALIZATION ":f5:"ENTER MENU'S STARTING DATE (MON/DAY/YR).":}17:7:"--------"7:17:N8:3000::4000ER%1Ģ23:1:"DATE MUST BE VALID AND CONFORM":"TO THE PATTERN ABOVE. ";:7:17:G$;:868:60404250IR((Y$)4):R2(Y$)(R4):R20(M$)2(DA$)28ER%1:4250`(Y$)1Y$"0"Y$yN$M$"/"DA$"/"Y$ <<# TEST>>ER%0Z1(N$)(N$,Z,1)"0"(N$,Z,1)"9"ĂZ:5050ER%1p <>1$DA$T$:Y-@DA$""(DA$)3ER%1:4250GJ(DA$)1DA$"0"DA$rT 31,29,31,30,31,30,31,31,30,31,30,31^W1(M$):DA%:W:h(DA$)DA%ER%1:4250rY78|T$(N$,Y,1)T$"0"T$"9"Y$Y$T$:YY$""(Y$)3ER%1:8ER%1:4250Y13*T$(N$,Y,1)KT$"0"T$"9"M$M$T$:YbM$""ER%1:4250y(M$)1M$"0"M$M$""ER%1:4250(M$)3ER%1:4250(M$)12(M$)1ER%1:4250"Y46,T$(N$,Y,1) 6T$"0"T$"9"DA(36):24:1:"TOO LONG";:E1:F1:G$;:3020P: (IN$)31IN$((IN$)64):D IN$;::E(37):F(36):23:1:958:E1:F1:3020N N$"MENU"10X N0:T%0: <>M$"":DA$"":Y$""N$""ER%1:4250(N$)0IN$"'"1 IN$(13)N$""ER%1:868:3150L IN$(13)Č868:3150e IN$(3)ĺG$;:3020 IN$(8)N$N$IN$:3120 (N$)1N$"":IN$;:3020 N$""3020 N$(N$,(N$)1):IN$;:3020-0 (N$)N1N$(N$,(N$)1):E(37):F)K1L1:M%(K):K#)L2L2L1<)D$;C$;"SL.TEMP":L1j)D$;"APPEND MENU.TEMP":D$;W$;"MENU.TEMP")K0X1:M$(K):K)X2X2X)D$;C$;"MENU.TEMP":X0)WC)10000)ND$N$)&*D$;O$;"TEMP":D$;DE$;"TEMP":D$;O$;"TEMP":D$;CC%58100(rW1(CS$)W(|CC%((CS$,W,1))M$(X)"":XX1:M$(X)"":XX1:8030^(Wh(7120p(DC|(W1Y%(FD%(3,W)0FD%(3,W)1:8150(FD%(4,W)FD%(3,W):FD%(3,W)FD%(3,W)1(W((D$;"APPEND SL.TEMP":D$;W$;"SL.TEMP"(0,PF%))('(FD$(0,PF%),W,1)"0"7905F'CS$CS$(FD$(0,PF%),W,1)M'Wd'W1(FD$(1,PF%))'(FD$(1,PF%),W,1)"0"7925'GS$GS$(FD$(1,PF%),W,1)'W'Q613'"FD%(Q,PF%)07990',M%(L)FD%(Q,PF%):LL1'6Q'^CC%CC%1 (h0-&P13000:M$(X)"0":M$(X1)"":XX2:8030>&dCC%17850W&nFD$(2,PF%)"0"7850l&xG$G$FD$(2,PF%)&M$(X)FD$(3,PF%):XX1:M$(X)(FD%(5,PF%)):XX1&TF%0M$(X2)M$(X2)"*":TF%1&FD%(4,PF%)FD%(3,PF%)&FD%(3,PF%)0'W1(FD$W,1)F1%T%W$%F17730.%7700=%W1(G$)R%T1(FD$(2,S))u%(FD$(2,S),T,1)(G$,W,1)F1|%T% W%F17730%PF%0PF%S:7730%FD%(3,S)FD%(3,PF%)PF%S%2F0:P%<PF%07780&FTF%1TF%0:12000:749F%1:PF%0$BP1U+$LCC%1SFI%(0,P)A$VCC%2SFI%(1,P)W$`CC%3SFI%(2,P)m$jCC%4SFI%(3,P)$tCC%5SFI%(4,P)$~TF%07570$FD%(3,S)FD%(2,S)7730$CC%17650$W1(GS$)$T1(FD$(2,S))%(FD$(2,S),T,1)(GS$,$(2,RN%))/#z(FD$(2,RN%),T,1)(GS$,W,1)F16#T=#WK#F17450]#PF%RN%:7850l#W1(G$)#T1(FD$(2,RN%))#(FD$(2,RN%),T,1)(G$,W,1)F1#T#W#F17450#PF%RN%:7790#RC%RC%1:F0#$RC%NR%7180 $.T"RC%1" RN%((SN%V%)U)0"RN%0RN%UJ" CC%1RN%FI%(0,RN%)d"*CC%2RN%FI%(1,RN%)~"4CC%3RN%FI%(2,RN%)">CC%4RN%FI%(3,RN%)"HCC%5RN%FI%(4,RN%)"RFD%(3,RN%)FD%(2,RN%)7450"\CC%17350"fW1(GS$) #pT1(FD7075'!10000:CD$N$:M$(X)CD$:XX1:!WCW%1ZRE%D!G$""P!DC1ZZ!MM1!34,1:3:7:"NOW SELECTING MENU NUMBER ";::M::34,3!CS$"":GS$"":CC%1!CC%1UN1!CC%2UN2!CC%3UN3!CC%4UN4!CC%5UN5;DE$;"MENU.TEMP":D$;O$;"MENU.TEMP":D$;C$;"MENU.TEMP"Y ]TF%1:T$(CD$,1,2)(CD$,4,2) bW%SI%7:RE%SI%(7W%):X0:Y1:L1:M$(80):M%(350):V%(((T$)1000)) lRE%0Y0 vWC1(W%Y) Z7:M$(X)"*":XX1!WC1M$(X)CD$:XX1:T$CD$:1Ģ18:958:G$;:23:1:"MUST BE A NUMBER FROM 1 TO 6.";:1:6250[(N$)3ER%1:6300ySI$"W":SI%(N$)7:2050X <>YZD$;O$;"SL.TEMP":D$;DE$;"SL.TEMP":D$;O$;"SL.TEMP":D$;C$;"SL.TEMP"6 [D$;O$;"MENU.TEMP":D$050$A$"3"SI$"M"::SI%0:2050D$A$"4"SI$"V":SI%0:2050^.A$"1"SI$"W":6250z8G$;:16:958:1:6150j18::"HOW MANY WEEKS IN EACH"::"SHOPPING INTERVAL (1-6)? ";tN1:3000y5000~(N$)1(N$)6ER%1:6300BER%HOPPING INTERVAL CATAGORY? "M5:"WEEKLY OR MULTIPLE WEEKS";:30::"1":s5:"TWICE A MONTH";:30::"2":5:"MONTHLY";:30::"3":5:"VARIABLE";:30::"4"::"SELECT A NUMBER ";:A$ 16:17:A$A$"2"SI$"B":SI%0:2ALIZATION "::CI%1H5:"ENTER MENU'S STARTING DATE (MON/DAY/YR).":_17:7:"--------"z7:17:N8:3000:4000ER%1Ģ23:1:"DATE MUST BE VALID AND CONFORM":"TO THE PATTERN ABOVE. ";:7:17:G$;:868:6040CD$N$:10:"WHICH S4):R20(M$)2(DA$)28ER%1:4250>(Y$)1Y$"0"Y$WN$M$"/"DA$"/"Y$]o <<# TEST>>yER%0Z1(N$)(N$,Z,1)"0"(N$,Z,1)"9"ĂZ:5050ER%1p <>z::3:" SHOPPING INTERVAL INITIR%1:4250$J(DA$)1DA$"0"DA$PT 31,29,31,30,31,30,31,31,30,31,30,31i^W1(M$):DA%:W:h(DA$)DA%ER%1:4250rY78|T$(N$,Y,1)T$"0"T$"9"Y$Y$T$:YY$""(Y$)3ER%1:4250'R((Y$)4):R2(Y$)(R)))2:H1:"THE ";(NA$,29);" FAMILY":LL1Y9p?6:"MENUS FOR THE WEEK BEGINNING":LL1l9z?16:CD$:LL1x9?:LL19?"DAY";:5:"MENU";:CF%1Ė33:"CALORIES":LL1:162809?LL1:9?"---";:5:"----";:CF%1Ė33:"--------"::LL2:16290 0:161808*?G$;:16120H84?:10:7:"PLEASE TURN ON YOUR PRINTER,":q8>?7:"THEN PRESS RETURN. ";:N4:30008H?C1:G%2:S0:CD$M$(1):L08M?8R?D$;"PR#";PS%8S?PI$"0"İ300008T?FO%X28W?G%FO%165408\?:LL1,9f?H(40(11((NA$,29)60007=(N$,1)"S"16550+7=G$;:15500F7> <>n7>:10:10:"DO YOU WISH CALORIES":7?10:"PRINTED (";::"YES";::" OR ";::"NO";::")? ";:N4:30007 ?N$""ĺG$;:161207?(N$,1)"Y"CF%1:16180 8 ?(N$,1)"N"CF%Y. ";:A$6;14010/6< <>n6<:10:"PRESS ";::"M";::" TO WRITE OUT THE MENUS ON":6"="YOUR PRINTER OR ";::"S";::" FOR A SHOPPING LIST":6T="(";::"MENU";::" TO RETURN TO MASTER MENU)> ";:N4:30007=(N$,1)"M"1" ";M$(G%):151395!;M$(G%)85#;SS(M$(G%)):G%G%1?5$;TN5.;37:S:S0c58;CC1:C715170j5=;W5B;:"RETURN";::" TO CONTINUE (";::"ESC";::" TO END). ";:CO3:N4:30005E;ER%3140105G;5;15030 6;:"END OF MENUS. PRESS ANY KEAY";:5:"MENU";:33:"CALORIES"+4:W13[4:M$(G%)"*"CD$M$(G%1):G%G%2:C1:15170f4;FO%X2y4;G%FO%153004;2:C;4;T154;M$(G%)""G%G%2:151404;5:M$(G%);:G%G%1:344;(M$(G%))1ĺ" ";M$(G%):151395;(M$(G%))2ĝ:" TO SEE THE SHOPPING LIST":g3:"(";::"MENU";::" TO RETURN TO MASTER MENU). ";:CO0:N4:3000~3:(N$,1)"M"150103:(N$,1)"S"240003:G$;:150023::C1:G%2:S0:CD$M$(1)3:6:"MENUS FOR THE WEEK BEGINNING"3:16:CD$ 4::"DOUR PRINTER":N26"(";::"MENU";::" TO RETURN TO MAIN MENU). ";:N4:3000e26(N$,1)"T"15000|26(N$,1)"P"1550027G$;:140102: <> 3::10:"PRESS ";::"M";::" TO SEE THE MENUS ON YOUR"::"TERMINAL OR ";::"S";:MP":K0X21:M$(K):K:D$;C$116I12:G$;:I=1634,0:g163:7::" MENU SELECTION COMPLETED "167::"MENUS FOR ";SI%;" MEALS WERE SELECTED."1610:"PRESS ";::"T";::" TO SEE THESE MENUS ON YOUR":26"TERMINAL OR ";::"P";::" FOR Y"INIT":D$;R$;"INIT"A0t6SI$,SI%,CD$,PD$,NA$,NR%,PS%,PI$,PL%,PR%L0~6D$;C$R0606D$;O$;"TEMP":D$;R$;"TEMP":X2,L2,SI%,ND$,T$:D$;C$:M$(X2),M%(L2)06D$;O$;"SL.TEMP":D$;R$;"SL.TEMP":K1L2:M%(K):K:D$;C$16D$;O$;"MENU.TEMP":D$;R$;"MENU.TEESSERT",/3"ITEM FOR THE ";CC$;" CATEGORY"Y/"3:"IN MENU NUMBER ";DC;" OF WEEK ";WC:_/63|/L6 <>/M6/Q6CH%1/V6D$(4):G$(7):R$"READ":W$"WRITE":O$"OPEN":C$"CLOSE":DE$"DELETE"/[6IG%(200),IG$(200)/`60j6D$;O$;SARY TO IGNORE THE":3.N/"FREQUENCY FACTORS."::9.b/L.2 <>R.2.2:"PROBLEM B";::" UNABLE TO SELECT A FOOD":.2CC%1CC$"MAIN COURSE".2CC%2CC$"STARCH".2CC%3CC$"VEGETABLE".3CC%4CC$"SALAD"/3CC%5CC$"DN ORDER TO SELECT A FOOD":8-.CC%1CC$"MAIN COURSE"P-/CC%2CC$"STARCH"k-/CC%3CC$"VEGETABLE"-/CC%4CC$"SALAD"-&/CC%5CC$"DESSERT"-0/"ITEM FOR THE ";CC$;" CATEGORY"-:/:"IN MENU NUMBER ";DC;" OF WEEK ";WC:.D/"IT WAS NECES,'H%99H%0,'10040:,'((E%))2E$(E%):10240K,'E$"0"(E%)k,(((F%))2F$(F%):10280|,(F$"0"(F%),((((H%))2H$(H%):10300,2(H$"0"(H%),<(N$E$"/"F$"/"H$,n(,. <>,.-.:"PROBLEM A";::" I:F%((CD$,4,2)):H%((CD$,7,2))M+$' 31,28,31,30,31,30,31,31,30,31,30,31Y+.'F%F%Ze+8'W1E%n+B'DM%w+L'W:+V'E%210130+`'RH%4:R2H%(R4)+j'R2010130+t'DM%DM%1+'F%DM%10200+'F%F%DM%:E%E%1+'E%12H%H%1:E%1W$;"TEMP":X2:L2:SI%:ND$:T$:D$;C$9*ND$N$:CH%1:Y* <>_* q* D$;O$;"MENU"* D$;DE$;"MENU"*& D$;O$;"MENU"*0 D$;W$;"MENU"*: X2*? W0X2*D M$(W)*N W* *' <>"+'E%((CD$,1,2)) I]FL%04I]YL2ĺ"END OF LIST":23:1:Y1:24140SI]IG%(W)M%(Y)FL%1:24090ZI]WI]FL%1P$"THE NUMBER "(M%(Y))" HAS NO INGREDIENT ASSIGNED":24100I^P$IG$(W)I^YL2Ė5:P$:24130I$^M%(Y1)0Ė5:P$:24130J.^CC1:YY1:Y1L2YD$;DE$;"SL"HZD$;O$;"SL".H ZD$;W$;"SL":HZL2;"N"FHZW1L2QH(ZM%(W)XH2ZWcH>H]SF%0İ18000H]Y1:C1H]19000H]:6:"SHOPPING LIST FOR THE PERIOD":11:"BEGINNING ";M$(1)H]I1H]W1NI%D$;O$;"FOOD,L200"GVI1Y%;GVD$;W$;"FOOD,R";FD%(0,I)G"VFD%(1,I):FD%(2,I):FD%(3,I):FD%(4,I):FD$(0,I):FD$(1,I):FD$(2,I):FD%(5,I):FD$(3,I)G,VP18:FD%(5P,I):PG6VIG@VD$;C$GJVGY <>GYGYD$;O$;"SL"HC$"CLOSE":DE$"DELETE")FO25000:220003FO3170OFR <>UFRFRD$;O$;"INIT":D$;DE$;"INIT":D$;O$;"INIT":D$;W$;"INIT"F&RSI$:SI%:CD$:PD$:NA$:NR%:PS%:PI$:PL%:PR%F0RD$;C$F:RFU <>FUGV$,1)"N"3170$EzN(N$,1)"Y"202004ENG$;:20020kEN:10::"WRITING MENU, SHOPPING LIST & FOOD FILE"qENENCH%1İ8200:PD$T$:CD$ND$EN21000ENSF%0İ23000EO:FD%(13,200),FD$(3,200)FOD$(4):G$(7):R$"READ":W$"WRITE":O$"OPEN":YES";::" IF YOU WISH TO SAVE THE":]D>N"MENUS JUST SELECTED OR ";::"NO";::" IF YOU":DHN"WISH TO HAVE THE DATES AND SELECTION":DRN"FACTORS RESET TO THEIR ORIGINAL VALUES.":D\N15:N4:3000DfNN$""20100DpN(N$,1)"N"CD$T$ EuN(N18410CG18270.C8J <>4C=JFCBJD$;O$;"INGD"XCLJD$;R$;"INGD"aCVJNI%nC`JU1NI%zCtJIG%(U)C~JIG$(U)CJUCJD$;C$CJC N <>C*NCH%020020C/NCI%1İ21000C1N3170%D4N:5:1:"ENTER ";::" B@GI1L2BJGJI15BTGM%(J)M%(I)M%(I)0:18400";:HH1:H32H6A'GE118200A,GFG%1IW:FG%0:18200A1GII1:IL218200A6GD1D0:FG%0:18190L%L::Z:GW:L0:PP1:P$" PAGE "(P):16730:@rBE%(W)A@|BWU@BW1PL%L::W[@Bj@BD$;"PR#0"u@B14010@PF <>>@ZFER%0@FD0:C1:W1@FL21ī18140@FER%1:18370@FAF10::7:" SHOPPING LIST BEING SORTED "W(?AE%(T)M%(G%):TT1:G%G%1:16770A16860I>AM%(K)0CC1:KK1:KL216800V>AW1NI%>AIG%(W)M%(G%)ĺIG$(W);"(";C;")":LL1:G%K:C1:16770>AW>AE%(T)M%(G%):TT1:G%G%1:16770>AW1NI%>AIG%(W)M%(G%)ĺIG$(W):LL1:G%G%1:16770?A16950=ZA:LL1X=dAH(40(11((NA$,29))))2:H1:"THE ";(NA$,29);" FAMILY":LL1=nA2:"SHOPPING LIST FOR THE PERIOD BEGINNING":LL1=xAH1:P$::LL2=AG%L216950=AG%L216860=AM%(G%)0G%G%1:16770=ALPR%16900>AM%(G%10<@ <>-<@T0:P1:G0:H116><@SF%116640K<@:18000V<A19000< A:10:7:"PLEASE TURN ON YOUR PRINTER,":<A7:"THEN PRESS RETURN. ";:N4:3000< W1(N$)` ((N$,W,1))C%ER%1:3570g Wm t WRITES INGREDIENT FILEw22y~D$;O$;"INGD"D$;DE$;"INGD"D$;O$;"INGD"D$;W$;"INGD"NI%U1NI%IG%1] R%2003140tb :10:G$;:"THE FOOD FILE CONTAINS 200 ITEMS."::"IT IS FULL. IN ORDER TO ADD FURTHER":l "ITEMS YOU MUST FIRST DELETE SOME.":v "PRESS ANY KEY TO CONTINUE. ";:A$:5 CHECKS CS ER%0 W1(N$) (N$,W,Q$:2910'\ (Q$)1P$" "Q$:29101] P$Q$R^ V:6:P$;:10:I$(V13);:VXh k NEW RECORD #q  D$;O$;"DEL" D$;R$;"DEL" D D03150 X1D D%(X):X R%D%(D)B D$;C$;"DEL"D N D$;C$;"DEL"X R%L%(GE$):(GE$,V,1);:",";:V/ 12:24:CAL%;9" FL%0D' P18a, I%(P)0I$(P)"0":2895n6 Q1NI%@ I%(P)IG%(Q)I$(P)IG$(Q):2895J QM FL%1:I$(P)"'NO INGREDIENT ASSIGNED'"O PT V1421Y Q$(I%(V13)) [ (Q$)2P$" "URSE";:2800' C%2ĺ"STARCH";:2800E C%3ĺ"VEGETABLE";:2800_ C%4ĺ"SALAD";:2800{ C%5ĺ"DESSERT";:2800 C%; 5:37:F%; 7:21:V1(GA$):(GA$,V,1);:",";:V 9:22:V1(CS$):(CS$,V,1);:",";:V 10:19:V1% L%02580 X1L%2 D$;R$;"FOOD,R";XG Y19:B$(Y):Ye B$(1)"0"CT%(X)0:2570 NF$(X)B$(9):CT%(X)(B$(1)) Y18:FI%(Y,X):Y X D$;C$;"FOOD"  DISPLAY RECORD 3:8:F$; 5:12  C%1ĺ"MAIN CO)LbI18:FD%(5I,Y):I"L bX+L%bY%Y=L*bD$;C$;"FOOD"SL4bD$;O$;"SEL.PARM"iL>bD$;R$;"SEL.PARM"uLHbI1Y%LRbFD%(3,I),FD%(4,I)L\bILfbD$;C$LpbL0u"80N": ,104:791,168:792,104:793,166:794,223:795,154:796,72:797,152:798,72140Ka <>%Ka1n#12::"7CALORIES PER SERVING:";::27:"*"X1x#13::"INGREDIENTS:"e1#X14211# "A","B","C","D","E","F","G","H"1#X:3::A$:A$;":";:9::"*";:40:"*"1#X::1' UPDATE ROUTINE1':5:52$'T$" MODIFY FOOD ITEM SCREEN,02#::T$;"RECORD NUMBER=";R%;" "I0<#3:"1NAME:";::38:"*"0F#5::"2CATEGORY:";::24:"*";::"3FREQUENCY:";::39:"*"0P#7::"4GROUP ASSIGNMENTS:";::37:"*"0Z#9::"5CATEGORIES SKIPPED:";::30:"*"1d#10::"6GROUPS EXCLUDED"/D/X1D:D%(X):X./D$;C$;"DEL":/:5100n/14:"I CAN'T FIND THIS FOOD ITEM IN THE FILE."/"IF YOU ARE UNSURE OF THE NAME YOU MAY"/"EITHER TRY ANOTHER NAME OR REQUEST A"/"PRINTING OF ALL ITEMS IN THE FILE."/51000(#."RECORD BEING DELETED":#.:.D$;O$;"FOOD,L200"Q.(D$;W$;"FOOD,R";R%^.2C%0:C%p.FD$;C$;"FOOD".PD$;O$;"DEL".ZD$;R$;"DEL".dD.nD05250.xX1D:D%(X):X.DD1:D%(D)R%.D$;DE$"DEL".D$;O$;"DEL"/D$;W$"DEL(N$,1)"N"5080+-G$;:23:958:50608-:18:5S-"RECORD NOT DELETED."-20:5:"SEARCH FOR ANOTHER RECORD? ";:H36:V20:N4:BL%1:4500-N$""ĺG$;:5080-(N$,1)"Y"5010-(N$,1)"N"5-G$;:20:958:5100- :18:5:MBER OR"::5:"FOOD NAME YOU WISH TO DELETE."::5=,2000M,ER%15310,ER%2Ģ18:5:"THIS RECORD HAS BEEN DELETED.":5100,9000:2700,23:5::"DELETE THIS ITEM? ";::H27:V23:N4:BL%1:4500,N$""5078,(N$,1)"Y"5130-$(NI%)I$(X13)+WW1+7+$ READS INGRED FILE=+)O+.D$;O$;"INGD"a+8D$;R$;"INGD"j+BNI%w+LU1NI%+`IG%(U)+jIG$(U)+tU+yD$;C$+~+ DELETION ROUTINE+:5:5+T$" DELETE FOOD ITEM "3,"ENTER RECORD NU*R4565*\N$"MENU"5:*f1:23:BL%0Č958:CO$"":M*pBL%0:CO$"":e* INGREDIENT SEARCHo*FL%0|*Z1NI%*I%(X13)IG%(Z)I$(X13)IG$(Z):FL%1:4845*Z** ADD INGREDIENT*AF%1*NI%NI%1+IG%(NI%)I%(X13):IG0 )4660O)*(N$)N1N$(N$,(N$)1):G$:1:24:"TOO LONG";:H:V:4680)4IN$;CO$;:E(37):F(36):BL%0Ģ23:1:958:E1:F1:4520)>4520)HIN$:IN$(13)4700)MIN$(8)ĺG$:V:H:4680)OE(37):F(36):24:1:958:E1:F13)4700-(IN$(27)N$""C0ER%3:4700@(IN$(0)4520W(IN$(34)IN$"'"u((IN$)31IN$(8)4520(IN$(8)N$N$IN$:4650(CO$","N$""ĺIN$;((N$)1ĺIN$;:4510(N$""4520)N$(N$,(N$)1):CO$","ĺIN$;:4524225'4340'YX216'I%(Y13)0:I$(Y13)"0"='YG'C0:T'0 # TEST^'5ER%0m':Z1(N$)'D(N$,Z,1)"0"(N$,Z,1)"9"ĂZ:4460'NER%1'l' TRAPPING ROUTINE'ER%0:N$""'600'IN$:IN$(21)4520(IN$(1&X:10:N30:VX:H40:CO$"":4500:ER%3400u&N$""ĺG$;:23:1:"AN INGREDIENT NAME MUST BE ASSIGNED.";:4270&(N$,1)"0"ĺG$;:23:1:"'0' CANNOT BE USED, IT MEANS 'NONE'.";:X:10:P130:" ":P:4270&I$(X13)N$:4850'XX1:X216:" ";:4225-%(N$)1ĢX:6:" ";N$;I%(N$)2ĢX:6:" ";N$;b%I%(X13)(N$):4800%FL%1ĢX:10:I$(X13);:4290%NI%200Ģ23:1:"INGREDIENT FILE IS FULL. ITEMS MUST":"BE DELETED BEFORE FURTHER ADDITIONS.":V:6:" ";:4225/CAL%(N$)$|X14:W0L$X:6:N3:VX:H9:CO$"":CX6:4500:ER%3400$N$"0"ĺG$;:23:1:"'0' CANNOT BE USED AS A NUMBER HERE.";:V:6:" ";:4225$N$""ī4300$4400%ER%1ĺG$;:23:1:"ENTRY MUST BE A NUMBER FROM 1 TO 999.":V:0:TEMP$:10120CC*14:"I CAN'T FIND THIS FOOD ITEM IN THE FILE."pC*"IF YOU ARE UNSURE OF THE NAME YOU MAY"C*"EITHER TRY ANOTHER NAME OR REQUEST A"C*"PRINTING OF ALL ITEMS IN THE FILE."D+20:958:20:5:"SEARCH FOR ANOTHER RECORD? ";:N4:F$B*X18,B*I%(X):FI%(X,R%)I%(X):X;B*NF$(R%)F$MB*D$;C$;"FOOD"dB*AF%1AF%0:3700qB*:11010B*Q$(TEMP%):(Q$)1Q$" "Q$B*(Q$)2Q$" "Q$B*I%(X13)TEMP%:I$(X13)TEMP$C*X:6:" ";:10:P130:" ";:P:6:Q$;:1G$;:23:1:"'0' CANNOT BE USED, IT MEANS 'NONE'.";:10810PAN*I$(X13)N$:4850[AX*10120aA]*qA^*9000:2700A_*23:1:"RECORD BEING UPDATED."A`*22Aa*Ab*D$;O$;"FOOD,L200"Al*D$;W$;"FOOD,R";R%Av*C%:F%B*S%:PS%:CS$:GE$:GA$:CAL%:k@?*NI%200Ģ23:1:"INGREDIENT FILE IS FULL. ITEMS MUST":"BE DELETED BEFORE FURTHER ADDITIONS.":10930@D*X:10:N30:VX:H40:CO$"":C1:4500@G*ER%310930@I*N$""ĺG$;:23:1:"AN INGREDIENT NAME MUST BE ASSIGNED.";:10810:AK*(N$,1)"0"ĺ"10930?*4400a?*ER%1ĺG$;:23:1:"MUST BE A NUMBER FROM 1 TO 999.";:X:6:" ";:10750?!*(N$)1ĢX:6:N$" "N$:N$;?#*(N$)2ĢX:6:N$" "N$:N$;?&*I%(X13)(N$):4800?0*FL%1ĢX:10:I$(X13);:10120?:*X:10:N130:" ";:NR FROM 0 TO 999.";:10670(>)CAL%(N$)3>)10120Z>)X:6:" ";:10:P130:" ";:P|>)TEMP%I%(X13):TEMP$I$(X13)>)X:6:N3:VX:H9:CO$"":C1:4500>*ER%310930>*N$"0"I%(X13)0:I$(X13)"0":X:6:" 0";:10:"0":10120? *N$" CANNOT BE USED, IT MEANS 'NONE'.";:106205=)GE$N$@=)10120T=)12:24:" ";=)12:24:N3:V12:H27:CO$"":C1:4500=)ER%3Ģ12:24:" ";:24:CAL%:10120=)N$""CAL%0:10120=)4400>)ER%1ĺG$;:23:1:"CALORIES MUST BE A NUMBE)10120(<|)10:19:" ";T<)10:19:N8:V10:H35:CO$",":C1:4500<)ER%3Ģ10:19:" ";:19:V1(GE$):(GE$,V,1);",";:V:10120<)N$""GE$"0":10120<)Z1(N$):(N$,Z,1)"0"ĂZ:10650*=)G$;:23:1:"'0' ";:22:V1(CS$):(CS$,V,1);",";:V:10120L;J)N$""CS$"0":10120V;T)3500;^)ER%1ĺG$;:23:1:"A FOOD ITEM CAN ONLY SKIP":"CATEGORIES WHICH FOLLOW IT.";:10550;c)ER%2ĺG$;:23:1:"MUST BE A NUMBER FROM 2 TO 5.";:10550;h)CS$N$>KaFM%0 La:5:"THE FOLLOWING PROGRAM WILRESS RETURN TO SEE FURTHER ITEMS"}J;1:"OR ESCAPE TO END INSPECTION. ";:N4:V23:H34:BL%1:C1:4500;:ER%3Ĺ34,0:15360J;N$""ė:15280J;G$;:30:23:868:15330J<:10:"SEE ANOTHER CATEGORY? ";:N4:V10:H27:C0:4500K <(N$,1)"Y"15"DESSERT"CC5:15260tI;:G$;:20:1:"ENTRY MUST BE MAIN COURSE, STARCH":"VEGETABLE, SALAD OR DESSERT.":15210I;::" REC # ";N$;" ":I;34,1:X1I;I120I;CT%(X)CC15400I;XX1:XL%X1:15320I;15290I;I!J;22:1:"P IN THE FILE."H ;15040*H`;<>0He;aHj;10:"WHICH CATEGORY DO YOU WISH TO SEE? ":}Ht;5:N12:V12:H17:4500Hy;N$"MAIN COURSE"CC1:15260H~;N$"STARCH"CC2:15260H;N$"VEGETABLE"CC3:15260H;N$"SALAD"CC4:15260I;N$00G:N$""ĺG$;:150400G:(N$,1)"Y"15015GG:(N$,1)"N"15000WG:G$;:15040G:14:"I CAN'T FIND THIS FOOD ITEM IN THE FILE."G:"IF YOU ARE UNSURE OF THE NAME YOU MAY"G:"EITHER TRY ANOTHER NAME OR REQUEST A"H;"PRINTING OF ALL ITEMSR"::5:"FOOD NAME YOU WISH TO INSPECT."::5NF:T$" INSPECTION "XF:2000iF:ER%115080F:ER%2Ģ18:5:"THIS RECORD HAS BEEN DELETED.":15040F:9000:2700F:23:5:958G:"SEARCH FOR ANOTHER RECORD? ";:N4:BL%1:H36:V23:45MES IN A CATEGORY ":dE:"(ENTER ";::"S";::" OR ";::"L";::" TO INSPECT OR ";::"MENU"::E:"TO RETURN TO MAIN MENU). ";:N4:V18:H30:4500E:(N$,1)"S"15015E:(N$,1)"L"15200E:G$;:15002E::5:5.F:"ENTER RECORD NUMBER OH36:V20:4500&D +N$""ĺG$;:11010=D+(N$,1)"Y"10000PD +(N$,1)"N"5`D*+G$;:11010yD: INSPECTION ROUTINED::10:"YOU MAY INSPECT A ";::"S";::"INGLE, COMPLETE":D:"FOOD ITEM RECORD OR A ";::"L";::"IST OF ALL":E:"FOOD NA3020 IN$(34)IN$"'"A IN$(27)N$""CO3ER%3:3150b IN$(13)N$""ER%1:3150} IN$(13)Č868:3150 IN$(3)ĺG$:3020 IN$(8)N$N$IN$:3120 (N$)1ĺIN$;:3010 N$""3020 N$(N$,(N$)1):3140Q 0 (I6 C%:C%02920; YY19@ FD%(0,Y)I:FD%(1,Y)C%J FD%(2,Y),FD%(3,Y),FD%(4,Y),FD$(0,Y),FD$(1,Y),FD$(2,Y),FD%(5,Y),FD$(3,Y)h Im Y%Yr D$;C$|  <> N0N30 ER%0:N$"" 900 IN$:IN$(21)ĺD$;R$;"SL"( L2$,* (L2$,1)"N"SF%0D, (L2$,1)"S"SF%1R. L2(L2$)`2 M%(L25)l< I1L2wF M%(I)~P IZ D$;C$d  <>  D$;O$;"FOOD,L200" D$;R$;"FOOD,R0" L%" I1L%, D$;R$;"FOOD,R"; <>p>790,104:791,168:792,104:793,166:794,223:795,154:796,72:797,152:798,72:799,96: <>  D$;O$;"MENU" D$;R$;"MENU" FO% M$(FO%5) I0FO% M$(I) I D$;O$;"SL"  LPR%PI2:1200I!0D$;"PR#0"9140MW1PL%L::WYPAPA1c1060} <>D$;"NOMON C,I,O"D$;O$;"INIT"D$;R$;"INIT"SI$,SI%,CD$,PD$,NA$,NR%,PS%,PI$,PL%,PR%D$;C$4268" # INGREDIENT";:38:" # INGREDIENT":LL2B"--- ------------------------------ --- ------------------------------"LIPNI%2VIG%(I);:6:IG$(I);`I1NI%1140j38:IG%(I1);4(((IG%(I1)))1));IG$(I1)tLL1~20000(N$,1)"N"10207G$;:12:1:868:1009g:10:7:"PLEASE TURN ON YOUR PRINTER, ":7:"THEN PRESS RETURN. ";:N4:3000 P1:PA1D$;"PR#";PS%PI$"0"İ30000$:L1.21:"INGREDIENT LIST PAGE ";PA::LLIONS OF THE PROGRAM TO OPERATE"::"FASTER (SEE DOCUMENTATION)."8:3:"ENTER ";::"YES";::" OR ";::"NO";::" IF YOU WISH THE"10:3:"INGREDIENT LIST TO BE SORTED"::3:"BEFORE IT IS PRINTED. ";:N4:3000N$""1017(N$,1)"Y"TURN TO THE MASTER MENU":@"LATER TO ENTER A NEW STRING.":b"ANY KEY TO CONTINUE. ";:A$hzD$;"PR#";PS% <>:5:10::" INGREDIENT PRINTER ":@18:"PERIODICALLY SORTING THE LIST ALLOWS"::"PORTXZeY19:B$(Y):Y.ZeY18:FI%(Y,X):Y5ZeXGZeD$;C$;"FOOD"MZf D600:12:7::" LOADING NEXT PROGRAM...";:::"*":IG$(200),IG%(200),D%(200),I%(8),I$(8),B$(12),NF$(200),FI%(9,200),IH%(8),CT%(200)2500:4900  MAINT):(P$)2P$" "P$,Yme(P$)1P$" "P$7Yre25590YYe <>Ye:10:10::" WRITING FOOD FILE ":YeYeD$;O$;"FOOD,L200"YeX1L%YeD$;R$;"FOOD,R";XYeY19:B$(Y):YYeB$(1)"0"26100ZeD$;W$;"FOOD,R";1) Xxd:XdIP:25200!Xd:?XdFM%1FM%0:3700:26000FXd5cX,e21:1:958:I%(1)(N$)mX6eFL%0zX@eY1NI%XJeI%(1)IG%(Y)I$(1)IG$(Y):FL%1:25960XTeYX^e22:868:23:"THAT NUMBER IS NOT IN THE LIST.";:21:1:25510YheP$(I%(1)dNI%200Ģ22:1:"THERE ARE 200 ENTRIES IN THE":"INGREDIENT FILE. YOU MUST DELETE SOME":"ITEMS FIRST. PRESS ANY KEY. ";:A$:25200WSdIG%(Y)I%(1)WUd23:958:24:1:"UPDATING FOOD ITEM FILE.";WZdS1L%WddQ18XndFI%(Q,S)T%FI%(Q,S)I%(IGNED":"TO ";I$(1)VKd:"YES";::" TO REPLACE OR ";::"NO";::" TO ABORT. ";:N4:V23:H36:BL%1:C1:4500:ER%3IP:25200VMd(N$,1)"N"IP:25200VOd(N$,1)"Y"IG%(Y)IG%(Z):WZNI%1:IG%(W)IG%(W1):IG$(W)IG$(W1):W:NI%NI%1:25685WP" "N$U.d21:9:N$;tU2d(N$)0āWYNI%1:IG%(W)IG%(W1):IG$(W)IG$(W1):W:NI%NI%1:T%I%(1):I%(1)0:25685U>L/=J^/BJD$;O$;"INGD"p/LJD$;R$;"INGD"y/VJNI%/`JU1NI%/tJIG%(U)/~JIG$(U)/JU/JD$;C$/J/ N <>/*NER%0/4ND0:C1:W1:FG%00>NNI%1ī20.BD$;"PR#0".B140#.PFI1L2-.ZFJI1M.dFM%(J)M%(I)M%(I)0:18200T.nFIZ.xFj.}FD$;O$;"SL"{.FD$;DE$;"SL".FD$;O$;"SL".FD$;W$;"SL".FL2;"S".FW1L2.FM%(W).FW.FD$;C$.FSF%1:.GKI1:KL218040/"GM%(J)M%"(P):H112:16725%-6BLPR%169004-@BT017100c-JB"THE FOLLOWING NUMBERS DO NOT HAVE":LL1-TB"INGREDIENTS ASSIGNED:":LL1-^BWGT-hBLPR%āZ1PL%L::Z:GW:L0:PP1:P$" PAGE "(P):16730-rBE%(W)-|BW-BW1PL%L::W-BIG%(W)M%(G%)ĺIG$(W);"(";C;")":LL1:G%K:C1:16770<,AWb,AE%(T)M%(G%):TT1:G%G%1:16770o,AW1NI%,AIG%(W)M%(G%)ĺIG$(W):LL1:G%G%1:16770,AW,AE%(T)M%(G%):TT1:G%G%1:16770,BW1PL%L::W-BL0:PP1:P$M$(1)" PAGE A2:"SHOPPING LIST FOR THE PERIOD BEGINNING":LL1G+xAH1:P$::LL2X+AG%L216950i+AG%L216860+AM%(G%)0G%G%1:16770+ALPR%16900+AM%(G%1)0CC1:KG%2:16800+A16860+AM%(K)0CC1:KK1:KL216800+AW1NI%5,A:10:7:"PLEASE TURN ON YOUR PRINTER,":R*A7:"THEN PRESS RETURN. ";:N4:3000l*";:HH1:H32H6)@E116615)@FG%1IW:FG%0:16615)@II1:IL216615)@D1D0:FG%0:16610)A18000)A)AT0:P1:G0:H116)* AW(@(@D$;"PR#0"::1402(@ <>C(@SF%116645N(@16580Y(@16645q(@ <>(@D0:C1:W1(@L21ī16600(@ER%1:470(@(@10::6:" SHOPPING LIST BEING SORTED ":(@H6(@I1(@JI1J)@E0:M%(J)'?37:M$(G%)/'?SS(M$(G%)):G%G%1:LL16'?TR'@CF%1Ė37:"---":LL1w'@CF%1Ė37:S:S0::LL2:16420'@:LL1'$@CC1:C816500'8@16290't@W1PL%L::W:L0:G%FO%CD$M$(G1):G%G%2:C1:16215'~@16540(@W1PL%L::"--------"::LL2:16290(&?::LL2;&?G%FO%16530F&?2:C;Q&?T15c&?G%FO%16530&?M$(G%)""G%G%2:16380&?5:M$(G%);:G%G%1:CF%0G%G%1::LL1:16380&?(M$(G%))1Ė39:M$(G%):16378&?(M$(G%))2Ė38:M$(G%):163781H%f?H(40(11((NA$,29))))2:H1:"THE ";(NA$,29);" FAMILY":LL1u%p?6:"MENUS FOR THE WEEK BEGINNING":LL1%z?16:CD$:LL1%?:LL1%?"DAY";:5:"MENU";:CF%1Ė33:"CALORIES":LL1:16280%?LL1:&?"---";:5:"----";:CF%1Ė33:)"Y"CF%1:161800$ ?(N$,1)"N"CF%0:16180@$*?G$;:16120o$4?:10:7:"PLEASE TURN ON YOUR PRINTER,":$>?7:"THEN PRESS RETURN. ";:N4:3000$H?C1:G%2:S0:CD$M$(1):L0$M?$R?D$;"PR#";PS%$U?PI$"0"İ30000$W?G%FO%16530%\?:LLER%3340#G;#;15030G#;:"END OF MENUS. PRESS ANY KEY. ";:A$R#;:340m#> <>#>:10:10:"DO YOU WISH CALORIES":#?10:"PRINTED (";::"YES";::" OR ";::"NO";::")? ";:N4:3000# ?N$""ĺG$;:16120$?(N$,1G%1:34.";(M$(G%))1ĺ" ";M$(G%):15139R";(M$(G%))2ĺ" ";M$(G%):15139^"!;M$(G%)x"#;SS(M$(G%)):G%G%1"$;T".;37:S:S0"8;CC1:C715170"=;W"B;:"RETURN";::" TO CONTINUE (";::"ESC";::" TO END). ";:CO3:N1:3000 #E;0:CD$M$(1)2!:6:"MENUS FOR THE WEEK BEGINNING"A!:16:M$(1)k!::"DAY";:5:"MENU";:33:"CALORIES"v!:W13!:M$(G%)"*"CD$M$(G%1):G%G%2:C1:15170!;G%FO%15300!;2:C;!;T15!;M$(G%)""G%G%2:15140 ";5:M$(G%);:G%N$)N1N$(N$,(N$)1):E(37):F(36):24:1:"TOO LONG";:E1:F1:G$;:3020t : (IN$)31IN$((IN$)64): D IN$;::E(37):F(36):23:1:958:E1:F1:3020 N N$"MENU"ė:140 X CO0:N0: : <> !::C1:G%2:S̍ōˠӍɍȍɠĠōˍԠƍ̍ԠōˍԠӍٍĠɍǍҍÍΠ̍׍Ӎ FURTHER INGREDIENTS":"OR ";::"ESC";::" TO END. ";:CO3:N1:3000]5nZN$""ER%123005n5xZER%3210005ZG$;:23:1:231405V^N$""ER%12300550u"80N":jN":C$"CLOSE":DE$"DELETE":R$"READ":W$"WRITE":G$(7)900 2000:2100:)" HAS NO INGREDIENT ASSIGNED":23100442ZP$IG$(W)L47ZYL2Ė5:P$:23130j4>+3YY1:C1l3Y:6:"SHOPPING LIST FOR THE PERIOD":11:"BEGINNING ";M$(1)t3YI13YW1NI%3YFL%03YYL2ĺ"END OF LIST":23:1:Y1:231403YIG%(W)M%(Y)FL%1:230903ZW&4 ZFL%0P$"THE NUMBER "(M%(Y)C$;"INGD"2O10202R:10:"PRESS ";::"T";::" TO SEE THE SHOPPING LIST ON"::"YOUR TERMINAL OR ";::"P";::" FOR YOUR PRINTER":2R"(";::"MENU";::" TO RETURN TO MAIN MENU). ";:N4:30002R(N$,1)"T"230002&R(N$,1)"P"16550 30RGH:"--->";:HH1:H32H6)1NE120130E1NFG%1IW:FG%0:20130]1NII1:INI%20130w1ND1D0:FG%0:20110}1N1ND$;O$;"INGD"1ND$;DE$;"INGD"1ND$;O$;"INGD"1ND$;W$;"INGD"1NNI%1NU1NI%1NIG%(U):IG$(U)1OU 2OD$;0500HNER%1:205000RN"0\NH6S0N10::6:" INGREDIENT LIST BEING SORTED ":[0NI1e0NJI10NE0:IG%(J)IG%(I)TEMP%IG%(J):TEMP$IG$(J):IG%(J)IG%(I):IG$(J)IG$(I):IG%(I)TEMP%:IG$(I)TEMP$:D1:II1:E1:FG%0WI1:FG%11N12:5:868:֍׍Ščō؍ٍɍɠčٍčϠč׍٠č؍ÍӠˍӍɍЍ؍Íˍɍ׍̍٠ӍٍĠ̠ӍӍĠč׍ɍٍ٠ҠōčԠԍ؍ōˠԍ؍čԠƍҍ׍эӍɍӠӍ͍ΠӍ͍ȍӍٍōԠҠˍ֍٠ȍӍҍǠō̠Ġō̍ˍӍҍ΍ō̍ЍӍ؍ȠӍɍٍĠӍɍ͍ĠӍŠӍ؍ɍӍԍǍŠӍҍ׍ŠŠčȠԠӍҍ׍ϠčՍ׍ԠĠ׍ɠč׍Ơč׍Ϡč׍Š׍ȠƠŧӠō͍׍ŠΠčǍĠčȍÍĠˍΠȍȍӍ͍ĠӍɍ͍Ӎ΍ȍĠ΍z #@?O???    ̠ ՠ Ġ !ԠŠ"̮РծРР̮͠ЮЮЮFЮTЮ/Ġ_ ̠֍ԠōӍϠԧōԍōӍԍРΠӍ֍ŠЍ֍ԠҍǍΠӍȍōԠԧǠΠŠԍ֍ԍȍΠҩȍŠƠŠōӍ؍Š͍ĠŠЍҭ­ŠӍ8po@y|x~`pxxwx@w`8x|!A?@~|@p@C|0 `@~~ ~ C8@|@_~x~pp|x?|~ *qh@|@ |A$>@|~D@?~?`|@pO@@{`<|?`p@y @x@C |aaa@ xx  @8pO|?@}|x~|pxxwx@w`@8xq!C@|~@?~?`@C 000`@     fL8@y@Ox~`p`|x?|?~`F@?~|@ xC$"@~|<@~?`ƍƲڍ͠ōӍŠǍҍčՍԍҍ" X%143666 D$(4):D$;"NOMON C,I,O"::\A%(((X%),2)):B%(((X%),3))(B%0B%250C%0:D%0:E%0:2002B%250B%500C%B%250:B%250:D%0:E%0:200<B%500B%750D%B%500:C%250:B%250:E%0:200 FB%750B%1000E%B%750:D%250:C%250:B%250L 770,A%:771,B%:772,C%:773,D%:774,E%R X u D$;"BLOAD TITLE,A$2000" 16300,0:16304,0 21:4:"VERSION 3.2 SERIAL NUMBER ";X% 24:11:"PRESS ANY KEY ";:A$ ::  D$;"RUN P.1X%143666 D$(4):D$;"NOMON C,I,O"::\A%(((X%),2)):B%(((X%),3))(B%0B%250C%0:D%0:E%0:2002B%250B%500C%B%250:B%250:D%0:E%0:200<B%500B%750D%B%500:C%250:B%250:E%0:200 FB%750B%100  STRING (";::"0";::" IF YOU DON'T WANT ONE)."L14:3:N230:T%1:3000bER%1ĺG$;:2185mPI$N$w6000} <> N0N29 ER%0:N$"" 700 IN$:IN$(21)3020 IN$(0)3020  IN$(34)T%"UNCHANGED OR ANY NEW VALUE ";:N4:3000:5000_ER%1ĺG$;:23:1:"MUST BE A NUMBER":2174(N$)0(N$)32766ĺG$;:23:1:"MUST BE IN RANGE 0 TO 32766":2174N$"0"PL%(N$):10:3:"PLEASE ENTER PRINTER INITIALIZATION":03:"E A NUMBER";:2163\z(N$)0(N$)32766ĺG$;:23:1:"MUST BE IN RANGE 0 TO 32766":2163s{N$"0"PR%(N$)y|~14:868:10:"THE NUMBER OF LINES PER PAGE IS":"PRE-SET AT ";::PL%;::". ENTER ";::"0";::" TO LEAVE THIS":.%(N$) qKs16:868:10:1:"THE PRE-SET VALUE FOR THE NUMBER OF":u"PRINTED LINES PER PAGE IS ";::PR%;::".":v"ENTER ";::"0";::" TO LEAVE THIS UNCHANGED":w"OR ANY NEW VALUE ";:N4:3000:5000yER%1ĺG$;:23:1:"MUST B:7:"PLEASE ENTER YOUR LAST NAME.":12:7:3000F>ER%1ĺG$;:2100QHNA$N$WMR10:868:10:4:"PRINTER CARD IS IN WHICH SLOT? ";:N1:3000\5000:(N$)0(N$)7ER%1fER%1ĺG$;:23:1:"MUST BE A NUMBER FROM 0 TO 7";:2130pPST":-"YOUR MENUS. YOU MAY RETURN AND":X"CHANGE THESE ANSWERS AT ANY TIME.": "THE SHOPPING INTERVAL CAN ALSO BE":"CHANGED AT THE BEGINNING OF THE": "MENU SELECTING PROCESS."::*"PRESS ANY KEY TO CONTINUE ";:A$04:10RESS ANY KEY. ";:A$::10:"DOS ERROR = ";(222)::"IN LINE NUMBER ";((218)(219)256);"."::"PRESS ANY KEY. ";:A$: <>CH%1::5:"ANSWERS TO THE FOLLOWING QUESTIONS":"WILL BE USED TO SELECT AND PRIN7000:10ER%1:523!2000*&370C <>S216,0:790(222)53((218)(219)256)31303015D$;C$(222)0(222)16ė:10:"APPLESOFT ERROR = ";(222)::"IN LINE NUMBER ";((218)(219)256);"."::"P"STRING";::33,17:32,21::18:1:P$:32,0:33,4021:"DO YOU WISH TO CHANGE":"ANY OF THE ABOVE (";::"YES";::" OR ";::"NO";::")? ";:N4:3000 ER%1ĺG$;:21:958:21:1:520 N$""ER%1:523(N$,1)"Y"540(N$,1)"N"İSTARTING DATE = ";CD$7 11:7:"PRINTER SLOT = ";PS%X 13:8:"PAGE LENGTH = ";PL%{ 15:6:"PRINTED LINES = ";PR% PI$"0"P$"'NONE'":500 (PI$)45P$(PI$,45)"...":500 P$PI$217:12:"PRINTER":5:"INITIALIZATION = ":13:4:1:NI$:32,0:33,400 SI$"W"S$"WEEKLY"K SI$"V"S$"VARIABLE"k SI$"B"S$"TWICE A MONTH" SI$"M"S$"MONTHLY" I%SI%7 6:2:"SHOPPING INTERVAL = ";S$;:SI$"W"ĺ", ";I%;" WEEK";:I%1ĺ"S" 8:8:"NEXT MENU'S":9:6:"@D$;O$;"INIT"! JD$;R$;"INIT"N TSI$,SI%,CD$,PD$,NA$,NR%,PS%,PI$,PL%,PR%Z ^D$;C$;m hSI$"*"İ2000s m r:5:1::" CURRENT INITIALIZING PARAMETERS ": |NA$"0"NA$""NI$"'NONE'":400 NI$NA$ 4:15:"NAME = ";:33,17:32,21:220 A$"3"220$ A$"4"3005 A$"5"8000J G$;:19:8:150P 12:7::" LOADING NEXT PROGRAM... ";:::"*": A$"1"ĺD$;"RUN P.2" A$"2"ĺD$;"RUN P.3" A$"3"ĺD$;"RUN P.4" , <> 6: . n8:"MENU SELECTING PROCESS";:33:"1":Z x8:"FOOD FILE MAINTENANCE";:33:"2": 8:"PRINTING ROUTINES";:33:"3": 8:"INITIALIZATION";:33:"4": 8:"QUIT";:33:"5":: 8:"SELECT A NUMBER ";:A$ A$"1"220 A$"2"  <>%1012,0-:790,104:791,168:792,104:793,166:794,223:795,154:796,72:797,152:798,72:799,96D$(4):G$(7):R$"READ":W$"WRITE":O$"OPEN":C$"CLOSE":DE$"DELETE"(700 d5:14::" MASTER MENU ":::          ;:6:1:2620K SI%(N$))P ::2280;Z DT$CD$:2670An ] <>k N0N30{ ER%0:N$"" 700 IN$:IN$(21)3020 IN$(0)3020 IN$(34)IN$"'" IN$(27)N$""CO3ER%3:3150 IN$(13)N$"::2< "PLEASE ENTER NUMBER OF DAYS IN THIS":bA "SHOPPING PERIOD (1-21).";:N2:3000:5000F ER%1Ģ6:958:G$;:23:1:"ENTRY MUST BE A NUMBER.";:6:1:2620I (N$)1(N$)212635 J G$;:6:958:23:1:"NUMBER MUST BE FROM 1 TO 21.",31,31,30,31,30,31" M$(CD$,2)1 X1(M$)? SI%:X:Q (M$)22500[ 2670v Y$(CD$,2):ANS%(Y$) R(ANS%4):R2ANS%(R4) R202490 SI%SI%1:2490( :1:"YOU HAVE SELECTED TWICE A MONTH":2 "SHOPPING INTERVALS.958:2290" N$""ER%1:23158 (N$,1)"Y"2340N (N$,1)"N"6000g G$;:16:958:2290y$ SI$"M"2440. SI$"B"26508 2670` :1:"YOU HAVE SELECTED MONTHLY SHOPPING":j "INTERVALS."::t 2280 31,28,31,30,31,30:C16:1:"IF THIS INFORMATION IS CORRECT TYPE ";::"YES"::"TO BEGIN MENU SELECTION, OR TYPE ";::"NO";::" TO": "CHANGE SHOPPING INTERVAL AND DATE "::"(";::"MENU";::" TO RETURN TO MASTER MENU). ";:N4:3000  ER%1ĺG$;:16:%1Ģ9:958:G$;:23:1:"MUST BE A NUMBER FROM 1 TO 42.";:9:1:2150[SI%(N$):2290e2670:1:"YOU HAVE SELECTED SHOPPING PERIODS":"OF ";SI%7;" WEEK";:SI%71ĺ"S.":::2280"."::"THIS MENU WILL BEGIN ON ";CD$;".":1:"YOU HAVE SELECTED VARIABLE SHOPPING":?*"PERIODS."::k4"THIS MENU WILL BEGIN ON ";CD$;"."::x\9:958f"PLEASE ENTER NUMBER OF DAYS IN THIS":p"SHOPPING PERIOD (1-42). ";:N2:3000:5000u(N$)1(N$)42ER%1:2170GzERN5N51:FI%(4,N5)YX#Y%Y5D$;C$;"FOOD";EqCH%1_ <>g:yD$;O$;"INIT"D$;R$;"INIT"SI$,SI%,CD$,PD$,NA$,NR%,PS%,PI$,PL%,PR%D$;C$SI$"W"2250 SI$"M"2400SI$"B"2600+ :FD%(0,Y)X:FD%(1,Y)C%c`FD%(2,Y),FD%(3,Y),FD%(4,Y),FD$(0,Y),FD$(1,Y),FD$(2,Y),FD%(5,Y),FD$(3,Y)}eI18:FD%(5I,Y):IjC%1N1N11:FI%(0,N1)YtC%2N2N21:FI%(1,N2)Y~C%3N3N31:FI%(2,N3)YC%4N4N41:FI%(3,N4)YC%5A$ 7 9D$;"PR#";PS% >7  <> D$(4):G$(7):R$"READ":W$"WRITE":O$"OPEN":C$"CLOSE":DE$"DELETE"  D$;O$;"FOOD,L200" $D$;R$;"FOOD,R0" .L% 8X1L% BD$;R$;"FOOD,R";X LC%:C%01200 QYY1V % *5:"THERE IS A SYNTAX ERROR IN YOUR PRINTER"::"INITIALIZATION STRING. HOWEVER, THE"::"PRINTING ROUTINE WILL CONTINUE WITHOUT"::"IT. YOU MAY RETURN TO THE MASTER MENU": +"LATER TO ENTER A NEW STRING.": 4"ANY KEY TO CONTINUE. ";:22)0(222)16ė:10:"APPLESOFT ERROR = ";(222)::"IN LINE NUMBER ";((218)(219)256);"."::"PRESS ANY KEY. ";:A$: :10:"DOS ERROR = ";(222)::"IN LINE NUMBER ";((218)(219)256);"."::"PRESS ANY NUMBER. ";:A$:  D$;"PR#0";O$;"SEL.PARM":D$;W$;"SEL.PARM":I1Y%:FD%(3,I):FD%(4,I):I:D$;C$X ICI%1İ21000c K13900|  <> 216,0:790 (222)53((218)(219)256)31303015  D$;C$ (222)16((218)(219)256)30000800| (2:799,96 &700\ (A%(770):B%((771)(772)(773)(774)):SN$(A%)(B%):SN%(SN$)f 21000n 7:x <2000 A::"*";:7:::" MENU SELECTION IN PROGRESS ";:40:::"*"::34,1 F7000 GF HD$;O$;"SEL.PARM":D$;DE$;"SEL.PARM":D$D <>*1012,0a:12:7::" LOADING NEXT PROGRAM...";:::"*":FD%(13,200),FD$(3,200),FI%(4,200):CH%0!IG$(200),IG%(200),E%(200) #790,104:791,168:792,104:793,166:794,223:795,154:796,72:797,152:798,72                     ` READ FOOD RECORD e 4j D$;O$;"FOOD,L200"Kt D$;R$;"FOOD,R";R%q~ C%,F%,S%,PS%,CS$,GE$,GA$,CAL%,F$ C%0ER%2 Z18 I%(Z):Z D$;C$;"FOOD"  READ IN NAMES  D$;O$;"FOOD,L200" D$;R$;"FOOD,R";X L005R%L%22601:11:868:20:"THERE ARE ONLY ";L%;" RECORDS IN THE FILE."::"SEARCH FOR ANOTHER RECORD? ";:N4:H32:V22:4500N$""2250(N$,1)"Y"Ģ9:5:958:2005(N$,1)"N"5G$;:20:1:958:22102400L$(N$,1)%L$"0"L$"9"22004L%02070@R1L%ZN$NF$(R)R%R:2260a RqER%1:2300(N$)32767(N$)12210R%(N$)R%0Ģ23:5:"'0' IS NEITHER A RECORD NUMBER":5:"NOR A FOOD NAME.";:11:5:868:9:868:2D$;C$;"FOOD"1400,<>:W01550EP1WjIG%(NI%)0:IG$(NI%)"":NI%NI%1qPw SEARCH ROUTINEER%0N30:V9:H35:BL%0:CO$"":4500N$""ĺG$;:9:5:200011:15:::"SEARCHING"::958 958:"ENTER ";::"YES";::" TO ADD ANOTHER RECORD, ";::"NO"::"TO RETURN TO MENU. ";:N4:BL%1:H24:V23:4500}N$""1420(N$,1)"Y"ī1000(N$,1)"N"1430G$;:1400AF%1İ3700AF%0:5D$;W$;"FOOD,R0"L% NF$(R%)F$X185(I%(X):FI%(X,R%)I%(X):XL2R%L%L%R%:1450^<D$;C$;"FOOD"oFD$;O$;"DEL"KD$;DE$;"DEL"ND$;O$;"DEL"PD$;W$;"DEL"UD01390ZDD1:D_D01390dX1D:D%(X):XnD$;C$;"DEL"sx22:1:";:V23:H34:N4:BL%1:45002N$""ĺG$;:1220H(N$,1)"Y"1260e(N$,1)"N"İ1500:1400~G$;:23:958:122022D$;O$;"FOOD,L200"D$;W$;"FOOD,R";R%C%:F% S%99:PS%99S%:PS%:CS$:GE$:GA$:CAL%:F$ TINEa790,104:791,168:792,104:793,166:794,223:795,154:796,72:797,152:798,72:799,96:} RECORD ADDING ROUTINE:3000T$" ADD NEW FOOD ITEM "90004000:9000:270023:1:"ADD THIS RECORD TO THE FILE? 222)0(222)16ė:10:"APPLESOFT ERROR = ";(222)::"IN LINE NUMBER ";((218)(219)256);"."::"PRESS ANY KEY. ";:A$:5v:10:"DOS ERROR = ";(222)::"IN LINE NUMBER ";((218)(219)256);"."::"PRESS ANY KEY. ";:A$:55 ERROR ROUC16H9ĢX:6:" ";:XX1:X:10:P130:" ";:P:X:6:" ";:4225 C8C16H40ĢX:10:P130:" ";:P:X:6:" ";:4225 1000 X <> b216,0:790 d(222)53((218)(219)256)45454515 g jD$;C$~l( ";:4080M C6Ģ10:19:" ";:9:22:" ";:4100 C7Ģ12:24:" ";:10:19:" ";:4120 C8H9Ģ14:6:" ";:12:24:" ";:4140 C8H40Ģ14:10:P130:" ";:P:14:6:" ";:4225I C8ES>>* C1Ģ3:8:P130:" ";:P:4010h C2Ģ5:12:" ";:3:8:P130:" ";:P:4010 C3Ģ5:37:" ";:5:12:" ";:4020 C4Ģ7:21:" ";:5:37:" ";:4050 C5Ģ9:22:" ";:7:21:" EDIENT LIST";:33:"5" v:9F x"RETURN TO MASTER MENU";:33:"6"Q ::9n "SELECT A NUMBER ";:A$ A$"1"1000 A$"2"5000 A$"3"10000 A$"4"15000 A$"5"25000 A$"6"20000 G$:20:10:140  <>216,0:790(222)53((218)(D$;"PR#0"8:10:7:"PRINT ANOTHER CATEGORY? ":x11:"(";::"YES";::" OR ";::"NO";::"). ";:N4:3000N$""ĺG$;:740(N$,1)"Y"500(N$,1)"N"140G$;:740W1PL%L::WL1:H(75(11(N$)))2:H:--- --------"I1Y%.FD%(1,I)C710>LPR%750" ";FD%(0,I);:6:FD$(3,I);:38:FD%(2,I);3(((FD%(2,I)))1));FD$(2,I);8((FD$(2,I))1));FD$(0,I);8((FD$(0,I))1));FD$(1,I);10((FD$(1,I))1));FD%(5,I):LL1I 00blD$;"PR#";PS%/qPI$"0"İ30000;v:LL1qH(75(11(N$)))2:H:N8$;" FOOD ITEMS"::LL2"REC# NAME";:37:"FREQ GRP ASSG CAT SKIP GRP EXCL CALORIES":LL2 "---- ------------------------------ ---- -------- -------- -----"SALAD"C4:580+0N$"DESSERT"C5:580:G$;:10:958:23:1:"ENTRY MUST BE MAIN COURSE,STARCH,":"VEGETABLE, SALAD OR DESSERT.";:10:1:505DL0IN8$N$N:10:7:"PLEASE TURN ON YOUR PRINTER,":X7:"THEN PRESS RETURN. ";:N4:30"PRESS ANY KEY TO CONTINUE. ";:A$/140L <>V:10"WHICH FOOD ITEM CATEGORY DO YOU WISH":"PRINTED? ";:N12:3000N$"MAIN COURSE"C1:580N$"STARCH"C2:580N$"VEGETABLE"C3:580&N$256):A$:140z:10:"DOS ERROR = ";(222)::"IN LINE NUMBER ";((218)(219)256);"."::"PRESS ANY KEY. ";:A$:140140:10:"THERE IS NO MENU FILE."::"YOU MUST FIRST RUN THE MENU"::"SELECTION PROCESS TO CREATE"::"A MENU.":&0:CH%1 21000*  <>Q 216,0:790:(222)5(222)6470 (222)0(222)16ė:10:"APPLESOFT ERROR = ";(222)::"IN LINE NUMBER ";((218)(219)256);"."::"PRESS ANY KEY. ";:A$:140 "IN LINE NUMBER ";((218)(219)N4:3000 r(N$,1)"T"150007 |(N$,1)"P"16000G :G$;:340w :10:"THE FOLLOWING PROGRAM WILL PRINT": "A SHOPPING LIST FOR MENUS": "BEGINNING ";PD$;".": "PRESS ANY KEY TO CONTINUE. ";:A$ 450 CH%1440 250:* J"PRESS ANY KEY TO CONTINUE. ";:A$4 L450C NCH%1340S O2500:CH%1 T:10:"PRESS ";::"T";::" TO SEE THESE MENUS ON YOUR": Y"TERMINAL OR ";::"P";::" FOR YOUR PRINTER": ^"(";::"MENU";::" TO RETURN TO MAIN MENU). ";:R ";:A$ A$"1"300( A$"2"4008 A$"3"500I A$"4"1000Y A$"5"270g G$;:200m  D$;"RUN P.1" ,:10:"THE FOLLOWING PROGRAM WILL PRINT": 6"THE MOST RECENTLY SELECTED MENUS.": @"THE BEGINNING DATE IS ";PD$;"."2800:190003 ::5:14::" PRINTER MENU "::O 9:"MENUS";:32:"1":s 9:"SHOPPING LIST";:32:"2": 9:"FOOD ITEMS";:32:"3": 9:"INGREDIENT LIST";:32:"4": 9:"RETURN TO MASTER MENU";:32:"5":: 9:"SELECT A NUMBE-8Z:12:7::" LOADING NEXT PROGRAM...";:::"*":Td <>`n1012,0}FD%(6,200),FD$(3,200):Y1:IG%(200),IG$(200),E%(200)D$(4):O$"OPEN":C$"CLOSE":DE$"DELETE":R$"READ":W$"WRITE":G$(7)900 2000:2100:                          ύĠ΍ύ͍̍ōҍǍǠȍɍӍЍȠŠ΍ύ̍Ӎ Ӎ׍ɍύƍŠҍ̍ΠōэΠōĠƍƠčƠƍĠ΍ȍĠӍԠҠȍǍԠӍ                                     ԍˍӍӠӍŠčŠǍŠƠŠōŠčŠҍϠԧǠȍԠƍōΠҩĠčōΠōӍ΍ŠŠčϠԧӍŠΠ@~x?pG  I@x|@ ~|x$$$d'@~?`@|pp@}xpxpg @gx8xg`@{xp|?~`pxox@w|@CC||aa ~~xx~`@8|F |`~`p@C 0`f f~C8`?~@?~~xp@x~@?~x?xs y @s|@ ~A$<@?||<$dd$d@~?`|p@p_|@}`<`pp@w @ox8po@@{|p~|?pxxgx@w@~?8|?~!A?~@~pp@C|0 `@~~ ~ C8@~@~x~|p|@|x?xx   @G|@ ~A$@?|~DD'#C#@?~?``@p_@y`<pp@s`@OxȍӍɠč٠Ҡō׍٠čϠԧčӍǍǍŠǩӍԍΠ̠ӍΠӍӠӍҍȍɍύΠȍĠōҍȍōӍҠӍԠǠӍӍĠӍӠΠũӠԩŠԍōΠӍōӍӍӍӍɍӍǠԍӍٍ٠ӍĠΠӍϠōĠנؠӍ͠ΠЍɍŠōӍō͍ōӍũԠӍԍŠ͍΍дɍ٠ӍɍӍɍɍōōΠōӍϠōɠǍЍĠЍ٠ōҠ͍Ǡ͍ōŠō͍͠ōӍϠӍɠōōōŠҍɠōϠō٠ŠōԠƍ΍ˍĠˍӍӍύōŠ؍Š؍ӍӍӍӍǍčŠӍԠ͍ӱ΍ĠˍԠӍΠ̍ԍˠԍԠԍӍٍ̍čҍĠƍĠƍ ԍȍȠǍҍˠӍ      ĠččӠˍĠӪĠӍ٠č٠ȍ׍ŠŠčӍӍŠŠčōӍԠ@xo`@{`<p`p`| @?x@C |aaa@ xx  @8p_p@}|x~`pxxwx@sp@ pgB' @g~?|@~?`@C 000`@     fL8{@gp~pp@|x?~ @|?|@ pM@~x?@@|@@@xop@s`<@@p`?~@@?~x@C 0```@   @8p_@|~xx@xxxwx@{p` `@q||@@~?`@C 0@@3     p8s@wp~|p~xx?~_@y?|@`@~x?`?@|@`?xop@w|`~p`?@~x@C 0```@   @8`@~~x~?@xxxwp@{x` `? @|x|`D%$D'@~?`@C 0@@3     p8~gs?p~~?p|?xpO@sx@@~x?` q 1~|@`xox@w~xp~pp?@|x@C 0`f f~C8`?@~~x@@xxxwp@{xpp@x  @~`|p$&$$ @~?`@CC||aa ~~xx~`@8~Oy?`~@p            čǍĠŠЍҍԠĠ̠ĠōΠōŠŠčԠō ׍ō  ӍԠҠˍōϠԧϠčӍčȠӍŠǍΠӍΠҩĠčōԠӍӍɍŠčϠԧĠččӠˍĠӪĠӍ٠č٠ȍ׍ŠŠčӍӍŠŠčōӍԠĠӍΠōōҍŠ׍Š͍ˠӍӍĠӍĠčԍɠčŠ͍ԠƍӍӍԧٍĠӪɍŠčϠԧԠƍĠӪӍĠčϠԧɍĠčŠ͍Ǡȍ٠Ӎ čǍĠŠЍҍԠĠ̠Ġō͍ĠӪӠӍϠčōӍōԠӍϠŲΠōŠŠčԠōӍϠčŠǍȠŠԍԍɍĠč͠ōРΠӍ   ĠčӍɍĠčōԠӍĠӍĠӍŠ׍ϠԧˠԍĠӍӍŠŠčԠҍЍ׍ōō!čǍĠŠЍҍԠĠ̠Ġō͍ĠӪӠӍϠčōӍōԠӍϠԧ΍Ӎ"