rH?ir6D:\8=1":y=ç:gb menu principal ç:ç:ڰ"4":"4":CLS 5z$="menu principal":xy="10":xs="2":ys="3":ga QX="6":I="2":ra:M=̰"8":z$:gc:x-i,"2";ç;ۼ;޼;" ":ç:ç:ç:M Tink=ç:menu="970":return="930":UL="8":gf:BORDE="4":gd:I$*"1000":menu cls:retern  OPCION 1   PRINT MENU /INK="6":"23658",ç:cls:ç:"1":ڰ"1": !rb:x=:i="2":y=ç:p="10"  z$:ۼ:ٰ"6":gc:ç:ٰ"5" Sh$(10 ,29):m=̰"10":h$(m):z$=h$(m):gc:x-i,ç;ٰ"6";ç:ç::m $ul="9":return="970":gf B5rg:r$=i$:l$(9 ,3):n=̰"9":l$(n):n Dstar=l$(r$) `presentacion jrr=r$:"3":ڰ"3":cls s8 relaciona b$ ->c-p-k-l z$ Sٰ"6"::,ç;ݼ;" COMPOSICION NUTRICIONAL ":ç;'"4";h$(rr,3) ,"21","6";ٰ"6";"opc. ";r$;"20";"pag." 7#;,ç;ٰ"6";"R=RETORNO 6  " j="12":r="28" &ٰ"7":"10",J;"CALORIAS =";R;"%" 'j;"PROTEINAS = ";R;"%" .r$ɰ"6"'j;"lipidos = ";r;"%":"1215" 'j;"ALCOHOL = ";R;"%" 'J;"HdCARBONO = ";R;"%" YN=02:5:N,"135"+N:"251",ç:ç,"-115":"-251",ç:ç,"115":N <j="27":v=star̰"1000" F:="5"v=v-"2" Jv"1"Ưz$="32""1480" Y װ".5",ç:װ".5","4":׼,"7" -ٰ"7":v="200""14","12";"alcohol = " 'v="217""14","12";"lipidos = " ٰ"6":"21","26";v ٰ"6":y="4":x="7":gc @x=10 :i=2:y=j:z=c:gt:z=p:gt:z=l:gt:z=h:gt "esper/"3":="r"cls:"1000" 5"21","24";k$(6);"7", "4";k$(27) .n="10"̰"16"Ͱ"2":n,"24";k$(3):n v "300":"3330"::  opcion 2 kcls:ç:"23658","8" oINPUT Q$ S$ ED TA P$ pH"2":ڰ"2":ٰ"6"::z$="DATOS PERSONALES":xs="2":ys="3":xy=ç:GA Lٰ"7":return="970":L="15":r=rc:x="6":y=ç:i="2":C="7":LL=L:GH  LET VERIFY mED=Z(6):F$=N$(1):Q$=N$(2):Q$=N$(3):PA=Z(4):TA=Z(5):S$=N$(7) FS$ɰ"70"ƯS$ɰ"77"N=N-:E$=M$(7):X=X-I:"9580":"2240"  INPUTCO SINK="6":װ".5",ç:װ".5","4":׼,"7":ٰ"6":cls:XY=ç:z$="COMPLEXION ?":GA Gٰ"7":XS=:YS="2":XY="45":rd:n=̰"3":z$:GA:XY=XY+"45":n UL="3":GF:CO=I$  IJPUT AF ;ٰ"6":cls:XY=ç:XS="2":YS="3":z$="ACTIVIDAD ?":GA OC$(17,32 ):ٰ"7":X="4":I=:re:N=̰"17":C$(N):X,ç;C$(N) MC$(N)32 x,ç;ٰ"6";޼;ۼ;" ";ç;" ":װ".1","4":ç  x=x+:n UL="7":GF:af=I$ 7A(7):rh:N=17:A(N):N:AFF=A(AF) J$(9 )=C$(AFF,3) relacion de variables .S$="70"r=:d="147":e="183":"2320" r="38":d="157":e="193"  tadta=d $ taeta=e ~PI=t((ta-D)+r,co,1) PII=t((ta-D)+r,co,2) (vAF=("20"af=)+("25"af="2")+("30"af="3")+("35"af="4")+("40"af="5")+("50"af="6")+("70"af="7") 2"CAN=(af*((pi+pii)/2)) <presentacion opcion 1 AGD:ܼ:"7":ڰ"7": B*ڰ"6":N=ç̰"21":N,ç;k$(14):N C!playۼ;ٰ"2";,;"REPLAY" D!T="160":TOP=T:AA="25":S= Fgٰ"3":a=ç:f=T:x="80":"3",ç;" CALORIAS"''"Necesarias"''"Cada 24 hs"''"3";ݼ;ۼ;CAN:GK PCڰ"7":j="50":J:ç:ç,14;ݼ;ڰ"5";"PESO " U8PA>PIIF1=T:F2=(PI*TOP)/PA:F3=(PII*TOP)/PA:"2650" X(F1=(PA*TOP)/PII:F2=(PI*TOP)/PII:F3=T ZMټ:F=F1:a=ç:x="180":"5","16";"ACTUAL";"7","16";pa;" kg":GK dLJ:F=F2:x="210":ٰ"2":"9","16";"IDEAL";"11","16";pi;" kg":GK nES="2":a=F2:f=F3:ç:"12","18";"a";"13","16";pii;" kg":GK relaciona pi pii pa paa piipapaa="3" pipapiipapaa="2" Nٰ"2":ۼ;ç,"18";" EXCESO"PAA=;" NORMAL" PAA="2";"DEFICIT"PAA="3"; FDIF=((PA-PII)PAA=)+(((+PII)/"2")PAA="2")+((-PA)PAA="3") >;ۼ;" ";DIF;" kg":PAA="2"ç,"25";ٰ"9";ݼ;" " PLAY 2810 uj$(11 )="":n=̰"7":j$(n)=n$(n):n:j$(8)=cO:j$(10 )=can:j$(12 )=pi:j$(13 )=pii ESPER*"2":ç:CLS: OPCION 3 INPUT T$ alim G cant *q="100":gr=ç:return="970":borde= cal=ç:pro=ç:lip=ç:hdc=ç `"23658",ç:ç:"2":ڰ"2":ٰ"7"::z$="CALCULO DE INGRESOS":xs=:ys="3":xy=ç:ٰ"6":GA $ٰ"7":xy="45":z$="ALIMENTO?":GA 5r=rf:c=:x="10":y=ç:l=:ll="25":i=:GH T$=N$(1) -xy="100":z$="CANTIDAD ?-en gr. o ml.":GA r=r+:x="17":y="4":GH g=Z(1) READ DATA BUSCA MEMORIA N"4":ڰ"4":ç::ys="5":xs="2":xy="70":z$="BUSCANDO Dato":ݼ:ga:ç v=̰"257" O"11","12";ڰ"4";ٰ"7";b$(v,10 20):T$=b$(v,10 )"3325" v tç:ç:ٰ"2"::xy="30":xs=:ys="5":z$="NO TENGO DATO DE ":ga:xy="120":xs=:ys="3":z$=T$:ga:"300" c=ç:g=ç:l=ç:p=ç:h=ç "3330" LET CAL-PRO-LIP-HDC % |a$=b$(v,10 ):c=b$(v,13):p=b$(v,45):l=b$(v,67):h=b$(v,89 ) ,c=(c/q)*g:p=(p/q)*g:l=(l/q)*g:h=(h/q)*g v<"217"v>"200"l=ç 5cal=cal+c:pro=pro+p:lip=lip+l:hdc=hdc+h:gr=gr+g wcal>"9999"ٰ"2"::xs="2":ys="5":z$="calorias":xy="30":ga:z$="excesivas":xy="90":ga:esper/"9":"3360" nxs=:xy="78":"3":ڰ"3":ٰ"7"::ys="5":z$="otro alimento?:s/n":GA:esper/"9":I$=:I$="s""3228" Hz=".1":pro=(zpropresentacion opcion 3 HGD:ܼ:"6":ڰ"6": KXtop="115":caa="100":cal=çtop="10":prr=".01":lii=".01":hdd=".01":caa=ç Lcartel superior MD$=" gr.":xX="12":Yy="22":Zz="27":ç:,xX;"TOTAL INGERIDO": xX;"cantidad";Yy;"=";Zz;d$:xX;"CALORIAS";yY;"=";Zz;" Kc.":xX;"PROTEINAS";Yy;"=";Zz;d$:xX;"LIPIDOS";Yy;"=";Zz;d$:xX;"HdeCARBONO";yY;"=";Zz;d$ NRx="2":i=:y=zz+:z=gr:gt:z=cal:gt:z=pro:gt:z=lip:gt:z=hdc:gt O!play,;ۼ;ٰ"2";"REPLAY" Rto=prr+lii+hdd \GRAFICO BARRA aaa="25":s= f0pr=(prr/TO*Q):li=(lii/TO*Q):hd=(hdd/TO*Q) p"a=ç:f="155":x="5":ٰ"2":GK z$ټ:f=pr*"1.5"+"10":x="75":GK 'ٰ"4":f=li*"1.5"+"10":x="150":GK 'ٰ"5":f=hd*"1.5"+"10":x="225":GK PRINT MENSAJE #0 d$="%":ټ:#ç;ܼ;ç;" CAL";"9";"PRO";"19";"LIP";"28";"HdC ";ç;caa;" %";"9";prr;"12";d$;"19";lii;"22";d$;"28";hdd;"31";d$ lj$(16)="":j$(14)="":j$(15)=cal:j$(17)=pr:j$(18)=li:j$(19)=hd ç:ESPER*"2":CLS:  CONCLUCION "2000":"3000" KGD:ç:"4":ڰ"4":ç::xy="80":xs="2":ys="4":z$="CONCLUSION":GA "150":CLS GRAFICOS IZQ dç:ç:ܼ::n=ç̰"21":7:ç:n,ç;k$(16):n:ç,ç;ڰ"7";" CALORIAS " ?ç,ç;ټ;ݼ;K$(16)'" CALORIAS "'K$(16) #playۼ;ٰ"2";"2",;"REPLAY" COLUMNA CAL 8ٰ"2":"5",;"INGERIDAS":X="7":Y="7":Z=CAL:GT jTOP="145":AA="22":T=TOP:S=:F=(TCAN=CAL)+(TCANCAL):a=ç:x="80":GK  columna CAN 2ٰ"3":"9",ç;"NECESARIAS":X="11":Z=CAN:GT BF=(TCAN>CAL)+(TCAN=CAL)+(((CAN*T)/CAL)CAL>CAN):x="105":GK print mensaje eټ;ۼ;"13","2";"EXCESO"CAL>CAN;"NORMAL"CAL=CAN;"DEFICIT"CAN>CAL:X="15":Z=(CAN-CAL):GT GRAFICOS DERECHA 8"300":N=ç̰"21":1;N,"17";K$(15):N  Uڰ"7":j="50":j:ç,"17";ټ;" COMPOSICION ";,"17";" DIETA EN %" ,J:"2","17";ٰ"2";" INGER.NESER " lڼ:ٰ"7":a=ç:f=pr*"1.3"+"10":x="175":Z()=22-((A+F)/2)/8:Z(),"17";"P=";pr:GK ,=j:ٰ"6":a=f+"5":f=a+(li*"1.3"):z(),"17";"L=";li:GK @=j:ٰ"4":a=f+"5":f=a+(hd*"1.3"):z(),"17";"H=";hd:GK T)s="2":pr1="12":li1="23":hd1="65" hGj:ٰ"7":a=ç:f=pr1*"1.3"+"10":x="200":z(),"28";"P=";pr1:GK |?j:ٰ"6":a=f+"5":f=a+(li1*"1.3"):z(),"28";"L=";li1:GK ?j:ٰ"4":a=f+"5":f=a+(hd1*"1.3"):z(),"28";"H=";hd1:GK esper*2:scr  CONCEJOS ç:缧:ڼ:ٰ"7":CLS playۼ;ٰ"9";"REPLAY" #ç,"15";"Rosario,";f$(8) ('"Sr.:"Ưs$="77";"Sra.:"Ưs$="70";q$ Q'"Debe ";"bajar"paa=;"subir"paa="3";"mantener"paa="2";" su peso actual." DIA=DIF*"6" hCs=CAN*"0.3":'"Cumpla una dieta de ";(can-cs)paa=;canpaa="2";(can+cs)paa="3";" cal/dia" PAA="2""4535" )"durante ";dias;" dias aproximadamente" ?PAA=(AFF<"10"PAA="2")"y aumente su actividad fisica." E'"Y cuando alcance su peso ideal, mantengase con ";can;" cal/dia." *ca=:pr="12"li="23"hd="65"ca=ç a'"Ademas debe ";"corregir"CA=;"mantener"ca=ç;" la calidad de los componentes de su dieta." l'"Por lo tanto debe ingerir:"''" ";"MAS"li<"23";"IGUAL"li="23";"MENOS"li>"23";" cantidad de lipidos" O" ";"MAS"pr<"12";"IGUAL"pr="12";"MENOS"pr>"12";" cantidad de proteinas" S" ";"MAS"hd<"65";"IGUAL"hd="65";"MENOS"hd>"65";" cantidad de carbohidratos" ,#ç;ݼ;" S-save data R-retorno " &"23658","8":ESPER:grava datas j$ ="s""4700"  "4900" 5:"6",ç;"START TAPE, THEN PRESS ANY KEY.":ESPER Q'"SI SE DETIENE CON MENSAJE","DE ERROR,RETORNE AL PROGRAMA","CON GOTO 4500" #"23736","181":J$(2)J$() L''"PULSE V SI DESEA VERIFICAR":ESPER/2:="V"J$(2)J$() "300" $"3330":: INSTRUCCIONES #"23658","8":ٰ"6":ܼ:ç:ç: NN=ç̰"5":N+:N,"169"+N:"249",ç:ç,"-169":"-249",ç:ç,"169":N :ٰ"4":XY="40":XS="2":YS="5":z$="INSTRUCCIONES":ga qٰ"5":xs=:YS="3":xy="110":Z$="DIETA CIENTIFICA":ga:.5,ç:.5,4:׼,3:"150": rj:XY=ç:XS=:ys="2" IN="7":N=pḭ"130":Z$ Z$="32"IN=IN- IN="2"IN="7" IN:XY=XY+"16":GA  XYȰ"160"#;ڼ;ٰ"6";ۼ;" PULSE ""ENTER"" PARA CONTINUAR ":.5,5:.5,:XY=ç:esper/"3":"3330"::="s"N="80":"5000" PN Zç:3330 :: pCOMPARACION qJ$(2)=""Q$=""T$="" 9cls:Z$="COMPARAR":XY="50":XS="3":YS="5":ga:xy "15",ç;"PREPARESE A CARGAR DATA ANTERIOR"''"Start tape, then press any key."'':esper:"SI SE DETIENE CON MENSAJE DE"," ERROR,RETORNE CON GOTO 970":J$(2)J$()  PRINT ITEN 6缧:ڼ::l="11":ri:L$(21,32 ):P="7" ON=̰"21":L$(N):P2=P:L$(N,1)=" "L="32":l$(n,2)=" "p2= #P2;ٰ"9";L$(N,L):p2=P=P-  l="12":N 8Y="13":YY="23" B9ٰ"9":#;ݼ;"ARCHIVO: DATA """;J$(2);" ""J$() " DPRINT DATA Gۼ;ç,"15";"COMPARACION" L5޼:ڰ"6";'Y;J$(1,9 );YY;F$(9 ) V0ڰ"5":;''"16";J$(4,3);"26";PA `F;Y;J$(12 ,3);"a ";J$(13 ,3);YY;;" a ";PII e9dF=(J$(4)-((j$(12 )+j$(13 ))/"2")) j';"16";df;"26";pa-((pi+pii)/"2") t>Y="15":YY="25":ڰ"4":'';Y;J$(10 ,4);yy;can ~;y;J$(15);yy;cal 3;y;(J$(15)-J$(10 ));yy;(CAL-CAN) GYI="27":E$=" %":ڰ"3":'';y;J$(18,2);E$;yy;li;YI;E$ ,;y;J$(19,2);E$;yy;hd;YI;E$ ,;y;J$(17,2);E$;yy;PR;YI;E$ I''ڰ"2";"12";J$(9 ,9 );"22";C$(AFF,311 );"." AN="2"̰"20":D$="":ڰ"8";1;N,"11";D$;N,"21";D$:N Zڼ:ç:ESPER:CLS: Xreplay YQ$=""T$="" \E缧:ڼ:ٰ"7":cls:Z$="REPLAY":XY="50":XY="3":YS="5":GA:xy `\ESPER="500":PLAY=:"2620":"3400":"4015":"6125":"300":PLAY=ç:esper="3000": @ opcion 3 AINK="5":"23658","8":ٰ"5":缧:ڼ::Z$="CUAL ES SU SEXO?":XS=:YS="3":XY="30":GA:Z$="1-FEMENINO":XY="60":GA:Z$="2-MASCULINO":XY="90":GA:UL="2":GF:S$=I$ BG"3330"::N=ç̰"2":N,ç;ڰ"7";K$(5);ڰ"2";K$(6):N CdN="2"̰"21":N,ç;ڰ"7";K$(5);ڰ"4";K$(9 );ڰ"6";K$(9 );ڰ"5";K$(9 ):N D+S$="1"r=:d="147":e="183":"8006" Er="38":d="157":e="193" F/޼:ٰ"9":ڰ"8":ç,ç;"TALLA";,ç;"EN CM" GCç,"10";"PESO IDEAL EN KG.";,"6";"SEGUN TALLA Y COMPLEXION" Hn#ç;ٰ"6";ç,ç;"TABLA DE PESO IDEAL PARA ADULTOS";,"8";"DE SEXO ";"FEMENINO"S$="1";"MASCULINO"S$="2" I.XX="6":YY="15":ZZ="24":D$=" A ":X="3":ç:ۼ:"2",XX;" MENUDa";YY;"MEDIANa";ZZ;"ROBUSTa":ç:N=DEͰ"2":M=(N-D)+R:X,;N;XX;T(M,1,1);D$;T(M,1,2);YY;T(M,2,1);D$;T(M,2,2);ZZ;T(M,3,1);D$;T(M,3,2):X=X+1:N Jç:ٰ"7":ESPER:"3330":: #(! : &CREA SCREEN$ &itop="170":CAL="3800":CAN="3200":PR="33":LI="40":MD="27":"9301":scr=:esper=:"4020":z$="DIETA CIENTIFICA":ç:ٰ"6":ۼ:XY=ç:XS="2":YS="3":GA:ç:n="5"̰"17":z$:n,;ٰ"7";ڼ;z$:n::" "," 1988 "," "," sergio "," dussex "," ciribe "," "," "," no "," pare "," el ","grabador"," " ' GRAVACION ' ' "pant" ' "dieta"1 ' "udg""a",168 ' #"codediet"64000,1300 ' "alimenb$"b$() '"tallas"t() ' lcordxnulaspe #(2<PZp  bap xynieneturi~lpr$cL`r `4A(f e>iCa tosfj29P=Hai#qdaL`rid}LghzridGadGd' 1-LISTA COMPLETA DE ALIMENTOS2-CARNES ROJAS Y BLANCAS 3-VERDURAS,FRUTAS,HORTALIZAS 4-PRODUCTOS LACTEOS 5-CEREALES,HARINAS,PAN,PASTAS6-BEBIDAS CON o SIN ALCOHOL 7-FIAMBRES Y EMBUTIDOS 8-ACEITES,SALSAS,ADEREZOS 9-DULCES,POSTRES,AZUCAR r-retorno R1  1 1 67 150177201218231243taier idAI""118184 1 caballo 165199 0 cabra 33115300 cerdo 31015270 cordero 23528130 ternera 32726240 vaca 22927115 higado 25420180 lengua 32026230 molleja 99 192 0 mondongo 25233121 ri|on 125109 1 seso 22011190 tripa gorda 23415180 ubre 172296 0 armadillo 21630100 conejo 134215 0 liebre 29216250 oveja 32726240 carne 168257 0 codorniz 151245 0 faisan 42624360 ganso 36924300 gallina 19119122 menudos 16313121 huevo duro 21614170 huevo frito 53 110 1 clara 34116154 yema 32616290 pato 176334 0 pavo 136245 0 pollo 21815154 huevo de iguana 19513143 huevo de pato 115136 0 hue%vo de tortuga 54 9 1 2 almeja 84 171 1 calamar 101212 0 camaron 91 181 2 langostino 66 101 3 mejillon 73 161 0 pulpo 17620100 anchoa 20018140 arenque 145254 0 atun 28824210 atun envasado 78 180 0 bacalao 144200 0 besugo 162247 0 bonito 19119120 caballa 18319110 caballa envasada 26227153 caviar 90 211 0 corvina 80 191 0 dorado 79 171 0 lenguado 105183 0 pejerrey 182277 0 salmon 160209 0 sardina 20324110 sardina envasada 108184 0 surubi 16818100 trucha 13618170 bagre 93 172 0 cangrejo 88 162 0 langosta 86 191 0 mero 141310 1 raya 89 200 0 tortuga 0 0 0 0 VERDURAS Y FRUTAS 20 3 0 2 acelga 20 2 0 4 achicoria 22 1 0 5 aji 1376 0 31ajo 44 3 0 11alcaucil 17 1 0 4 apio 1158 0 21arvejas 1412 0 33batata 19 1 0 4 berenjena 19 2 0 3 berro 26 3 0 5 brocoli 35 2 0 8 calabaza 38 2 0 9 cebolla 22 2 0 5 coliflor 28 3 0 5 champig|ons 83 3 1 19choclo 20 2 0 5 escarola 20 2 0 4 esparrago 23 3 0 4 espinaca 360215 61garbanzo 90 7 0 17haba 21 2 0 3 hinojo 14 1 0 3 lechuga 1068 0 20lenteja 23 1 0 5 nabo 65 2 0 15papa 2684 1433papa frita 14 1 0 3 pepino 44 4 1 9 perejil 37 1 0 9 pimiento 1188 1 21poroto 26 2 0 5 palmito 57 2 0 15puerro 52 3 0 10rabanito 32 1 0 7 remolacha 36 4 0 7 repollito de bruselas 24 1 0 6 repollo 22 1 0 5 tomate 21 1 0 4 tomate envasado 42 1 0 10zanahoria 14 1 0 3 zapallito 38 1 0 9 zapallo 52 0 0 14anana 600195520almendra 635136317avellana 85 1 0 22banana 3807 4 79casta|a 58 1 0 14guinda 58 1 0 15cereza 66 0 0 18ciruela 51 1 0 13damasco 38 1 0 10durazno 58 0 0 15durazno envasado 37 0 0 9 frutilla 37 0 0 9 fresa 80 1 0 20higo 2744 1 69higo seco 20 1 0 10limon 46 1 0 10mandarina 46 1 0 10bergamota 58 0 0 15manzana 568274818mani 33 1 0 8 melon 40 1 0 16naranja 628206015nuez 1672 176 palta 61 1 0 15pera 41 0 0 11pomelo 26 0 0 7 sandia 69 1 1 16uva 2893 0 78pasa de uva 2963 2814coco 1431 0 38datil 67 1 1 16granada 44 1 0 10granadina 31 1 1 5 grosella 32 0 1 7 lima 59 1 0 19mamon 63 0 0 16membrillo 44 0 1 11nispero 32 0 0 9 papaya 575225117girasol 0 0 0 0 PRODUCTOS LACTEOS 65 4 4 5 leche 3218 9 54leche condensada 502262838leche en polvo 363361 52leche en polvo descremada36 4 0 5 leche descremada 3522 383 crema 1343 125 crema liviana 7161 810 manteca 43 2 1 7 leche de burro 92 4 6 5 leche de cabra 59 4 2 6 yogur dietetico 105191 4 queso blando descremado 145157 5 queso blando 28018243 queso semiblando 187353 3 queso semiblando descrema38725312 queso duro 247464 4 queso duro descremado 130196 0 ricota 29023230 queso crema 27419220 queso cuartirolo 37729290 queso gruyere 26724190 mozzarella 42532330 queso provolone 39529310 queso reggianito 42719390 queso roquefort 2009 180 queso petit suisse 0 0 0 0 CEREALES HARINAS PAN 1102 0 25arroz 3470 1 75harina de mandioca 3625 0 83fecula 378412 48harina de gluten 3688 3 78harina de maiz 380411235harina de soja 333132 73harina de trigo 3568 1 79semola 405128 72bizcocho 4257 2152bu|uelo 320107 55factura 4587 1569galletita 4589 1851masita 342130 73grisin 280100 60pan 2707 5 51pan salvado 2639 2 52pan de centeno 392135 73pan rallado 314104 59tostada 1002 0 20|oqui 1002 0 20fideo 343109473pasta 100110 16levadura 0 0 0 0 BEBIDAS 0 0 0 0 te 0 0 0 0 cafe 0 0 0 0 mate 0 0 0 0 agua 0 0 0 0 soda 0 0 0 0 gaseosas dieteticas 40 0 0 10coca cola 46 0 0 11seven up 31 0 0 7 agua tonica 50 0 5 5 cerveza 50 0 5 5 sidra 94 0 120 vino seco 1140 125 vino dulce 3000 350 bebida blanca 3000 350 whisky 3000 350 ginebra 0 0 0 0 FIAMBRES EMBUTIDOS 28117230 jamon crudo desgrasado 34625270 jamon crudo graso 34624270 jamon cocido 46015440 paleta 6008 610 panceta 9020 990 tocino 31520250 mortadela 39414370 morcilla 31117262 salame 45024381 salamin 24014190 salchicha de viena 42724370 salchichon 0 0 0 0 ACEITES SALSAS 8840 990 aceite 1062 0 25ketchup 7200 810 margarina 7201 802 mayonesa 75 5 4 7 mostaza 1624 129 salsa blanca 5311 584 salsa tartara 14 0 0 4 vinagre 343850 0 gelatina 1161 122 pickle 3402 369 aceituna 0 0 0 0 DULCES POSTRES 3800 0 99azucar 3660 0 98azucar negra 2940 0 80miel 2730 0 70jalea 2700 0 70dulces 2730 0 70mermeladas 62 3 0 8 mermelada dietetica 4004 1076caramelos 3528 9 60dulce de leche 1000 0 25helado de frutas 2353 1718helados de crema 3884 7517helado de chocolate 2484 1775chocolate 0 0 0 0 1 1 1 1 ^: J.2176;.2176;.2176;/3286=/3286=/4397>/4397>/4397>064;9?064;9?176<:A176<:A176<:A287=;C287=;C287=;C4:8?=D4:8?=D5;:@>F5;:@>F5;:@>F6<;A?H6<;A?H8><CAJ8><CAJ8><CAJ9?>DBL9?>DBL:@?EDM:@?EDM:@?EDM<B@GEN<B@GEN=CBHFP=CBHFP=CBHFP?DWIHQ:=;@>D:=;@>D:=;@>D;><A?E;><A?E<?=B@G<?=B@G<?=B@G=?>CAH=?>CAH=?>CAH>@?DBJ>@?DBJ?B@FDL?B@FDL?B@FDL?CBGEN?CBGEN@DCIFP@DCIFP@DCIFPAFDJGQUFDJGQBGFKISBGFKISBGFKISDIGMJUDIGMJUEJIOLWEJIOLWYJIOLWFLJQNYFLJQNYHNLSP\HNLSP\HNLSP\IPNUR^F10/6/96 QORLANDO SMASC % 1-BASAL: sujeto en coma$ 2-REPOSO8 3-MUY LIVIANO:sin trabajo oficio,ni prof.# 4-LIVIANO: trabaja sentado# 5-MEDIANO: tp baja de pie$ 6-INTENSO: al aire libre y con esfuerzo muscular intenso" 7-MUY INTENSO:y bajo tempera- turas extremas & E09(500 U500Acarne InD%iA# GT Z cientifica7    7\ 31         4 40( 5 502 6 70F 7 ( a este programa * 1988 - Dr.:SERGIO DUSSEX CIRIBE* Rosario Argentina * Para Revista "K-64" * preSenta este programa *000000lllll0`8l8l~00000||000000`00 0`||0p00|||<|0`|<|| 00||||~|x00000000`0`0||||`00`||~8|||||000||||~|||0|l8ll8lx000 0`8800088`0 88880x0000<~``~~8|||||000||||~|||0|l8ll8lx000 0` ` 0`00 00`d|MUd![~#"[o<&)))K6\ >2[: [2 [: [2[> 2[~#"[2[:[= 2:[= :[G: [O: [ 2 [*[h2[: [G: [2 [*[Å2[: [G: [2[: [O :[<2[ :[<2[ :[Õ@ :\G:\G:[o:[g>Xg:\w:[G@gxgxo:[Go!xO F![F(//x >!@~w| |Xg:\w#{ |8|8MO>O|8MMgZyWqMMMM33333 6rx  >>BB<DHpHDB@~BfZBBB<topf=top {n=afs:x,n:aa,ç:n: TABULACION 2z$=z:yy=ç:m=̱z$:z$(m)="."yy=z$-(m-) m:x,(y-z$)+yy;z$:x=x+i:  CONTROL INKEY$ 9#;,"7";ink;ݼ;ۼ;"ELIJA OPCION 1-";UL;ç;ç  esper:I$= ,װ".5","4":׼,"7":i$="R"i$="r"return i$="14""101" I$>"0"I$UL I$=""return I$<"1"I$>UL"410"  IMPUT AUTO #ç;ç,ç;ݼ;ٰ"6";"ESCRIBA LOS DATOS SOLICITADOS SIN PULSAR ENTER ";ݼ;" DELETE para borrar cada linea " eװ".5",ç:װ".5","4":׼,"7":ç:err=ç:e$="":Z(C):Q(c):K(c):J(c):H(c):m$(c,l):n$(c,ll) R  N=piC #ERR=ç:Q(n),K(n),H(n),J(n),m$(n) lee preguntas :M=L:װ".0004","45":x,y+m;m$(n,m);"?";,,:M N$(N) ="23561","90":"23562","6":u$="":p=esper:װ".01","10"  X,+Y+L;"=";ۼ;"?";ç;,,  M=piLL P:I$=:u$=u$+i$ &x,l+m+;I$;ܼ;" ":װ".0004","45" )I$="12"ůI$="13""520":DELETE 1P="200":I$=""P=:"23561",:"23562",  n$(n)=u$ $M &"4",ç;ç;,, 0VERIF AUTO INPUT 14n$(n)="32"err=err+:e$="LINEA VACIA":"590" 3&M=PILL:N$(N,M)="32""570" 4/N$(N,M)K(N)E$=M$(N):"590" :M <=J(N)çZ(N)=N$(N):Z(N)J(N)E$=M$(N):"590" =l<"5"575? > M$(N,5)="FECHA""580" ?ERR=ç:X=X+I @N B"23561","1":"23562","1" C:A PROGRAM DVERIFYCAR FECHA ESXA=ç:W(L):W(1)=ç:W(2)=ç:M=L:N$(N,M)="/"XA=XA+:W(XA)=M F:M:W(1)<"2"W(2)<"4"XA"2""589" GXA=N$(N,1W(1)-1):XB=N$(N,W(1)+1W(2)-1):XC=N$(N,W(2)+1):W(1) H9xb=çXB>"12"XC<"88"XC>"99"E$=" MES-AO":"590" I[Z$="302831303130313130313031":XD=(Z$((XB*2)-1)+Z$(XB*2)):DIA MES J:XB="2"M="88"̰"96"Ͱ"4":XC=MXD="29":A\O BIS K XAXDE$="DIAS":"590" L:ARUT,AUTO M E$=M$(N) Nm"4","4";ڰ"7";ç;ۼ;"* ERROR * ";E$;" *":װ".5","4":ERR="3""23561",:"23562","1":RETURN S"520":REPLAY  PRESENTACION  LLUVIA IZQ. :n=̱z$:m="29"y-:x,m;z$(N);" ";:m:y=y+:n:  CARTEL ROTAR fink="6":n=̱z$*b:ink;x,y;z$(v):"3":z$(32 )="*"ink=ink-:"100":ink=ink="7" 2װ".0004","45":z$=z$(2)+z$(1):n:  ROTULO ENTRA 9o=̱z$:װ".0007","45":x,"29"-o;z$(o):o:x=x+i:  CARTEL <xx=("255"-xs*8*z$)/"2": ^ esto centra en x ^ ii="23306":ii,xx:ii+"1",xy:ii+"2",xs:ii+"3",ys:ii+"4","8":ii=z$:d=ii:"23310"+d,z$(d):d:"23311"+ii,"255":ii="64869"  PROGRAMA PRINCIPAL 7k$(32 ):"23607","249":cls="65170":ç:cls gt="130":SCR=ç:BORDE="2":GH="500":GK="120":gc="750":gd="110":gf="400":gg="700":gb="740":ga="760":dur="155":PLAY=ç:g$="":t$="":J$(19,10 ):ESPER="3000" dra="10":rb="15":rc="20":rd="25":re="30":rf="35":rg="40":rh="50":ri="60":rj="80" /"23658",ç:"23609","255":"23608","125" PRECENTACION v6:װ".5","10":װ"2","7":ç:ç::xy="30":xs="3":ys="4":z$="dieta":ga:xy="90":z$="cientifica":ga Jb="7":m=̰"8":n="3"̰"16":n,ç;b;޼;,,:b=b-:b="2"b="7"  n:m:ç p="5":v="31":b=:z$=" 1988 - Dr.:SERGIO DUSSEX CIRIBE* Rosario Argentina * Para Revista ""K-64"" * preSenta este programa *":x="2