XProfan

WindowTitle upper$("  Inflationswirkung auf einen 100 Euro-Schein ")+" (Ohne jede Gewähr!)"
WindowStyle 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 Land$,Basisjahr$,Betrag!,InfR!,Faktor!,ja$,ir$,flg&,L$
Land$="D"
nochma:
font 2
locate 2,1:print " Inflation per Europa, Germania oder Österreich [E,D,A]?: ";
input L$:case (Land$>"") and (L$=""):goto "skip"
Land$=left$(upper$(trim$(L$)),1)
skip:
case (Land$<>"E") and (Land$<>"D") and (Land$<>"A"):goto "nochma"
wiebitte:
locate 4,1
print " Wann wurde der 100 Eur-Wert verdient? Jan.[1991,..,2018]?: ";
input Basisjahr$:case (basisjahr$<"1991") or (basisjahr$>"2018"):goto "wiebitte"
BETRAG!=100.00
flg&=0
font 1
locate 6,1

IF Land$="E"

    Whileloop 29,2,-1

        ja$=substr$(substr$(HVPI_Europa$,&Loop,";"),1,",")
        ir$=substr$(substr$(HVPI_Europa$,&Loop,";"),2,",")
        print " ";Ja$;"  ";ir$;"%  ",
        case ja$=Basisjahr$:flg&=1

        if flg&

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

        endif

        print

    endwhile

ElseIf Land$="D"

    Whileloop 29,2,-1

        ja$=substr$(substr$(HVPI_Deu$,&Loop,";"),1,",")
        ir$=substr$(substr$(HVPI_Deu$,&Loop,";"),2,",")
        print " ";ja$;"  ";ir$;"%  ",
        case ja$=Basisjahr$:flg&=1

        if flg&

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

        endif

        print

    endwhile

Elseif Land$="A"

    Whileloop 9,36

        ja$=substr$(substr$(HVPI_AT$,&Loop,";"),1,","),
        ir$=substr$(substr$(HVPI_AT$,&Loop,";"),2,","),
        print " ";ja$;"  ";ir$;"%  ",
        case ja$=Basisjahr$:flg&=1

        if flg&

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

        endif

        print

    endwhile

Else

    print " Daten per unbekanntes Land nicht disponibile!"

Endif

waitinput
cls
goto "nochma"