Xv>?- {6PYD:\????????"""""""""""""""0?0"???"@@>@>@>@>@>@>@>@>@>@>@>@>@>@>@<3<>@333>@@BJNB~JB@B~|@333>@>@? ? ? ? ? ? ? ? ? ? ? ? ? ~~~~~~~~~~~~~? ? ~0!0~? !!!? ~@BFBBBFBB@ZBD@!!!~? ? ~~?????????????>>>>>>>>>>>>>??>>??>~??>>0 0 00 0""""0 0 00 0""""!!!?0 !0 0 00 0 !!!!?0 0 0 00 0 >@>@>@0 0 00 0 00 >@??>@>@>@>@? ? ~~? 0 0 00 0 00 ? ~??~? ? ~~? ? ~~??>>??0 00 0 ?>>??>>??>>?0 00 0 """"""""""""""""""|><@<<|~@>@>@>@>@>@>@>@>@>@>@>@>@>@>@>@>@>@BB@BN|@~B||@~JH@B~|A? ? ~~? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ~~~~~~~~~~~~~~~~BB@BBD@BD@D@BBBFD@BBBDA??>>????????????????>>>>>>>>>>>>>>>>|><~<<B~Bx@B~<<BBB~<<BBA                   .       B 0 ( 0@# # <@nFF\\\R_vyQ_{{{\nKX\![!PP!!98i$ K SRPA(23730\+256*23731\)=5699957012  110n "Food" C   1984   MERCURIAN PULP PRODUCTS  ,1;1;20,0;"FOOD" (7:X=130:Y=9 14:(X,Y)40(+X*2,36$+Y*2:0,1:1,0:0,-1 2Y:X <21,0;" ":57000:21,0;" PLEASE STOP THE TAPE AND WAIT " n 5000 x@21,0;" READY.PRESS  ANY KEY  TO START " 023658j\,8:1,10 :0 1:1:9 : <2;Z$;Z$;Z$;1,8;" PROGRAM OPTIONS " 77,3;" COMPOSITION OF FOODS  1 " m10 ,3;" VITAMINS AND MINERALS  2 ";13 ,3;" DAILY ENERGY NEEDS  3 " 816,3;" END OF PROGRAM  4 " Y#1;0,1;" PRESS  A NUMBER  TO SELECT ":.5,10 A$=:A$<"1"A$>"4"200 A$="4"250 +A$="1"Q(24):300,:140 A$="2"600X:140 A$="3"1200:140 m(23730\+256*23731\)=5699957012:21,8;" END OF PROGRAM ": @21,0;"  END OF PROGRAM  ": , C(4) 6P1::1;Z$;Z$;Z$;1,3;" THE COMPOSITION OF FOODS " @2X=(*24)+1:Q(X)=1320@ E.Q(X)=1:Y=(*4)+1:C(Y)=x J94,0;" A food is found to contain:- " Tq9 :7:6,6;" WATER .%";6,22+(F(X,1)<10 );F(X,1) ^_7,6;" PROTEIN .%";7,22+(F(X,2)<10 );F(X,2) h_8,6;" FAT.%";8,22+(F(X,3)<10 );F(X,3) r_9 ,6;" CARBOHYDRATE.%";9 ,22+(F(X,4)<10 );F(X,4) |a10 ,6;" FIBRE .%";10 ,22+(F(X,5)<10 );F(X,5) 712 ,0;" Which food could it be ? " ]n=14:n=y12 +2*n,6;6;f$(X);" ";n;" ":420 Lz=(*24)+1:z=c(1)z=c(2)z=c(3)410 Bc(n)=z:12 +2*n,6;6;f$(z);" ";n;" " N X.5,0:#1;1,1;" PRESS  A NUMBER  TO ANSWER "  A$=:A$<"1"A$>"4"430 ; KB=A$:12 +2*B,6;7;(BY);f$(C(B));" ";B;" " B=Y485 ZN=2127:12 +2*B,N;"  ";B;" ":.1}L,5:N N=12 +2*B6-1:N,28;" ";B;" ";N+1,28;" ":.1}L,5:N ̚N=15:N+5,28;6;("."F(C(B),N)<10 );F(C(B),N);"%";N+6,28;" ";B;" ":.25~,0:N |N=11 11 +2*B:N,28;1;" ";N+1,28;" ";B;" ":.1}L,5:N aN=2721-1:12 +2*B,N;" ";B;"  ":.1}L,5:N F12 +2*B,6;7;0;f$(C(B));" ";B;" "  425 46.,82R-16*B:148,0:0,-12 :-148,0:0,14:150,0:0,-16:-152,0:0,18 ]154,0:0,-20:-156,0:0,20:2,0 ]#1;1,0;"  A  FOR ANOTHER  N  NEW OPTION ":1,0 A$=:A$=""510 A$="A"550&  A$="N"  500 &=QN=0:N=124:Q(N)=1QN=QN+1 0N:QN>18Q(24) : 300, N X'J(23):B(15):S(23) bJ:1;Z$;Z$;0,0;" MINERALS   VITAMINS " lN=111 :N+2,0;7;V$(N,1,10 );5;" ";(64@+N);" ":N<10 N+2,15;6;V$(N+11 ,1);5;" ";(75K+N);" " vN >.5800  \15,0;" WHICH OF THESE PLAY A PART IN THE FUNCTION OR FORMATION OF..." 2X=(*15)+1:B(X)=1660 18,6;"";19,6;" ";B$(X,1);" ";20,6;""  1000 gSC=0:PO=0:N=114:PO=PO+1:B$(X,2,N)=" "N=14:775 7D=B$(X,2,N)-64@:DC=(15D>11 ) ZCOL=0:T=1̱D$:D$(T)=B$(X,2,N)SC=SC+1:D$(T)=" ":COL=2 T wD+2-(11 D>11 ),DC;COL;V$(D,1,10 +(4DC=15));5;" ";(64@+D);" " N:4000:SW  600X  0  ^15,0;" WHICH VITAMINS AND MINERALS DO YOU ASSOCIATE WITH . " *2X=(*23)+1:S(X)=1810* 4w18,8;" ";19,8;" ";S$(X,1);" ";20,8;" " > 1000 HgPO=0:SC=0:N=110 :PO=PO+1:S$(X,2,N)=" "N=10 :890z R7D=S$(X,2,N)-64@:DC=(15D>11 ) \ZCOL=0:T=1̱D$:D$(T)=S$(X,2,N)SC=SC+1:D$(T)=" ":COL=2 fT pwD+2-(11 D>11 ),DC;COL;V$(D,1,10 +(4DC=15));5;" ";(64@+D);" " zN:4000:SW  600X D$="" l#1;0,0;" PRESS  LETTERS  TO INCLUDE  ENTER  FOR FEEDBACK " .5,15 A$=:A$=""1030 A$=13 $A$<"A"A$>"T"1020 )*D=A$-64@:J(D)=11020 ,J(D)=1 .3D$=D$+A$:DC=(15D>11 ):D$>8 8pD+2-(11 D>11 ),DC;4;V$(D,1,10 +(4DC=15));5;" ";A$;" " B 1020 81200::23692\,502:21,0; In=117:w$:t=1̱w$:w$(t);:.02{# =,0:t:'' n10 1260 1,0 a$=:a$=""1230 Hm$="Metric":pk=0:a$="I"pk=1:M$="Imperial":1250 a$"M"1225 FM$="*** "+M$+" ***":t=1̱m$:m$(t);:.02{# =,0:t:'' n A">>> PLEASE NOTE ."," This is not a slimmer's guide." x" It will calculate the daily","energy intake needed to maintain","a given weight, for a given","pattern of activity."  3" Do you want to use Metric or","Imperial units?" D"Press [I] - Calories & Pounds","or [M] - Kilojoules & Kilograms." "The total daily requirement is","calculated from the Energy","Factor of each activity,","the time spent on each and the","person's body weight." " "," [ENTER] to start." (3j(7):N=17:R$(N),R(N),j(n):N 2"SLEEPING",.4L,8,"SITTING",.6,7,"WORK (seated)",.73333,13 ,"STANDING",.8L,8,"WALKING",1.3&fff,7,"MILD EXERCISE",1.6L,13 ,"HARD EXERCISE",2.1fff,13 7.5,10 <a$=:a$=""1340< Fa$13 13357 KePK=0N=17:R(N)=(R(N)*92\+.5)/10 :R(N)>10 R(N)=(R(N)) LN P 1: ZG2;z$;z$;z$;1,3;" DAILY ENERGY REQUIREMENT " dO4,2;" WEIGHT . ";6,2;" ACTIVITY PATTERN " n/N=818:N,0;7;Z$:N x:8:9 ,3;"ACTIVITY E.F HOURS ENERGY" @N=17:N+10 ,1;R$(N);15;R(N):N 4,92\:0,16:248,0:0,-16:-248,0:0,-64@:248,0:0,64@ x116t,108l:0,-80P:148,108l:0,-80P:196,108l:0,-80P P.5,10 :0,0;" PLEASE  ENTER  BODY WEIGHT:";A$ A$=""1440 FQ=0:N=1̱A$:(A$(N)<"0"A$(N)>"9")A$(N)"."Q=1 N:Q1440 1BW=A$:BW>100d+(100dPK)A$=A$+"!!" )4,14;7;A$;"  " ,CH=24:ER=0:T=17 ]0,0;("  ENTER  NUMBER OF HOURS SPENT ";R$(T,j(t));" EACH DAY:");A$ FQ=0:N=1̱A$:(A$(N)<"0"A$(N)>"9")A$(N)"."Q=1 N:Q1510 oH=A$:H>CH#1;1,0;" TEMPORAL OVERRUN. 24 HRS=1 DAY":2,10 :;:H=CH  W10 +t,21;H;10 +T,26;(H*R(T)*BW):ER=ER+(H*R(T)*BW):CH=CH-H  CH=0T=7 T xCH20,0;" REQUIRED FOR ";24-CH;" HOURS:";ER;" ";("kJ"pk=0);("Cal"pk);" ":1580, "W20,2;" TOTAL REQUIREMENT:";ER;" ";("kJ"pk=0);("Cal"pk);" " ,#1;0,0;" PRESS  A  - ANOTHER CALCULATION  F  FOOD VALUES  N  NEW OPTION ":.5,10 6A$=:A$=""15906 @ A$="N" JA$="F"1700 TA$"A"1580, ^ 1360P 9:1;Z$;Z$;0,9 ;" FOOD VALUES " M$="KJ/25g":pkm$="Cal/oz" r3,5;" FOOD ";3,15;"PROTEIN ENERGY";4,18;"%";4,24;M$ RN=618:N,0;"      ":N  X=1 pN=012 :Y=X+N-(24X+N>24)+(24X+N<1):Z=F(Y,6):PKZ=(Z/4.5) JN+6,0;8;F$(Y);17;F(Y,2);25;Z;" " N #1;0,0;"  6  SCROLL DOWN  7  SCROLL UP OR  ENTER  FOR NEW OPTION ":.5,0 A$=:A$=""1780 A$=13 #X=X+(A$="7")-(A$="6"):1740  #1;0,0;" ";PO-1;" POSSIBLE  ";D$;" ANSWERS  ";SC;" RIGHT   A  - ANOTHER  N  - NEW OPTION ":.5,10 A$=:A$=""4010 "SW=0:A$="N"SW=1:  A$="A"  4000   5000 Z$(32 ):F$(24,15):F(24,6):V$(20,3,14):S$(23,2,10 ):B$(15,2,14):R$(7,14):R(7) <N=124:F$(N):T=16:F(N,T):T:N x"APPLE",84T,0,0,15,1,80P,"ORANGE",87W,1,0,11 ,1,70F "CABBAGE",92\,2,0,5,1,30,"CANNED PEAS",82R,3,0,13 ,1,100d "BOILED POTATOES",76L,2,0,20,2,130,"CRISPS",3,7,37%,502,2,750 Ĉ"ROAST PEANUTS",5,30,46.,18,3,800 ,"BROWN BREAD",37%,9 ,3,491,2,330J }"CEREAL",6,8,1,82R,1,500,"BISCUITS",18,1,10 ,70F,1,600X ؈"BOILED RICE",74J,2,0,23,0,130,"MILK CHOCOLATE",2,6,35#,557,0,750 {"JAM",28,1,0,71G,1,400,"MARMALADE",14,1,0,85U,1,500 {"HONEY",15,4,0,81Q,0,450,"BUTTER",15,1,81Q,0,0,1000 y"CHEESE",37%,25,32 ,2,0,600X,"MILK",87W,3,4,5,0,100d "BOILED EGG",74J,13 ,12 ,1,0,250,"BACON",13 ,25,557,1,0,800   "GRILLED LIVER",65A,24,8,4,0,250,"BEEF",65A,15,20,0,0,3500 "PICKLED HERRING",72H,19,8,0,0,200,"GRILLED COD",80P,17,0,0,0,100d 6N=120:T=13:V$(N,T):T:N (2"CALCIUM","ABCDEU","AB","CHLORINE","KLQCA","EFG" 2*"FLOURINE","FOUR","A","IODINE","FUK","N" <+"IRON","ABHGEM","BD","MAGNESIUM","CE","A" F8"PHOSPHORUS","FGHAIDCU","AL","POTASSIUM","CDGHIU","GF" P."SODIUM","ACKLQ","EFG","SULPHUR","EGHJ","HM" Z,"ZINC","HJ","CD","VITAMIN A","DLSMUW","IO" d5"VITAMIN B1","DHNPIJ","F","VITAMIN B2","DHPNJG","H" n5"VITAMIN B12","HPM","BI","VITAMIN C","EIW","ABEFJH" x0"VITAMIN D","CGLUT","A","VITAMIN E","DGV","MK" 9"VITAMIN K","EGWM","BJ","NICOTINIC ACID","FHINUP","EFH" 4N=123:S$(N,1),S$(N,2):N 6" BREAD","AGIE"," FLOUR","AE"," CHEESE","ABGHIFQ" <" MILK","AGHLMNR","GREEN VEG.","AEFPSJ"," FISH","GDCT" @" EGGS","GHJEQRNS"," MEAT","GHJEKMNTO"," POTATOES","GHMTP" 4" BEANS","JKMN"," SALT","BID"," BUTTER","BILQ" A" LIVER","SOLE"," CEREALS","MNT"," TEA","C"," YEAST","MONT" =" BACON","IB"," WATER","C"," CARROTS","L"," SUNLIGHT","Q" 6"OILY FISH","QGHDCT","WHEATGERM","R"," FRUIT","PSL" 4N=115:B$(N,1),B$(N,2):N ?"BONES & TEETH","AGFCQP"," BLOOD","AESOP"," PROTEIN","K" >" ENZYMES","EK"," DIGESTION","IBTP"," NERVES","HIBMTP" ;" OSMOCONTROL","HIB"," SKIN","JNTP"," GROWTH","LO" K" GUMS","PS"," FERTILITY","R"," NUCLEIC ACID","G"," VITAMINS","JR" #" THYROID","D"," VISION","L" 'N=07:"A"+N,85U:N J xdo{'  yzb v NLvtDLPQ BJKA4# mAPPLE ORANGE CABBAGE CANNED PEAS BOILED POTATOESCRISPS ROAST PEANUTS BROWN BREAD CEREAL BISCUITS BOILED RICE MILK CHOCOLATE JAM MARMALADE HONEY BUTTER CHEESE MILK BOILED EGG BACON GRILLED LIVER BEEF PICKLED HERRINGGRILLED COD TPW F\ R dL %2. % 1JR FXJ  #7  G U Q Q%  XW dJ  7 A A HPdOCALCIUM ABCDEU AB CHLORINE KLQCA EFG FLOURINE FOUR A IODINE FUK N IRON ABHGEM BD MAGNESIUM CE A PHOSPHORUS FGHAIDCU AL POTASSIUM CDGHIU GF SODIUM ACKLQ EFG SULPHUR EGHJ HM ZINC HJ CD VITAMIN A DLSMUW IO VITAMIN B1 DHNPIJ F VITAMIN B2 DHPNJG H VITAMIN B12 HPM BI VITAMIN C EIW ABEFJH VITAMIN D CGLUT A VITAMIN E DGV MK VITAMIN K EGWM BJ NICOTINIC ACIDFHINUP EFH  BREAD AGIE FLOUR AE CHEESE ABGHIFQ MILK AGHLMNR GREEN VEG.AEFPSJ FISH GDCT EGGS GHJEQRNS MEAT GHJEKMNTO POTATOES GHMTP BEANS JKMN SALT BID BUTTER BILQ LIVER SOLE CEREALS MNT TEA C YEAST MONT BACON IB WATER C CARROTS L SUNLIGHT Q OILY FISH QGHDCT WHEATGERM R FRUIT PSL «BONES & TEETH AGFCQP BLOOD AESOP PROTEIN K ENZYMES EK DIGESTION IBTP NERVES HIBMTP OSMOCONTROL HIB SKIN JNTP GROWTH LO GUMS PS FERTILITY R NUCLEIC ACID G VITAMINS JR THYROID D VISION L gb &$""   M͑nnΑ 3{M{vX>v>!@!@ E????????"""""""""""""""0?0"???"@@>@>@>@>@>@>@>@>@>@>@>@>@>@>@<3<>@333>@@BJNB~JB@B~|@333>@>@? ? ? ? ? ? ? ? ? ? ? ? ? ~~~~~~~~~~~~~? ? ~0!0~? !!!? ~@BFBBBFBB@ZBD@!!!~? ? ~~?????????????>>>>>>>>>>>>>??>>??>~??>>0 0 00 0""""0 0 00 0""""!!!?0 !0 0 00 0 !!!!?0 0 0 00 0 >@>@>@0 0 00 0 00 >@??>@>@>@>@? ? ~~? 0 0 00 0 00 ? ~??~? ? ~~? ? ~~??>>??0 00 0 ?>>??>>??>>?0 00 0 """"""""""""""""""|><@<@>@>@>@>@>@>@>@>@>@>@>@>@>@>@>@>@>@BB@BNy? ? ~~? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ~~~~~~~~~~~~~~~~BB@BBy??>>????????????????>>>>>>>>>>>>>>>>|><~<<y                   .       B@ @ P P M&AMTT \Wq !v>U@ ~>0