XProfan

Titre de la fenêtre upper$("  Inflationswirkung sur une 100 Euro-billet ")+" (sans chacun Gewähr!)"
Fenêtre Style 24:CLS:set("decimals",2)
Var HVPI_Europa$="Jahr,Proz%;"+"2018,1.80;"+\
"2017,1.35;2016,1.14;2015,0.23;2014,-0.17;2013,0.85;2012,2.22;2011,2.75;2010,2.22;2009,0.93;"+\
"2008,1.64;2007,3.11;2006,1.92;2005,2.28;2004,2.36;2003,2.02;2002,2.32;2001,2.09;2000,2.56;"+\
"1999,1.82;1998,0.85;1997,1.60;1996,2.18;1995,2.49;1994,2.67;1993,3.19;1992,3.30;1991,4.39"
Var HVPI_Deu$="Jahr,Proz%;"+\
"2018,2.20;2017,1.80;2016,0.50;2015,0.30;2014,0.90;2013,1.50;2012,2.00;2011,2.10;2010,1.10;"+\
"2009,0.30;2008,2.60;2007,2.30;2006,1.50;2005,1.60;2004,1.60;2003,1.10;2002,1.40;2001,2.00;"+\
"2000,1.40;1999,0.60;1998,1.00;1997,2.00;1996,1.40;1995,1.80;1994,2.60;1993,4.50;1992,5.10;"+\
"1991,5.10"
Var HVPI_AT$="Jahr,Proz%;"+\
"1980,6.4;1985,3.2;1986,1.7;1987,1.4;1988,2.0;1989,2.5;1990,3.3;"+\
"1991,3.3;1992,4.1;1993,3.6;1994,3.0;1995,2.2;1996,1.9;1997,1.3;"+\
"1998,0.9;1999,0.6;2000,2.3;2001,2.7;2002,1.8;2003,1.3;2004,2.1;"+\
"2005,2.3;2006,1.5;2007,2.2;2008,3.2;2009,0.5;2010,1.9;2011,3.3;"+\
"2012,2.4;2013,2.0;2014,1.7;2015,0.9;2016,0.9;2017,2.1;2018,2.2"
declare pays$,Basisjahr$,Betrag!,InfR!,facteur!,oui$,ir$,flg&,L$
Land$="D"
nochma:
font 2
locate 2,1:imprimer " inflation pour Europa, l'allemagne ou bien Österreich [E,D,A]?: ";
input L$:cas (pays$>») and (L$=»):goto "skip"
Land$=left$(upper$($ Trim(L$)),1)
skip:
cas (pays$<>"E") and (pays$<>"D") and (pays$<>"A"):goto "nochma"
wiebitte:
locate 4,1
imprimer " quand wurde qui 100 Eur-Wert verdient? Jan.[1991,..,2018]?: ";
input Basisjahr$:cas (basisjahr$<"1991") or (basisjahr$>"2018"):goto "wiebitte"
BETRAG!=100.00
flg&=0
font 1
locate 6,1

IF pays$="E"

    Whileloop 29,2,-1

        oui$=substr$(substr$(HVPI_Europa$,&Boucle,";"),1,»)
        ir$=substr$(substr$(HVPI_Europa$,&Boucle,";"),2,»)
        imprimer " ";Ja$;"  ";ir$;"%  ",
        cas oui$=Basisjahr$:flg&=1

        si flg&

            Imprimer "Jan.: ";Betrag!,tab(30);
            Betrag!=Betrag!/(1+val(Ir$)/100)
            Imprimer "Dez.: ";Betrag!,
            imprimer "  Kaufkraftverlust: ",(100-Betrag!);"% ";

        endif

        imprimer

    endwhile

ElseIf pays$="D"

    Whileloop 29,2,-1

        oui$=substr$(substr$(HVPI_Deu$,&Boucle,";"),1,»)
        ir$=substr$(substr$(HVPI_Deu$,&Boucle,";"),2,»)
        imprimer " ";ja$;"  ";ir$;"%  ",
        cas oui$=Basisjahr$:flg&=1

        si flg&

            Imprimer "Jan.: ";Betrag!,tab(30);
            Betrag!=Betrag!/(1+val(Ir$)/100)
            Imprimer "Dez.: ";Betrag!,
            imprimer "   Kaufkraftverlust: ",(100-Betrag!);"% ";

        endif

        imprimer

    endwhile

Elseif pays$="A"

    Whileloop 9,36

        oui$=substr$(substr$(HVPI_AT$,&Boucle,";"),1,»),
        ir$=substr$(substr$(HVPI_AT$,&Boucle,";"),2,»),
        imprimer " ";ja$;"  ";ir$;"%  ",
        cas oui$=Basisjahr$:flg&=1

        si flg&

            Imprimer "Jan.: ";Betrag!,tab(30);
            Betrag!=Betrag!/(1+val(Ir$)/100)
            Imprimer "Dez.: ";Betrag!,
            imprimer "  Kaufkraftverlust: ",(100-Betrag!);"% ";

        endif

        imprimer

    endwhile

D'autre

    imprimer " données pour unbekanntes pays pas disponible!"

Endif

waitinput
cls
goto "nochma"