home *** CD-ROM | disk | FTP | other *** search
/ The Best of the Best / _.img / 02057 / kredzins.tbc (.txt) < prev    next >
Turbo Basic Chain module  |  1990-09-15  |  19KB  |  27 lines
  1. F:9F2~
  2. F.;F6
  3. F.;F6
  4. F:9F2~
  5. F>9F8~
  6. (16," Beenden der Eingabe mit F1-Taste... ")
  7. call initkbdio
  8. call editdata3
  9. call removewindow
  10. PTR%=PTRALT%
  11. end sub
  12. sub WARNUNG(TST$)
  13. call makewindow(8,10,11,60,fnattr%(0,7
  14. 2,2,1)
  15. call t
  16. ten vermisch
  17.         DIE DATEN WERDEN JETZT IN  TEXTDATEI 'KREDZINS.TXT' GESPEICHERT         KREDZINS.TXTo L= L
  18. SCHEN DER BESTEHENDEN DATEN     S = SPEICHERN IN TEXTDATEI 'KREDZINS.TXT'    ENDE DER EINGABE MIT F1    -    ABBRUCH UND R
  19. CKKEHR ZUM HAUPTMEN
  20.  MIT ESC   ##/##/##0.##00. #0123456789ILN-0123456789.-0123456789RQOGHPMKDCBA@?>=<; - BITTE DR
  21. CKEN SIE ZUM NEUSTART DIE RETURNTASTE     ###    FEHLER NR. ====== >       BITTE DEN DRUCKER BEREITMACHEN UND DANN DIE RETURNTASTE DR
  22. CKEN       SLWOLLEN SIE NOCH EINE BERECHNUNG ? (J/N)nNjJWOLLEN SIE EINEN AUSDRUCK ?    (J/N)EFFEKTIVER ZINSSATZ   : ERGEBNISSE############,.##FEHLER ! ==> ZINSSATZ IST 0 ODER KLEINER 0FEHLER ! ==> ZINSSATZ IST 
  23. BER 250 PROZENTBITTE UM ETWAS GEDULD, BERECNUNG L
  24. UFT!VORGABEN (Programm Kreditverzinsung)DIE ERFORDERLICHEN ANFANGSWERTE EINBITTE GEBEN SIE JETZTLAUFZEIT IN JAHREN    : MONATLICHE RATE       : KREDITBETRAG          : KREDIT MIT RATENZAHLUNG IST.DIE EFFFEKTIVE VERZINSUNG BEI EINEMDIESES PROGRAMM BERECHNET WIE HOCH
  25. IFARBEN.DATzinsen.exe
  26. sub TAGEFENST&
  27.