r55Q3F1F2F3F4F5F6F7F8P1P2P3P4P5P6P7P8Q2Q1CHNJNX1X2X3X4X5X6X7X8X9X0PSFFBELNPQQIE  @!"#$%&'()*+,-./0d!!---------------------------n"ZINZRECHNUNGEN"x!!--------------------------- AbINITIALISIEREMENUEFELD AUFBAUEN))6.ZUKUENFTIGER WERT EINER EINLAGE,,6."ZUKUENFTIGER WERT BEI RATENZAHLUNG6.BARWERTERMITTLUNG,,6."BARWERTERMITTLUNG BEI RATENZAHLUNG++6.!EINZAHLEN BEI BESTIMMTER ENDSUMME6.REGELM.ABBUCHUNGEN6.RENDITE))6.INVEST.M.UNGLEICHM.RUECKZAHLUNG))6.ZEITRAUM BIS KAPITALVERDOPPLUNG6.ZINSUMRECHNUNG)6-@ Ap)ANZEIGE MENUEPROGRAMM AUSSUCHENWWAA A0A AAAApA @A#  AP"!!---------------------------,''6.ZUKUENFTIGER WERT DER EINLAGE6""----------------------------@ +((J6-@INITIALISIERETPARAMETEREINGABE^%6.BITTE DATEN EINGEBEN%6.h"6.ANFANGSKAPITAL" Afr'6.ZINSINTERVALLE/JAHR' Af|'6.JAHRL.ZINSSATZ IN %' Af&6.LAUFZEIT IN JAHREN& AfBERECHNUNG , ZUKUENFTIGER WERT,-@$@6-8@,%%-@8@,$8@,))6-%$8@,'A'8@, $$6-P:$A%?P,'A(6. BERECHNUNG A4 4N$ A!!---------------------------$$6.ZUK.WERT MEHRERER EINLAGEN!!---------------------------& +(( 6-@0DATENEINLAGE:%6.BITTE DATEN EINGEBEN%6.D)6.HOEHE DER RATEN IN DM) AfN,"6.WIE VIELE ZAHLUNGEN/JAHR, AfX(6.JAHRL. ZINSSATZ IN %( Afb&6.LAUFZEIT IN JAHREN& AflBERECHNUNGv/((ZUKUENFTIGER WERT/-@$@6-%%-@8@,$8@,446-8@,%%$8@,'A'8@, $$6-P:$A%?P,'A(6. BERECHNUNG A4WOLLEN SIE EINE WEITERE 4N$ A  --------------------------6.BARWERTERMITTLUNG --------------------------0 +(( 6-@0INITIALISIEREDATENEINGABE %6.BITTE DATEN EINGEBEN%6.+!6.ZUKUENFTIGER WERT IN DM+ Af '6.ZINSINTERWALLE/JAHR' Af*#6.JAEHRL.ZINSSATZ# Af4&6.LAUFZEIT IN JAHREN& Af>BERECHNUNGH/((GEGENWERTIGER WERT/-@$@RRR6-8@,'+@%8@,'A'8@,,#+8@,$8@,,\$$6-P:$A%?P,'Af(p6. BERECHNUNG A4qWOLLEN SIE EINE WEITEREz 4N$ A0!!---------------------------((6.BARWERTERM. BEI RATENZAHLUNGEN!!---------------------------0 +(( 6-@0INITIALISIEREDATENEINGABE%6.BITTE DATEN EINGEBEN%6.(6.ZAHLUNGSBETRAG IN DM( Af* 6.WIEVIEL ZAHLUNGEN/JAHR* Af(6.JAHRL. ZINSSATZ IN %( Af&6.LAUFZEIT IN JAHREN& AfBERECHNUNG*(( BARWERT HEUTE*-@$@6-%%-@8@,$8@,@@6-%8@,'++@%8@,'A'8@,,#, $$$6-P:$A%?P,'A. 86. BERECHNUNG A49WOLLEN SIE EINE WEITEREB 4N$L A V --------------------------` 6. VORGEGEBENE ENDSUMMENj --------------------------t +(( 6-@~DATENEINGABE%6.BITTE DATEN EINGEBEN%6.+!6.ZUKUENFTIGER WERT IN DM+ Af+!6.WIE VIEL ZAHLUNGEN/JAHR+ Af'6.JAHRL.ZINSSATZ IN %' Af&6.LAUFZEIT IN JAHREN& AfBERECHNUNG'(( RATENHOEHE'-@$@%%6-8@,'A'8@,6-8@,$8@,,,6-8@,$'++@%,#&@,$$6-P:$A%?P,'A(WOLLEN SIE EINE WEITERE76. BERECHNUNG A47WEITERE DURCHFUEHRUNG?  4N$ A------------------------(##6.REGELMAESSIGE ABBUCHUNGEN2------------------------< +(( 6-@FDATENEINGABEZ"6.ANFANGSKAPITAL" Afd-#6.WIE VIEL ABBUCHUNGEN/JAHR- Afn'6.JAHRL. ZINSSAT IN %' Afx* 6.HOEHE DER AUSZAHLUNGEN* AfBERECHNUNG0((ANZAHL AUSZAHLUNGEN0-@$@6-8@,6-@446-%$8@,'A'8@,&8@, 8@,A&( (&(DAS BANKGUTHABEN WAECHST -A@6@C2@@@C2@%@P@@+'2@%A@@+ i%2@G2@i2@ AP 8@,A06-%@ A@((ZAHLUNGEN IN JAHREN!-@$@ !('@6. BERECHNUNG A4 4N$" A,--------------66.REDITE@--------------J +(( 6-@TDATENEINGABE^%6.BITTE DATEN EINGEBEN%6.h'6.INVESTIERTER BETRAG' Afr* 6.AUSBEZAHLTER ENDBETRAG* Af|&6.ZINSINTERWALL/JAHR& Af&6.LAUFZEIT IN JAHREN& AfBERECHNUNG((RENDITE PRO JAHR/-@$@/6-8@,$8@,HH6-++8@,'8@,,#+@',&@,$A$8@,$$6-P:$A%?P,'A(6. BERECHNUNG A4 4N$ A!!---------------------------((6.INVEST.UNREGELM.RUECKZAHLUNGEN!!---------------------------INITIALISIERE +(( 6-@DATENEINGABE&%6.BITTE DATEN EINGEBEN%6.0'6.INVESTIERTER BETRAG' Af:'6.JAHRL.ZINSSATZ IN %' AfD))6.GEBEN SIE DIE JAEHRL.BETRAGE INN))6.REIHENFOLGE DER FAELLIGKEIT EINX##6.NULL,WENN EINGABE BEENDETb APFRAGE STELLENl'6-68@,'-@Av,,-@&P:'@,$@%@$$( ERTRAG NR. ,,-@&P:'@,$@%@DATEN SPEICHERN"Ap**6-%'+@%8@,'A,# %-@@%( INVESTITION-@$@$$6-P:$A%?P,'A(6. BERECHNUNG A4 4N$ Ap------------------------%%6.KAPITALVERDOPPLUNGSZEITRAUM ------------------------ +(( 6-@ DATENEINGABE*%6.BITTE DATEN EINGEBEN%6.4'6.ZINSINTERWALLE/JAHR' Af>(6.JAEHRL.ZINSSATZ IN %( AfHBERECHNUNGR$($(JAHRE BIS ZUR VERDOPPLUNG\-@2@f%%6-8@,'A'8@,p,,6-K:@,'+8@,$K:@%,,z$$6-P:$A%?P,'A(6. BERECHNUNG A4 4N$ A @ ------------------------ 6.ZINSUMRECHNUNG$ ------------------------. +(( 6-@8 DATENEINGABEB %6.BITTE DATEN EINGEBEN%6.L (6.JAEHRL.ZINSSATZ IN %( AfV '6.ZINSINTERWALLE/JAHR' Af` +!6.ZAHLUNGSINTERWALLE/JAHR+ Afj 06-8@,!6-8@,06-8@,t ''6-$+@%'A',#+',&~ "("(ENTSPRECHENDER ZINSSATZ -@2@ $$6-P:B$%?P,'A ( 6. BERECHNUNG A4  4N$ A# H "FORTSETZUNG"I -------------J ##FRAGE NACH WEITEREM DURCHLAUFK !!DIESE ROUTINE FRAGT DEN AN-M !!WENDER,OB ER WEITERE DURCH-N LAEUFE WUENSCHTO P UEBERGABEPARAMETERQ Q2$=ZEICHENKETTE ZUR KENN-R ZEICHNUNG DER OPERATIONT RUECKGABEPARAMETERU !!JN$= A "J" ODER "N" FUER JAV ODER NEINW X ------------\ !!6.WOLLEN SIE EINE WEITEREf 6.DURCHFUEHREN J ODER N?p  APDIALOGz " Ax"FRAGE JA ODER NEIN $"DIALOG"-------- DIALOGUEBERGABEPARAMETER&&Q1$,Q2$,Q3$=ENTHALTEN DIE FRAGENRUECKLAUFPARAMETER: KEINEANMERKUNG: UNGENUTZTE FRAGEGLEITTEXTE SOLLEN MIT ""VERSORGT SEIN1-@@ )-@@-(1 -@@"-@!@AP/-@@8/ZEICHNEN EINES RANDES -  "@ ( ERST FRAGE""@!("ZWEITE FRAGE#"@"(#DRITTE FRAGE $"ZEICHENEINGABE"----------------WARTEN,BIS EIN ZEICHEN!!AUF DER TASTATUR EINGEGEBENGEBEN WIRDRUECKGABEPARAMETERCH$=ZEICHENEINGABE !------------------,WARTEN AUF ENGABE6##@@K:@)@J@T 6.>:,^$"DATENEINGABE"--------------DATENEINGABEUNTERPARAMETER:Q1$,Q2$=BENUTZERANWEISUNGF1$-F8$=NAME DER EINZU-GEBENEN DATENRUECKGABEPARAMETERP1$-P8$=DATENFELDANMERKUNG:""ES WIRD JEWEILS EIN DATENPA-""RAMETER EINGELESEN DER INDEXK WIRD VON 1 FORTLAUFEND AUTOMATISCH WEITERGEZAEHLT--------------"@6."@6."@6."@6."@6."@6."@6."@6. !@AY0 6.6.6.6.  6.6.6.6.* APSTELLE FRAGEN4>"@6.H"@6.R"@6.\"@6.f"@6.p"@6.z"@6."@6.%%WIEDERGABE DER GELESENEN FRAGEN-@%@(-@%@(+ 6.6-%@+ZAEHLER ERHOEHEN$8!!"BILDSCHIRM INITIALISIEREN"9 --------------------------:;DIESE ROUTINE LOESCHT DEN<BILDSCHIRM UND DRUCKER=DEN PROGRAMMTITTEL AUS>UEBERGABEPARAMETER?N$=PROGRAMMTITTEL@ARUECKGABEPARAMETERB KEINECD------------------L +BILD LOESCHENV   `>1;@@,;@@,;@@,;@,>;@0,j<<;@,;@8,;@8,;@8,;@8,t<<;@8,;@8,;@8,;@8,;@8,~&&;@0,9@,;@8,&&6. 11;@ ,;@ ,;@ ,;@ ,11;@ ,;@ ,;@ ,;@ ,11;@ ,;@ ,;@ ,;@ ,11;@ ,;@ ,;@ ,;@ ,&&;@,;@,;@,#6.>:AU,#ENDE DER ZEILE$"PARAMETEREINGABE"-----------------UEBERPARAMETER:Q1$,Q2$=BENUTZERANWEISUNGQ3$=NAME DEREINZUGEBENEN DATEIRUECKGABEPARAMETER:PAR(K)=DATENFELDANMERKUNG:!!ES WIRD JEWEILS EIN PARAME-!!TER FORTLAUFEND AUTOMATISCHWEITERGEZAEHLT--------------------- APSTELLE FRAGEN68,-HOLE,WERTAUSGABE UND ANTWORT-@%@(-@2%@(8,6-%@$X "MENUE"Y------------------ZMENUE-PROGRAMM[\ DIESES PROGRAMM STELLT EIN]MENUE AUF DEM BILDSCHIRM^DAR UND TRIFFT DANN DIE_ AUSWAHL`UEBERGABEPARAMETER:aN=ANZAHL DER POSITIONENb$$X1$-X0$=FELD DER PROGRAMMNAMENcdRUECKGABEPARAMETER:eX=NUMMER DER GEWAEHLTENfPROGRAMMEgh------------------j +l//Aq@Aq0Aq AqAp56-&@5ApAppAp`ApP-@@(0=-@@(9=-@@(8=-@@ (7=-@@(6=-@@(5=-@@(4=-@@(3=-@@(2=-@@(1= 6.6.6.AUSWAHL TREFFEN: APFRAGEN STELLEN  ATEINGABE ZEICHEN 6-A:, PRUEFEN,OB ZEICHEN IM! BEREICH*"6-@4@*$>**6. EINGABE UNZULAESSIG,WIEDERHOLUNGH APR Aq "PAUSE"-------------------WARTEN AUF TASTENEINGABEDIES ROUTINE WARTET AUF!!DIE BETAETIGUNG EINER TASTEUEBERGABEPARAMETER: KEINE KEINE KEINE-------------------''6.WEITER?BITTE TASTE BETAETIGEN 6.6.* AP*AUFRUF DES DIALOGPROGRAMMS##@@K:$)@.@8$x"JA/NEINy--------------------z JA-NEIN{|UEBERGABEPARAMETER} KEINE~RUECKGABEPARAMETERJN$=A "J" ODER "N"-------------------- WARTEN AUF EIN TASTENDRUCK##@@K:)@@ 6.>:,0J*0NAx0($D2:ZINSEN1.BASWEITEREBERECHNUNGDURCHFUEHREN J ODER N?R1ZUKUENFTIGER WERT DER EINLAGENZUKUEN