;;;;;2;5@@@ 0@ 0@ 0@ 0@00000000/ :q 72H    d G\0))G\A  G\C((G\DG\E%%G\H,,G\IG\PG\RG\S$$G\TG_ADD!!G_CLEAR))G_GO_CALC_PAGEG_GO_DATABASEG_HELP--G_IMP_LOOPG_IMP_NAMEG_IMP_SHEETG_INITG_PURGEG_P_LOOPG_SCRATCH1//G_SCRATCH2..G_SHEETHG_SORT%%G_TAKEG_TTLROW--2 B0E EE# gi( f$%&'( ( LB)'*-qq'"ZONE BUDDY"'Version 1.1a'Command Summary'Copyright 1996\-\-\-'Len Marinaccio 'ALT-A$'Adds an entry to the database 'ALT-C$'Clears the calculation screen 'ALT-D'Goes to the database 'ALT-E?'Erases current entry from calculation screen or database 'ALT-H'Help! (this screen)  'ALT-IA 'Imports & merges data from another "ZONE BUDDY" worksheet.  'ALT-R$ 'Returns to calculation screen  'ALT-S 'Sorts the database  'ALT-T9 'Takes current database entry to calculation screen9'To save this application, type: / F S {filename} /'where {filename} is 8 characters or less'To quit, type: / Q Y*'(Be SURE you have saved your file!) '\r '{esc} '\t '{esc} '\i '{esc}'_go_calc_page-'{Esc}{Esc}/wtc{goto}a51~{goto}j56~/wth '_takeH'{esc}{esc}{let _scratch1,@cellpointer("row")}/wgpd{_go_calc_page}'_imp_sheet='{esc}{esc}{Getlabel "Name of import file: ",_imp_name}'{End}{Down}N'{d 2}{end}{u}/wir~{let _scratch2,@cellpointer("row")-1}{l 7}/ca49.m49~~('{if _imp_name=""}{beep 1}{return}'{r 2}{l 4}{D 2}{u 4};'{put _sheet,0,_scratch2,@index(_sheet,16,_scratch1)}2'/wgpd{GoTo}p8192~{end}{u}{d}/fccnp55.y4000~;'{put _sheet,1,_scratch2,@index(_sheet,17,_scratch1)}'_imp_name'zonediet '\d '{esc};'{put _sheet,2,_scratch2,@index(_sheet,22,_scratch1)} '~/wdr'_go_database*'{Esc}{Esc}/wtc{goto}p58~{r}{end}{d};'{put _sheet,3,_scratch2,@index(_sheet,23,_scratch1)}'_imp_loop9'{d}{if @cellpointer("type")="b"}{branch _imp_loop}'{d 19}{u 13}{l}/wth;'{put _sheet,4,_scratch2,@index(_sheet,24,_scratch1)}!'{d}~{_sort}{_init}{_purge};'{put _sheet,5,_scratch2,@index(_sheet,21,_scratch1)} '{esc};'{put _sheet,6,_scratch2,@index(_sheet,15,_scratch1)}'_purge$'{esc}{esc}{_go_database}/wgpd '_init '{Esc}{Esc}/wtc/wgpd{home}('{r 7}{let _ttlrow,_ttlrow+1}/wgpe'_p_loop='{d}{if @cellpointer("type")="b"}{_go_database}{return}'/rnc_sheet~a1.y6000~,'{let _scratch1,@cellpointer("row")-1} '{home}{PgDn}  '\a  '{esc}V '{if @index(_sheet,15,_scratch1)<>@index(_sheet,15,_scratch1-1)}{branch _p_loop}.!'/rnl~{PgDn}{D 7}~{r 7}/rnl~{pgdn}{d 7}~ !'_add!'{esc}{esc}{_go_database}V!'{if @index(_sheet,16,_scratch1)<>@index(_sheet,16,_scratch1-1)}{branch _p_loop}("'/rnl~r21.r49~/wgpe{_go_calc_page}!"'/wgpd/wir~/cp49.y49~~/wgpeV"'{if @index(_sheet,17,_scratch1)<>@index(_sheet,17,_scratch1-1)}{branch _p_loop}V#'{if @index(_sheet,18,_scratch1)<>@index(_sheet,18,_scratch1-1)}{branch _p_loop} $'\s $'{esc}V$'{if @index(_sheet,19,_scratch1)<>@index(_sheet,19,_scratch1-1)}{branch _p_loop} %'\e %'{esc} %'_sort%'{esc}{esc}{_go_database}V%'{if @index(_sheet,20,_scratch1)<>@index(_sheet,20,_scratch1-1)}{branch _p_loop}.&'{if @cellpointer("col")>13}{branch b42}&&'/dsrd.{R 9}{end}{down}~{r}~~a~gV&'{if @index(_sheet,21,_scratch1)<>@index(_sheet,21,_scratch1-1)}{branch _p_loop}:''{if @cellpointer("row")>_ttlrow+55}{beep 1}{return}''/wdr~{u}{branch _p_loop}5('/wgpd/wdr~/wgpe{let _ttlrow,_ttlrow-1}{return} ('\c ('{esc}0)'{if @cellpointer("col")<16}{beep 1}{quit})'_clearA)'{esc}{esc}{home}{if @cellpointer("col")>1}{beep 1}{return} )'\0)'{_help}0*'{if @cellpointer("col")>25}{beep 1}{quit}\*'{if @cellpointer("contents")<>"-"}/wgpd{r 2}/wdr{end}{d}{u}~{l 2}{let _ttlrow,0}/wgpe8+'{if @cellpointer("row")<66+_ttlrow}{beep 1}{quit},'/wgpd/wdr~/wgpe{return} ,'\h ,'{esc}-'_ttlrow- -'_help7-'/wtc{home}{getlabel "Press RETURN...",_scratch1}.'_scratch2.:.'{_go_calc_page}/'_scratch1/' 0 0 0 00! 0  ! 0  ! 0  ! 0   0 0 0 0 0 0 00  0  0  2'Zone Diet Calculation4'----Blocks--- 4' ----Blocks---5'Serving 5'Pro 5'Car 5'Fat 5'Cal 5^Food5' Amount 5"Pro 5"Car 5"Fat 5"Cal6\-6\-6\-6\-6\-6\-6\-6\-6\- 6\- 6\- 6\- 6\-7 7'cup7$I$I?7UUUUUU?7?7x7'Milk, 2%773 7cup! 7$I$I@  ! 7UUUUUU@  ! 7 @  ! 7n@  8 8'pkg8I$I$@8UUUUUU@8UUUUUU?88'Met-RX drink mix88 3 8pkg! 8I$I$@  ! 8UUUUUU@  ! 8UUUUUU?  ! 8`p@  9 9'pkg9$I$I?998@9?99'Cocoa, Swiss Miss993 9pkg! 9$I$I?  ! 998@  ! 9?  ! 9a@  :? :'cup::UUUUUU?:@::'Pistachios:?:3 :cup! :?  ! :UUUUUU?  ! :@  ! :f@  ;\-;\-;\-;\-;\-;\-;\-;\-;\- ;\- ;\- ;\- ;\- <"Total <n۶m۶!@ P <88"@ P <#@ P <@ P >"Ratio > >ru?   >)RJ)?  ?'Zone Diet DataBase@"Servings per batch:@ @"Each @n۶m۶!@   @88"@   @#@   @@  B'-----Grams----B' ----Blocks---- C^FoodC' Serving C"Pro C"Car C"Fat C"Cal C"Pro C"Car C"FatD\-D\-D\-D\-D\-D\-D\-D\-D\-D\-E'Alfredo Sauce w/mushE? E'cupEEEEPE$I$I?  EUUUUUU?  E@  F'Bagel, cinn raisinFF' FF,FFF$I$I?  F88@  F?  G'Boboli, largeG? G'shellGGGGG?  G88@  G?  H'Boboli, smallH? H'shellHHHHH?  H88@  H?  I'Boboli sauceI I'pouchIIIII$I$I?  Iqq?  I  J'Bread, whole wheatJ J'sliceJJJJFJ$I$I?  J98?  JUUUUUU?  K'BroccoliKK'spearsKKKKK$I$I?  Kqq?  K  L'CashewsL L'ozL L LLhL۶m۶m?  LUUUUUU?  LUUUUUU#@  M'Cheese, cheddarM M'cu inMMM MnM?  M  M@  N'Cheese, mozzarellaN N'ozNNNNPN$I$I?  Nqq?  N@  O'Cheese, ParmesanO O'tspOOO?OO$I$I?  O  O?  P'Cheese, stringP P'stickPPPPPP$I$I?  Pqq?  P?  Q'Cocoa, Swiss MissQ Q'pkgQQQ@QQ$I$I?  Q98@  Q?  R'Corn, creamR? R'cupRRRRdR$I$I?  R@  RUUUUUU?  S'Cottage Cheese, 4%S? S'cupSSSSxSn۶m۶?  Srq?  S?  T'Cottage Cheese, low fatT? T'cupTTTTZTn۶m۶?  Trq?  TUUUUUU?  U'Cream cheeseU U'tbspUUU UdU$I$I?  Uqq?  U @   V'EggVVVVVPV?  Vqq?  V?   W'HoneyW W'tbspWWWW<W  W88?  W   X'MayoX X'tbspXXX XdX  X  XUUUUUU@  Y'Met-RX drink mixY Y'pkgY%YYYYI$I$@  YUUUUUU@  YUUUUUU?  Z'Milk, 2%Z Z'cupZZ ZZxZ$I$I?  ZUUUUUU?  Z?  ['Milk, Acidophilus[ ['cup[[ [@[d[$I$I?  [UUUUUU?  [?  \'Milk, Chocolate\ \'cup\\\ \\?  \88 @  \@  ]'Muffin, banana nut]]'muffin]]] ]7]I$I$ @  ]98@  ]@  ^'Muffin, banana nut (mix)^^'muffin^^^^^$I$I?  ^88@  ^@  _'Mushrooms_? _'cup_____$I$I?  _UUUUUU?  _  `'Oatmeal` `'pkg`` ```m۶m?  `qq @  `UUUUUU?  a'Olive Oila a'tbspaaaaxa  a  a@  b'Olivesb? b'ozbbbbb  bqq?  bUUUUUU?  c'Peanut Butterc c'tbspccccc$I$I?  cUUUUUU?  cUUUUUU@  d'Peanutbutterd d'tbspddddd$I$I?  d98?  dUUUUUU@  e'Pear, cannede? e'cupeeee<e  e?  e  f'Pecansff'halvesfffff$I$I?  fUUUUUU?  f@  g'Pistachiosg? g'cupggggg?  gUUUUUU?  g@  h'Potatohhhhhxh۶m۶m?  h@  h  i'Preserves, (any berry)i i'tbspiiii2i  iqq?  i  j'Preserves, (low sugar)j j'tbspjjjjj  jUUUUUU?  j  k'Protein Powderk k'tbspkkkkdk%I$I @  kqq?  k  l'Pudding (chocolate)ll' lllll$I$I?  lUUUUUU@  l@  m'Ravioli, 4 cheesem m'cupmmm mmn۶m۶?  m88 @  m@  n'Refried beans, vegn n'oznnnndn?  n@  nUUUUUU?  o'Rice, Whiteo o'cup *oo%ooo۶m۶m?  oqq@  o  p'Rotinip? p'cuppp*ppp?  p@  pUUUUUU?  q'Saltinesqqq q?q<q$I$I?  qrq?  q?  r'Soup, CA vegr? r'cuprr rr<r۶m۶m?  rrq?  rUUUUUU?  s'Soup, chicken noodles? s'cupssss<s۶m۶m?  sqq?  sUUUUUU?  t'Soup, Minestronet? t'cupttttdtm۶m?  tqq?  tUUUUUU?  u'Soup, ramenu? u'pkguuuuum۶m?  uqq@  uUUUUUU@  v'Soup, veg with pastav? v'cupvvvvZv$I$I?  v@  vUUUUUU?  w'Soybean Oil (Wesson)w w'tbspwwwwxw  w  w@  x'Spaghettix x'ozx x(xxx%I$I?  xrq@  xUUUUUU?  y'Spinachy? y'cupyyyy-y$I$I?  y98?  yUUUUUU?  z'Sugar, Whitez z'tspzzzzz  zqq?  z   {'Tofu{ {'oz{{{@{2{۶m۶m?  {qq?  {?  |'Tortellini, 3 cheese|? |'cup| |)|||I$I$?  |88@  |@  }'Tortelloni, Mushroom} }'cup} }1}}6}I$I$?  }rq@  }UUUUUU@  ~'Tortillas, corn~ ~~~~~K~$I$I?  ~?  ~UUUUUU?   'Tuna? 'cup?<n۶m۶?    UUUUUU?  'Veggies, br,cr,ca (frzn)Q? 'cup$I$I?  rq?    'Vegies, mixed (frozen)? 'cup ?<$I$I?  88?  UUUUUU?  'Walnuts? 'cupm۶m?  UUUUUU?  @  'Yogurt, Yoplait 'oz!?$I$I?  UUUUUU@  ?