10 ' ** DIETETIQUE PERSONNELLE **
20 ' ** àBARROS ALBERTO 10-85 ** 30 ' ** AMSTRAD CPC 464 ** 40 ' 50 INK 0,0:INK 1,9:MODE 2:BORDER 9:SYMBOL 255,0,0,0,255 60 DIM item(100),poids(100),caract(25),total(23),nom$(23),besoins(23) 70 DATA "Calories","Eau","Protides","Lipides","Glucides" 80 DATA "Sodium","Potassium","Calcium","Magnesium","Chlore" 90 DATA "Phosphore","Soufre","Manganese","Fer","Cuivre","Iode","Vit. A" 100 DATA "Vit. B1","Vit. B2","Vit. PP","Vit. C","Vit. D","Cellulose" 110 DATA 2000,1000,700,450,2500,1500,1200,3,1.5,2.5,.25,2,2,2.5,20,60,.01,0 120 FOR i=1 TO 23:READ nom$(i):NEXT i:FOR i=6 TO 23:READ besoins(i):NEXT i 130 flag1=0:CLS:PRINT:PRINTTAB(32);"MENU GENERAL :":PRINT:PRINT:PRINT 140 PRINT" 1 : Etudier votre menu en indiquand les aliments" 150 PRINT" 2 : Etudier la composition de certains aliments" 160 PRINT" 3 : Lister les aliments choisis" 170 PRINT" 4 : Effacer un element choisi de la liste" 180 PRINT" 5 : Effacer la liste pour recommencer un menu different" 190 PRINT" 6 : Complementer votre regime en vitamines ou en mineraux" 200 PRINT" 7 : Etudier la composition globale de votre menu du jour" 210 PRINT" 8 : Tableau des apports calorique necessaire" 220 PRINT" 9 : Fin":PRINT:PRINT:GOSUB 5340 230 IF choix<1 OR choix>9 THEN 130 ELSE IF choix=8 THEN GOSUB 6030:GOTO 130 240 ON choix GOTO 260,250,670,760,810,820,5820,6030,6020 250 flag1=1:GOTO 260 260 CLS:PRINT TAB(10);"MENU DES DIFFERENTES CATEGORIES D'ALIMENTS" 270 PRINT:PRINT:PRINT:PRINT"1 : Viandes et volailles";TAB(40);"2 : Triperie" 280 PRINT"3 : Charcuterie";TAB(40);"4 : Poissons" 290 PRINT"5 : Crustaces,coquillages";TAB(40);"6 : Oeufs" 300 PRINT"7 : Produits laitiers";TAB(40);"8 : Pain et produits cerealiers" 310 PRINT"9 : Legumes";TAB(40);"10: Fruits" 320 PRINT"11: Huile,Sel,Sucres,Condiments";TAB(40);"12: Boissons" 330 PRINT"13: Vitamines, mineraux";TAB(40);"14: Potages & Bouillons" 340 PRINT:PRINT"99: Retour au menu primaire":PRINT 350 PRINT"0 : Etude de votre regime alimentaire du jour":PRINT 360 GOSUB5340:IFchoix=99THEN130ELSEIFchoix=0THEN5820 370 IFchoix<1ORchoix>14THEN360 380 c1=choix:IFc1=13THEN820 390 ON c1 GOSUB 410,420,430,440,450,460,470,480,490,500,510,520,820,530 400 GOTO 540 410 RESTORE920:nombre=18:RETURN 420 RESTORE1280:nombre=5:RETURN 430 RESTORE1380:nombre=13:RETURN 440 RESTORE1640:nombre=19:RETURN 450 RESTORE2020:nombre=11:RETURN 460 RESTORE2240:nombre=8:RETURN 470 RESTORE2400:nombre=22:RETURN 480 RESTORE2840:nombre=18:RETURN 490 RESTORE3200:nombre=36:RETURN 500 RESTORE3920:nombre=23:RETURN 510 RESTORE4380:nombre=17:RETURN 520 RESTORE4720:nombre=18:RETURN 530 RESTORE5080:nombre=12:RETURN 540 CLS:FORi=1TOnombre:GOSUB5390 550 IFi/2=INT(i/2)THENPRINTTAB(40);ELSEPRINT 560 PRINTi;": ";nom$;:NEXTi 570 PRINT:PRINT:PRINT"99 : Retour menu secondaire":PRINT:PRINT 580 GOSUB5340:IFchoix=0THEN580 590 IFchoix=99THEN260 600 ON c1 GOSUB 410,420,430,440,450,460,470,480,490,500,510,520,130,530 610 FOR i=1 TO choix:GOSUB 5390:NEXT i 620 IFflag1=1THENGOSUB5650:GOTO390 630 GOSUB5360 640 IF poids<0 THEN GOSUB 5650:GOTO 630 650 IFpoids=0THEN390 660 GOSUB 5400:GOTO 390 670 CLS:RESTORE920:ai=0:GOSUB5320 680 PRINT"N Pd (g) Aliment : Eau Pro Lip Glu Cal "; 690 PRINT"Vitamines :":GOSUB5320:FORi=1TOnitem 700 IFitem(i)<0THENPRINTUSING"##";i;:PRINTUSING"_ ####.#_ ";poids(i);:PRINTnom$(-1*item(i));:IFitem(i)<-5THENPRINT" (mg)":GOTO750ELSEPRINT:GOTO750 710 IFitem(i)<aiTHEN730 720 FORk=1TOitem(i)-ai:GOSUB5390:NEXTk:GOTO740 730 RESTORE920:FORk=1TOitem(i):GOSUB5390:NEXTk 740 GOSUB 5510:ai=item(i) 750 NEXTi:GOSUB5320:GOSUB5330:GOTO130 760 CLS:INPUT"Entrez le numero de l'aliment a effacer : ",ndel:GOSUB5460 770 IF ndel=nitem THEN nitem=nitem-1:GOTO 800 780 var1=item(ndel):item(ndel)=item(nitem):item(nitem)=var1 790 var2=poids(ndel):poids(ndel)=poids(nitem):poids(nitem)=var2:nitem=nitem-1 800 PRINT"Aliment numero ";ndel;" efface":GOSUB5330:GOTO130 810 connu=0:nitem=0:flagsel=0:PRINT"*** LISTE EFFACEE ***":GOSUB5330:GOTO130 820 CLS:PRINTTAB(20);"COMPLEMENTATION EN VITAMINES OU MINERAUX":PRINT:PRINT 830 FORi=3TO22:IFi/2=INT(i/2)THENPRINTTAB(40);ELSEPRINT 840 PRINTi-2;": ";nom$(i);:NEXTi 850 PRINT:PRINT:PRINT"99: Retour au menu primaire":PRINT:PRINT 860 GOSUB5340:IFchoix=99THEN130 870 IFchoix<0ORchoix>20THEN860 880 CLS:PRINT"Entrez la quantite de ";nom$(choix+2);" prise en "; 890 IFchoix<4THENPRINT"g : ";ELSEPRINT"mg : "; 900 INPUTvit:total(choix+2)=total(choix+2)+vit:nitem=nitem+1 910 item(nitem)=-1*(choix+2):poids(nitem)=vit:GOTO820 920 DATA 1,"Boeuf (mi-gras)",250,60,17,20,0.5 930 DATA 70,300,10,20,70,200,240,.018,3.5,.05,.0035,.02,.9,.2,4.5,1,-1,0 940 DATA 2,"Corned beef",235,57,25,15,0 950 DATA 1700,400,30,-1,-1,115,-1,-1,4,-1,-1,0,0.02,0.2,3,0,-1,0 960 DATA 3,"Veau",175,70,18,11,0.5 970 DATA 48,330,10,23,75,200,205,.03,2.5,.25,.003,.02,.16,.25,8,1.5,-1,0 980 DATA 4,"Mouton mi-gras",237,62,17,19,0 990 DATA 80,300,10,24,100,170,80,0.005,2.5,-1,-1,0.03,0.2,0.21,5,1,-1,0 1000 DATA 5,"Agneau",280,58,16,24,0 1010 DATA 90,265,10,24,80,150,230,-1,1.8,0.44,-1,-1,0.2,0.25,4,0,-1,0 1020 DATA 6,"Cheval",110,75,22,2,1 1030 DATA 21,157,13,23,9,200,225,-1,-1,0.6,-1,-1,0.05,0.1,5,3,-1,0 1040 DATA 7,"Porc mi-gras",290,56,16,25,0.5 1050 DATA 60,300,10,30,60,200,200,0.06,2.5,0.3,-1,0,1,0.2,4,1.5,-1,0 1060 DATA 8,"Lapin",120,70,22,10,0.5 1070 DATA 40,400,18,-1,51,220,220,0.005,2.5,-1,-1,0.01,0.05,0.15,7.5,2,-1,0 1080 DATA 9,"Poulet",150,70,21,7,1 1090 DATA 60,350,10,20,80,200,250,0.006,1,0.35,-1,-1,0.1,.02,8,4,-1,0 1100 DATA 10,"Viande sechee ou fumee",194,47.7,34.3,6.3,0 1110 DATA 4300,200,20,-1,-1,406,-1,-1,5.1,-1,-1,0,0.11,0.32,3.7,0,-1,0 1120 DATA 11,"lievre",99,73,22.3,0.9,0.2 1130 DATA -1,-1,12,-1,-1,157,-1,-1,3.1,-1,-1,0,0.09,0.19,5,-1,-1,0 1140 DATA 12,"Faisan",108,72,22,4,0.5 1150 DATA -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,0 1160 DATA 13,"Perdrix,Perdraux",115,72,25,1.4,0.5 1170 DATA -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,0 1180 DATA 14,"Canard domestique",322,54,16,28.6,0 1190 DATA 85,285,10,15,-1,188,-1,-1,1.8,0.4,-1,-1,0.1,0.24,5.6,8,-1,0 1200 DATA 15,"Dinde",245,58.2,20.1,18.1,0.4 1210 DATA 66,340,25,-1,122,320,230,-1,3.8,0.2,-1,-1,0.13,0.14,7.9,0,-1,0 1220 DATA 16,"Oie",358,50.5,16.2,32.5,0 1230 DATA 85,420,13,-1,-1,184,-1,-1,1.9,0.33,-1,-1,0.13,0.22,5.6,-1,-1,0 1240 DATA 17,"Pigeon",108,74,22,2,0.5 1250 DATA -1,-1,-1,-1,-1,173,-1,-1,-1,-1,-1,-1,-1,-1,-1,3,-1,0 1260 DATA 18,"Poule",297,56,18,25,0 1270 DATA -1,-1,13,-1,-1,200,-1,-1,1.5,-1,-1,-1,0.08,0.16,8,-1,0.0011,0 1280 DATA 19,"Cervelle",120,79,10,8.5,1 1290 DATA 90,340,6,10,200,360,200,-1,5,0.2,-1,-1,0.2,0.2,4,18,-1,0 1300 DATA 20,"Foie de veau",200,70,21,5,4 1310 DATA 110,300,10,20,100,210,250,0.3,5.5,3.5,-1,5,0.2,2.5,17,30,0.0005,0 1320 DATA 21,"Langue",200,68,16.5,15,0.5 1330 DATA 100,260,30,-1,-1,120,-1,0.02,7,-1,-1,-1,0.2,0.25,5,6,-1,0 1340 DATA 22,"Rognons",125,75,20,6,0.5 1350 DATA 210,310,10,18,250,200,190,0.08,10,0.1,-1,0.35,0.3,2,8,11,-1,0 1360 DATA 23,"Tripes",94,80,19,2,0 1370 DATA 46,20,10,-1,-1,130,-1,-1,1.5,-1,-1,-1,0.01,-1,3,18,-1,0 1380 DATA 24,"Jambon",180,55,20,31,0.5 1390 DATA 40,350,17,30,70,200,200,0.05,23,0.3,-1,-1,1,0.2,4.5,-1,-1,0 1400 DATA 25,"jambon maigre",170,68,20,10,0.5 1410 DATA 2100,610,20,30,70,200,200,0.06,1.5,0.3,-1,0,1,0.2,4.5,-1,-1,0 1420 DATA 26,"Boudin",370,47,15,35,0 1430 DATA -1,-1,10,-1,-1,160,-1,-1,1,-1,-1,-1,-1,-1,-1,-1,-1,0 1440 DATA 27,"Pate de foie gras",455,37,14,42,5 1450 DATA -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,0.03,-1,-1,-1,-1,0 1460 DATA 28,"Rilletes",600,18,22,57,0 1470 DATA -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,0 1480 DATA 29,"Saucisse (de porc)",420,37,15,40,-1 1490 DATA -1,-1,5,-1,-1,100,-1,-1,1.5,-1,0.002,0,-1,-1,-1,-1,-1,0 1500 DATA 30,"Saucisson (Arles)",560,17,25,50,0 1510 DATA -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,0 1520 DATA 31,"Saucisson (Boulogne)",230,62,17,18,0 1530 DATA 220,84,9,-1,-1,160,-1,-1,2,-1,-1,0,0.3,0.3,3,0,-1,0 1540 DATA 32,"Lard",780,-1,4,-1,0 1550 DATA -1,-1,2,-1,-1,42,-1,-1,-1,-1,-1,-1,.2,-1,1,-1,-1,0 1560 DATA 33,"Saindoux",892,1,1,99,0 1570 DATA 0.3,0.2,1,-1,4,3,25,-1,0.1,0.02,-1,0,0.006,0,0,0,-1,0 1580 DATA 34,"Andouillette grillee",320,52,23,24.9,0.8 1590 DATA -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,0 1600 DATA 35,"Mortadelle",265,56,19,21,0 1610 DATA -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,0 1620 DATA 36,"Saucisse de Francfort",263,60,14.2,20.5,2.7 1630 DATA 1100,230,8,-1,-1,100,-1,-1,1.5,-1,-1,0,0.18,0.19,2.8,0,-1,0 1640 DATA 37,"Aiglefin",74,77,17,0.3,0 1650 DATA 660,315,20,25,1070,190,240,0.015,1,0.25,0.005,0,0.1,0.15,1,0,-1,0 1660 DATA 38,"Colin",86,80,17,2,0 1670 DATA 89,274,64,20,220,180,190,-1,1,-1,0.002,-1,0.08,0.1,2,1,-1,0 1680 DATA 39,"Hareng frais",183,68,19,12,0 1690 DATA 140,350,5,33,170,230,197,.045,1,.16,.01,.053,.15,.35,7.7,0,.0013,0 1700 DATA 40,"Limande et sole",65,83,15,0.5,0 1710 DATA 70,330,30,31,150,195,170,0,0.8,0.18,-1,0.009,0.22,0.21,3.8,-1,-1,0 1720 DATA 41,"Maquereau",128,68,18,8,0 1730 DATA -1,418,10,33,-1,250,200,.045,.8,.6,.01,.04,.15,.3,8,4,.015,0 1740 DATA 42,"Morue fraiche = cabillaud",80,83,15,0.3,0 1750 DATA 60,360,10,17,87,190,200,0.01,0.5,0.55,0.02,0,0.1,0.15,2,2,-1,0 1760 DATA 43,"Merlan",80,82.5,16,0.6,0 1770 DATA 61,300,45,30,87,240,202,-1,0.9,0.1,0.01,-1,0.09,0.07,2.1,4,-1,0 1780 DATA 44,"Sardine fraiche",174,69,21,10,0 1790 DATA -1,-1,288,-1,-1,490,-1,1.12,1.2,-1,0.016,0.089,-1,0.4,-1,2.5,0.036,0 1800 DATA 45,"Sardine a l'huile",190,55,25,13.5,1 1810 DATA 760,260,30,-1,-1,300,-1,-1,1.5,-1,-1,.025,.05,.1,4.5,-1,.04,0 1820 DATA 46,"Saumon frais",200,65,20,14,0 1830 DATA 50,390,24,30,64,270,195,-1,0.8,0.2,0.04,0.066,0.17,0.17,7.5,1,.016,0 1840 DATA 47,"Saumon en conserve",170,67,20,9,0 1850 DATA 470,330,37,30,-1,286,260,-1,1.3,-1,.02,0,.03,.2,6.5,0,.01,0 1860 DATA 48,"Thon frais",225,58,27,13,0 1870 DATA -1,-1,5,-1,-1,-1,-1,-1,1.5,-1,0.08,0.3,0.05,0.11,-1,-1,0.06,0 1880 DATA 49,"Thon a l'huile",180,58,28,12,0 1890 DATA 540,480,35,-1,-1,290,-1,-1,1.7,-1,-1,.025,.05,.11,13,0,.025,0 1900 DATA 50,"Brochet",80,80,19,.5,0 1910 DATA 75,350,20,25,100,200,200,-1,1,.25,.006,-1,.1,.07,1.7,-1,-1,0 1920 DATA 51,"Carpe",149,72.4,19,7,0 1930 DATA 50,280,34,20,62,220,50,-1,1,-1,-1,0.09,0.09,0.04,1.5,1.5,-1,0 1940 DATA 52,"Truite commune",96,77.6,19,2,0 1950 DATA 40,410,20,25,105,220,240,-1,1,0.33,0.003,0.045,0.1,0.15,3.5,2,-1,0 1960 DATA 53,"Anchois",167,65,20,9,0.6 1970 DATA -1,-1,18,-1,-1,182,-1,-1,0.9,-1,-1,0.15,0.06,0.5,2.6,-1,-1,0 1980 DATA 54,"Dorade",77,81,17,1,0 1990 DATA -1,-1,53,-1,220,350,-1,-1,0.9,-1,-1,-1,-1,-1,-1,-1,-1,0 2000 DATA 55,"Raie",89,78,20,1,0 2010 DATA 75,240,20,25,108,240,230,-1,1,-1,-1,-1,-1,-1,-1,-1,-1,0 2020 DATA 56,"Huitres",66,88,9,1.2,4.8 2030 DATA 290,198,94,42,630,142,180,.5,5.6,2.5,.018,.1,.18,.23,1.2,.8,.00013,0 2040 DATA 57,"Moules",85,82.5,12,1.7,2.2 2050 DATA 290,315,100,23,460,250,-1,.25,24,3.2,.03,-1,-1,-1,-1,17,-1,0 2060 DATA 58,"Crabe frais",99,77,17,3,1.3 2070 DATA 400,110,45,48,-1,182,-1,-1,0.9,1.3,0.04,-1,0.05,0.06,2.5,3.5,-1,0 2080 DATA 59,"Homard frais",84,79,16,2,0.5 2090 DATA 300,260,61,22,500,200,170,0.04,0.6,2.2,0.037,-1,0.15,0.13,2,5,-1,0 2100 DATA 60,"Crevettes cuites fraiches",96,78,19,2.2,0.3 2110 DATA 1400,260,200,40,2500,300,300,.03,2,.43,.1,.003,.07,.05,1.25,2,-1,0 2120 DATA 61,"Crabes conserve",101,77,17,3,1.3 2130 DATA 1000,-1,30,-1,-1,180,-1,-1,0.9,-1,0.04,-1,0.05,0.15,2.5,-1,-1,0 2140 DATA 62,"Crevettes conservees",85,75.6,18.7,0.9,0.3 2150 DATA 1400,220,60,-1,-1,152,-1,-1,1.8,-1,-1,0.018,0.01,0.03,1.4,0,0.0026,0 2160 DATA 63,"Ecrevisse",73,81,16,0.5,1 2170 DATA -1,-1,-1,-1,-1,240,100,-1,-1,-1,-1,-1,-1,-1,-1,4,-1,0 2180 DATA 64,"Escargot",76,82,15,0.8,2 2190 DATA -1,-1,170,250,-1,-1,140,-1,3.5,0.4,0.006,-1,-1,-1,-1,15,-1,0 2200 DATA 65,"Cuisse de grenouille",69,81.9,16.4,0.3,0 2210 DATA 55,308,18,23,40,147,40,-1,1.1,-1,0.017,-1,0.14,0.25,1.2,5,-1,0 2220 DATA 66,"Homard conserve",87,77.2,18.4,1.3,0.4 2230 DATA -1,-1,65,-1,-1,190,-1,-1,0.8,-1,-1,-1,0.16,0.14,2.2,4,-1,0 2240 DATA 67,"100 g d'oeuf (1 oeuf=50 g)",162,74,13,12,0.6 2250 DATA 130,140,55,11,120,200,195,.05,2.8,.25,.02,.3,.13,.3,.15,0,.002,0 2260 DATA 68,"Jaune d'oeuf",355,50,16,32,.5 2270 DATA 34,85,140,18,110,525,165,.1,8,.4,-1,1,.3,.45,.05,0,.005,0 2280 DATA 69,"Blanc d'oeuf",48,88,11,.2,.7 2290 DATA 200,140,14,10,160,12,220,.01,.1,.05,-1,0,0,.2,.1,0,-1,0 2300 DATA 70,"Caviar(moyenne)",261,43,30,15,2 2310 DATA 1500,410,137,22,1800,180,-1,-1,1,-1,-1,-1,0,-1,-1,-1,-1,0 2320 DATA 71,"Oeuf de morue",115,71,24,1.8,0.7 2330 DATA -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,1,1,1.5,40,-1,0 2340 DATA 72,"Oeuf de cane",102,38,7,8,0.5 2350 DATA -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,0 2360 DATA 73,"Oeuf de Dinde",172,72.8,13,12.5,1.7 2370 DATA -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,0 2380 DATA 74,"Oeuf d'Oie",175,71,14,13,0.3 2390 DATA -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,0 2400 DATA 75,"Lait de vache entier",67,87,3.3,3.8,4.7 2410 DATA 77,143,137,13,108,91,30,.003,.05,.01,.012,.03,.01,.04,.07,1,.0001,0 2420 DATA 76,"Lait de vache ecreme",36,90,3.5,.2,5 2430 DATA 55,200,130,14,107,95,-1,-1,.2,-1,-1,-1,.05,.2,.1,2,-1,0 2440 DATA 77,"Lait condense sucre",346,24,10,10,54 2450 DATA -1,-1,273,-1,-1,228,-1,-1,.2,-1,-1,-1,.05,.4,.2,1,-1,0 2460 DATA 78,"Lait entier en poudre",500,5,25,26,37 2470 DATA 380,1140,950,90,760,680,260,.02,.7,.3,-1,.1,.3,1.3,.7,8,-1,0 2480 DATA 79,"Beurre",735,17.4,0.6,81,0.7 2490 DATA 10,23,16,1,-1,16,9,0.04,0.19,0.03,0.006,1,0.03,0.01,0.1,0.3,0.001,0 2500 DATA 80,"Creme fraiche",298,62.4,3,30 2510 DATA 4,18,60,73,-1,80,77,-1,-1,.1,-1,-1,-1,.03,.15,.1,1,.001,0 2520 DATA 81,"Yaourt (1 yaourt 125g)",72,86,4.8,3.8,4.5 2530 DATA 62,190,150,-1,-1,135,-1,-1,0.2,-1,-1,0.044,0.045,0.024,0.18,2,-1,0 2540 DATA 82,"Fromage blanc",120,80,9,8,4 2550 DATA -1,-1,162,-1,-1,91,-1,-1,-1,-1,-1,.05,.02,.3,.1,1.5,-1,0 2560 DATA 83,"Fromage en forme(petit suisse,...)",191,70,10,15,4 2570 DATA 760,-1,110,-1,650,90,-1,-1,-1,-1,-1,0.05,-1,0.3,0.1,1.5,-1,0 2580 DATA 84,"Brie, Coulommiers",270,56,18,23,3.5 2590 DATA 700,150,130,40,800,180,-1,-1,3,-1,-1,.5,-1,.6,1.5,.4,.001,0 2600 DATA 85,"Gruyere, Parmesan, Emmenthal",400,35,37,30,2.3 2610 DATA 760,150,1100,45,1100,700,250,-1,3,.35,-1,.015,.03,.3,-1,-1,.001,0 2620 DATA 86,"Roquefort ou Bleus",410,40,23,34,2 2630 DATA 800,150,600,40,1500,350,-1,-1,1,-1,-1,1.3,.03,.7,1,.4,.001,0 2640 DATA 87,"Chevre",320,50,20,20,15 2650 DATA -1,-1,190,-1,-1,190,-1,-1,-1,-1,-1,0.04,0.03,0.6,0.2,1.2,-1,0 2660 DATA 88,"Lait en poudre ecreme",345,0,36,-1,-1 2670 DATA -1,-1,1300,-1,-1,950,-1,-1,-1,-1,-1,-1,.36,-1,-1,-1,-1,-1 2680 DATA 89,"Lait condense non sucre",157,-1,7.2,-1,-1 2690 DATA -1,-1,240,-1,-1,195,-1,-1,-1,-1,-1,-1,.05,-1,.2,1,-1,-1 2700 DATA 90,"Fromage blanc ecreme",100,-1,20,-1,2.25 2710 DATA -1,-1,90,-1,-1,100,-1,-1,-1,-1,-1,-1,-1,-1,-1,.1,-1,-1 2720 DATA 91,"Port-salut",360,-1,27,-1,-1 2730 DATA -1,-1,600,-1,-1,440,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1 2740 DATA 92,"Fromage de Hollande",353,39,29,25,3 2750 DATA 850,-1,780,-1,-1,330,-1,-1,-1,-1,-1,0.5,-1,-1,-1,0,-1,-1 2760 DATA 93,"Camembert",300,53,195,24,3 2770 DATA 1100,125,268,18,-1,186,-1,-1,0.5,0.08,-1,0.31,0.05,0.45,1.45,0,-1,-1 2780 DATA 94,"Margarine",752,-1,.8,81,.4 2790 DATA 300,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,.006,-1,-1,-1,-1,-1 2800 DATA 95,"Creme Chantilly",316,61.6,2.3,32.7,3.1 2810 DATA 39,67,77,-1,-1,62,-1,-1,0.05,-1,-1,0.25,0.025,0.14,0.09,1,0.001,-1 2820 DATA 96,"Cantal",386,37,23,30,5.8 2830 DATA -1,-1,780,-1,-1,460,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1 2840 DATA 97,"Pain de ble ou de seigle",245,36,7,1,52 2850 DATA 500,100,30,45,700,100,100,0.6,1.7,0.25,0.001,0,0.2,0.16,1,0,-1,0.2 2860 DATA 98,"Biscottes de ble",371,8.5,10,3.5,75.2 2870 DATA 260,160,42,16,-1,120,260,-1,1.5,0.5,0.002,-1,0.1,0.08,1.3,0,-1,0.6 2880 DATA 99,"pain d'epices",354,-1,9,3.3,72 2890 DATA -1,-1,40,16,-1,200,-1,.3,3,1,-1,-1,.08,.1,-1,-1,-1,.3 2900 DATA 100,"Biscuits secs",420,10,7,12,75 2910 DATA -1,-1,5,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1 2920 DATA 101,"Flocons d'avoine",374,11,14,6,66.4 2930 DATA 2,340,54,148,49,404,2,-1,4.3,1.22,-1,-1,.4,.14,1.1,0,2,1.4 2940 DATA 102,"Farine de ble",340,12,10.5,1.5,71 2950 DATA 10,450,25,140,50,300,180,3,4,.7,.003,-1,.1,.2,6,0,-1,.7 2960 DATA 103,"Grains de mais",354,13.5,9.5,4.4,69 2970 DATA 1,340,20,120,45,280,151,1,3,.7,.001,.01,.4,.1,2,0,-1,2.2 2980 DATA 104,"Riz blanc",354,12.3,6.2,1.7,77 2990 DATA 4,120,8,28,6,80,106,1,.8,.2,.001,0,.06,.03,1.5,0,0,.2 3000 DATA 105,"Semoules de ble",353,13,10.3,.8,76 3010 DATA 1,112,17,-1,-1,88,-1,-1,1,-1,-1,0,0.12,0.04,1.3,0,1.8,0.4 3020 DATA 106,"Germe de ble",382,11,25.3,10,47.7 3030 DATA -1,780,90,400,70,1100,320,-1,8,1.3,-1,-1,1,2.5,5,1,0.0007,1.8 3040 DATA 107,"Pates sans oeufs",149,-1,12,-1,-1 3050 DATA -1,-1,22,-1,-1,144,-1,-1,-1,-1,-1,-1,.1,-1,2,-1,-1,.3 3060 DATA 108,"Farine de mais",359,12,7.8,2.6,76.1 3070 DATA 0.7,300,6,84,-1,178,127,-1,1.8,0.2,0.08,-1,0.5,0.16,3.1,0,-1,0.7 3080 DATA 109,"Farine de riz",347,12,7.5,0.5,78 3090 DATA -1,-1,10,-1,-1,-1,-1,-1,0.6,-1,-1,-1,0.06,0.05,1,0,-1,0.2 3100 DATA 110,"Grain de riz poli",116,71,2.5,0.3,25.8 3110 DATA 2,38,4,-1,9,44,27,-1,0.3,-1,-1,-1,0.02,0.01,0.75,0,-1,0.1 3120 DATA 111,"croustillons & beignets",418,18.7,5.6,21,51.5 3130 DATA -1,-1,73,-1,-1,280,-1,-1,0.7,-1,-1,-1,0.15,0.14,1.2,0,-1,-1 3140 DATA 112,"Pates cru",370,8.6,12.8,1.4,76.5 3150 DATA 5,80,22,35,-1,165,-1,-1,1.5,-1,-1,0,0.09,0.06,2,0,-1,0.3 3160 DATA 113,"Pates cuites",148,60.6,5.1,0.6,30.5 3170 DATA -1,-1,9,-1,-1,65,-1,-1,0.6,-1,-1,0,0.02,0.01,0.5,0,-1,0.2 3180 DATA 114,"Patisseries-Gateaux(moyennes)",282,38,8,10,40 3190 DATA -1,-1,100,-1,-1,-1,-1,-1,1.6,-1,-1,0.03,0.16,0.22,1.4,-1,-1,-1 3200 DATA 115,"Artichaut",63,82,3.4,.3,12 3210 DATA 43,430,40,-1,22,94,21,.36,1.9,.2,.001,0.007,.15,.01,.1,9,-1,1.5 3220 DATA 116,"Ail frais(tete)",138,63.4,6,0.15,28.1 3230 DATA 32,515,38,36,-1,134,-1,-1,1.4,-1,0.09,-1,0.2,0.08,0.6,14,-1,1.1 3240 DATA 117,"Asperge",20,93,2,.2,3.9 3250 DATA 2,200,12,11,40,80,40,.3,.9,.14,.0017,.35,.15,.18,1.3,25,-1,.8 3260 DATA 118,"Aubergine",29,92,1.3,.2,5.5 3270 DATA 5,220,0.5,12,50,15,16,.19,.5,.1,.0018,.01,.04,.05,.6,8,-1,-1 3280 DATA 119,"Betterave rouge",40,86,1.6,.1,8 3290 DATA 110,340,27,-1,60,40,6,-1,1,.1,-1,.05,.02,.05,.4,9,-1,1.4 3300 DATA 120,"Carotte",42,88,1.2,.3,9 3310 DATA 31,300,50,15,50,30,22,.6,1.2,.14,.009,4,.1,.06,.5,9,-1,1.1 3320 DATA 121,"Celeri",20,93,1.3,.2,3.7 3330 DATA 100,290,60,25,137,40,22,-1,.5,-1,-1,.02,.05,.04,.4,7,-1,.7 3340 DATA 122,"Champignons de couche",29,91.4,2.2,0.24,4.4 3350 DATA 6,460,12,120,95,120,34,0.58,1,1.4,0.018,0,0.1,0.44,6.2,4,0.0038,0.9 3360 DATA 123,"Chou ordinaire",24,90,1.8,.3,6 3370 DATA 5,330,60,20,40,31,100,.17,.6,.1,.002,.4,.07,.06,.3,60,-1,1.3 3380 DATA 124,"Chou de Bruxelles",54,85,4,.07,8 3390 DATA 10,375,30,60,10,30,131,.25,1.3,.1,0,.05,.015,.16,1,80,-1,1.3 3400 DATA 125,"Chou rouge",24,89,1.9,.2,7.2 3410 DATA 32,3.2,53,17,45,32,68,.12,.57,.1,-1,.25,.1,-1,.4,70,-1,-1 3420 DATA 126,"Chou-fleur",30,90,2.4,.2,4.9 3430 DATA 24,300,120,18,29,72,85,.2,1.1,.17,.003,.03,.15,.12,.6,50,-1,.9 3440 DATA 127,"Choucroute",22,91,1.4,.4,5 3450 DATA 730,300,40,-1,-1,10,-1,-1,2,0.1,.0006,.002,.02,.1,.15,16,-1,1.4 3460 DATA 128,"Citrouille (potiron, courge)",31,90,1.3,.2,6 3470 DATA 3,400,22,9,20,35,10,.14,.6,.07,-1,.33,.05,.05,.5,7.5,-1,1.3 3480 DATA 129,"Concombre, Cornichon",24,96,.7,.1,3 3490 DATA 12,140,18,9,27,25,15,-1,.3,.15,.0013,.07,.03,.04,.2,5,-1,-1 3500 DATA 130,"Endive, Chicoree",22,93,1.5,.1,4 3510 DATA 18,400,80,13,50,32,25,.3,1.4,.14,-1,.3,.07,.12,.4,10,-1,.7 3520 DATA 131,"Epinard",20,92,2.3,.3,7.5 3530 DATA 300,500,70,50,75,55,30,.8,4,.18,.002,6,.20,.33,0.23,60,-1,.7 3540 DATA 132,"Haricot ordinaire sec",330,12,19,1.5,60 3550 DATA 40,1000,137,150,25,400,220,2,6.7,.9,.002,-1,.54,.18,2.1,0,0,4 3560 DATA 133,"Haricot vert frais",39,89,2.4,.2,3.5 3570 DATA 0.8,260,4,25,23,44,30,.32,.9,.18,.032,.2,.08,.1,.5,19,-1,1.9 3580 DATA 134,"Haricot vert en boite",21,92,1,.1,4.2 3590 DATA 410,120,27,-1,-1,19,-1,-1,1.4,-1,-1,.03,.03,.04,.3,3.4,-1,.6 3600 DATA 135,"Laitue",18,94,1.2,.2,2.9 3610 DATA 15,300,30,13,50,40,20,.42,.65,.18,.005,1,.08,.12,.5,15,-1,.6 3620 DATA 136,"Lentille",336,12,24,1.8,56 3630 DATA 3,750,60,80,60,400,277,-1,7,.5,.0015,.01,.5,.2,1.8,3,-1,3.7 3640 DATA 137,"Navet",35,88,1.1,.2,8.5 3650 DATA 57,280,6,10,55,35,45,.25,.5,.1,.02,1.2,.12,.07,.5,20,-1,1.1 3660 DATA 138,"Oignon",47,86,1.4,.2,10 3670 DATA 1,180,32,16,25,35,70,.25,.5,.1,.02,.003,.1,.07,.1,15,-1,.8 3680 DATA 139,"Poireau entier",42,88,2,.4,7.5 3690 DATA 100,300,60,18,40,50,72,.07,1,.3,.01,.05,.12,.03,.4,20,-1,-1 3700 DATA 140,"Pois vert",92,74,6,.4,16 3710 DATA 4,315,26,42,36,122,60,-1,2,.2,.007,.24,.3,.25,1.1,23,-1,2.2 3720 DATA 141,"Pois sec ou casse",340,12,23,1.5,59 3730 DATA 40,915,45,130,47,340,219,2.77,5.45,.6,.0017,.03,.77,.2,3.1,2,-1,5.4 3740 DATA 142,"Pomme de terre",86,77,2,.1,19 3750 DATA 5,500,15,30,50,60,30,.1,.3,.15,.003,.007,.12,.07,1.5,20,-1,.5 3760 DATA 143,"pomme de terre frites",400,20,5,9,52 3770 DATA -1,-1,30,-1,-1,152,-1,-1,-1,-1,-1,-1,.18,.11,3.3,-1,-1,1.1 3780 DATA 144,"Chips",544,3.1,6.7,37,50 3790 DATA -1,410,30,-1,-1,152,-1,-1,-1,-1,-1,-1,.18,.11,3.2,5,-1,1 3800 DATA 145,"Tomate",22,93,1,.3,4 3810 DATA 3,280,11,10,40,20,11,.12,.6,.15,.007,.8,.09,.04,.5,38,-1,.6 3820 DATA 146,"Piment (rouge,vert)",20,-1,1.1,-1,-1 3830 DATA -1,-1,6,-1,-1,26,-1,-1,-1,-1,-1,.02,-1,-1,-1,160,-1,-1 3840 DATA 147,"Persil(1 cuillere a soupe)",1,-1,3.7,-1,-1 3850 DATA -1,-1,193,-1,-1,84,-1,-1,-1,-1,-1,8,11,-1,1.4,66,-1,1.8 3860 DATA 148,"Cresson",22,-1,1.8,-1,-1 3870 DATA -1,-1,200,-1,-1,50,-1,-1,-1,-1,-1,3,.15,-1,-1,100,-1,-1 3880 DATA 149,"Mache",36,-1,2.5,-1,-1 3890 DATA -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,50,-1,1.7 3900 DATA 150,"Radis cru",21,92.9,1.1,0.1,3.9 3910 DATA 15,270,37,14,34,31,39,-1,0.016,1.1,14,0.009,0.06,0.03,0.3,21,-1,0.7 3920 DATA 151,"Abricot",51,86,.8,.1,10 3930 DATA 1,300,15,11,2,24,6,-1,.5,.12,-1,1.8,.06,.012,.7,10,-1,.8 3940 DATA 152,"Ananas frais",51,86,.5,.2,13 3950 DATA 2,250,25,70,30,11,6,1,.5,.07,.03,.05,.07,.05,.2,25,-1,.4 3960 DATA 153,"Ananas en boite",96,74,0.4,0.2,23 3970 DATA 2,120,20,10,-1,8,-1,-1,0.7,-1,-1,0.005,0.07,0.02,0.17,6,-1,0.3 3980 DATA 154,"Banane",90,75,1.4,0.5,20 3990 DATA 3,380,7,35,100,28,12,0.8,0.6,0.2,0.002,0.13,0.1,0.08,0.05,10,-1,0.6 4000 DATA 155,"Cerise",61,80.5,1.2,0.5,17 4010 DATA 3,250,18,12,3,21,9,0.03,0.4,0.13,0.002,.36,0.05,0.06,0.14,17,-1,0.3 4020 DATA 156,"Figue",270,79,4.3,.1,18 4030 DATA 33,285,50,21,16,35,10,.35,1.5,.1,0,.01,.06,.05,.5,22,-1,1 4040 DATA 157,"Fraise, Framboise",40,85,.7,.6,7 4050 DATA 2,160,35,17,17,28,16,.3,.75,.08,.008,.01,.03,.05,.4,25,0,1.2 4060 DATA 158,"Melon",31,92,.8,.2,6.5 4070 DATA 12,260,18,15,43,18,14,.04,.4,.05,.002,.05,.02,.05,.2,10,-1,-1 4080 DATA 159,"Orange, Mandarine, Pamplemousse",44,87,.7,.2,9 4090 DATA 2,170,35,11,4,20,10,.035,.45,.08,.0008,.06,.1,.03,.02,70,-1,.5 4100 DATA 160,"Peche",52,86,.5,.1,12 4110 DATA 3,230,8,10,3,22,7,.66,.4,.05,.002,.005,.03,.05,.3,6,0,.3 4120 DATA 161,"Poire",61,83,.4,.4,14 4130 DATA 3,130,99,7,2,10,5,.06,.4,.1,.002,.002,.05,.05,.2,5,0,-1 4140 DATA 162,"Pomme",52,87,.3,.35,12 4150 DATA 2,120,9,5,3,11,6,.04,.4,.1,.002,.01,.04,.02,.2,5,0,.6 4160 DATA 163,"Prune",64,83,.8,.1,10 4170 DATA 3,250,15,9,2,19,6,.11,.4,.15,.0017,.05,.1,.05,.3,5,0,-1 4180 DATA 164,"Raisin",66,81,0.8,1,17 4190 DATA 6,198,11,10,3,11,8,.07,.3,.1,.002,.005,.04,.02,.2,4,-1,-1 4200 DATA 165,"Raisin sec",298,24,2.6,0.9,69.7 4210 DATA 27,725,60,39,9,137,42,-1,3.3,0.2,-1,0.015,0.15,0.08,0.5,-1,-1,6.8 4220 DATA 166,"Avocat (1/2)",195,70,1.7,20,5.9 4230 DATA 3,680,10,41,16,40,35,-1,0.7,0.2,-1,0.014,0.05,0.18,1,16,-1,1.6 4240 DATA 167,"Amandes seches",600,-1,21,-1,17 4250 DATA -1,-1,243,-1,-1,-1,-1,-1,3,-1,-1,-1,.15,-1,-1,-1,-1,-1 4260 DATA 168,"Cacahuetes",560,-1,27,-1,-1 4270 DATA -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,1.1,-1,-1,-1,-1,-1 4280 DATA 169,"Noix",630,-1,15,-1,19 4290 DATA -1,-1,75,-1,-1,500,-1,-1,3,-1,-1,-1,-1,-1,-1,-1,-1,-1 4300 DATA 170,"Noisettes",656,-1,14,-1,17 4310 DATA -1,-1,200,-1,-1,300,-1,-1,3,-1,-1,-1,-1,-1,-1,-1,-1,-1 4320 DATA 171,"Citron",25,-1,.9,-1,8.7 4330 DATA -1,-1,13,-1,-1,10,-1,-1,-1,-1,-1,-1,.5,-1,.1,60,-1,-1 4340 DATA 172,"Dattes seches",284,-1,2.2,-1,75 4350 DATA .9,-1,65,-1,-1,70,-1,-1,-1,-1,-1,-1,.08,-1,2.2,-1,-1,-1 4360 DATA 173,"Groseilles",55,-1,1,-1,10 4370 DATA -1,-1,28,-1,-1,30,-1,-1,-1,-1,-1,-1,.08,-1,-1,25,-1,3 4380 DATA 174,"Huile vegetales",895,-1,0,99,0 4390 DATA -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,0,-1,-1,-1,0,0 4400 DATA 175,"Margarine",752,16,.8,83,.4 4410 DATA 106,-1,-1,-1,164,6,-1,-1,-1,-1,-1,-1,.006,-1,-1,-1,-1,0 4420 DATA 176,"Sucre raffine blanc(domino=5g)",398,0.4,0,0,99.5 4430 DATA 0.3,0.5,20,0,0,0,0,0,0.04,-1,-1,0,0,0,0,0,0,0 4440 DATA 177,"Miel",300,18,.3,.2,75 4450 DATA 7,20,5,6,25,16,3,.3,.5,.2,.1,0,.007,.06,.2,3,-1,0 4460 DATA 178,"Confiture (moyenne)",280,30,.5,.1,70 4470 DATA 12,12,12,-1,-1,12,-1,-1,.2,-1,-1,-1,.02,.2,.02,5,-1,0 4480 DATA 179,"Chocolat",530,2,2,30,63 4490 DATA 19,370,100,75,151,300,50,-1,3,-1,-1,-1,.03,.15,.6,0,-1,.5 4500 DATA 180,"Sel",0,-1,0,0,0 4510 DATA 40000,-1,12,76,60000,-1,23,-1,.3,.6,1.3,0,0,0,0,0,0,0 4520 DATA 181,"Gelee",260,-1,.2,-1,-1 4530 DATA -1,-1,12,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1 4540 DATA 182,"Vinaigre",-1,-1,-1,-1,-1 4550 DATA 20,90,15,16,45,20,18,-1,0.4,0.04,-1,-1,-1,-1,-1,-1,-1,-1 4560 DATA 183,"Huile d'olive",900,-1,0,99.9,0 4570 DATA 0.1,0.1,0.5,-1,-1,-1,-1,-1,0.08,0.07,-1,-1,-1,-1,-1,-1,-1,-1 4580 DATA 184,"Mayonnaise commerciale",408,40,-1,39.5,13 4590 DATA -1,-1,12,-1,-1,-1,-1,-1,-1,-1,-1,0.06,-1,-1,0,0,-1,-1 4600 DATA 185,"Mayonnaise fraiche",729,15.5,1.5,79,3 4610 DATA 650,40,20,-1,-1,60,-1,-1,-1,-1,-1,0.063,0.04,0.05,0,0,-1,-1 4620 DATA 186,"Bonbons(moyennes)",381,4.5,0.8,0.1,94 4630 DATA -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1 4640 DATA 187,"Caramels",428,7,2.5,11.8,77.8 4650 DATA -1,-1,126,-1,-1,90,-1,-1,2.3,-1,-1,0.051,0.02,0.14,0.1,-1,-1,-1 4660 DATA 188,"Sirops",296,24,0,0,74 4670 DATA 65,4,45,-1,-1,16,-1,-1,4,-1,-1,0,0,0.01,0.1,0,-1,-1 4680 DATA 189,"Moutarde verte",106,-1,6,6,7 4690 DATA 55,260,500,-1,15,750,1200,-1,-1,-1,-1,-1,0.1,0.2,0.8,75,-1,-1 4700 DATA 190,"Poivre",-1,-1,-1,-1,-1 4710 DATA 7,42,120,45,60,130,100,-1,10,1,-1,-1,-1,-1,-1,-1,-1,-1 4720 DATA 191,"Cafe (60g/900 ml d'eau)",4,98,.4,0,.4 4730 DATA .3,88,3.4,8.3,.6,2.8,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,0 4740 DATA 192,"The (10g/1 l d'eau)",1,99,.1,0,0 4750 DATA .4,17,.3,1.1,.4,1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,0 4760 DATA 193,"Limonade",48,0,0,12,-1 4770 DATA 14,.8,10,-1,1,1,-1,-1,.01,-1,0,0,0,0,0,0,0,0 4780 DATA 194,"Biere",45,-1,0.5,0,4 4790 DATA 3,46,10,5,20,20,55,0.03,0.08,0.01,-1,-1,0.009,0.02,0.8,0,0,0 4800 DATA 195,"Vin 10 (moyenne)",65,-1,.1,-1,.5 4810 DATA 3,80,10,15,2,20,5,.3,.5,.1,.005,-1,.005,.03,.1,.5,0,0 4820 DATA 196,"Cidre",40,-1,-1,-1,3 4830 DATA 6,150,5,4,20,7,5,.05,.2,-1,-1,-1,-1,-1,-1,-1,-1,0 4840 DATA 197,"Champagne",91,-1,.2,-1,-1 4850 DATA -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,0 4860 DATA 198,"Benedictine",365,-1,-1,-1,-1 4870 DATA -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,0 4880 DATA 199,"Eau de vie",250,-1,-1,-1,-1 4890 DATA -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,0 4900 DATA 200,"Rhum",312,-1,-1,-1,-1 4910 DATA -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,0 4920 DATA 201,"Whisky",301,-1,-1,-1,-1 4930 DATA -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,0 4940 DATA 202,"Jus de citron frais",35,90.7,0.4,0.1,8 4950 DATA 2,132,13,8,4,11,3,-1,0.14,0.13,0.003,0,0.04,-1,0.1,65,-1,0.9 4960 DATA 203,"Jus d'orange frais",49,88,0.6,0.1,11.4 4970 DATA 1,180,19,10,7,16,7,-1,0.3,0.09,-1,0.03,0.07,0.02,0.2,35,-1,0.1 4980 DATA 204,"Jus d'orange conserve",51,88,0.5,0.1,11.8 4990 DATA -1,-1,10,-1,-1,18,-1,-1,0.3,-1,-1,-1,0.07,0.02,0.2,28,-1,0.05 5000 DATA 205,"Jus de pomme frais",53,86,0.1,0,13 5010 DATA 2,100,6,-1,-1,10,-1,-1,0.5,0.35,-1,-1,0.02,0.03,0.5,3,-1,-1 5020 DATA 206,"Jus de raisin frais",74,82,0.4,0,18.1 5030 DATA 1,114,10,7,2,10,9,-1,0.3,0.02,-1,-1,0.04,0.05,0.2,3,-1,-1 5040 DATA 207,"Porto",160,-1,0.3,-1,14 5050 DATA 4,75,5,10,8,11,-1,-1,0.3,0.09,-1,-1,-1,-1,-1,-1,-1,-1 5060 DATA 208,"Sodas",44,90,0,0,11 5070 DATA -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,0 5080 DATA 209,"Bouillon de boeuf",280,3.2,20.6,19.2,6.4 5090 DATA -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1 5100 DATA 210,"Bouillon de poule",295,2.7,20.1,18.9,11.1 5110 DATA -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1 5120 DATA 211,"Bouillon cube",101,4,25,-1,-1 5130 DATA -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1 5140 DATA 212,"Bouillon de boeuf au vermicelle",341,5.9,14,5.5,58.7 5150 DATA -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1 5160 DATA 213,"Bouillon de poule au vermicelle",336,6.3,15.4,4.7,58 5170 DATA -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1 5180 DATA 214,"Potage poiraux & pommes de terre",348,6.3,11.8,8.2,56.7 5190 DATA -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1 5200 DATA 215,"Potage aux legumes",334,6,11.5,6.8,56.5 5210 DATA -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1 5220 DATA 216,"Potages aux champignons",357,6,15.4,10.2,50.8 5230 DATA -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1 5240 DATA 217,"Potages aux tomates",346,4.1,8.6,6.2,63.8 5250 DATA -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1 5260 DATA 218,"Soupe a l'oignon",339,4.1,10.8,9.3,53 5270 DATA -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1 5280 DATA 219,"Soupe aux pois au lard fume",322,7.2,14.6,7.3,49.4 5290 DATA -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1 5300 DATA 220,"Soupe de poissons",318,6.5,17.9,3.2,54.2 5310 DATA -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1 5320 PRINTSTRING$(80,255);:RETURN 5330 LOCATE18,25:PRINTCHR$(24);"Appuyez sur une touche pour continuer";CHR$(24);:WHILEINKEY$="":WEND:RETURN 5340 INPUT"Entrez votre choix : ",choix:RETURN 5350 CLS:PRINT"Noms";TAB(11);"Actions";TAB(37);"bes/j";TAB(44);"Effets carences";TAB(72);"Dang.abus";:GOSUB5320:RETURN 5360 CLS:PRINTnom$ 5370 INPUT"Poids en grammes (-1:Affichage caracteristiques, 0:Rien) : ",poids 5380 poids=poids/100:RETURN 5390 READ numero,nom$:FOR j=1 TO 23:READ caract(j):NEXT j:RETURN 5400 nitem=nitem+1:item(nitem)=numero:poids(nitem)=poids 5410 IF numero=180 THEN flagsel=1 5420 FOR j=1 TO 23 5430 IFcaract(j)<0THEN5450 5440 IFpoids>0THENtotal(j)=total(j)+caract(j)*poids 5450 NEXT j:RETURN 5460 IFitem(ndel)<0THENtotal(-1*item(ndel))=total(-1*item(ndel))-poids(ndel):RETURN 5470 RESTORE 920:FOR i=1 TO item(ndel):GOSUB 5390:NEXT i:FOR j=1 TO 23 5480 IFcaract(j)<0THEN5500 5490 total(j)=total(j)-caract(j)*poids(ndel) 5500 NEXT j:RETURN 5510 PRINTUSING"##";i;:PRINTUSING"_ ####.#_ ";poids(i)*100; 5520 PRINTLEFT$(nom$,18);TAB(31); 5530 IFcaract(2)>0THENPRINTUSING"###.#";poids(i)*caract(2); 5540 IFcaract(3)>0THENPRINTTAB(37);:PRINTUSING"###.#";poids(i)*caract(3); 5550 IF caract(4)>0 THEN PRINT TAB(43);:PRINT USING"###.#";poids(i)*caract(4); 5560 IF caract(5)>0 THEN PRINT TAB(49);:PRINT USING"###.#";poids(i)*caract(5); 5570 IF caract(1)>0 THEN PRINT TAB(55);:PRINT USING"####.#";poids(i)*caract(1); 5580 PRINTTAB(62);:IFcaract(17)>0THENPRINT"A "; 5590 IFcaract(18)>0THENPRINT"B1 "; 5600 IFcaract(19)>0THENPRINT"B2 "; 5610 IFcaract(20)>0THENPRINT"PP "; 5620 IFcaract(21)>0THENPRINT"C "; 5630 IFcaract(22)>0THENPRINT"D "; 5640 PRINT:RETURN 5650 CLS:GOSUB5320:PRINTTAB(12);"COMPOSITION MOYENNE DE ";nom$;" / 100g :";:GOSUB5320 5660 IF caract(1)<0 THEN PRINT"----"; ELSE PRINT USING"#### calories";caract(1) 5670 IF caract(2)<0 THEN PRINT:GOTO 5700 5680 PRINTUSING"## g d'eau pour 100g d'aliment";caract(2); 5690 PRINT USING" (poids sec : ## g )";100-caract(2) 5700 FOR j=3 TO 5:PRINT TAB(30*(j-3)); 5710 IFcaract(j)<0THENPRINT" -.-";ELSEPRINTUSING" ##.#";caract(j); 5720 PRINT" g de ";nom$(j);:NEXTj 5730 PRINT:GOSUB5320:PRINT"ELEMENTS MINERAUX :":FORj=6TO16 5740 IFcaract(j)<0THENPRINT" -.----";ELSEPRINTUSING"#####.####";caract(j); 5750 PRINT" mg de ";nom$(j);:IFj/2<>INT(j/2)THENPRINTTAB(40);ELSEPRINT 5760 NEXTj:GOSUB5320:PRINT"VITAMINES :":FORj=17TO22 5770 IFcaract(j)<0THENPRINT" -.----";ELSEPRINTUSING"#####.####";caract(j); 5780 PRINT" mg de ";nom$(j); 5790 IFj/2<>INT(j/2)THENPRINTTAB(40);ELSEPRINT 5800 NEXTj:GOSUB5320:IFcaract(23)<0THENPRINT" -.-";ELSEPRINTUSING" ##.#";caract(23); 5810 PRINT" mg de cellulose":GOSUB5320:GOSUB5330:RETURN 5820 CLS:IFnitem=0THENLOCATE15,12:PRINT"Veuillez tout d'abord composer votre menu !":GOSUB5330:GOTO130 5830 GOSUB6280:CLS 5840 PRINT"Nous allons maintenant verifier que les aliments que vous avez choisis sont":PRINT" equilibres et vous apportent tous les nutriments dont vous avez besoin.":PRINTCHR$(24) 5850 PRINT"ATTENTION: Ce programme tres complet vous permettra d'equilibrer au mieux votre regime , MAIS IL NE REMPLACE PAS UN MEDECIN et , si vous estimez souffrir d'une carence alimentaire serieuse , VOUS devez bien sur aller le consulter. " 5860 PRINTCHR$(24);"De plus , il ne peut verifier que votre regime est complet que si vous avez indique tous vos aliments d'une journee." 5870 'etude et affichage composition regime 5880 PRINT:GOSUB5320:PRINTTAB(12);"ETUDE DE LA COMPOSITION GLOBALE DE VOTRE MENU DU JOUR":GOSUB5320:PRINT:PRINT 5890 PRINTTAB(10);USING"####.# calories (Vos besoins sont de #### calories par jour)";total(1),bescal:PRINT"reparties en:":PRINTTAB(10);USING"####.# g de protides -PROTEINES- (soit environ ####.# calories)";total(3),total(3)*4 5900 callip=total(4)*9:PRINTTAB(10);USING"####.# g de lipides -GRAISSES- (soit environ ####.# calories)";total(4),callip:PRINTTAB(10);USING"####.# g de glucides -SUCRES- (soit environ ####.# calories)";total(5),total(5)*4 5910 PRINT:GOSUB5330:CLS:GOSUB5320:PRINT"Composes : Apports : Besoins : Remarques : ":GOSUB5320 5920 FOR i=6 TO 23:PRINT nom$(i);TAB(20);total(i);TAB(40);besoins(i); 5930 GOSUB5990:NEXTi:GOSUB5320:GOSUB5330:CLS 5940 PRINT:PRINT:PRINT:IFtotal(3)<70THENPRINT"Vous ne consommez pas assez de proteines . Le minimun recommande est de 70 g/j.";:PRINT"Revoyez votre regime en consequence ( plus de viandes , poissons , etc... ).":PRINT 5950 plip=INT(1000*callip/total(1))/10 5960 IFplip>35THENPRINT"** ATTENTION ** : Les lipides vous apportent ";plip;"% de votre ration":PRINT"calorique : Il est tres important pour votre sante de reduire ce":PRINT" pourcentage en-DESOUS de 35 % .":PRINT 5970 IFflagsel=0THENPRINT"Vous n'avez pas indique de sel dans vos apports . Si vous salez vos aliments ,":PRINT"vous devez indiquer le sel utilise dans vos apports alimentaires.":PRINT 5980 GOSUB5330:GOTO130 5990 IFtotal(i)>=besoins(i)THENPRINTTAB(50);"Ok":RETURN 6000 IF total(i)>=besoins(i)/1.5 THEN PRINT TAB(50);"Acceptable":RETURN 6010 PRINT TAB(50);"*** Attention : manque":RETURN 6020 CLS:CLEAR:END 6030 CLS:PRINTTAB(20);"TABLEAU DES BESOINS CALORIQUES":GOSUB5320 6040 PRINT TAB(7);"Categorie";TAB(27);"Activite ou age";TAB(67);"Besoins" 6050 GOSUB5320:PRINT" HOMMES (vie sedentaire)"; 6060 PRINT" Travail physique faible ............... 2400 a 2800" 6070 PRINTTAB(27);"Travail physique moyen ................ 3200 a 3800" 6080 PRINTTAB(27);"Travail physique intense .............. 4000 a 5500" 6090 PRINT:PRINT" FEMMES (vie sedentaire)"; 6100 PRINT" Travail physique faible ............... 2000 a 2400" 6110 PRINT TAB(27);"Travail physique moyen ............... 3000 a 3500" 6120 PRINT" FEMMES (enceintes)"; 6130 PRINT" Vie sedentaire ou legere activite ..... 2800 a 3200" 6140 PRINT" FEMMES (allaitantes)"; 6150 PRINT" Vie sedentaire ou legere activite ..... 3000 a 3500" 6160 PRINT:PRINT" ENFANTS"; 6170 PRINT TAB(27);"6 mois a 1 an ......................... 600 a 700" 6180 PRINT TAB(27);"1 an a 2 ans .......................... 700 a 900" 6190 PRINT TAB(27);"2 a 4 ans ............................. 1000 a 1200" 6200 PRINT TAB(27);"4 a 6 ans ............................. 1200 a 1500" 6210 PRINT TAB(27);"6 a 10 ans ............................ 1500 a 2000" 6220 PRINT TAB(27);"10 a 12 ans ........................... 1800 a 2300" 6230 PRINT TAB(27);"Garcons de 12 a 15 ans .............. 2300 a 3200" 6240 PRINT TAB(27);" de 15 a 20 ans .............. 3000 a 3500" 6250 PRINT TAB(27);"Filles de 12 a 13 ans .............. 2400 a 2800" 6260 PRINT TAB(27);" de 14 a 18 ans .............. 2800 a 3200" 6270 GOSUB 5330:RETURN 6280 CLS:IFconnu=1THEN6310 6290 PRINT:INPUT"Entrez vos besoins caloriques par jour (-1 si inconnu)";bescal 6300 IFbescal=-1THENGOSUB6030:CLS:GOTO6290 6310 connu=1:RETURN |