' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL]`X?_IpL`u ۶ JI׾IڍY 缈` 鷎귭෍ᷩ췩 緈JJJJx ȿ L8ᷭ緍췩  緍i 8Lζ巬 췌`x (`(8`I`B` pp>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,&"ųųೳŪŪųųij#  !"#$%&'()*+,-./0123456789:;<=>? $  5 #&*"  (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#02,**4*6--*#-/ER)++ X <@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`H UhLZHIHHHHhHH݌hHhHh݌H6 UDI? ӿP (ED $0x8x D- ܸDD#Ӝ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õ`  \ 濭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`INILOAFKJRU9734DELETLOCLLH2KCLOSREAEXEWRITPOSITIOOPEAPPENRENAMKKJHA2LJNOMOPRINMAXFILEFQHBSAVBLOABRULA 2L!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  YOU NEED APPLESOFT! RANGE ERROREMOVE THE TABBAD DISK! BAD DATA DISKCONTACT MUSE I/O ERRODISK FULFILE LOCKECONTACT MUSCONTACT MUSE BAD DATA DISK! YOU NEED 48K! REBOOT THE DISK! $3>L[dmx- @Ϡ@跻~!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 · Lǵ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>ﵭ` ﳐA 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠z# upPOINTER IS AT CHOICE, PRESS ";::"Y";::"."[23:"TO GO ON, CHOOSE NUMBER ";::"7":iY11:NF8}400:N717704:1:958:10:11::"GREAT!! YOU DID IT!"::720:10:868!4:"SOMETIMES THE LIST IS TOO LONG TO FIT.":6:5:"TRY TO1665?7:958:20:15::"THAT'S IT!"::720:4:958:KS,0o4:1:"NOW PRACTICE CHOOSING FROM A LIST:"6:MR:"THE ";::"-->";::" KEY MOVES THE POINTER DOWN."7:MR:"THE ";::"<--";::" KEY MOVES THE POINTER UP."-9:MR:"WHEN 20:5::"GOOD! YOU JUST PRESSED YES."::720em20:868:8:"THE 'N' KEY MEANS:";::21:"NO":r10:18:"OR ";::"GO BACK":w12:18:"OR ";::"I DO NOT WANT THIS":|16:"PRESS THE 'N' KEY NOW.":23::"PRESS NO(N)":220:BT0:"PRACTICE SESSION":5:"JUST 4 KEYS RUN THE EATING MACHINE:"iL8:"THE 'Y' KEY MEANS:";::21:"YES"N10:18::"OR ";::"GO AHEAD":P12:18:"OR ";::"I WANT THIS":T16:"PRESS THE 'Y' KEY NOW.":770^220:BT11630/h4:958:,1540,1530,1540,1520,1530,15200B1B01560:1550LB0B81560V1550hB1B21560r 155020:(7);"OPTION ";A$;" CANNOT HAVE VALUE ";B$::"REPEAT INPUT.":1500OP(X)B:1400@:12::"THE EATING MACHINE":>J2:13A$(13)ĺ:550:1100F(A$)65(A$)71Ģ17:31:" ":1440UX(A$)65f15:1:95818:5:"(THEN HIT 'RETURN')"17:1:"ENTER NEW VALUE FOR ";A$;:": ";B$(B$)01500(B$)48(B$)571550B(B$)X11530"RUN "FM$-x:10::"THE EATING MACHINE":Y}3:1:"THE FOLLOWING OPTIONS ARE SET:"eI0XOnI5"(";(65I);") ";OP$(I);35);"= ";OP(I)15:"TO CHANGE, TYPE LETTER OF ITEM."17:"TO ACCEPT, PRESS 'RETURN' KEY: ";:A$:A$A$)5311107`A(A$):::A1200,1300,1400,1600,2000:10:"NOW TURNING THIS APPLE INTO...":12:12::"THE EATING MACHINE":D$"MAXFILES 1"(4)"RUN "AC$:10:"NOW GETTING THE FILE MAINTENANCE PROGRAM"D$"MAXFILES 1" (4)2"WHEN POINTER IS AT CHOICE, PRESS YES(Y)":^"MORE NUMBERS WILL APPEAR AT BOTTOM":23::"PRESS YES(Y) TO CONTINUE"::3000500$450.16302,0::D$"BLOAD EATPIX,A$4000":1110L16299,0:16304,0 VA$:(A$)49((0)(18455)16:OP(2)OP(0):OP(1)1:OP(3)OP(1)? :550::E S &300:350u (D$"OPEN "OT$:D$"DELETE "OT$ +D$"OPEN "OT$:D$"WRITE "OT$ 0I0XO:OP(I): :D$"CLOSE "OT$ N YS16287OP(1):NO16286OP(1) I11500:I:4:N0400 . D$"OPEN SG":D$"READ SG"S I03:SG%(I)::D$"CLOSE SG":r D$"OPEN SG":D$"WRITE SG" I03:SG%(I)::D$"CLOSE SG": D$"OPEN "OT$:D$"READ "OT$ I0XO:OP(I): D$"CLOSE "OT$ OP(0)(18455)16ı0 OPNG RECORDED. DO NOT TURN OFF"@ h"OR INTERRUPT COMPUTER."::a SL19Y:EL3:LNF:LSLLSL NFSLĢ10:21::"MOVE POINTER TO ENDS":21:"OF LIST TO SEE MORE"::34,Y1:35,19:33,20 KS,0 I1L:3:IY1:I: 50:34,0:33,40:35,2 NVOY18 I1EL:V:I:(32):V:I1:(60);:Q V:I:KS,0:(32):u A(KY):AHYAYLBT1:KS,0: AHNANLBT0:KS,0: A3220 AHLBT2:KS,0: AHRBT3:KS,0: 220 ,22:1:958: ^22:1::"DATA BEIVYVV1:110 204:115+ NFSL180< VLY1115K VV1:110d VLY1ONFSL115| VLY1VV1:110 200:115 912:V1:(32):OO1:V:(60);:MR:SLO: LY1:868 768:V1:(32):OO1:V:(60);:MR:O1: 214,214:1012,0/:1:"081583":100091000H2O0:OVY1UiVY:A31snOV:(32):V:(60):OVV|s220xABT1:A130,125,135,165}210:A30:N0:250:A30:NFSL150VY115VV1:110VYO0115                "DOS ERROR MESSAGES:":P&z868:N:"DO YOU WANT TO MAKE MORE CHANGES? ";:A$&A$"Y"ČN:A0:B0:NC$"":OC$"":34,19::1:1390&NC$"":A0:B0:AA$"":LL$""&34,0::1000&N768&I021:X:NI,X:&&A$""&*'N::" *%S(LL$)128%A$(S)4%NC$(NC$,LN1)A$@% X1CF_%OC$O$(X)N$(X)NC$:2100e% %*CFCF1:N$(CF)NC$:O$(CF)OC$%4C1%>XAB%HX,((NC$,C,1))%RCC1%\%fB43272Ģ1:868:"DOS COMMANDS:":&pB43272Ģ11:868:(13)ė:1990,$(A$)32ğ:AA$;::19705$A$;D$NC$NC$A$N$1900f$LO(OC$):LN(NC$)$LNLOČN::"YOUR ENTRY WAS TO LONG!":X11000::NC$"":1860$LNLOČN::"YOUR ENTRY WAS TO SHORT!":X11000::NC$"":1860%LL$(NC$,1):2%#lA$:(A$)32AA$((A$)64)U#v(A$)27NC$"":OC$"":A0:B0:34,0:1000#(A$)32B43271ė:N::" DOS COMMANDS CAN NOT CONTAIN SPACES "#(A$)32B43271āX12500:::NC$"":1860#A$(13)(NC$)0A$"":34,0::1000$A$"ENTER THE ";::"NEW";::" ";OC$;" COMMAND.":G"NB43400Ģ11:868"OB43400ĺ"ENTER ";::"NEW";::" ";OC$;" MESSAGE":"X20:::"NOTE";::" DO NOT USE: CTRL-H/M/U OR <- -> ":N:"b23:::X1(OC$):" ";:#c"<- STOP HERE -<<";:B435285!OC$"FILE TYPE MISMATCH"A43529:B43546b!&OC$"PROGRAM TOO LARGE"A43547:B43563!0OC$"NOT DIRECT COMMAND"A43564:B43581!:A0ė:OC$;" ";::"IS INVALID"!;A0ĝ:OC$"":X13000:::1410!DB43272Ģ1:8680"EB43272ĺND"A43439:B43452> OC$"VOLUME MISMATCH"A43453:B43467c OC$"I/O ERROR"A43468:B43476 OC$"DISK FULL"A43477:B43485 OC$"FILE LOCKED"A43486:B43496 OC$"SYNTAX ERROR"A43497:B43508!OC$"NO BUFFERS AVAILABLE"A43509:OC$"BRUN"A43262:B43265>OC$"VERIFY"A43266:B43271pOC$"LANGUAGE NOT AVAILABLE"A43380:B43401OC$"RANGE ERROR"A43402:B43412OC$"WRITE PROTECTED"A43413:B43427OC$"END OF DATA"A43428:B43438 OC$"FILE NOT FOU "PERSONAL FILES? (1=YES,0=NO)"i HY217:HN206:YL249:NL238:HR149:HL136:MR3:KS16368:KY16384{ D$"BLOAD RV"z JOP(XO),OP$(XO),SG%(3),SB%(3),X(1)8 I0XO:OP$(I):Z "PROGRAM DISK SLOT # (1-7)"} "PROGRAM DISK DRIVE # (1-2)" "DATA DISK SLOT # (1-7)" "DATA DISK DRIVE # (1-2)" "PRINTER USED? (1=YES, 0=NO)" "PRINTER SLOT # (1-7)"" SAVE THESE VALUES?":22::"PRESS YES(Y) OR NO(N)":M A30:220:BT1100m I03:SG%(I)SB%(I)::470 20:958:20::"NEW VALUES RECORDED -- PRESS YES(Y)":$ A30:220:BT1100. 2340 D$(4):XO6 AC$"AC":FM$"FM":OT$"OT"" )10X(1)$82I:25:SB%(I)"% "*VX0:I03:XXSB%(I)::X0X100230020:958:20:(7)"SUM OF PERCENTS MUST BE 100 OR 0."22:"PRESS YES(Y) TO REPEAT OR NO(N) TO EXIT."A30:220:BT20001100520:958:20:"OK TOH82I:25:"--%":J0;R82I:25J:A$:A$(13)2220N\A$(8)2200\fJ02130lpJJ1:2130zJ22130(A$)48(A$)572120A(A$):A$:X(J)A:JJ1:2130J0SB%(I)0:2250J1SB%(I)X(0):2250 J2SB%(I)X(03)"%"820:"DO YOU WANT TO CHANGE THESE GUIDELINES?"] 22::"PRESS YES(Y) OR NO(N)":u*A30:220:BT1100420:958:20:"ENTER NEW VALUE; THEN PRESS 'RETURN'."922:"FOR NO GUIDELINES, ENTER 0 FOR ALL FOUR.">I03:X(0)0:X(1)0NG MACHINE":@3:1:"THE FOLLOWING DIET GUIDELINES ARE SET"e5:5:"FOR SOURCE OF CALORIES:"8:10:"PROTEIN:";:25:SG%(0)"%"10:10:"CARBOHYDRATE:";:25:SG%(1)"%"12:10:"FAT:";:25:SG%(2)"%" 14:10:"ALCOHOL:";:25:SG%( CHOOSE NUMBER ";::"20";::":"n21:"USE ";::"-->";::" AND ";::"<--";::" KEYS TO MOVE POINTER."!22:760:750&Y8:NF250400:N20Ģ8:958:1820:4:958:10:11::"THAT'S HOW IT WORKS!"::720:1100 :10::"THE EATI                                      ::" *=*=*=*=* THE DOS COMMANDER *=*=*=*=* "::34,6:NU5V0,3700:"BRUN @INIT":i5~ DOS MASTERED5:"DISK OPERATING SYSTEM READY"N I/O ERROR,43468,43476,DISK FULL,43477,43485,FILE LOCKED,43486,43496,SYNTAX ERROR,43497,435084 NO BUFFERS AVAILABLE,43509,43528,FILE TYPE MISMATCH,43529,435464 PROGRAM TOO LARGE,43547,43563,NOT DIRECT COMMAND,43564,435814 370085 252,43256G3 BLOAD,43257,43261,BRUN,43262,43265,VERIFY,43266,432713 LANGUAGE NOT AVAILABLE,43380,43401,RANGE ERROR,43402,43412,WRITE PROTECTED,43413,434273 END OF DATA,43428,43438,FILE NOT FOUND,43439,43452,VOLUME MISMATCH,43453,43467b49,43193J2 POSITION,43194,43201,OPEN,43202,43205,APPEND,43206,432112 RENAME,43212,43217,CATALOG,43218,43224,MON,43225,43227,NOMON,43228,43232 3 PR#,43233,43235,IN#,43236,43238,MAXFILES,43239,43246,FP,43247,43248,INT,43249,43251,BSAVE,437,240,7,202,208,246,162,23,208,239,961 INIT,43140,43143,LOAD,43144,43147,SAVE,43148,43151,RUN,43152,43154,CHAIN,43155,43159,DELETE,43160,431652 LOCK,43166,43169,UNLOCK,43170,43175,CLOSE,43176,43180,READ,43181,43184,EXEC,43185,43188,WRITE,43180b :CR$"WARNING":3230:E0l CR$"NOT RESPONSIBLE FOR LOSS":3230p0v CR$"OF DATA RESULTING FROM THE":32300 CR$"MISUSE OF THIS PROGRAM":32300 W1W0:0 23:0 (20(CR$)2):CR$::N:%1 169,20,133,7,173,48,192,136,208,4,198,) / X1L%/ ID((ID$,X,1))1280/ ML,ID> PRESS ANY KEY TO RETURN TO MENU <<";:A$k+d 34,0:::X021:A$::1000+n :X021:A$::34,0:1000+x :N::" *=*=*=*=* THE DOS COMMANDER *=*=*=*=* ":+ :34,2+ X184:DR$:+ Z114+ A$:A:B,):25908* V128V12827V(V128)64::(V)::2590\* V128V12827ĺ(V128):2590b* v*( (37)21HT23|*2 *< M1Ģ23::" *=*=*=* DOS HAS BEEN MODIFIED *=*=*=* "::23:2640+F M0Ģ23::"* STANDARD APPLE DOS COMMANDS INTACT *"::2 CHR$) XAB) V(X)=) V27VV64::(V);::2590W) V27ĺ"(ESC)";:2590u) V29ğ:"(S/M)";::2590) V30ğ:"";::2590) V32ğ:(85);::2590) V26V91ĺ(V);:2590) V91V96ĺ(V);:2590* V192V219VV128:(V R128($ OC$:A:B0(. CHECK FOR CHANGES;(8 XABJ(B A$((X))W(L C$C$A$](V e(` HT|(j HT23VTVT1:VT(t LL$(C$,1)(~ C$(C$,BA)((LL$)128)( OC$C$Ğ:N:OC$;::" = ";:M1( C$"":A$"":Z$"") LOOK FOR CONTROL=*=*=*=* THE DOS COMMANDER *=*=*=*=* "::Y'" COMMANDS THAT HAVE BEEN ALTERED IN ANY"'"WAY ARE SHOWN IN INVERSE. IF CONTROL"'"CHARACTERS HAVE BEEN EMBEDDED THEY WILL"'"BE INDICATED BY A FLASHING CHARACTER.":' 34,7' HT1:VT7(L%(0):385:38O:P:3:X06I0FX:DT%(I,0)1060LDT%(I,1)J1060XX1:MR:NM$(DT%(I,2),DT%(I,3));:21:DT%(I,5)PD(0)" ";UN$(DT%(I,4));:PDT%(I,6):385:38O:P$I.X0Ģ5:MR:"(NO FOODS ENTERED YET IN "ML$(J)")"/2XFMɁI5163:"-";::":";:I6579:"-";:::lPPC%(0):385:3O)P"%";:K13:PPC%(K):385:4O)P"%";:x":";:30(ML$(J)))":"19)":"13)":":30)":"19)":"13)":":::ML$(J);:33:"CALORIES":20:"TOTAL FOR TODAY:";:PTE865,870,880 aI11:I26:875.fI17:I28XkKI1I2:PT,P%(K):DR,D%(K):855::pK1100:X(BZ):X(BZ)(BZ)(BZ)(BZ)::21:1:NM$(CG,CF):22:DT%(CR,5)PD(0)" "UN$(DT%(CR,4)):I029:"-";::":";:I3149:"-";::":";+(I,6)0āK03:PC%(K)0::U;C100:PC%(0)DT%(I,7)4DT%(I,6)C:PC%(0)CPC%(0)C>PC%(2)DT%(I,8)9DT%(I,6)C:PC%(2)CPC%(2)CCPC%(3)DT%(I,9)7DT%(I,6)C:PC%(3)CPC%(3)CHPC%(1)100PC%(0)PC%(2)PC%(3):PC%(1)0PC%(1)0M \0)0āI03:PC%(I)0::R"C100:PC%(0)DB%(0,1)4DB%(0,0)C:PC%(0)CPC%(0)C%PC%(2)DB%(0,2)9DB%(0,0)C:PC%(2)CPC%(2)C*PC%(3)DB%(0,3)7DB%(0,0)C:PC%(3)CPC%(3)C/PC%(1)100PC%(0)PC%(2)PC%(3):PC%(1)0PC%(1)049DT%):D100CD:280&C13:VPD%(5):280r:21:32:"GOAL/DAY":24:28:"CALORIES";::22:32:PD%(5)"-"PD%(6): :440:X23:L1:C3:D2.5:J03:VSG%(J):280:XX5:21:22::"% OF CALORIES FROM:"::22:23:"PRO CHO FAT ALC": DB%(0,),EF::1593,CL%(0)16CL%(1):1211,CL%(0)16CL%(0):MlX:X11,X13Y11vY:X1,X14Y1:X11,X13Y11:X15,Y11:X16,X111Y12OP$DT$",L44":RD$DT$",R"NN%(CG,CF)I4NP5:DT%(CR,I)::CL$DT$::450:X32:L4:C11:VPD%(6)YGI:8I1427:A27I:XGHD%(A),XGHD%(A)YGI:>eI0EX%(E):FF%(I,0),FF%(I,1)::I0EX%(E):FF%(I,0),EF::I1622:FF%(I,0),FF%(I,1)::0I1622:FF%(I,0),EF::DI017:SF%(I,0),SF%(I,1)::6XI017:SF%(I,0I::I2039:21,32I::405:S7:I039:21,39I::15:I0394:21,39I::p10:I039:21,39I::CL%(2):I082:XGTS%(I),XGTS%(I)YG27I:CL%(3):I172:XGTS%(I),XGTS%(I)YG27I:CL%(1):I013:XGHD%(I),XGHD%(I390P10(P)PO11:H(P1(10P)10P)(P10P100)O12:SO13:g15:21,3919:CL%(11):I018:21,39I::405CL%(10):I2039:21,39I::CL%(11):I018:21,32I::I2039:33,39I:CL%(10):I018:33,39OVE POINTER TO ENDS":21:"OF LIST TO SEE MORE":34,Y1:33,20G c250i hI0L1:3:IY:NM$(CG,I): r50:34,0:33,40:N0300 wCFN1 | ~O20:(P)PO22  P0O1: II0 POC%(II)OII: IIII1:II5O5:1350K X:8:9:"NO FOODS ENTERED YET IN":10:20(DG$(CG))2:DG$(CG)Z Y250:1440k \220:BT300t ]348 ^NFNE%(CG)1:Y4:SL24Y:EL19:LNF:LSLLSL `:"PUSH YES TO PICK FOOD, NO FOR NEW GROUP"::DG$(CG);":":> aNFSLĢ10:21:"M 220 KS,0:2 CL%(C):Y(VD.5):Y1ıH Y39Y1:Y0Y0a "IXXL:Y,39I:: ,:"CHOOSE FOOD TYPE:";:30::ML$(CM)::1460:1445:250 6Y8:NFNG1:LNF:EL23:I0NG:YI:3:DG$(I): @50 JN0ı TCGN1 VNE%(CG):V1:(32):OO1:V:(60);:MR:NM$(CG,O):< NVOY1g I1EL:V:I:(32):V:I1:(60);: V:I:KS,0:(32):3: A(KY):AHYAYLBT1:KS,0: AHNANLBT0:KS,0: A3220 AHLBT2:KS,0: AHRBT3:KS,0:V1:110 VYO0115- VYVV1:110; 204:115J NFSL180[ VLY1115j VV1:110 VLY1ONFSL115 VLY1VV1:110 200:115 912:V1:(32):OO1:V:(60);:MR:NM$(CG,SLO1): LY1:868. 768fT@(C) COPYRIGHT 1983 BARBARA S. THORNE--ALL RIGHTS RESERVEDN(::3000]2O0:OVY1jiVY:A31nOV:(32):V:(60):OVVs220xABT1:A130,125,135,165}210:A30:N0:V:(32):250:A30:NFSL150VY115 V'JJ1:J4Ĺ35,24: '1925F'PD%(4)0PD%(3)3XPD%(3):2020U'XPD%(3)6}'D$:CL$:OP$GL$",L34":RD$GL$",R"X'C1,C2,GL%(1):I4NP1:GL%(I)::CL$GL$'PD%(4)2C1C1300:C2C2300:I1NP1:GL%(I)GL%(I)PR%(I):1(PD%(4)3C1I,0)1970&DT%(I,1)J1970d&Y:NM$(DT%(I,2),DT%(I,3));:17:DT%(I,5)PD(0)" "UN$(DT%(I,4));&PDT%(I,NP4):385:31O:P;&PDT%(I,NP5)PD(2):385:34O:P;&PDT%(I,10):385:41O:P;&YY1&I:Y5İ1470&220:BTĹ35,24:EST. SAFE MAX.:";:PGL%(NP2):385:31O:P;i%PGL%(NP1)PD(2):385:34O:P;:PGL%(4):385:41O:P;%::ML$(J);:27:"CAL-";:32:"IRON";:37:"SOD-":2:27:"CIUM";:38:"IUM";:%X28:I13:X:"MG";:XX5::Y5:1465:1 &I0FX:DT%(2):385:41O:P;$YY1"$ I1$Y5İ1470H$220:BTĹ35,24:`$JJ1:J4Ĺ35,24:j$!1755$J0::20:"YOUR WHOLE DAY:";:PTL%(NP2):385:31O:P;$PTL%(NP1)PD(2):385:34O:P;:PTL%(4):385:41O:P;:35,19,%21:1:"RDA OR :"C":5#29:"GM";:35:"IU";:39:"MG":1465:Y5Q#I0FX:DT%(I,0)1805g#DT%(I,1)J1805#Y:1:NM$(DT%(I,2),DT%(I,3));:17:DT%(I,5)PD(0)" "UN$(DT%(I,4));#PDT%(I,7):385:31O:P;#PDT%(I,11)PD(1):385:37O:P;$PDT%(I,1PTL%(5)PD(1):385:37O:P;:PTL%(6):385:41O:P;h"21:1:"YOUR RDA:";:PGL%(1):385:31O:P;"PGL%(5)PD(1):385:37O:P;:PGL%(6):385:41O:P;:35,19"::ML$(J);:27:"PRO-";:34:"VIT";:38:"VIT"#2:27:"TEIN";:35:"A";:39DT%(I,1)J1685>!825:Y:1:NM$(DT%(I,2),DT%(I,3));:X25k!K03:PPC%(K):385:XO:P"%";:XX5:u!YY1{!!Y5İ1470!220:BTĹ35,24:!JJ1:J4Ĺ35,24:!1655!J0::20:"YOUR WHOLE DAY:";:PTL%(1):385:31O:P;7":J4ı 61560V rJ0::20:"YOUR WHOLE DAY:";:I03:DB%(0,I)TL%(I)::800:X25 tK03:PPC%(K):385:XO:P"%";:XX5::35,19 w::ML$(J);:23:"% OF CALORIES FROM";::2:23:"PRO CHO FAT ALC":1465:Y5 |I0FX:DT%(I,0)1685!":MR:"PROTEIN, VIT A, VIT C"KMR:"CALCIUM, IRON, SODIUM":1445:1460rY10:NF4:LNF:EL37:50:N05000N1550,1650,1750,19201500J0100021:"YOUR GOAL:";:PPD%(5):385:33O:P"-"PD%(6)"1465:220:BTı ,JJ1S/NO=EXIT";::B8:MR:"(NO FOODS ENTERED YET IN "ML$(J)")":e24:1::"Y=MORE/N=EXIT";::::"LIST TODAY'S FOODS & NUTRITION SCORES"::6:"CHOOSE TYPE OF SCORE DESIRED:"10:MR:"CALORIES":MR:"% OF CALORIES FROM PRO, CHO, FAT, ALC TO CHOICE AND PRESS YES(Y)"::n23::"YES = ADD A FOOD":"NO = END MEAL /MAKE CHANGE /SEE RESULTS";:::1:16:"DELETION":22:"TO DELETE A FOOD--"::24:"PRESS NO(N) TO EXIT";::24::"NO(N) = EXIT";::24:1::"YES=MORE SCORE:(7);"NOT A REASONABLE GOAL--REENTER."::h::(7);"LOWER MUST BE LESS THAN UPPER--REENTER."::22:958:22::"DATA BEING RECORDED--DO NOT TURN OFF OR":" INTERRUPT COMPUTER."::24::"PRESS YES(Y)";:: 23:1::"MOVE POINTERNSWER; THEN PRESS 'RETURN'."::22::"MOVE THE POINTER TO YOUR ANSWER WITH ":23:"'-->' AND '<--' KEYS. THEN PRESS 'Y'. "::" PLEASE WAIT A MINUTE...":" I HAVE TO MEMORIZE SOME DATA.":23::"PRESS YES(Y) OR NO(N)"::,:4:ING":MR:"ADD HALF THIS SERVING"rMR:"SHOW NUTRITION SCORES FOR THIS FOOD":MR:"GET A DIFFERENT FOOD":1445Y9:NF5:LNF:EL36:50:I0:J0DT%(I,0)1340(DT%(I,1)CM13402JJ1:JNı<II1:1310 x23::"TYPE YOUR AOD, DELETE ONE":5:"FIRST."3~1440:220::4000}::5:"FOOD";:18:"SERVING";:33:"CALORIES"::3:MR:NM$(CG,CF);21:DT%(CR,5)PD(0)" "UN$(DT%(CR,4));:PDT%(CR,6):385:38O:P!9:MR:"ADD THIS SIZE SERVING":MR:"ADD TWICE THIS SERV1Ģ16:5::"(ONLY 1 MORE FOOD IN THIS MEAL)":h4XFMĢ16:7::(7)"(NO MORE SPACE IN THIS MEAL)":n8wLCR0VDT%(CR,0)ı`CRCR1:CRFX1140j1110t:10:(7);"MY FOOD LIST MEMORY SPACE IS FULL...":12:"IF YOU WANT TO ADD A FO):620$7 Y123:X114:YCL%(5):630-7 K14i7& X1K:YCL%(0):630:X1K1:YCL%(5):630:(KY)1413500}70 K18İ600:5007: KK1:K2331107b 23:11:"THE EATING MACHINE"7l 24:6:"(PRESS 'RETURN' KEY TO START)";7v (KY)1413030 8 KS, 6 8000N6 22:868:23:868:520:580:Y123:X124:XCL%(0):YCL%(0):630o6 Y124:XCL%(4):YCL%(5):6206 (KY)14135006 I24161:X1I:XCL%(0):YCL%(0):6206 X1I1:XCL%(4):YCL%(5):6206 6 (KY)14135007 XCL%(0):YCL%(015T TL%(I)GL%(I)ĺNN$(I)" IS GOOD."::XX2:g5Y NN$(I)" IS LOW.":" GOOD SOURCES ARE: ";:Pĺ|5^ JI1:J0JJ35c NS$(J)::XX4:5h X19İ1440:220:X0:5m 5| "% OF CALORIES FROM "NN$(J)"."::XX2:5 7500:5 460:E1:50024 I1:2900:I58:2900:74 TL%(4)GL%(4)2810E4 Pİ2920f4 "SODIUM MAY BE TOO HIGH.":t4 Pİ29204 J2:"YOU HAVE "(TL%(J)9TL%(0)100);:29404 Pİ29204 J3:"YOU HAVE "(TL%(J)7TL%(0)100);:29404 Pı5, 1440:220:PD%(5)277093 "CALORIES ARE LOWER THAN GOAL.";:Pĺr3 " CHECK THAT FOOD LIST IS COMPLETE."::XX3:27983 TL%(0)PD%(6)27803 "CALORIES ARE IN THE RIGHT RANGE."::XX2:28003 "CALORIES ARE HIGHER THAN GOAL."::XX24 TL%(0)02841)" DAYS";02 E3:DB%(0,NP2)GL%(NP2)EE1R2 DB%(0,NP1)GL%(NP1)EE1n2 DB%(0,4)GL%(4)EE1}2 E3EE12 460:500:E3İ5402 8602 220::2 X0:Pė2 Pĺ(12):::24)"THE EATING MACHINE ASSESSMENT":: 3 TL%(0)YOUR RDA :"GL%(4);:2038,205:2039,199\1d X23:L2:C12:VDB%(0,NP2)GL%(NP2):D.05:2801i X28:VDB%(0,NP1)GL%(NP1):2801n X35:VDB%(0,4)GL%(4):2801s BG1İ900:27201x BG2Ģ21:1:"TOTAL FOR TODAY";:2690 2} 21:1:"AVERAGE OF "PD%(EE1"0 DB%(0,5)GL%(5)EE1>0# DB%(0,6)GL%(6)EE1M0( E3EE1e0- 460:500:E3İ540n02 86007 220:BTĉ:0Z :::430:1440:21:21::"CALCIUM";:29:"IRON";:35:"SODIUM";:'1_ 22:33:":":23:"CENTER = :CENTER=";:24:23:"27:"YOUR RDA";>/ X23:L2:C12:VDB%(0,1)GL%(1):D.05:280^/ X29:VDB%(0,5)GL%(5):280~/ X35:VDB%(0,6)GL%(6):280/ BG1İ900:2615/ BG2Ģ21:1:"TOTAL FOR TODAY";:2585/ 21:1:"AVERAGE OF "PD%(1)" DAYS";0 E3:DB%(0,1)GL%(1):385:XO:P"%";:XX5:>. PPC%(3):385:XO:P;:2039,165s. X22:L1:C12:D2.5:J03:VPC%(J):280:XX5:. 220:BTĉ:. :::410:1475:21:22::"PROTEIN";:30:"VIT";:36:"VIT":31:"A";:37:"C":/ 23:25:"CENTER LINE =";:24:(5)E1:DB%(0,0)PD%(6)E34-` 460:500:E3İ540=-e 860Q-j 220:BTĉ::d- ::780:1475x- 800:BG12475- BG22470- 21:1:"AVERAGE OF "PD%(1)" DAYS";:2480- 21:1:"TOTAL FOR TODAY";:2480- 900. 24:X25:I02:PPC%(I)::1465:750#,B DB%(0,0)02380A,G C12:VDB%(0,0):X24:280,L 22:26:DB%(0,0):BG1İ900::21:21:"THIS FOOD"::2410,Q 21::25:"SCORE"::BG3Ģ21:1:"AVERAGE OF "PD%(1)" DAYS";:2395,V 21:1:"TOTAL FOR TODAY";-[ E2:DB%(0,0)PD% YEARS":4+ " "AG%(PD%(3),0)" TO "AG%(PD%(3),1):^+ 5:11::"SEX:";::" "SX$(PD%(4)):+ 7:11::"CALORIE GOALS:";::" "PD%(5)" TO "PD%(6):+. BG2355,2360,2365+3 I0NP1:DB%(0,I)DT%(CR,I6)::2365+8 I0NP1:DB%(0,I)TL%(I):,= :*#*J0NP1:DB%(0,J)0:W*I17:J0NP1:DB%(0,J)DB%(0,J)DB%(I,J)::*J0NP1:DB%(0,J)DB%(0,J)PD%(1)::*WR$N1$PF$",R"PD%(2):I0NP1:TL%(I):: +:11::"NAME:";::" "N1$:3:11::"AGE GROUP:";::PD%(3)8ĺ" OVER 75DT%(K,0)21900)pJ1NP5:DT%(K,J):J62180O)zTL%(J6)TL%(J6)DT%(K,J)V)J])In)CL$N1$PF$:z)I0FX)WR$N1$PF$",R"I8:J0NP5:DT%(I,J):):CL$:)I17:RD$N1$PF$",R"I:DB%(I,0):DB%(I,0)2214*J1NP1:DB%(I,J)C1500:C2C2500:I1NP1:GL%(I)GL%(I)LC%(I):7( N(4OP$N1$PF$",L60":z(>RD$N1$PF$",R0":I06:PD%(I)::CL$:(HWR$N1$PF$",R0":I06:PD%(I)::CL$:(RI1FX8:WR$N1$PF$",R"I:0::CL$:)fI8FX8:RD$N1$PF$",R"I:KI8:DT%(K,0):1)PD(1):385:6O)P;:PDT%(I,12):385:4O)P":";GPDT%(I,13):385:5O)P;:PDT%(I,14)PD(2):385:382:3O)PO2);:PDT%(I,10):385:5O)PG8GBX0ĺ" (NO ENTRIES)"16)":"19)":"13)":"GL980GjH920:"TOTALS:";:PTL%(0):385:23DT%(I,0)6200%FDT%(I,1)J6200fFXX1:NM$(DT%(I,2),DT%(I,3))16(NM$(DT%(I,2),DT%(I,3))));FPDT%(I,5)PD(0):397:P" "UN$(DT%(I,4))9(UN$(DT%(I,4)))O1);FPDT%(I,6):385:4O)P":";F825:9403GPDT%(I,7):385:3O)P;:PDT%(I,1 :% OF CALORIES FROM :PRO- VITAMINS: CAL- IRON SOD-"E17)"EATEN RIES :PRO CHO FAT ALC :TEIN A C : CIUM IUM"E920:30)":"19)": GM IU MG: MG MG MG":920EJ03:ML$(J);:970:I1(ML$(J)):"-";::970:X0FI0FX:210:2200DBG3:2350:4000[DpD$"PR#"OP%(5):::24)"THE EATING MACHINE RESULTS FOR"uDz:39(N1$)2):N1$D:SX$(PD%(4)):"AGE GROUP: ";:PD%(3)8ĺ"OVER 75":6040DAG%(PD%(3),0)" TO "AG%(PD%(3),1)::9204E4)"FOOD"8)"PORTION CALO-GRAPHS ON SCREEN":MR:"SUMMARIZE RESULTS":MR:"LIST FOODS AND SCORES ON SCREEN":OP%(4)5030CMR:"PRINT TODAY'S SCORES ON PAPER"C1445:1460:NF3OP%(4):LNF:Y8:EL31:50:N04000CBG2:P0CN2350,2750,1500,6000C5000 D|2100:237:50:N04000&B1300:DT%(I,0)0OBJ0NP1:TL%(J)TL%(J)DT%(I,J6):YB4500vB:5::"CHOOSE MEAL:":B9:I03:MR:ML$(I):B Y9:NF4:LNF:EL9:50:N04000BCMN1:4200B:"TODAY'S SCORES OPTIONS:"_C8:MR:"SHOW BAR AX1:4300AX2:4300$AX.5}AI5NP5:DT%(CR,I)DT%(CR,I)X::DT%(CR,0)1:DT%(CR,1)CM:DT%(CR,2)CG:DT%(CR,3)CFAI0NP1:TL%(I)TL%(I)DT%(CR,I6)::4200ABG1:2350:4240AJCM:1000:X04205A1445:1455BY3:NFX:LNF:EL":1445-@Y10:L6:EL27:NF6:50:N04070I@N5(FEPD%(1))4070n@N4200,4500,4600,5000,5500,7000}@hJCM:1000@m1450:220:BT4000@oXFM4000@r1100@|300:N04000@700@1200:N04000@N4260,4270,4290,4320,4220D%(5)"-"PD%(6)(10:868:12:"DO YOU WANT A FILE OPENED FOR YOU?":220:BT4000>2PD%(0)0:PD%(1)0:PD%(2)1:1435:2100:2120:2100:2130:FE1>::N1$:3:"CURRENT MEAL IS ";::ML$(CM):?"CALORIES SO FAR TODAY: "TL%(0):"CALORIE GOAL: "P:958:2330:10:"IS THIS DATA ALL CORRECT?":1420:220:BT3850}=10:868:12:"IS YOUR NAME CORRECT?":220:BTė:3550=FE0:I0FX:DT%(I,0)0::I0NP1:TL%(I)0::3500= PD%(6)3500CD2=OP%(XO)NW4000=FE3880 >1435:210R LIMIT: ";A$:A%((A$)):A%500A%7000Ģ20:868:21:868:3740U<1425:3720<19:11:"UPPER LIMIT: ";B$:B%((B$)):B%500B%7000Ģ21:868:3760<1425:3740<B%A%PD%(5)A%:PD%(6)B%:3800<1430:3720<2300:2320A=7 NEEDS FOR YOUR AGE AND SEX":10:8:"ARE OFTEN IN THE RANGE OF:"d;j12:10:C1" TO "C2" CALORIES";t1420:14:"IS THIS CALORIE GOAL OK FOR YOU?":220:BTPD%(5)C1:PD%(6)C2:3800;~14:868:1400:16:"ENTER YOUR CALORIE GOAL:"E<18:11:"LOWE"OVER 75 YEARS"0: Y11:EL14:L9:50:N03580E:PD%(3)N1:2300O:1410n:.X3:PD%(3)3PD%(3)6X1:89:"WHAT IS YOUR SEX?":11:I0X:MR:SX$(I)::BY11:EL22:LX1:50:N03650:LPD%(4)N1:7:958:2320A;`2000:8:"DAILY ENERGY:6:5:"I HAVE YOUR FILE, "N1$"!"j9 2100:2110:PD%(0)Ģ8:5:"YOU HAVE AN INCOMPLETE DAY":2100:2150z9 2000:37909 216,0:NW1:6:5:"HELLO, "N1$:9:"WHAT IS YOUR AGE GROUP?":1410: 11:I07:MR:AG%(I,0);" TO ";AG%(I,1);" YEARS"::MR:0:::NW0<8 6::"WELCOME TO THE EATING MACHINE"::1400w8 4:"WHAT IS YOUR NAME? ";N1$:(N1$)27N1$(N1$,27)8 N1$""35208 (N1$)65N1$(N1$,(N1$)1):35218 OP%(XO)35508 FE0:3550"9 D$"RENAME "N1$PF$","N1$PF$:216,0:FE118440+W J0NE%(I):NM$(I,J),NN%(I,J):1W :W!CL$dW !AG%(7,1):I07:J01:AG%(I,J)::W! 1,3,4,6,7,10,11,14,15,18,19,22,23,50,51,75W !SX$(3):I03:SX$(I):W*! "MALE","FEMALE","FEMALE--PREGNANT","FEMALE--NURSING A BABY" X4!PR%(NP-SUGAR-SWEETS","FATS & OILS","FRUITS & FRUIT JUICES"V "GRAIN PRODUCTS","MEAT-FISH-POULTRY","MIXED DISHES & SOUPS","VEGETABLES","MISCELLANEOUS","FAST FOODS"V OP$NS$:RD$NS$:MXV NM$(NG,MX),NN%(NG,MX),NE%(NG),PD%(6)W I0NG:NE%(I):NE%(I)TA DISK. THEN PRESS 'RETURN'."4U(KY)1418170NU KS,0:PB%,127:8700U D$"RENAME "NS$","NS$",S"OP%(2)",D"OP%(3):216,0:21:1:958:E1:500:22:1415Ul I0NG:DG$(I):4Vv "BEANS-NUTS-SEEDS","BEVERAGES","DAIRY PRODUCTS & EGGS","DESSERTS,120,125,40,105,160,125,120,158,120PD%(2)PD%(2)1:PD%(2)7PD%(2)1LH2100:2120:7400 M1435:2ICES:":JK7:MR:"ERASE TODAY'S DATA":MR:"DAY COMPLETE--SAVE TOTALS"KMR:"DAY NOT DONE--SAVE DATA SO FAR":MR:"RETURN TO FOOD ENTRY"K1445:Y7:NF4:LNF:EL31:50:N04000KN7150,7200,7300,4000KPD%(0)7400LPD%(0)0:1435:21(MIN) : (MIN) (MAX)"4J(920:P1:2750:(12)DJ2D$"PR#0":QJXFE7100Jb::17:"CAUTION!"::8:"PRESS YES(Y) TO ERASE ALL YOUR DATA"Jl10:"PRESS NO(N) TO RETURN TO FOOD ENTRY":220:BT4000Jv7400K:3:9::"END OF PROGRAM CHO" - ";:PPD%(6):385:4O)P":";@I I03:PC%(I)SG%(I)::940IPGL%(1):385:3O)P;:PGL%(5)PD(1):385:6O)P;:PGL%(6):385:4O)P":";IPGL%(7):385:5O)P;:PGL%(8)PD(2):385:382:3O)PO2);:PGL%(4):385:5O)PJ#30)":"19)": O)P":";/HI03:DB%(0,I)TL%(I)::800:940HPTL%(1):385:3O)P;:PTL%(5)PD(1):385:6O)P;:PTL%(6):385:4O)P":";HPTL%(7):385:5O)P;:PTL%(8)PD(2):385:382:3O)PO2);:PTL%(4):385:5O)P I920:PPD%(5):385:"GOALS:"17O)P18:958:9555:9570:J274074:29:"SPACES LEFT"hK0NG:K5:MR1:DG$(K);:33:MXNE%(K):Y5:NFNG1:LNF:EL21:50:N0ġ:1050CGN1:VT%(J1):958:VT%(J):HT%(J):DG$(CG):5:MR1:"(BLANK)":K117:K5:MR1:UN$(K):):HT%(J)I1:XX$:X(XX$))&X1386060X8830H:X27CH800_DIDL%(PC,J)1540sNFT%(J)620,600XX57(X48X46)530b640lX32530vX44X58XX$(45)FD$FD$XX$:XX$:II1:IDL%(PC,J)1540530J2:DF%(I2)PD(I2):490;(DF%(I2)RA%(I9)100.5)"%"C:|9600:VT%(J):MR:FP$(J);:J4Ğ:DM$(DM%(PC,J));:FT%(J)520,520,700,700I1:FD$""::9510:9575:VT%(J):HT%(J):(MM$,DL%(PC,J));VT%(J):HT%(J)I1:"-";VT%(JP$DT$",L44":RD$DT$",R"NN%(CG,CF)@I0NP1:DF%(I)::CL$::I0NP3:VT%(I):MR:FP$(I)DM$(DM%(PC,I));:HT%(I):I2475XI1:X460,465,470NWĺNB$:490NM$(CG,CF):490DG$(CG):490UN$(DF%(0)):490I8PC485Y:NM$(CG,I):- r50:34,0:33,40:N03008 wCFN1> |T ~O20:(P)PO22Z i P0O1:r II0 POC%(II)OII: IIII1:II5O5: 390 P10(P)PO11: (P1(10P)10P)(P10P100)O12: O13:!O \220:BT300 ]348M ^NFNE%(CG)1:Y4:SL24Y:EL19:LNF:LSLLSL `:"PUSH YES TO PICK FOOD, NO FOR NEW GROUP"::DG$(CG);":": aNFSLĢ10:21:"MOVE POINTER TO ENDS":21:"OF LIST TO SEE MORE":34,Y1:33,20 c250 hI0L1:3:I 220 KS,0:E ,NW0::"CHOOSE FOOD TYPE:";:9570:9555:250z 6Y8:NFNG1:LNF:EL23:I0NG:YI:3:DG$(I): @50 JN0ı TCGN1 VNE%(CG)1350 X:8:9:"NO FOODS ENTERED YET IN":10:20(DG$(CG))2:DG$(CG) Y250:9550:V1:(32):OO1:V:(60);:MR:NM$(CG,O):< NVOY1g I1EL:V:I:(32):V:I1:(60);: V:I:KS,0:(32):3: A(KY):AHYAYLBT1:KS,0: AHNANLBT0:KS,0: A3220 AHLBT2:KS,0: AHRBT3:KS,0:V1:110 VYO0115- VYVV1:110; 204:115J NFSL180[ VLY1115j VV1:110 VLY1ONFSL115 VLY1VV1:110 200:115 912:V1:(32):OO1:V:(60);:MR:NM$(CG,SLO1): LY1:868. 768=@(C) COPYRIGHT 1983 BARBARA S. THORNE--ALL RIGHTS RESERVEDN(::1000]2O0:OVY1jiVY:A31nOV:(32):V:(60):OVVs220xABT1:A130,125,135,165}210:A30:N0:V:(32):250:A30:NFSL150VY115 V                                    200\Z#:PB%,3:D$"RUN HELLO,S"OP%(0)",D"OP%(1)e\#:12:17:"GOODBY!":20:D$"MAXFILES 3":D$"FP" 'RETURN'. ";:A$:A$\Z#:PB%,3:D$"RUN HELLO,S"OP%(0)",D"OP%(1)\#:12:17:"GOODBY!":20:D$"MAXFILES 3":D$"FP"ASE CORRECT & PRESS 'RETURN'"2["(KY)1418720<["8200w[(#:12:"RETURN TO STARTING MENU?":1420:220:BT9100[2#OP%(0)OP%(2)OP%(1)OP%(3)9050[<#:10:"REMOVE DATA DISK & INSERT PROGRAM DISK."::"THEN PRESS 'RETURN'. ";:OP$:\F#90"1Z! "LIVER,GREEN & ORANGE FRUIT & VEGETABLES"WZ! "CITRUS & OTHER FRUITS, GREENS"yZ! "MILK,YOGURT,CHEESE,GREENS"Z! "DRIED BEANS/PEAS,RED MEAT,MANY CEREALS"Z!3030Z!KS,0:216,0::520:E2:500:860["22:"OOPS! DATA DISK ERROR":"PLEECE","SERVG","SANDW","CAN"2Yk!DB%(7,NP1),PC%(3)HYz!NS$(4),NN$(NP1)`Y!I0NP1:NN$(I):Y! "CALORIES","PROTEIN","FAT","ALCOHOL","SODIUM","VITAMIN A","VITAMIN C","CALCIUM","IRON"Y!I04:NS$(I):Z! "MEAT,DRIED BEANS/PEAS,EGGS,CHEESE,MILK1),LC%(NP1),X>!I1NP1:PR%(I),LC%(I):^XH! 30,20,0,0,0,0,0,0,100,200,20,40,400,400,0,0rXR!I02:PD(I):X\! 100,.1,10Xa!UN$(17):I017:UN$(I):Yf! "","TSP","TBSP","FL OZ","CUP","PT","QT","GM","OZ","LB","SMALL","MED","LARGE","SLICE","PI50:9530:220:BT10505!D$"PR#"OP%(5):PN1:4500B!CG0NGk!DG$(CG):J1(DG$(CG)):"-";:::!"LLLL3:NE%(CG)04200!,CF0NE%(CG)!6400:NM$(CG,CF)16(NM$(CG,CF)));";PDF%(1)PD(1):397:P" "UN$(DF%(0))9(UN$(DF%(0)))O1);300! t9600:9528:220:BT3080+ ~1050? :OP%(4)7500 8:"THIS ROUTINE PRINTS A PAPER COPY OF ALL"::5:"FOOD NAMES AND DATA IN THE FILE." :"IT MAY TAKE 30 MINUTES OR MORE TO PRINT.":!"PRESS YES(Y) TO PRINT OR NO(N) TO EXIT.":20 D J0N VT%(J)N13170)X 3200>b JJ1:J123130Hl 3150\ J0NC1:3230p J1GC1:3230y DC1 500:450:3120:, REDISP,REPEAT 9600:9524:220:BT3600 10509600:9545:NCGC36205500:5000 $DCİ5CHANGED.":17:"4 TYPE IN NEW DATA.":9515:220:BTİ1750:3080I 1050^ :300:N01050 :400:450:9522:220:BT3110! 3080& CH1:NC0:DC0:GC0:OGCG:NB$NM$(CG,CF):NW1:NNNN%(OG,CF)0 9600:9523: Y2:NF17:LNF:EL2:50:N0330uOGCG:55005170>5600:9600:9580:220:BT2100H 1050p :7:9:"RECORD CHANGE PROCEDURE:" 10:"1 PICK FOOD TO HAVE DATA CHANGED." 12:"2 CURRENT DATA FOR THIS FOOD WILL BE":5:"DISPLAYED."? 15:"3 PICK DATA ITEM TO BE V 15:"3 IF YOU OK DELETION, FOOD WILL BE":" ERASED FROM ITS FOOD GROUP LIST."n9515:220:BT2100x*10504300:N01050>400:PC0:NW0:450H9520:220:BT2160\1050p9600:9545rDR%(0)DR%(0)1:DR%(DR%(0))NN%(CG,CF)O":"DELETE ANY MORE."i:"--OR RE-RUN PROGRAM SO MORE DELETED":"RECORD # STORAGE WILL BE ASSIGNED."~9550:220:10507:8:"RECORD DELETION PROCEDURE:"11:"1 PICK FOOD TO BE DELETED."13:"2 DATA FOR THIS FOOD WILL BE DISPLAYED."";:I3149:"-";::":";II5163:"-";::":";:I6579:"-";:::PPC%(0):385:3O)P"%";:K13:PPC%(K):385:4O)P"%";:":";::DR%(0)XD20307:"DELETED RECORD # STORAGE AREA IS FULL.":"ADD SOME RECORDS BEFORE TRYING T(K)0::C#C100:PC%(0)RB%(I,5)4RB%(I,4)C:PC%(0)CPC%(0)Cw&PC%(2)RB%(I,6)9RB%(I,4)C:PC%(2)CPC%(2)C+PC%(3)RB%(I,7)7RB%(I,4)C:PC%(3)CPC%(3)C0PC%(1)100PC%(0)PC%(2)PC%(3):PC%(1)0PC%(1)05I029:"-";::":03:PC%(I)0::G C100:PC%(0)DF%(3)4DF%(2)C:PC%(0)CPC%(0)Cw PC%(2)DF%(4)9DF%(2)C:PC%(2)CPC%(2)CPC%(3)DF%(5)7DF%(2)C:PC%(3)CPCC%(3)CPC%(1)100PC%(0)PC%(2)PC%(3):PC%(1)0PC%(1)0 !RB%(I,4)0āK03:PC%45:NNNR:5000:5300:5400:96008h9540:220:BT1320B1050b:5:"WHICH TYPE OF DATA?"8:MR:"FOOD COMPOSITION TABLE (IU/MG)":MR:"PACKAGE LABEL (%USRDA)"Y8:NF2:LNF:EL39:9555:9570:50:N0ġ:1050PCN1:DF%(2)0āI58:20::(7)"DISPLAY GROUP '"DG$(CG)"'":"IS FULL. TO ADD MORE FOODS TO THIS":"GROUP, YOU MUST FIRST DELETE SOME.":9550:220:216,0:1050JJ1:JNP313709600:9565:220:BT16009600:9566:220:BT1340"1050 @9600:95DT$",R0":LN:CL$7000FLA1300,2000,3000,6000,4700,4000,10000P1750l(DR%(0)0NRLN1:13402NRDR%(DR%(0))<::"INPUT DATA FOR RECORD # "NR;:J0:CH0:AX(16368)Z500dJ11506NE%(CG)1MX1506x20:1:9PD(J2);:868:GDF%(J2)((FD$)RA%(J9)100.5):X((FD$).5)VT%(J):MR(FP$(J)):DM$(DM%(PC,J));:HT%(J):X"%";:868:9590:VT%(J):1:868:500250:9595:9570:220:BTġ:10509600:5108000OP$DT$",L44":RD$J0870^(FD$)0960E`NB$FD$:VT%(J):HT%(J):NB$;:868:SfJ3880kkX(FD$):X320950{pPCJ8920uJ12900zX(FD$):X99950DF%(J2)((FD$)PD(J2).5)VT%(J):MR(FP$(J)):DM$(DM%(PC,J));:HT%(J):DF%(J2)(Y5:NF18:LNF:EL5:50:N0ġ:1050_DF%(0)N1:6:958:VT%(J):HT%(J):UN$(DF%(0)):p J0ġ:1050*J1ġ:13404VT%(J):1:868:JJ1:VT%(J):1:868:500>I1530HI2FD$"":I1:530RFD$(FD$,(FD$)1):II1:530 \AM":1Z250(1b7:"DO YOU WANT TO:"1l9:MR:"ADD A FOOD":MR:"DELETE A FOOD":MR:"CHANGE FOOD DATA":MR:"ANALYZE A RECIPE"1vMR:"DISPLAY DATA ON SCREEN":MR:"PRINT ALL DATA ON PAPER":MR:"EXIT"195551Y9:NF7:LNF:EL28:502NPDF%(3):385:3O)P;:PDF%(7)PD(7):385:6O)P;:PDF%(8):385:4O)P":";0PDF%(9):385:5O)P;:PDF%(10)PD(10):385:382:3O)PO2);:PDF%(6):385:5O)P0:::D$"PR#0":1X::2:12:"THE EATING MACHINE":4:9:"FILE MAINTENANCE PROGRO)P;:PRB%(I,9)PD(7):385:6O)P;:PRB%(I,10):385:4O)P":";/PRB%(I,11):385:5O)P;:PRB%(I,12)PD(10):385:382:3O)PO2);:PRB%(I,8):385:5O)P//1920:1920:NB$16(NB$))"1 SERVG";:PDF%(2):385:7O)P":";/1800:1940M0IU MG: MG MG MG":19208.^I09:RB%(I,3)6810s.hNM$(RB%(I,0),RB%(I,1))16(NM$(RB%(I,0),RB%(I,1))));.mPRB%(I,3)PD(1):397:P" "UN$(RB%(I,2))9(UN$(RB%(I,2)))O1);.rPRB%(I,4):385:4O)P":";.|1825:1940A/PRB%(I,5):385:3:"RECIPE NAME: "NB$:"DISPLAY GROUP: "DG$(RG):"SERVES: "NS:1920-@"INGREDIENT";:6)"AMOUNT CALO- :% OF CALORIES FROM :PRO- VITAMINS: CAL- IRON SOD-"-J25)"RIES :PRO CHO FAT ALC :TEIN A C : CIUM IUM".T1920:30)":"19)": GM :220:BTİ67008,KS,0:23:868:9565:220:BT6600T,DR%(0)0NRLN1:6570g,NRDR%(DR%(0)),9600:9545:NNNR:5000:5300:5400,:9538:220:BT6000,216,0:1050,,D$"PR#"OP%(5):::22)"THE EATING MACHINE RECIPE ANALYZER"C-61)):RB%(NI,0)CG:RB%(NI,1)CF:I412:RB%(NI,I)(DF%(I2)CMA.5):W+NINI1:6140p+dDF%(0)15:DF%(1)100+nI210:DF%(I)0+xJ0NI1:DF%(I)DF%(I)RB%(J,I2):+DF%(I)(DF%(I)NS.5)++NW1:PC0:CGRG:450:OP%(4)6548,95856CV%(VW,0)VW6:MR:UN$(I):X*L9555:9570:Y11:NFCV%(VW,0):LNF:EL6:50:N06140m*VRB%(NI,2)NVW6~*`ADF%(1)100*jCMCV%(VW,N)CV%(VW,X)A*9600:9510:18:1:"HOW MANY "UN$(RB%(NI,2));:"? ";A$:A(A$):A06140E+RB%(NI,3)(APD(220:(BT)NI106500/)250:300:N06140`)400::9532:9534:5:"INGREDIENT #"NI1":")$7:MR:NM$(CG,CF):DF%(0)0DF%(0)9RB%(NI,2)DF%(0):CM1:6300).DF%(0)7VW0:XDF%(0):6210)8VW1:XDF%(0)6*B9:"CHOOSE UNIT:":11:I1VW0:868:6130(NS1009010r(2:1:958:250:9534:9536:NI0Ģ12:7:"(NO INGREDIENTS ENTERED YET)":6160(6:I0NI1:NM$(RB%(I,0),RB%(I,1));:20:RB%(I,3)PD(1)" "UN$(RB%(I,2)):( NI9ĺ::"ONLY 1 MORE INGREDIENT CAN BE ENTERED.":)%(I)::CL$:'p9000$'z:9532H'I09:J0NP3:RB%(I,J)0::'NI0:J0:CH1:250:VT%(J):MR:"RECIPE NAME:";:510'J1:500:NE%(CG)1MX1470'RGCG:9600:9510 (10:1:"HOW MANY SERVINGS DOES RECIPE MAKE? ";A$:NS(A$):NS0Ģ1G)1:NM$(OG,0)"":NN%(OG,0)0:5&CFNE%(OG)5525w&KCFNE%(OG)1:NM$(OG,K)NM$(OG,K1):NN%(OG,K)NN%(OG,K1):&NE%(OG)NE%(OG)1&OMNE%(OG)1ı&OMNE%(0)&I1NG:NE%(I)OMOMNE%(I)&& 'OP$DR$:WR$DR$:I0DR%(0):DRNN%(J,K):%P%ZCL$:V%OP$DT$",L44":WR$DT$",R"NN:I0NP1:DF%(I)::CL$:%NRLN1LNNR:OP$DT$",L44":WR$DT$",R0":LN:CL$:%"DR%(DR%(0))0:DR%(0)DR%(0)1%,OP$DR$:WR$DR$:I0DR%(0):DR%(I)::CL$:%|NE%(OG)05515 &NE%(O):NN%(CG,K)NN%(CG,K1):K?$NM$(CG,J)NB$:NN%(CG,J)NN:5155m$JNNM$(CG,N1)NB$:NN%(CG,N1)NN:5155}$JJ1:5070$#NE%(CG)N1$(OMNE%(CG)OMNE%(CG)$2OP$NS$:WR$NS$:OM$<J0NG:NE%(J):NE%(J)15200 %FK0NE%(J):NM$(J,K):I078:"-";::::LL6:PNPN1:-#\1750@#a300:N01050h#f400:NW0:450:23:9560:9570:220v#pBT1050#z4705#NNE%(CG)#N1NM$(CG,0)NB$:NN%(CG,0)NN:5155#J0#NM$(CG,J)NB$5140$KN1J11:NM$(CG,K)NM$(CG,K12"@I210:PDF%(I)PD(I):385:PT%(I)O)P;::K"JLLLL1:LLPLİ4500Q"Tn"^:LLLL1:LLPL5İ4500t"h":D$"PR#0":1050"(12)::37)"PAGE "PN:""FOOD NAME"7)"SERVING"4)"CALORIES PROT FAT ALC SODIUM A C CALCIUM IRON"##IPE DONE";::GAB%23::"ANALYZE ANOTHER RECIPE? (PRESS Y OR N)"::AD%22:1::"RECORD NO. "NR" ENTERED.":"INPUT ANOTHER RECORD? (PRESS YES/NO)"::AI%22::"DATA BEING RECORDED--DO NOT TURN OFF OR":4:"INTERRUPT COMPUTER."::BN%24::"PRETA...":V@8%22:1::"CHANGE RECORDED.":"CHANGE ANOTHER RECORD? (PRESS Y OR N)"::}@:%23::"PRESS YES(Y) OR NO(N)"::@<%13::"RECIPE ANALYZER"::@>%3:NB$;:28:NS" SERVINGS":4:I140:"-";::A@%23::"Y = ADD AN INGREDIENT....N = REC:??2%23:1::"IS THIS THE RECORD TO BE CHANGED? (Y/N)"::?3%21:1::"TO CHANGE, MOVE POINTER TO ITEM AND":3:"PRESS YES(Y).":"TO END CHANGES, PRESS NO(N).";::?4%23:1::"OK TO RECORD CHANGES? (PRESS Y OR N)"::@5%" NOW LOADING THE DAĺ"FILE LOCKED":9200C>#"ERROR # "ZZ" IN LINE "(218)(219)256^>#CL$:D$"MAXFILES 3":>&%23:1::"TYPE YOUR ANSWER; THEN PRESS 'RETURN'.";::>+%23::"YES(Y) = CONTINUE...NO(N) = EXIT"::?0%23:1::"DELETE THIS RECORD? (PRESS Y OR N)"::10:"QUANTITY TOO LARGE FOR THIS PROGRAM"F=<#250:9550:220:1050W=Z#ZZ2559200z=d#ZZ4ĺ"WRITE PROTECTED":9200=n#ZZ5ĺ"END OF DATA":9200=x#ZZ6ĺ"FILE NOT FOUND":9200=#ZZ8ĺ"I/O ERROR":9200=#ZZ9ĺ"DISK FULL":9200>#ZZ10! 45,"ALC",49,"SODIUM",56,"A",62,"C",67,"CALCIUM",75,"IRON"G!DF%(NP1),DP%(NP6)7H!MM$"---------------"7R!I0NP1:PD(I):8\! 1,100,1,1,1,1,1,.1,S"n6 "GRAIN PRODUCTS","MEAT-FISH-POULTRY","MIXED DISHES & SOUPS","VEGETABLES","MISCELLANEOUS","FAST FOODS"6 OP$NS$:RD$NS$:OM6 NM$(NG,MX),NN%(NG,MX),NE%(NG)6 I0NG:NE%(I):NE%(I)184406 J0NE%(I):NM$(I,J),NN%(I,J):6 7!CL)1418170%5 KS,0:PB%,127:8800q5 D$"RENAME "NS$","NS$",S"OP%(2)",D"OP%(3):216,0:21:1:958:22:95255l I0NG:DG$(I):6v "BEANS-NUTS-SEEDS","BEVERAGES","DAIRY PRODUCTS & EGGS","DESSERTS-SUGAR-SWEETS","FATS & OILS","FRUITS & FRUIT JUICEJNP9:NG11:SL21:MX6054TDG$(NG),OC%(4),PD(NP1)J4^I04:OC%(I):d4h 1,10,100,1000,10000w4D$"BLOAD "RV$422:OP%(0)OP%(2)OP%(1)OP%(3)82004"PLEASE REMOVE PROGRAM DISK AND PUT IN":" DATA DISK. THEN PRESS 'RETURN'." 5(KYD$"OPEN ":CL$D$"CLOSE ":RD$D$"READ ":WR$D$"WRITE ":DT$"DT@":NS$"NS@":OT$"OT":DR$"DR@":RV$"RV"3AXO6:OP%(XO):OP$OT$:RD$OT$:I0XO:OP%(I)::CL$3CPB%171753DHY217:HN206:HR149:HL136:YL249:NL2383HKS16368:KY16384:MR34070452AN:k2L10:1:(7);"SORRY! ACCORDING TO CURRENT OPTIONS":"FILE, NO PRINTER IS AVAILABLE."2V13:"IF THIS IS NOT CORRECT, RESTART PROGRAM":"AND CHANGE OPTIONS."2`21:"PUSH YES TO CONTINUE.":220:BT075202j1050j3@D$(4):OP$ժժժ""&>"""&""&>&"ժժ"""""h """""" """"""""""&ժժժժժ "">"&&"&*U*U*U*U*U*"""&">"""""""""ՀժժժՀժժժժ""&""&>""&U*U*U*U*U"""&""&>""&ժժժժժ*U*U*U*U*U*ժժժՀ""""""""""""ĿժժժՀ*U*U*U*""""ժժժ""""""6""""""""6""ժժ""""""""""" ""!"""""""""ժժժժժ!"6""""*U*U*U*U*U*""""""6"""""""""ՀժժժՀժժժժ """""6"""U*U*U*U*U""""""6"""ժժժժժ*U*U*U*U*U*ժժժՀ>>">"ğժժժՀ*U*U*U*>>">ժժժ?""<>">>">">>"<">""ժժ"">`"<">>"">ժժժժժ>>"">>"">*U*U*U*U*U*>"""><">>>">ՀժժժՀ ժժժժ"">">>>"<""">U*U*U*U*U?>>>><">">>">>>"<""">ժժժժժ*U*U*U*U*U*           OVE DATA DISK & INSERT PROGRAM DISK."::"THEN PRESS 'RETURN'. ";:A$:A$UE.'10020EB':PB%,3:D$"RUN HELLO,S"OP%(0)",D"OP%(1)Et'CL$::D$"MAXFILES 3":D$"FP"OP%(0)",D"OP%(1)Et'CL$::D$"MAXFILES 3":NTOO LARGE VALUE...PRESS YES TO RE-ENTER";::220:xD{%21:1:958:21::(7);"BLANK NAME...PRESS YES TO RE-ENTER"::D%20:1:958:D':12:"RETURN TO STARTING MENU?":9530:220:BT10100D'OP%(0)OP%(2)OP%(1)OP%(3)10050IE$':10:"REM= EXIT";::OCg%24:1::"<-- = BACKSPACE";:CHĺ"...= BACK UP 1 LINE";WCh%:Cl%:10:14::"RECORD DELETED":22:"DELETE ANOTHER RECORD? (PRESS Y OR N)"::Cq%23::"WANT PRINTED COPY OF RECIPE? (Y OR N)"::2Dv%21:1:958:21::(7);"SS YES(Y)";::KBS%23:1::"MOVE POINTER TO CHOICE AND PRESS YES(Y)"::BX%23:1::"YES(Y) = DISPLAY ANOTHER RECORD"::B]%23::"OK TO RECORD? (PRESS YES OR NO)";::B^%23::"REPEAT INPUT THIS RECORD? (PRESS YES/NO)";:: Cb%24::"NO(N) ժՀժՀժ"""<>>"""""<">"ժժժժ>">䏘"<"?"""""""">ժժժժ?>>""">""">U*U*U*U*U*U">""">"">>"<"">>">ՀժժժՀժժժ""">>""<"""">*U*U*U*U*>><>>">">>""<"""">ժՀժՀժU*U*U*U*U*Uժժժժ"""""""""ժժժժ*U*U*U*""6"ժՀժՀժ"""""""""""""""""""ժժժժ""""􏐿‡( """"""""""""""ժժժժժ""""""""*U*U*U*U*U*""""""""""""ՀժժժՀժժժժժ"""""""""""U*U*U*U*U!""""""""""""""ժՀժՀժ*U*U*U*U*U*ժժժժ? >"2 " "ժժժժU*U*U*U ">> ժՀժՀժ">22  """2  > 22"2"ժժժժ"" ""􇰿h " 2" ""> "> > "" 2ժժժժ""">22>2U*U*U*U*U*U  >2""" > 2"   "ՀժժժՀժժժ "2">22">"2*U*U*U*U* "2""2 ">22">"2ժՀժՀժU*U*U*U*U*UժժժՀ""*"ժժժՀ*U*U*U*"*"ժժժ >"**""*"***"ժժ">"( "><""">"*ժժժժժ""*"**"**U*U*U*U*U*"*"*">""ՀժժժՀժժժժ"*>"**">*U*U*U*U*U """*>"**">*ժժժժժ*U*U*U*U*U*ժժժՀ""""&"""ժժժՀ*U*U*U*""""z#     Ϡ/àV ͠? ؠ" ֠ԠǠ;"#8H $(*)+!h8 H $(*0੠!*`ժժժժժժժժ*U*U*U*ժՀժՀժժժժժ䟈`ժժժժժ*U*U*U*U*U*ՀժժժՀժժժժժU*U*U*U*UժՀժՀժ*U*U*U*U*U*ժժժժ"">"">ժժժժU*U*U*U""">