XProfan

WindowTitle "Sättigungsampel der Deutschen Apothekervereinigung"
' Quelle: Public Domain - www.apothekenumschau.de - 23570513937.pdf
' Bezeichnung, Kalorien pro Gramm, Ampelfarbe (red,yellow,green = r y g)
WindowStyle 24:font 2:Window %maxx*0.4,%maxy*0.8
locate 2,2:print "     Eintrag                          Kalorien je Gramm \n"
Var Werte$="# Brot \n"+\
"y, Schwarzbrot, 1.9 - 2.2 \n"+\
"y, Graubrot, 1.9 - 2.2 \n"+\
"r, Weißbrot, 2.5 \n"+\
"r, Knäckebrot, 3.2 \n"+\
"r, Croissant, 4.3 \n"+\
\
"#Beilagen mit Kohlenhydraten \n"+\
\
"g, Kartoffeln, 0.7 \n"+\
"g, Kartoffelsalat mit Essig und Öl, 1.0 \n"+\
"y, Kartoffelsalat mit Mayonnaise, 2.1 \n"+\
"g, Kartoffelkloßteig (Ö: Kartoffelknödel), 1.1 \n"+\
"g, Bratkartoffeln, 1.3 \n"+\
"g, Reis, 1.1 \n"+\
"g, Nudeln, 1.4 \n"+\
"g, Vollkornnudeln, 1.4 \n"+\
"y, Kroketten, 1.9 \n"+\
"y, Spätzle, 1.8 \n"+\
"r, Pommes frites (aus Friteuse), 2.9 \n"+\
\
"# Fleisch \n"+\
\
"g, Hähnchenbrustfilet, 1.0 \n"+\
"g, Putenschnitzel, 1.0 \n"+\
"g, Rindfleisch mager, 1.0 \n"+\
"g, Kalbfleisch mager, 1.0 \n"+\
"g, Rindersteak, 1.2 \n"+\
"y, Rinderhackfleisch (Ö: Faschiertes), 2.2 \n"+\
"r, Hackfleisch gemischt (Ö: Fettes Faschiertes), 2.6 \n"+\
"g, Schweineschnitzel Natur, 1.1 \n"+\
"r, Schweineschnitzel paniert, 3.2 \n"+\
"g, Schweinskotelett, 1.5 \n"+\
"y, Frikadelle/Bullette/Fleischpflanzerl/Ö: Faschiertes Laibchen, 2.1 \n"+\
"y, Ente, 2.3 \n"+\
"r, Gans, 3.4 \n"+\
\
"# Käse \n"+\
\
"g, Frischkäse 5 % Fett absolut, 1.1 \n"+\
"g, Kräuterquark_(Ö:Topfen), 1.4 \n"+\
"y, Mozzarella light, 1.6 \n"+\
"g, Speisequark 40% FiT, 1.4 \n"+\
"y, Frischkäse 16 % Fett absolut, 2.0 \n"+\
"r, Mozzarella, 2.5 \n"+\
"r, Frischkäse 60 % Fett, 2.9 \n"+\
"r, Gouda, 3.5 \n"+\
"r, Edamer, 3.5 \n"+\
"r, Raclette. 45 % FiT, 3.5 \n"+\
"r, Camembert 45 % FiT, 2.9 \n"+\
"r, Mascarpone, 4.6 \n"+\
\
"# Wurst & Aufschnitt \n"+\
\
"g, Gekochter Schinken, 1.3 \n"+\
"g, Kalter Braten, 1.4 \n"+\
"g, Geräucherter Schinken, 1.5 \n"+\
"g, Energiearme Wurst/Würstchen, 0.8 - 1.3 \n"+\
"y, Bierschinken, 1.7 \n"+\
"r, Landjäger, 4.6 \n"+\
"r, Wiener Würstchen/Gelbwurst/Ö: Frankfurter, 2.8 \n"+\
"r, Bratwurst, 3.1 \n"+\
"r, Salami, 3.7 \n"+\
"r, Leberwurst, 3.0 \n"+\
"r, Leberkäs, 3.0 \n"+\
\
"# Obst & Gemüse \n"+\
\
"g, Obst (im Durchschnitt), 0.5 \n"+\
"r, Trockenobst (im Durchschnitt), 2.7 \n"+\
"g, Grüner Salat, 0.1 \n"+\
"y, Salatsoße, 0.3 - 4.5 \n"+\
"g, Gemüse (im Durchschnitt), 0.2 \n"+\
"g, Tiefkühlgemüse, 0.2 - 1.2 \n"+\
"r, Oliven schwarz, 3.5 \n"+\
\
"# Fette \n"+\
\
"r, Öl, 9.0 \n"+\
"r, Butter, 8.0 \n"+\
"r, Margarine, 8.0 \n"+\
"r, Becel plus, 4.5 \n"+\
"r, Halbfettbutter/-margarine, 3.7 \n"+\
\
"# Süßer Brotaufstrich \n"+\
\
"r, Honig, 3.3 \n"+\
"r, Konfitüre / Marmelade, 2.7 \n"+\
"r, Nussnougatcreme, 5.2 \n"+\
\
"# Fertiggerichte & Fastfood \n"+\
\
"g, Suppen, 0.3 - 0.8 \n"+\
"g, Eier, 1.5 \n"+\
"g, Eintöpfe (Konserve), 0.2 - 0.9 \n"+\
"y, Hamburger, 2.4 \n"+\
"y, Döner, 2.1 \n"+\
"y, Fischstäbchen, 2.0 \n"+\
"r, Tiefkühlpizza, 2.1 - 2.9 \n"+\
\
"# Müsli / Joghurt \n"+\
\
"g, Joghurt mit Früchten - gezuckert 1.5% Fett, 0.8 \n"+\
"g, Joghurt mit Früchten - gezuckert 3.5% Fett, 0.9 \n"+\
"r, Müsli (trocken), 3.1 - 4.4 \n"+\
"r, Fruchtriegel / Müsliriegel, 3.2 - 4.2 \n"+\
\
"# Fisch \n"+\
\
"g, Seelachs, 0.8 \n"+\
"g, Zander, 0.8 \n"+\
"g, Kabeljau, 0.8 \n"+\
"g, Krabben, 0.9 \n"+\
"g, Forelle, 1.0 \n"+\
"y, Sushi, 1.6 \n"+\
"y, Makrele, 1.8 \n"+\
"y, Lachs, 2.0 \n"+\
"y, Heringsfilet in Tomatensoße, 2.0 \n"+\
"r, Panierter Fisch, 3.2 \n"+\
\
"# Soßen \n"+\
\
"g, Braune bis helle Soßen, 0.4 - 1.1 \n"+\
"g, Tomatensauce, 0.6 - 1.3 \n"+\
"g, Saure Sahne (Ö: Sauermilch), 1.2 \n"+\
"y, Cocktailsoße, 2.0 \n"+\
"r, Sauce Holandaise, 4.4 - 5.7 \n"+\
"r, Pesto, 3.6 - 5.8 \n"+\
"r, Mayonnaise, 7.4 \n"+\
"r, Sahne (Ö: Obers), 3.1 \n"+\
"r, Crème Fraiche, 3.8 \n"+\
\
"# Knabbereien \n"+\
\
"r, Nüsse, 5.7 - 7.0 \n"+\
"r, Kartoffelchips, 5.3 \n"+\
"r, Reiskräcker, 3.8 \n"+\
"r, Popcorn, 3.7 \n"+\
"r, Salzstangen Ö: Soletti, 3.5 \n"+\
\
"# Süßigkeiten / Desserts \n"+\
\
"g, Pudding (aus dem Kühlregal), 0.6 - 1.2 \n"+\
"g, Milchreis (aus dem Kühlregal), 0.6 - 1.2 \n"+\
"y, Sahnepudding, 1.5 - 1.6 \n"+\
"y, Eis, 1.4 - 2.9 \n"+\
"y, Kaiserschmarrn, 2.4 \n"+\
"r, Vollmilchschokolade, 5.4 \n"+\
"r, Weiße Schokolade, 5.4 \n"+\
"r, Edelbitterschokolade, 5.3 \n"+\
"r, Marzipan, 4.9 \n"+\
"r, Tiramisu (selbst gemacht), 2.6 \n"+\
"r, Mousse (Schokolade+Vanille+Wein:selbst gemacht), 3.3 \n"+\
\
"# Kuchen \n"+\
\
"y, Obstkuchen aus Hefeteig, 1.8 \n"+\
"r, Rührkuchen, 3.6 \n"+\
"r, Sahnetorte (Ö: Topfentorte), 3.7 \n"+\
"r, Blätterteiggebäck, 3.3 \n"+\
\
"# Getränke \n"+\
\
"g, Wasser, 0 \n"+\
"g, Light-Limonaden, 0 \n"+\
"g, Tee, 0 \n"+\
"g, Kaffee ohne Mildch und Zucker, 0 \n"+\
"r, Fruchtsaft, 0.5 \n"+\
"r, Limonade, 0.4 \n"+\
"r, Cola, 0.6 \n"+\
"g, Cola light, 0 \n"+\
"g, Cola Zero, 0 \n"+\
"r, Alkoholfreies Bier, 0.3 \n"+\
"r, Bier, 0.4 \n"+\
"r, Rotwein, 0.8 \n"+\
"r, Weißwein, 0.8 \n"+\
"r, Sekt, 0.8 \n"+\
"r, Likör, 2.4 \n"+\
"r, Whisky, 2.4 \n"+\
"r, Milch (1.5 % Fett), 0.5 \n"+\
"r, Milch (3.5 % Fett), 0.6"
'werte$=translate$(werte$," ","")
declare zwi$[]:zwi$[]=explode(werte$,"\n"):clear werte$
declare n&,ampel$[],Item$[],Wert$[]

whileloop 0,sizeof(zwi$[])-1 :case left$(zwi$[&loop],1)="#":continue

    ampel$[n&]=substr$(zwi$[&Loop],1,",")
    Item$[n&]=substr$(zwi$[&Loop],2,",")
    Wert$[n&]=substr$(zwi$[&Loop],3,",")
    inc n&

endwhile

clear zwi$[]

whileloop 0,n&-1

    Select ampel$[&Loop]

        caseof "g":color 15,2

        caseof "y":color 0,14

        caseof "r":color 15,12

    endselect

    print tab(6);Item$[&Loop],
    color 0,15:print tab(50);Wert$[&Loop]

    if %csrlin > 40

        waitinput
        cls
        locate 2,2:print "     Eintrag                       Kalorien je Gramm \n"

    endif

endwhile

waitinput
End