% calorie.sty --- LaTeX macro of calorie checking for who goes on a diet. % % Note: % This file is distributed WITHOUT ANY WARRANTY. % No author or distributor accepts responsibility % to anyone for the consequences of using it. % I am NOT a dietitian nor a medical doctor. % % Copyright (c) 1994 by Shuji Aonuma. % Reports or requests to aonuma@kodama.issp.u-tokyo.ac.jp % % Unchanged copies of this file may be freely distributed. % You may modify a renamed copy of this file. % % Calorie data are taken from % ``Karorii chekku nouto (Calorie Check Notebook)'', Fusosha Publishing (1994) % (in Japanese). % % Documentation is not ready, but % example calorie data, TeX, PostScript files are added at end of this file. % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % %% RCS \def\RCS@HEADER$#1: #2.#3 #4 #5 #6 #7 #8${% \def\RCS@NAME{#2}% \def\RCS@REVISION{#4}\def\RCS@DATE{#5}% \def\RCS@AUTHOR{#7} \typeout{\RCS@NAME\@spaces********* Version: \RCS@REVISION\space(\RCS@DATE).} } \RCS@HEADER$Header: calorie.stv 1.3 94/12/22 19:26:06 noteASC2-issp Brief $ %RCS information file name release date time machine status(or Brief when auto check in on a Brief Editor) % new skips, counters, ifs \newskip\Cat@a \newskip\Cat@b \newskip\Cat@c \newskip\Cat@d \newskip\Cat@e% \newskip\Cat@f \newskip\Cat@g \newskip\Cat@h \newskip\Cat@i \newskip\Cat@j% \newskip\Cat@k \newskip\Cat@l \newskip\Cat@m \newskip\Cat@n \newskip\Cat@o% \newif\ifCat@a@ \newif\ifCat@b@ \newif\ifCat@c@ \newif\ifCat@d@ \newif\ifCat@e@% \newif\ifCat@f@ \newif\ifCat@g@ \newif\ifCat@h@ \newif\ifCat@i@ \newif\ifCat@j@% \newif\ifCat@k@ \newif\ifCat@l@ \newif\ifCat@m@ \newif\ifCat@n@ \newif\ifCat@o@% \newskip\Total@bf \newskip\Total@lu \newskip\Total@tb% \newskip\Total@su \newskip\Total@mm \newskip\Total@all% \newskip\Total@tmp% \newskip\Cal@tmp% \newcount\Rd@a \newcount\Rd@b \newcount\Year \newcount\Month \newcount\Day \newcount\CDtmpa \newcount\CDtmpb \newcount\CDtmpc \newcount\WDay \newskip\CalorieWd \newskip\StdCalorie\StdCalorie\z@ \newskip\LimitCalorie\LimitCalorie\z@ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %default column width% \CalorieWd\columnwidth %Set standard calorie limit. Warned when exceeded. \def\SetCalorie#1{\StdCalorie#1pt}% % for example % \SetCalorie{2200}%Japanese male, 30 years-old, light job, 170cm height, 65kg % Standard required calorie (kcal) t=one's height in cm % age female male % 20-29 15.50t-636 20.00t-1150 % 30-39 15.00t-611 19.17t-1054 % 40-49 15.00t-611 18.57t-998 % 50-59 16.00t-788 20.00t-1300 % 60- 16.00t-858 18.21t-1132 %date \def\YE@#1#2#3#4#5#6{19#1#2}% \def\DY@#1#2#3#4#5#6{\if#50#6\else#5#6\fi}% \def\MN@#1#2#3#4#5#6{% \if #30\ifcase#4\or Jan.\or Feb.\or Mar.\or Apr.\or May\or Jun.\or% Jul.\or Aug.\or Sep.\fi\fi% \if #31\ifcase#4 Oct.\or Nov.\or Dec.\fi\fi } \def\CalcDay#1#2#3#4#5#6{%Stolen without permission from dayofweek.sty on CTAN % by Martin Minow of DEC (minow%bolt.dec@decwrl.dec.com). \Month=#3#4\relax\Day=#5#6\relax\Year=19#1#2\relax% \CDtmpa=\Month \advance\CDtmpa-14 \divide\CDtmpa12% \advance\CDtmpa\Year \WDay=\Month \advance\WDay10 \CDtmpc=\WDay \divide\CDtmpc13 \multiply\CDtmpc12 \advance\WDay-\CDtmpc\relax \multiply\WDay13 \advance\WDay-1 \divide\WDay5 \advance\WDay\Day \advance\WDay77 \CDtmpb=\CDtmpa \CDtmpc=\CDtmpb \divide\CDtmpc100 \multiply\CDtmpc100 \advance\CDtmpb-\CDtmpc \multiply\CDtmpb5 \divide\CDtmpb4 \advance\WDay\CDtmpb \CDtmpb=\CDtmpa \divide\CDtmpb400 \advance\WDay\CDtmpb \CDtmpb=\CDtmpa \divide\CDtmpb100 \multiply\CDtmpb2 \advance\WDay-\CDtmpb \CDtmpb=\WDay \divide\CDtmpb7 \multiply\CDtmpb7 \advance\WDay-\CDtmpb \ifcase\WDay Sun.\or Mon.\or Tue.\or Wed.\or Thu.\or Fri.\or Sat.\fi } %%%%% \def\Hrule{\rule[.5ex]{\CalorieWd}{.3pt}\\} \def\Vskip{\vskip1ex} %%%%% %make dimension to real (e.g. 12.5pt -> 12.5) {\catcode`\p=12\catcode`\t=12% \gdef\REAL@In#1.#2pt{\Rd@a#1\relax}\gdef\REAL@Fl#1.#2pt{\Round@#2/}} \def\Rd#1{\expandafter\REAL@In\the#1\expandafter\REAL@Fl\the#1% \the\Rd@a\hbox to 2ex{.\the\Rd@b\hss}} \def\Round@#1{\@ifnextchar/{\Round@@#10}{\Round@@#1}} \def\Round@@#1#2{\@ifnextchar/{\Round@@@#1#20}{\Round@@@#1#2}} \def\Round@@@#1#2#3/{% \Rd@b#1\relax\@tempcntb#2\relax% \ifnum\@tempcntb>4\advance\Rd@b1\relax\fi% \ifnum\Rd@b=10\advance\Rd@a1\relax\Rd@b0\relax\fi% } %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %\begin{Calorie}{date} date -> 941224 % | % | %\end{Calorie} \def\Calorie#1{% \parindent\z@% %date \hbox to \CalorieWd{{\NameDate \CalcDay#1, \MN@#1\space\DY@#1, \YE@#1}\hfill kcal} \Vskip %initialize \LimitCalorie\StdCalorie% \Cat@a\z@ \Cat@b\z@ \Cat@c\z@ \Cat@d\z@ \Cat@e\z@ \Cat@f\z@% \Cat@g\z@ \Cat@h\z@ \Cat@i\z@ \Cat@j\z@ \Cat@k\z@ \Cat@l\z@% \Cat@m\z@ \Cat@n\z@ \Cat@o\z@% \Cat@a@false \Cat@b@false \Cat@c@false \Cat@d@false \Cat@e@false \Cat@f@false% \Cat@g@false \Cat@h@false \Cat@i@false \Cat@j@false \Cat@k@false \Cat@l@false% \Cat@m@false \Cat@n@false \Cat@o@false% \Total@bf\z@ \Total@lu\z@ \Total@tb\z@ \Total@su\z@ \Total@mm\z@% \Total@all\z@ \Total@tmp\z@% } \def\endCalorie{% \Total@all\Total@bf%sum for a whole day. \advance\Total@all\Total@lu% \advance\Total@all\Total@tb% \advance\Total@all\Total@su% \advance\Total@all\Total@mm% \Hrule\PrintCat\Hrule%print items \hbox to \CalorieWd{\null\hfill\NameTotal\dotfill\Rd\Total@all}\\%print total \hbox to \CalorieWd{\null\hfill\NameLimit\null\hfill\Rd\LimitCalorie}\\% \ifdim\Total@all>\LimitCalorie%warning \Vskip\advance\Total@all-\LimitCalorie% \fbox{\hbox to \CalorieWd% {\bf\NameWarning\hfill{\Large\bf\Rd\Total@all} kcal\hfill\NameOver}}% \fi% } \def\TotalCat#1{%partial sum \csname Total@#1\endcsname\Cat@a% \advance\csname Total@#1\endcsname\Cat@b% \advance\csname Total@#1\endcsname\Cat@c% \advance\csname Total@#1\endcsname\Cat@d% \advance\csname Total@#1\endcsname\Cat@e% \advance\csname Total@#1\endcsname\Cat@f% \advance\csname Total@#1\endcsname\Cat@g% \advance\csname Total@#1\endcsname\Cat@h% \advance\csname Total@#1\endcsname\Cat@i% \advance\csname Total@#1\endcsname\Cat@j% \advance\csname Total@#1\endcsname\Cat@k% \advance\csname Total@#1\endcsname\Cat@l% \advance\csname Total@#1\endcsname\Cat@m% \advance\csname Total@#1\endcsname\Cat@n% \advance\csname Total@#1\endcsname\Cat@o% } \def\Print@Cat#1{%print data \hbox to \CalorieWd{% \hskip.3\CalorieWd\hbox to 5ex{\hss(#1)\hss}% \hbox to 3ex{\hss\csname ifCat@#1@\endcsname$\circ$\else$\times$\fi\hss}% \csname CatName#1\endcsname% \hfill\Rd{\csname Cat@#1\endcsname} }\\ } \def\PrintCat{%print item \NameDetail\\ \Print@Cat{a} \Print@Cat{b} \Print@Cat{c} \Print@Cat{d} \Print@Cat{e} \Print@Cat{f} \Print@Cat{g} \Print@Cat{h} \Print@Cat{i} \Print@Cat{j} \Print@Cat{k} \Print@Cat{l} \Print@Cat{m} \Print@Cat{n} \Print@Cat{o} } %%%%%%%%%%%%%%%%%%%%%%%%%%%%% % I usually have five meals, breakfast, lunch, tea-break snack, % supper, and finally a light snack with drinking liquor or beer % at midnight. % % So I prepared five environments which work inside the Calorie environment. % Breakfast % Lunch % TeaBreak % Supper % NightSnack % \def\Breakfast{\Vskip\Total@tmp\z@\Hrule} \def\endBreakfast{% \global\Total@bf\Total@tmp\Hrule% \hbox to \CalorieWd{\NameBreakfast\dotfill\Rd\Total@bf}% } \def\Lunch{\Vskip\Total@tmp\z@\Hrule} \def\endLunch{% \global\Total@lu\Total@tmp\Hrule% \hbox to \CalorieWd{\NameLunch\dotfill\Rd\Total@lu}% } \def\TeaBreak{\Vskip\Total@tmp\z@\Hrule} \def\endTeaBreak{% \global\Total@tb\Total@tmp\Hrule% \hbox to \CalorieWd{\NameTeaBreak\dotfill\Rd\Total@tb}% } \def\Supper{\Vskip\Total@tmp\z@\Hrule} \def\endSupper{% \global\Total@su\Total@tmp\Hrule% \hbox to \CalorieWd{\NameSupper\dotfill\Rd\Total@su}% } \def\NightSnack{\Vskip\Total@tmp\z@\Hrule} \def\endNightSnack{% \global\Total@mm\Total@tmp\Hrule% \hbox to \CalorieWd{\NameNightSnack\dotfill\Rd\Total@mm}% } %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % \Cal{name of material}{category}{unit calorie}{unit}{amount} % \def\Cal#1#2#3#4#5{\Cal@tmp#3pt% \Cal@tmp#5\Cal@tmp% \def\Tmp@{#1} \global\advance\csname Cat@#2\endcsname\Cal@tmp% \global\csname Cat@#2@true\endcsname% \advance\Total@tmp\Cal@tmp% \hbox to \CalorieWd{% \hbox to 5ex{\hss(#2)\hss} \ifx\Tmp@\@empty% \hfill\else#1, #5\ \ifx#51#4\else#4\PlChar\fi\dotfill\ \fi% \Rd\Cal@tmp}\\} % To define daily material % \cdef{name}{category}{unit calorie}{unit} % is equivalent to % \def\name#1{\Cal{category}{unit calorie}{unit}#1} % \def\cdef#1#2#3#4{% \expandafter\ifx\csname #1\endcsname\relax% \expandafter\def\csname#1\endcsname##1{\Cal{#1}{#2}{#3}{#4}{##1}}% \else% \@latexerr{Command name `#1' already used}\@eha \fi% } %%%%%%%%%%%%%% % \Cons{name of exercise}{unit calorie}{unit}{amount} % calories of additional exercise, % which inflate the calorie limit, \LimitCalorie. % \def\Cons#1#2#3#4{\Cal@tmp#2pt% \Cal@tmp#4\Cal@tmp% \global\advance\LimitCalorie\Cal@tmp% \hbox to \CalorieWd{% \hfill#1, #4\ \ifx#41#3\else#3s\fi\dotfill% $-$\Rd\Cal@tmp}} % To define daily exercise. % Similar to \cdef \def\sdef#1#2#3{% \expandafter\ifx\csname #1\endcsname\relax% \expandafter\def\csname#1\endcsname##1{\Cons{#1}{#2}{#3}{##1}} \else% \@latexerr{Command name `#1' already used}\@eha \fi% } %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Japanese version, which may be more satisfying, will be sent by an email on request. % \def\NameDate{\large\bf Date: } \def\NameTotal{{\bf Total }} \def\NameLimit{{\bf Limit }} \def\NameDetail{{\bf Items }} \def\NameWarning{{Warning}} \def\NameOver{{ Exceeded!!}} \def\PlChar{s}%plural char \def\NameBreakfast{{\bf Breakfast} \hfill total} \def\NameLunch{{\bf Lunch} \hfill total} \def\NameTeaBreak{{\bf Tea Break} \hfill total} \def\NameSupper{{\bf Supper} \hfill total} \def\NameNightSnack{{\bf Night Snack} \hfill total} % Categories of materials % I am unfamiliar with nutrition. % I hope someone teach me suitable terminology. \def\CatNamea{Cereals} \def\CatNameb{Meats} \def\CatNamec{Seafoods} \def\CatNamed{Eggs} \def\CatNamee{Dairy products} \def\CatNamef{Beans} \def\CatNameg{Potatoes} \def\CatNameh{Green vegetables} \def\CatNamei{Other vegetables} \def\CatNamej{Dry goods}%Laver, dried fish etc \def\CatNamek{Fruits} \def\CatNamel{Oils \& seasonings} \def\CatNamem{Confectioneries} \def\CatNamen{Drinks} \def\CatNameo{Miscellaneous} % if calorie.dat file exists, load it in. \openin1 calorie.dat \ifeof1\else\closein1 \relax\@@input calorie.dat\fi \endinput Following are two files, calorie.dat (sample data file) and example.tex (example). To obtain an example, save as in separated files, and compile example.tex calorie.dat --- sample data file for calorie.sty ----------------cut here---------------- %% calorie.dat % Calorie data for daily materials. % % \cdef{Rice}{a}{200}{cup} \cdef{Noodles}{a}{210}{cup} \cdef{Soba}{a}{240}{cup} \cdef{ChinaNoodles}{a}{370}{cup} \cdef{Bread}{a}{160}{slice} \cdef{CalorieMate}{a}{100}{piece}%eutrophic \cdef{VitaminSalad}{a}{23.333}{piece}%eutrophic \cdef{Yogurt}{e}{0.6}{gram} \cdef{Tofu}{f}{240}{chou} \cdef{Egg}{d}{80}{piece}%egg \cdef{Carrot}{i}{0.32}{gram} \cdef{Beer}{n}{0.4}{ml} \cdef{Coffee}{n}{0}{cup} \cdef{Fried}{l}{2}{cm$^3$} %Set \def\Sushi#1{% \Cal{Sushi rice}{a}{40}{piece}{#1} \Cal{Raw fish}{c}{15}{piece}{#1} \Cal{Vinegar}{l}{0}{ml}{#1} } \cdef{Quail}{d}{18}{piece}%egg of quail \cdef{Nattoh}{f}{2}{gram} \cdef{Laver}{j}{0}{sheet} \def\Quixote{% Curry lunch at Quixote \Cal{Curry (Quixote)}{o}{50}{dish}{1} \Cal{}{a}{70}{}{1} \Cal{}{g}{40}{}{1} \Cal{}{i}{20}{}{1} \Cal{}{l}{50}{}{1} \Cal{Rice}{a}{1}{gram}{200} \Cal{Cabbage}{h}{.1}{gram}{30} } % exercise \sdef{Jog}{4}{min} \sdef{Walk}{1.6}{min} \sdef{Tennis}{5.33}{min} \endinput ----------------cut here---------------- example.tex --- example of calorie.sty ----------------cut here---------------- %example.tex \documentstyle[% a4,% calorie% ]{article} \begin{document} \SetCalorie{2200} %Standard for a Japanese male, %170cm height, light job \begin{Calorie}{941221} \Tennis{30} \begin{Breakfast} \VitaminSalad{3} \CalorieMate{4} \Coffee{1} \end{Breakfast} \begin{Lunch} \Quixote%Curry set at Restaurant Quixote \Cal{Scallop}{o}{1.11}{gram}{50} \Fried{20} \Coffee{1} \end{Lunch} \Jog{20} \begin{Supper} \Sushi{20} \Egg{.3} \Quail{1} \Nattoh{10} \Laver{5} \end{Supper} \begin{NightSnack} \Yogurt{60} \Beer{700} \end{NightSnack} \end{Calorie} \end{document} ----------------cut here---------------- example.tex --- example of calorie.sty ----------------cut here---------------- %!PS-Adobe-2.0 %%Creator: dvips 5.54 Copyright 1986, 1994 Radical Eye Software %%Title: CALORIE.DVI %%CreationDate: Thu Dec 22 19:37:36 1994 %%Pages: 2 %%PageOrder: Ascend %%BoundingBox: 0 0 596 842 %%EndComments %DVIPSCommandLine: C:\DRIVERS\DVIPS\DVIPS.EXE CALORIE.DVI %DVIPSParameters: dpi=600, compressed, comments removed %DVIPSSource: TeX output 1994.12.22:1936 %%BeginProcSet: texc.pro /TeXDict 250 dict def TeXDict begin /N{def}def /B{bind def}N /S{exch}N /X{S N}B /TR{translate}N /isls false N /vsize 11 72 mul N /hsize 8.5 72 mul N /landplus90{false}def /@rigin{isls{[0 landplus90{1 -1}{-1 1} ifelse 0 0 0]concat}if 72 Resolution div 72 VResolution div neg scale isls{landplus90{VResolution 72 div vsize mul 0 exch}{Resolution -72 div hsize mul 0}ifelse TR}if Resolution VResolution vsize -72 div 1 add mul TR matrix currentmatrix dup dup 4 get round 4 exch put dup dup 5 get round 5 exch put setmatrix}N /@landscape{/isls true N}B /@manualfeed{ statusdict /manualfeed true put}B /@copies{/#copies X}B /FMat[1 0 0 -1 0 0]N /FBB[0 0 0 0]N /nn 0 N /IE 0 N /ctr 0 N /df-tail{/nn 8 dict N nn begin /FontType 3 N /FontMatrix fntrx N /FontBBox FBB N string /base X array /BitMaps X /BuildChar{CharBuilder}N /Encoding IE N end dup{/foo setfont}2 array copy cvx N load 0 nn put /ctr 0 N[}B /df{/sf 1 N /fntrx FMat N df-tail}B /dfs{div /sf X /fntrx[sf 0 0 sf neg 0 0]N df-tail}B /E{ pop nn dup definefont setfont}B /ch-width{ch-data dup length 5 sub get} B /ch-height{ch-data dup length 4 sub get}B /ch-xoff{128 ch-data dup length 3 sub get sub}B /ch-yoff{ch-data dup length 2 sub get 127 sub}B /ch-dx{ch-data dup length 1 sub get}B /ch-image{ch-data dup type /stringtype ne{ctr get /ctr ctr 1 add N}if}B /id 0 N /rw 0 N /rc 0 N /gp 0 N /cp 0 N /G 0 N /sf 0 N /CharBuilder{save 3 1 roll S dup /base get 2 index get S /BitMaps get S get /ch-data X pop /ctr 0 N ch-dx 0 ch-xoff ch-yoff ch-height sub ch-xoff ch-width add ch-yoff setcachedevice ch-width ch-height true[1 0 0 -1 -.1 ch-xoff sub ch-yoff .1 add]/id ch-image N /rw ch-width 7 add 8 idiv string N /rc 0 N /gp 0 N /cp 0 N{ rc 0 ne{rc 1 sub /rc X rw}{G}ifelse}imagemask restore}B /G{{id gp get /gp gp 1 add N dup 18 mod S 18 idiv pl S get exec}loop}B /adv{cp add /cp X}B /chg{rw cp id gp 4 index getinterval putinterval dup gp add /gp X adv}B /nd{/cp 0 N rw exit}B /lsh{rw cp 2 copy get dup 0 eq{pop 1}{dup 255 eq{pop 254}{dup dup add 255 and S 1 and or}ifelse}ifelse put 1 adv} B /rsh{rw cp 2 copy get dup 0 eq{pop 128}{dup 255 eq{pop 127}{dup 2 idiv S 128 and or}ifelse}ifelse put 1 adv}B /clr{rw cp 2 index string putinterval adv}B /set{rw cp fillstr 0 4 index getinterval putinterval adv}B /fillstr 18 string 0 1 17{2 copy 255 put pop}for N /pl[{adv 1 chg} {adv 1 chg nd}{1 add chg}{1 add chg nd}{adv lsh}{adv lsh nd}{adv rsh}{ adv rsh nd}{1 add adv}{/rc X nd}{1 add set}{1 add clr}{adv 2 chg}{adv 2 chg nd}{pop nd}]dup{bind pop}forall N /D{/cc X dup type /stringtype ne{] }if nn /base get cc ctr put nn /BitMaps get S ctr S sf 1 ne{dup dup length 1 sub dup 2 index S get sf div put}if put /ctr ctr 1 add N}B /I{ cc 1 add D}B /bop{userdict /bop-hook known{bop-hook}if /SI save N @rigin 0 0 moveto /V matrix currentmatrix dup 1 get dup mul exch 0 get dup mul add .99 lt{/QV}{/RV}ifelse load def pop pop}N /eop{SI restore showpage userdict /eop-hook known{eop-hook}if}N /@start{userdict /start-hook known{start-hook}if pop /VResolution X /Resolution X 1000 div /DVImag X /IE 256 array N 0 1 255{IE S 1 string dup 0 3 index put cvn put}for 65781.76 div /vsize X 65781.76 div /hsize X}N /p{show}N /RMat[1 0 0 -1 0 0]N /BDot 260 string N /rulex 0 N /ruley 0 N /v{/ruley X /rulex X V}B /V {}B /RV statusdict begin /product where{pop product dup length 7 ge{0 7 getinterval dup(Display)eq exch 0 4 getinterval(NeXT)eq or}{pop false} ifelse}{false}ifelse end{{gsave TR -.1 -.1 TR 1 1 scale rulex ruley false RMat{BDot}imagemask grestore}}{{gsave TR -.1 -.1 TR rulex ruley scale 1 1 false RMat{BDot}imagemask grestore}}ifelse B /QV{gsave newpath transform round exch round exch itransform moveto rulex 0 rlineto 0 ruley neg rlineto rulex neg 0 rlineto fill grestore}B /a{moveto}B /delta 0 N /tail{dup /delta X 0 rmoveto}B /M{S p delta add tail}B /b{S p tail} B /c{-4 M}B /d{-3 M}B /e{-2 M}B /f{-1 M}B /g{0 M}B /h{1 M}B /i{2 M}B /j{ 3 M}B /k{4 M}B /w{0 rmoveto}B /l{p -4 w}B /m{p -3 w}B /n{p -2 w}B /o{p -1 w}B /q{p 1 w}B /r{p 2 w}B /s{p 3 w}B /t{p 4 w}B /x{0 S rmoveto}B /y{ 3 2 roll p a}B /bos{/SS save N}B /eos{SS restore}B end %%EndProcSet TeXDict begin 39158280 55380996 1000 600 600 (C:\DRIVERS\DVIPS/CALORIE.DVI) @start /Fa 3 55 df46 D<91380FFFC091B512FE0107ECFFC0011F15F04915FC90267FF8077F9026FFC0007F4848 C76C138048486E13C0486C6E13E0486C6C15F08082486D15F8A380A25CA26C5D4A15F06C 5B6C90C7FCC64816E090C85A18C04C138018004C5A4B5B4B5B030F5B037F13C0027FB55A 04FCC7FC16F016FEEEFFC0DA000713F0030113FC6F6CB4FC7013807013C018E07013F018 F818FCA27013FEA3D801E016FFEA0FFC487E487E487FA2B57EA318FEA25E18FC6C5B18F8 91C75A6C4816F0D81FF84A13E06D4A13C06CB449B512806CD9F00714006C90B65AC616F8 013F15E0010F1580010102FCC7FCD9001F13C0384F7ACD45>51 D<923807FF80037F13F0 0203B512FC021F14FF027F158091B5000113C001039039F8003FE04901E0130F490180EB 3FF04990C712FF49485B494815F849485B5A5C5A485BA2486F13F05C486F13E0EF3F8094 C7FC5AA25C5AA2ED3FF80281B57E028314E0B5008714F8028F80DA9FC07F9139BF001FFF 02FC6D13807013C04A6D13E04A15F018F84A7F18FCA24A15FEA44A15FFA37EA67EA46C17 FE80A26C17FCA26C4B13F8806C17F06C6D15E06C5D6E4913C0D97FFE4913806D6C6CB512 006D90B512FC01075D6D5D010015C0021F49C7FC020313E0384F7ACD45>54 D E /Fb 1 52 df<13FF000313E0380F01F8381C007C0030137E003C133E007E133FA412 3CC7123E147E147C5C495AEB07E03801FF8091C7FC380001E06D7E147C80143F801580A2 1238127C12FEA21500485B0078133E00705B6C5B381F01F03807FFC0C690C7FC19277DA5 21>51 D E /Fc 28 121 df33 D66 D69 D73 D76 D78 D83 D<003FB91280A4D9F800EBF003D87FC09238007FC049161F007EC7150FA2007C1707A200 781703A400F818E0481701A4C892C7FCB3AE010FB7FCA43B387DB742>I87 D97 D<903801FFC0010F13FC017F13FFD9FF8013802603FE0013C048485AEA0FF8121F13F012 3F6E13804848EB7F00151C92C7FC12FFA9127FA27F123FED01E06C7E15036C6CEB07C06C 6C14806C6C131FC69038C07E006DB45A010F13F00101138023257DA42A>99 DI<903803FF 80011F13F0017F13FC3901FF83FE3A03FE007F804848133F484814C0001FEC1FE05B003F EC0FF0A2485A16F8150712FFA290B6FCA301E0C8FCA4127FA36C7E1678121F6C6C14F86D 14F000071403D801FFEB0FE06C9038C07FC06DB51200010F13FC010113E025257DA42C> II<161FD9 07FEEBFFC090387FFFE348B6EAEFE02607FE07138F260FF801131F48486C138F003F15CF 4990387FC7C0EEC000007F81A6003F5DA26D13FF001F5D6C6C4890C7FC3907FE07FE48B5 12F86D13E0261E07FEC8FC90CAFCA2123E123F7F6C7E90B512F8EDFF8016E06C15F86C81 6C815A001F81393FC0000F48C8138048157F5A163FA36C157F6C16006D5C6C6C495AD81F F0EB07FCD807FEEB3FF00001B612C06C6C91C7FC010713F02B377DA530>I<13FFB5FCA4 12077EAFED7FC0913803FFF8020F13FE91381F03FFDA3C01138014784A7E4A14C05CA25C A291C7FCB3A3B5D8FC3F13FFA4303A7DB935>II<13FFB5FCA412077E AF92380FFFE0A4923803FC0016F0ED0FE0ED1F804BC7FC157E5DEC03F8EC07E04A5A141F EC7FE04A7E8181A2ECCFFEEC0FFF496C7F806E7F6E7F82157F6F7E6F7E82150F82B5D8F8 3F13F8A42D3A7EB932>107 D<13FFB5FCA412077EB3B3ACB512FCA4163A7DB91B>I<01FE D97FE0EB0FFC00FF902601FFFC90383FFF80020701FF90B512E0DA1F81903983F03FF0DA 3C00903887801F000749DACF007F00034914DE6D48D97FFC6D7E4A5CA24A5CA291C75BB3 A3B5D8FC1FB50083B512F0A44C257DA451>I<01FEEB7FC000FF903803FFF8020F13FE91 381F03FFDA3C011380000713780003497E6D4814C05CA25CA291C7FCB3A3B5D8FC3F13FF A430257DA435>I<903801FFC0010F13F8017F13FFD9FF807F3A03FE003FE048486D7E48 486D7E48486D7EA2003F81491303007F81A300FF1680A9007F1600A3003F5D6D1307001F 5DA26C6C495A6C6C495A6C6C495A6C6C6CB45A6C6CB5C7FC011F13FC010113C029257DA4 30>I<9039FF01FF80B5000F13F0023F13FC9138FE07FFDAF00113800003496C13C00280 EB7FE091C713F0EE3FF8A2EE1FFCA3EE0FFEAA17FC161FA217F8163F17F06E137F6E14E0 6EEBFFC0DAF00313809139FC07FE0091383FFFF8020F13E0020390C7FC91C9FCACB512FC A42F357EA435>I<9038FE03F000FFEB0FFEEC3FFF91387C7F809138F8FFC000075B6C6C 5A5CA29138807F80ED3F00150C92C7FC91C8FCB3A2B512FEA422257EA427>114 D<90383FF0383903FFFEF8000F13FF381FC00F383F0003007E1301007C130012FC15787E 7E6D130013FCEBFFE06C13FCECFF806C14C06C14F06C14F81203C614FC131F9038007FFE 140700F0130114007E157E7E157C6C14FC6C14F8EB80019038F007F090B512C000F81400 38E01FF81F257DA426>I<130FA55BA45BA25B5BA25A1207001FEBFFE0B6FCA3000390C7 FCB21578A815F86CEB80F014816CEBC3E090383FFFC06D1380903803FE001D357EB425> I<01FFEC3FC0B5EB3FFFA4000714016C80B3A35DA25DA26C5C6E4813E06CD9C03E13FF90 387FFFFC011F13F00103138030257DA435>I120 D E /Fd 3 15 df<007FB81280B912C0A26C17803204799641>0 D<0060150600F8150F6C151F007E153F6C157E6C6C14FC6C6CEB01F86C6CEB03F06C6CEB 07E06C6CEB0FC06C6CEB1F80017EEB3F006D137E6D6C5A90380FC1F8903807E3F0903803 F7E06DB45A6D5B6EC7FCA24A7E497F903803F7E0903807E3F090380FC1F890381F80FC90 383F007E017E7F49EB1F804848EB0FC04848EB07E04848EB03F04848EB01F84848EB00FC 48C8127E007E153F48151F48150F00601506282874A841>2 D14 D E /Fe 1 59 df<121C127FEAFF80A5EA7F00121C0909798817>58 D E /Ff 59 122 df11 DI<141FEC7FC0903801F0E0903803C0600107137090380F80309038 1F00381518A25BA2133E133F15381530A215705D5D140190381F838092CAFC1487148E02 DC49B51280EB0FF85C4A9039003FF8000107ED0FC06E5D71C7FC6E140E010F150CD91DFC 141C01391518D970FE143801E015302601C07F1470D803805D00076D6C5BD80F00EBC001 48011F5C4890380FE003003E6E48C8FC007E903807F8060203130E00FE6E5A6E6C5A1400 ED7F706C4B13036F5A6F7E6C6C6D6C5B7013066C6C496C130E6DD979FE5B281FF001F07F 133C3C07F80FE03FC0F86CB539800FFFF0C69026FE000313C0D91FF0D9007FC7FC393E7D BB41>38 D<146014E0EB01C0EB0380EB0700130E131E5B5BA25B485AA2485AA212075B12 0F90C7FCA25A121EA2123EA35AA65AB2127CA67EA3121EA2121F7EA27F12077F1203A26C 7EA26C7E1378A27F7F130E7FEB0380EB01C0EB00E01460135278BD20>40 D<12C07E12707E7E7E120F6C7E6C7EA26C7E6C7EA21378A2137C133C133E131EA2131F7F A21480A3EB07C0A6EB03E0B2EB07C0A6EB0F80A31400A25B131EA2133E133C137C1378A2 5BA2485A485AA2485A48C7FC120E5A5A5A5A5A13527CBD20>I<121C127FEAFF80A213C0 A3127F121C1200A412011380A2120313005A1206120E5A5A5A12600A19798817>44 D<121C127FEAFF80A5EA7F00121C0909798817>46 D48 DIII<1538A2157815F8A2140114031407A2140F141F14 1B14331473146314C313011483EB030313071306130C131C131813301370136013C01201 EA038013005A120E120C5A123812305A12E0B712F8A3C73803F800AB4A7E0103B512F8A3 25397EB82A>I<0006140CD80780133C9038F003F890B5FC5D5D158092C7FC14FC38067F E090C9FCABEB07F8EB3FFE9038780F803907E007E090388003F0496C7E12066E7EC87EA2 8181A21680A4123E127F487EA490C71300485C12E000605C12700030495A00385C6C1303 001E495A6C6C485A3907E03F800001B5C7FC38007FFCEB1FE0213A7CB72A>II<12301238123E003FB612E0A316C05A168016000070C7120600 60140E5D151800E01438485C5D5DC712014A5A92C7FC5C140E140C141C5CA25CA214F049 5AA21303A25C1307A2130FA3495AA3133FA5137FA96DC8FC131E233B7BB82A>III66 D<913A01FF800180020FEBE003027F13F8903A01FF807E07903A03FC000F0FD90FF0EB03 9F4948EB01DFD93F80EB00FF49C8127F01FE153F12014848151F4848150FA248481507A2 485A1703123F5B007F1601A35B00FF93C7FCAD127F6DED0180A3123F7F001F160318006C 7E5F6C7E17066C6C150E6C6C5D00001618017F15386D6C5CD91FE05C6D6CEB03C0D903FC EB0F80902701FF803FC7FC9039007FFFFC020F13F002011380313D7BBA3C>IIII< DBFF8013C0020FEBF001023F13FC9139FF803F03903A03FC000787D90FF0EB03CF4948EB 00EF4948147F4948143F49C8121F485A4848150F48481507A248481503A2485A1701123F 5B007F1600A448481600AB93B6FCA26C7E9338007FE0EF3FC0A2123F7F121FA26C7EA26C 7EA26C7E6C7E6C6C157F6D7E6D6C14FF6D6C14EFD90FF8EB03C7D903FEEB0783903A00FF C03F0191393FFFFC00020F01F0130002001380383D7CBA41>I<013FB512E0A39039001F FC00EC07F8B3B3A3123FEA7F80EAFFC0A44A5A1380D87F005B0070131F6C5C6C495A6C49 C7FC380781FC3801FFF038007F80233B7DB82B>74 D76 DIIIIIII<003FB812E0A3D9C003EB001F273E0001FE 130348EE01F00078160000701770A300601730A400E01738481718A4C71600B3B0913807 FF80011FB612E0A335397DB83C>I86 D89 D97 DIIII<147E903803FF8090380FC1E0EB1F 8790383F0FF0137EA213FCA23901F803C091C7FCADB512FCA3D801F8C7FCB3AB487E387F FFF8A31C3B7FBA19>IIIIIII<2703F00FF0EB1FE000FFD93FFCEB7FF8913AF03F 01E07E903BF1C01F83803F3D0FF3800FC7001F802603F70013CE01FE14DC49D907F8EB0F C0A2495CA3495CB3A3486C496CEB1FE0B500C1B50083B5FCA340257EA445>I<3903F00F F000FFEB3FFCECF03F9039F1C01F803A0FF3800FC03803F70013FE496D7EA25BA35BB3A3 486C497EB500C1B51280A329257EA42E>II<3903F01FE000FFEB7FF8 9038F1E07E9039F3801F803A07F7000FC0D803FEEB07E049EB03F04914F849130116FC15 0016FEA3167FAA16FEA3ED01FCA26DEB03F816F06D13076DEB0FE001F614C09039F7803F 009038F1E07E9038F0FFF8EC1FC091C8FCAB487EB512C0A328357EA42E>I<3807E01F00 FFEB7FC09038E1E3E09038E387F0380FE707EA03E613EE9038EC03E09038FC0080491300 A45BB3A2487EB512F0A31C257EA421>114 DI<1318A51338A31378A313F8120112031207001FB5FC B6FCA2D801F8C7FCB215C0A93800FC011580EB7C03017E13006D5AEB0FFEEB01F81A347F B220>II< B538803FFEA33A0FF8000FF06C48EB07E00003EC03C06D148000011500A26C6C1306A26D 130E017E130CA26D5BA2EC8038011F1330A26D6C5AA214E001075BA2903803F180A3D901 FBC7FCA214FF6D5AA2147CA31438A227257EA32C>IIII E /Fg 14 117 df44 D46 D49 DI<163FA25E5E5D5DA25D5D5D5DA25D92B5FCEC01F7EC03E7140715C7EC0F87EC1F0714 3E147E147C14F8EB01F0EB03E0130714C0EB0F80EB1F00133E5BA25B485A485A485A120F 5B48C7FC123E5A12FCB91280A5C8000F90C7FCAC027FB61280A531417DC038>52 D57 DI68 D87 D<903801FFE0011F13FE017F 6D7E48B612E03A03FE007FF84848EB1FFC6D6D7E486C6D7EA26F7FA36F7F6C5A6C5AEA00 F090C7FCA40203B5FC91B6FC1307013F13F19038FFFC01000313E0000F1380381FFE0048 5A5B127F5B12FF5BA35DA26D5B6C6C5B4B13F0D83FFE013EEBFFC03A1FFF80FC7F0007EB FFF86CECE01FC66CEB8007D90FFCC9FC322F7DAD36>97 D99 DII116 D E end %%EndProlog %%BeginSetup %%Feature: *Resolution 600dpi TeXDict begin %%PaperSize: a4 %%EndSetup %%Page: 1 1 1 0 bop 330 390 a Fg(Date:)50 b(W)-9 b(ed.,)38 b(Dec.)49 b(21,)38 b(1994)1413 b Ff(k)n(cal)1347 526 y(T)-7 b(ennis,)27 b(30)g(mins)17 b Fe(:)d(:)g(:)g(:)g(:)g(:)g(:)g(:)f(:)h(:)g(:)g(:)g(:)g (:)g(:)g(:)g(:)g(:)f(:)h(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)j Fd(\000)p Ff(159.9)p 330 643 2865 3 v 366 761 a(\(a\))64 b(VitaminSalad,)28 b(3)f(pieces)19 b Fe(:)14 b(:)f(:)h(:)g(:)g(:)g(:)g (:)g(:)g(:)g(:)g(:)f(:)h(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)f(:)h(:)g(:) g(:)g(:)g(:)g(:)g(:)g(:)g(:)f(:)h(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)f(:)h (:)g(:)47 b Ff(70.0)366 860 y(\(a\))64 b(CalorieMate,)26 b(4)i(pieces)23 b Fe(:)14 b(:)f(:)h(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)f (:)h(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)f(:)h(:)g(:)g(:)g(:)g(:)g(:)g(:) g(:)g(:)f(:)h(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)f(:)h(:)g(:)51 b Ff(400.0)364 960 y(\(n\))62 b(Co\013ee,)28 b(1)f(cup)15 b Fe(:)f(:)f(:)h(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)f(:)h(:)g(:)g(:)g(:) g(:)g(:)g(:)g(:)g(:)f(:)h(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)f(:)h(:)g (:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)f(:)h(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)f(:) h(:)g(:)g(:)42 b Ff(0.0)p 330 1042 V 330 1159 a Fc(Breakfast)1065 b Ff(total)8 b Fe(:)14 b(:)g(:)f(:)h(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:) f(:)h(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)f(:)h(:)g(:)g(:)g(:)g(:)8 b Ff(470.0)p 330 1277 V 366 1394 a(\(o\))64 b(Curry)27 b(\(Quixote\),)h(1)f(dish)20 b Fe(:)14 b(:)f(:)h(:)g(:)g(:)g(:)g(:)g(:) g(:)g(:)g(:)f(:)h(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)f(:)h(:)g(:)g(:)g (:)g(:)g(:)g(:)g(:)f(:)h(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)f(:)h(:)48 b Ff(50.0)366 1494 y(\(a\))2568 b(70.0)366 1593 y(\(g\))g(40.0)376 1693 y(\(i\))2577 b(20.0)376 1793 y(\(l\))g(50.0)366 1892 y(\(a\))64 b(Rice,)28 b(200)e(grams)12 b Fe(:)h(:)h(:)g(:)g(:)g(:) g(:)g(:)f(:)h(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)f(:)h(:)g(:)g(:)g(:)g(:)g (:)g(:)g(:)g(:)f(:)h(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)f(:)h(:)g(:)g(:) g(:)g(:)g(:)g(:)g(:)g(:)f(:)h(:)g(:)40 b Ff(200.0)364 1992 y(\(h\))62 b(Cabbage,)27 b(30)f(grams)15 b Fe(:)e(:)h(:)g(:)g(:)g (:)g(:)g(:)f(:)h(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)f(:)h(:)g(:)g(:)g(:) g(:)g(:)g(:)g(:)g(:)f(:)h(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)f(:)h(:)g(:)g (:)g(:)g(:)g(:)g(:)g(:)g(:)f(:)h(:)43 b Ff(3.0)366 2091 y(\(o\))64 b(Scallop,)27 b(50)g(grams)21 b Fe(:)14 b(:)g(:)g(:)f(:)h(:) g(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)f(:)h(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)f (:)h(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)f(:)h(:)g(:)g(:)g(:)g(:)g(:)g(:) g(:)g(:)f(:)h(:)g(:)g(:)g(:)g(:)50 b Ff(55.5)376 2191 y(\(l\))73 b(F)-7 b(ried,)28 b(20)f(cm)990 2161 y Fb(3)1027 2191 y Ff(s)d Fe(:)13 b(:)h(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)f(:)h(:)g (:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)f(:)h(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:) f(:)h(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)f(:)h(:)g(:)g(:)g(:)g(:)g(:)g (:)g(:)f(:)h(:)52 b Ff(40.0)364 2291 y(\(n\))62 b(Co\013ee,)28 b(1)f(cup)15 b Fe(:)f(:)f(:)h(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)f(:)h (:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)f(:)h(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:) g(:)f(:)h(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)f(:)h(:)g(:)g(:)g(:)g(:)g (:)g(:)g(:)f(:)h(:)g(:)g(:)42 b Ff(0.0)p 330 2372 V 330 2490 a Fc(Lunc)m(h)1136 b Ff(total)25 b Fe(:)14 b(:)g(:)g(:)f(:)h(:)g (:)g(:)g(:)g(:)g(:)g(:)g(:)f(:)h(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)f(:) h(:)g(:)g(:)g(:)g(:)25 b Ff(528.5)1423 2590 y(Jog,)i(20)g(mins)19 b Fe(:)13 b(:)h(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)f(:)h(:)g(:)g(:)g(:)g(:)g (:)g(:)g(:)f(:)h(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)k Fd(\000)p Ff(80.0)p 330 2707 V 366 2825 a(\(a\))64 b(Sushi)28 b(rice,)f(20)g(pieces)13 b Fe(:)g(:)h(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)f (:)h(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)f(:)h(:)g(:)g(:)g(:)g(:)g(:)g(:) g(:)g(:)f(:)h(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)f(:)h(:)g(:)g(:)g(:)g (:)40 b Ff(800.0)369 2924 y(\(c\))66 b(Ra)n(w)27 b(\014sh,)h(20)f (pieces)13 b Fe(:)h(:)g(:)g(:)f(:)h(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)f (:)h(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)f(:)h(:)g(:)g(:)g(:)g(:)g(:)g(:) g(:)g(:)f(:)h(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)f(:)h(:)g(:)41 b Ff(300.0)376 3024 y(\(l\))73 b(Vinegar,)27 b(20)g(mls)21 b Fe(:)14 b(:)g(:)f(:)h(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)f(:)h(:)g(:)g (:)g(:)g(:)g(:)g(:)g(:)g(:)f(:)h(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)f(:) h(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)f(:)h(:)g(:)g(:)g(:)g(:)g(:)g(:)g (:)48 b Ff(0.0)364 3123 y(\(d\))62 b(Egg,)27 b(.3)g(pieces)19 b Fe(:)14 b(:)g(:)g(:)g(:)f(:)h(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)f(:)h (:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)f(:)h(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:) g(:)f(:)h(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)f(:)h(:)g(:)g(:)g(:)g(:)g (:)g(:)47 b Ff(24.0)364 3223 y(\(d\))62 b(Quail,)27 b(1)h(piece)18 b Fe(:)13 b(:)h(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)f(:)h(:)g(:)g(:)g(:)g(:)g (:)g(:)g(:)g(:)f(:)h(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)f(:)h(:)g(:)g(:) g(:)g(:)g(:)g(:)g(:)g(:)f(:)h(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)f(:)h (:)g(:)46 b Ff(18.0)371 3323 y(\(f)6 b(\))70 b(Nattoh,)28 b(10)f(grams)22 b Fe(:)14 b(:)f(:)h(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)f (:)h(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)f(:)h(:)g(:)g(:)g(:)g(:)g(:)g(:) g(:)g(:)f(:)h(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)f(:)h(:)g(:)g(:)g(:)g (:)g(:)51 b Ff(20.0)374 3422 y(\(j\))73 b(La)n(v)n(er,)26 b(5)h(sheets)18 b Fe(:)c(:)g(:)g(:)g(:)g(:)f(:)h(:)g(:)g(:)g(:)g(:)g(:) g(:)g(:)f(:)h(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)f(:)h(:)g(:)g(:)g(:)g (:)g(:)g(:)g(:)g(:)f(:)h(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)f(:)h(:)g(:) g(:)g(:)g(:)g(:)g(:)45 b Ff(0.0)p 330 3504 V 330 3622 a Fc(Supp)s(er)1093 b Ff(total)23 b Fe(:)13 b(:)h(:)g(:)g(:)g(:)g(:)g (:)g(:)g(:)g(:)f(:)h(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)f(:)h(:)g(:)g(:)g(:) g(:)g(:)g(:)23 b Ff(1162.0)p 330 3739 V 369 3857 a(\(e\))66 b(Y)-7 b(ogurt,)27 b(60)g(grams)8 b Fe(:)13 b(:)h(:)g(:)f(:)h(:)g(:)g (:)g(:)g(:)g(:)g(:)g(:)g(:)f(:)h(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)f(:) h(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)f(:)h(:)g(:)g(:)g(:)g(:)g(:)g(:)g (:)g(:)f(:)h(:)g(:)g(:)g(:)g(:)36 b Ff(36.0)364 3956 y(\(n\))62 b(Beer,)27 b(700)f(mls)18 b Fe(:)d(:)e(:)h(:)g(:)g(:)g(:)g (:)g(:)g(:)g(:)g(:)f(:)h(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)f(:)h(:)g(:) g(:)g(:)g(:)g(:)g(:)g(:)g(:)f(:)h(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)f(:)h (:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)f(:)46 b Ff(280.0)p 330 4038 V 330 4155 a Fc(Nigh)m(t)31 b(Snac)m(k)1009 b Ff(total)17 b Fe(:)d(:)g(:)g(:)f(:)h(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)g (:)f(:)h(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)f(:)h(:)g(:)j Ff(316.0)p 330 4237 V 330 4355 a Fc(Items)1226 4454 y Ff(\(a\))69 b Fd(\016)32 b Ff(Cereals)1189 b(1540.0)1223 4554 y(\(b\))56 b Fd(\002)21 b Ff(Meats)1359 b(0.0)1228 4654 y(\(c\))72 b Fd(\016)32 b Ff(Seafo)r(o)r(ds)1179 b(300.0)1223 4753 y(\(d\))68 b Fd(\016)32 b Ff(Eggs)1363 b(42.0)1228 4853 y(\(e\))72 b Fd(\016)32 b Ff(Dairy)27 b(pro)r(ducts)988 b(36.0)1230 4952 y(\(f)6 b(\))76 b Fd(\016)32 b Ff(Beans)1320 b(20.0)1226 5052 y(\(g\))69 b Fd(\016)32 b Ff(P)n(otato)r(es)1220 b(40.0)1223 5152 y(\(h\))68 b Fd(\016)32 b Ff(Green)c(v)n(egetables)962 b(3.0)1235 5251 y(\(i\))79 b Fd(\016)32 b Ff(Other)27 b(v)n(egetables)926 b(20.0)1234 5351 y(\(j\))78 b Fd(\016)32 b Ff(Dry)c(go)r(o)r(ds)1202 b(0.0)1224 5451 y(\(k\))57 b Fd(\002)21 b Ff(F)-7 b(ruits)1365 b(0.0)1235 5550 y(\(l\))79 b Fd(\016)32 b Ff(Oils)27 b(&)h(seasonings)896 b(90.0)1212 5650 y(\(m\))44 b Fd(\002)21 b Ff(Confectioneries)1026 b(0.0)1809 5919 y(1)p eop %%Page: 2 2 2 1 bop 1223 390 a Ff(\(n\))68 b Fd(\016)32 b Ff(Drinks)1254 b(280.0)1226 490 y(\(o\))69 b Fd(\016)32 b Ff(Miscellaneous)998 b(105.5)p 330 572 2865 3 v 1519 689 a Fc(T)-8 b(otal)44 b Fe(:)14 b(:)f(:)h(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)f(:)h(:)g(:)g(:)g (:)g(:)g(:)g(:)g(:)g(:)f(:)h(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)g(:)d Ff(2476.5)1514 789 y Fc(Limit)1214 b Ff(2439.9)p 330 936 2921 4 v 330 1079 4 144 v 358 1038 a Fc(W)-8 b(arning)793 b Fa(36.6)31 b Fc(k)m(cal)825 b(Exceeded!!)p 3247 1079 V 330 1082 2921 4 v 1809 5919 a Ff(2)p eop %%Trailer end userdict /end-hook known{end-hook}if %%EOF