XProfan

Window Title "Sättigungsampel the german Apothekervereinigung"
' fountain: Public Domain - www.apothekenumschau.de - 23570513937.pdf
' Bezeichnung, calories per gram, Ampelfarbe (red,yellow,green = r y g)
Window Style 24:font 2:Window %maxx*0.4,%maxy*0.8
locate 2,2:print "     entry                          calories apiece gram \n"
Var values$="# bread \n"+\
"y, Schwarzbrot, 1.9 - 2.2 \n"+\
"y, Graubrot, 1.9 - 2.2 \n"+\
"r, Weißbrot, 2.5 \n"+\
"r, crispbread, 3.2 \n"+\
"r, Croissant, 4.3 \n"+\
\
"#Beilagen with Kohlenhydraten \n"+\
\
"g, potatoes, 0.7 \n"+\
"g, Kartoffelsalat with vinegar and Öl, 1.0 \n"+\
"y, Kartoffelsalat with Mayonnaise, 2.1 \n"+\
"g, Kartoffelkloßteig (Ö: Kartoffelknödel), 1.1 \n"+\
"g, Bratkartoffeln, 1.3 \n"+\
"g, rice, 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, french fries (from Friteuse), 2.9 \n"+\
\
"# meat \n"+\
\
"g, Hähnchenbrustfilet, 1.0 \n"+\
"g, Putenschnitzel, 1.0 \n"+\
"g, Rindfleisch fatless, 1.0 \n"+\
"g, veal fatless, 1.0 \n"+\
"g, Rindersteak, 1.2 \n"+\
"y, Rinderhackfleisch (Ö: Faschiertes), 2.2 \n"+\
"r, mincemeat mixed (Ö: Fettes Faschiertes), 2.6 \n"+\
"g, Schweineschnitzel nature, 1.1 \n"+\
"r, Schweineschnitzel paniert, 3.2 \n"+\
"g, Schweinskotelett, 1.5 \n"+\
"y, Frikadelle/Bullette/Fleischpflanzerl/Ö: Faschiertes Laibchen, 2.1 \n"+\
"y, duck, 2.3 \n"+\
"r, goose, 3.4 \n"+\
\
"# cheese \n"+\
\
"g, Frischkäse 5 % Big utterly, 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 % Big utterly, 2.0 \n"+\
"r, Mozzarella, 2.5 \n"+\
"r, Frischkäse 60 % Big, 2.9 \n"+\
"r, Gouda, 3.5 \n"+\
"r, edam, 3.5 \n"+\
"r, Raclette. 45 % FiT, 3.5 \n"+\
"r, camembert 45 % FiT, 2.9 \n"+\
"r, Mascarpone, 4.6 \n"+\
\
"# sausage & cold meats \n"+\
\
"g, Gekochter Schinken, 1.3 \n"+\
"g, Kalter roast meat, 1.4 \n"+\
"g, Geräucherter Schinken, 1.5 \n"+\
"g, Energiearme sausage/Würstchen, 0.8 - 1.3 \n"+\
"y, Bierschinken, 1.7 \n"+\
"r, gendarme, 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"+\
\
"# fruit & vegies \n"+\
\
"g, fruit (in the average), 0.5 \n"+\
"r, Trockenobst (in the average), 2.7 \n"+\
"g, Grüner lettuce, 0.1 \n"+\
"y, Salatsoße, 0.3 - 4.5 \n"+\
"g, vegies (in the average), 0.2 \n"+\
"g, Tiefkühlgemüse, 0.2 - 1.2 \n"+\
"r, olives Black, 3.5 \n"+\
\
"# Fats \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, honey, 3.3 \n"+\
"r, jam / jam, 2.7 \n"+\
"r, Nussnougatcreme, 5.2 \n"+\
\
"# Fertiggerichte & Fastfood \n"+\
\
"g, Suppen, 0.3 - 0.8 \n"+\
"g, eggs, 1.5 \n"+\
"g, Eintöpfe (tin), 0.2 - 0.9 \n"+\
"y, Hamburger, 2.4 \n"+\
"y, Döner, 2.1 \n"+\
"y, fish fingers, 2.0 \n"+\
"r, Tiefkühlpizza, 2.1 - 2.9 \n"+\
\
"# muesli / yoghurt \n"+\
\
"g, yoghurt with Früchten - gezuckert 1.5% Big, 0.8 \n"+\
"g, yoghurt with Früchten - gezuckert 3.5% Big, 0.9 \n"+\
"r, muesli (dry), 3.1 - 4.4 \n"+\
"r, Fruchtriegel / Müsliriegel, 3.2 - 4.2 \n"+\
\
"# fish \n"+\
\
"g, Seelachs, 0.8 \n"+\
"g, Zander, 0.8 \n"+\
"g, cod, 0.8 \n"+\
"g, Krabben, 0.9 \n"+\
"g, trout, 1.0 \n"+\
"y, Sushi, 1.6 \n"+\
"y, mackerel, 1.8 \n"+\
"y, salmon, 2.0 \n"+\
"y, Heringsfilet in Tomatensoße, 2.0 \n"+\
"r, Panierter fish, 3.2 \n"+\
\
"# Soßen \n"+\
\
"g, Braune To helle Soßen, 0.4 - 1.1 \n"+\
"g, Tomatensauce, 0.6 - 1.3 \n"+\
"g, sour cream (Ö: 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, cream (Ö: Obers), 3.1 \n"+\
"r, Crème Fraiche, 3.8 \n"+\
\
"# Knabbereien \n"+\
\
"r, Nüsse, 5.7 - 7.0 \n"+\
"r, crisps, 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 (from the Kühlregal), 0.6 - 1.2 \n"+\
"g, Milchreis (from the Kühlregal), 0.6 - 1.2 \n"+\
"y, Sahnepudding, 1.5 - 1.6 \n"+\
"y, ice-cream, 1.4 - 2.9 \n"+\
"y, Kaiserschmarrn, 2.4 \n"+\
"r, Vollmilchschokolade, 5.4 \n"+\
"r, Weiße chocolate, 5.4 \n"+\
"r, Edelbitterschokolade, 5.3 \n"+\
"r, Marzipan, 4.9 \n"+\
"r, Tiramisu (self made), 2.6 \n"+\
"r, Mousse (chocolate+vanilla+wine:self made), 3.3 \n"+\
\
"# cake \n"+\
\
"y, Obstkuchen from Hefeteig, 1.8 \n"+\
"r, Rührkuchen, 3.6 \n"+\
"r, Sahnetorte (Ö: Topfentorte), 3.7 \n"+\
"r, Blätterteiggebäck, 3.3 \n"+\
\
"# drinks \n"+\
\
"g, waters, 0 \n"+\
"g, Light-Limonaden, 0 \n"+\
"g, tea, 0 \n"+\
"g, coffee without Mildch and sugars, 0 \n"+\
"r, Fruchtsaft, 0.5 \n"+\
"r, lemonade, 0.4 \n"+\
"r, Cola, 0.6 \n"+\
"g, Cola light, 0 \n"+\
"g, Cola Zero, 0 \n"+\
"r, Alkoholfreies beer, 0.3 \n"+\
"r, beer, 0.4 \n"+\
"r, Rotwein, 0.8 \n"+\
"r, white wine, 0.8 \n"+\
"r, champagne, 0.8 \n"+\
"r, Likör, 2.4 \n"+\
"r, Whisky, 2.4 \n"+\
"r, milk (1.5 % Big), 0.5 \n"+\
"r, milk (3.5 % Big), 0.6"
'values$=translate$(values$," ","")
declare zwi$[]:zwi$[]=explode(values$,"\n"):clear values$
declare n&,light$[],Item$[],worth$[]

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

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

endwhile

clear zwi$[]

whileloop 0,n&-1

    Select light$[&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 "     entry                       calories apiece gram \n"

    endif

endwhile

waitinput
End