XProfan

Título de la ventana upper$("  Inflationswirkung en una 100 Euro-Schein ")+" (Ohne jede Gewähr!)"
Ventana de Estilo 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"
declarar Land$,Basisjahr$,Betrag!,InfR!,Faktor!,sí$,ir$,flg&,L$
Land$="D"
nochma:
font 2
locate 2,1:imprimir " Inflation para Europa, Deutschland oder Österreich [E,D,A]?: ";
input L$:caso (Land$>"") and (L$=""):goto "skip"
Land$=left$(upper$(trim$(L$)),1)
skip:
caso (Land$<>"E") and (Land$<>"D") and (Land$<>"A"):goto "nochma"
wiebitte:
locate 4,1
imprimir " Wann wurde el 100 Eur-Valor verdient? Jan.[1991,..,2018]?: ";
input Basisjahr$:caso (basisjahr$<"1991") or (basisjahr$>"2018"):goto "wiebitte"
BETRAG!=100.00
flg&=0
font 1
locate 6,1

IF Land$="E"

    Whileloop 29,2,-1

        sí$=substr$(substr$(HVPI_Europa$,&Loop,";"),1,",")
        ir$=substr$(substr$(HVPI_Europa$,&Loop,";"),2,",")
        imprimir " ";Ja$;"  ";ir$;"%  ",
        caso sí$=Basisjahr$:flg&=1

        if flg&

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

        endif

        imprimir

    endwhile

ElseIf Land$="D"

    Whileloop 29,2,-1

        sí$=substr$(substr$(HVPI_Deu$,&Loop,";"),1,",")
        ir$=substr$(substr$(HVPI_Deu$,&Loop,";"),2,",")
        imprimir " ";ja$;"  ";ir$;"%  ",
        caso sí$=Basisjahr$:flg&=1

        if flg&

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

        endif

        imprimir

    endwhile

Elseif Land$="A"

    Whileloop 9,36

        sí$=substr$(substr$(HVPI_AT$,&Loop,";"),1,","),
        ir$=substr$(substr$(HVPI_AT$,&Loop,";"),2,","),
        imprimir " ";ja$;"  ";ir$;"%  ",
        caso sí$=Basisjahr$:flg&=1

        if flg&

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

        endif

        imprimir

    endwhile

Más

    imprimir " Daten para unbekanntes Land no verfügbar!"

Endif

waitinput
cls
goto "nochma"