home *** CD-ROM | disk | FTP | other *** search
/ The Best of the Best / _.img / 02057 / wachsen.tbc (.txt) < prev    next >
Turbo Basic Chain module  |  1990-09-15  |  19KB  |  21 lines
  1. F:9F2~
  2. F.;F6
  3. F.;F6
  4. F:9F2~
  5. F>9F8~
  6.  WEND
  7. END DEF
  8. SUB GetChar(RChar$,Ch1$,Special%,TermSet$,DataType$,SpecialSet%)
  9. ' Diese Routine liest Zeichen einzeln ein, analysiert 
  10. des Zeichen
  11. nur die Menge 
  12.         DIE DATEN WERDEN JETZT IN  TEXTDATEI 'WACHSTUM.TXT' GESPEICHERT         WACHSTUM.TXTo L= L
  13. SCHEN DER BESTEHENDEN DATEN     S = SPEICHERN IN TEXTDATEI 'WACHSTUM.TXT'    ENDE DER EINGABE MIT F1    -    ABBRUCH UND R
  14. CKKEHR ZUM HAUPTMEN
  15.  MIT ESC   ##/##/##0.##00. #0123456789ILN-0123456789.-0123456789RQOGHPMKDCBA@?>=<; - BITTE DR
  16. CKEN SIE ZUM NEUSTART DIE RETURNTASTE     ###    FEHLER NR. ====== >       BITTE DEN DRUCKER BEREITMACHEN UND DANN DIE RETURNTASTE DR
  17. 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
  18. UFIGKEIT DER VERZINSUNG PRO JAHR : ANGELEGTE SUMME                    : EINEN BESTIMMTEN BETRAG ANZULEGEN HABEN.WIEVIEL GELD SIE HABEN WERDEN, WENN SIE  DIESES PROGRAMM BERECHNET
  19. zinsen.exeIFARBEN.DAT
  20.       
  21.