F:9F2~
F.;F6
F.;F6
F:9F2~
F>9F8~
 WEND
END DEF
SUB GetChar(RChar$,Ch1$,Special%,TermSet$,DataType$,SpecialSet%)
' Diese Routine liest Zeichen einzeln ein, analysiert 
des Zeichen
nur die Menge 
        DIE DATEN WERDEN JETZT IN  TEXTDATEI 'WACHSTUM.TXT' GESPEICHERT         WACHSTUM.TXTo L= L
SCHEN DER BESTEHENDEN DATEN     S = SPEICHERN IN TEXTDATEI 'WACHSTUM.TXT'    ENDE DER EINGABE MIT F1    -    ABBRUCH UND R
CKKEHR ZUM HAUPTMEN
 MIT ESC   ##/##/##0.##00. #0123456789ILN-0123456789.-0123456789RQOGHPMKDCBA@?>=<; - BITTE DR
CKEN SIE ZUM NEUSTART DIE RETURNTASTE     ###    FEHLER NR. ====== >       BITTE DEN DRUCKER BEREITMACHEN UND DANN DIE RETURNTASTE DR
CKEN       SLWOLLEN SIE NOCH EINE BERECHNUNG ? (J/N)ENDSUMME                           : nNjJWOLLEN SIE EINEN AUSDRUCK ?    (J/N)ENDSUMME              : ERGEBNISSE############,.##VORGABEN (Programm Zinsen)DIE ERFORDERLICHEN ANFANGSWERTE EINBITTE GEBEN SIE JETZTSPARDAUER IN JAHREN                : JAHRESZINS IN PROZENT              : H
UFIGKEIT DER VERZINSUNG PRO JAHR : ANGELEGTE SUMME                    : EINEN BESTIMMTEN BETRAG ANZULEGEN HABEN.WIEVIEL GELD SIE HABEN WERDEN, WENN SIE  DIESES PROGRAMM BERECHNET
zinsen.exeIFARBEN.DAT