Calculated the end total

[Kernelpanic]

Calculated the end total of a constant annual capital deposit. Payable in advance and annually in arrears(?) - Financial English!

It is an old program, written with QB4.02b now convert in QB64 - and it is in German.

Code: QB64: [Select]

1. '1200.001Berechnet ein angesammeltes Kapital nach n Jahren,
2. 'Siehe -Duden Mathematik- S.540f                   -  5. Okt.  1994
3. 'Ausdruck der Daten                                       - 12. M„rz  1995
4. 'Vor- und Nachschssige Berechnung und Ausdruck    - 15. Sept. 1996
5. 'Calculated the end total of a constant annual capital deposit - Sept 2020
6. '=========================================================================
7.  
8. DECLARE SUB Drucken (Einzahlung AS DOUBLE, Zinssatz AS SINGLE, Zeit AS INTEGER, q AS DOUBLE)
9.  
10. DIM Einzahlung AS DOUBLE, EndKapVor AS DOUBLE, EndKapNach AS DOUBLE
11. DIM Zeit AS INTEGER, Zinswert AS SINGLE, q AS DOUBLE
12. DIM Zaehler AS INTEGER, ZwiSumVor AS DOUBLE, ZwiSumNach AS DOUBLE
13. DIM Spalte AS INTEGER
14. DIM Antwort AS STRING
15. '--------------------------------------------------------------
16. DIM SHARED Datum AS STRING, Monat AS STRING
17. DIM SHARED Tag AS STRING, Jahr AS STRING
18.  
19.  
20. 'Bildschirmfarbe: Weiss auf Blau
21. COLOR 15, 1
22. CLS
23.  
24. 'Muss im Hauptmodul stehen, s.a. N61 "B.-Befehlsverzeichnis"
25. Datum$ = DATE$
26. FOR I% = 1 TO VAL(Datum$)
27.   READ Monat$
28. NEXT
29. DATA Januar,Februar,Maerz,April,Mai,Juni,Juli
30. DATA August,September,Oktober,November,Dezember
31.  
32. Tag$ = MID$(Datum$, 4, 2)
33. IF LEFT$(Tag$, 1) = "0" THEN Tag$ = RIGHT$(Tag$, 1)
34. Jahr$ = RIGHT$(Datum$, 4)
35.  
36. COLOR 14
37. LOCATE 1, 12
38. PRINT "BERECHNET ZU WELCHER ENDSUMME SICH EINE GLEICHBLEIBENDE"
39. LOCATE 2, 21
40. PRINT "JÄHRLICHE KAPITALEINZAHLUNG SUMMIERT"
41. COLOR 10
42. FOR I% = 1 TO 80
43.   PRINT "Ü";
44. NEXT
45. COLOR 15, 1
46. LOCATE 5, 3
47. INPUT "Geben Sie die j„hrliche Einzahlung ein ( Euro ) : ", Einzahlung
48. LOCATE 6, 3
49. INPUT "Geben Sie den Zinsfuá ein ( % )                 : ", Zinswert
50. LOCATE 7, 3
51. INPUT "Geben Sie die Einzahlungsdauer ( Jahre ) ein    : ", Zeit
52. IF Zeit > 99 THEN
53.   Zeit = 99
54. END IF
55.  
56. 'Zinsfaktor berechnen
57. q = (1 + (Zinswert / 100))
58.  
59. LOCATE 9, 44
60. PRINT "Vorschssig    ³   Nachschssig"
61.  
62. Spalte = 40
63. FOR I% = 1 TO 39
64.   LOCATE 10, Spalte
65.   PRINT "Ä"
66.   Spalte = Spalte + 1
67. NEXT
68.  
69. Zaehler = 5
70. WHILE Zaehler < Zeit
71.   ZwiSumVor = (Einzahlung * q * (((q ^ Zaehler) - 1) / (q - 1)))
72.   ZwiSumNach = (Einzahlung * (((q ^ Zaehler) - 1) / (q - 1)))
73.   LOCATE , 3
74.   PRINT USING "Das Kapital betr„gt nach ## Jahren: ###,###,###.## Euro ³ ###,###,###.## Euro"; Zaehler; ZwiSumVor; ZwiSumNach
75.   Zaehler = Zaehler + 5
76.   'Spielt nur bei Einer-Schritten eine Rolle
77.   'IF Zaehler = Zeit THEN GOTO WEITER
78. WEND
79.  
80. 'WEITER:
81. EndKapVor = (Einzahlung * q * (((q ^ Zeit) - 1) / (q - 1)))
82. EndKapNach = (Einzahlung * (((q ^ Zeit) - 1) / (q - 1)))
83.  
84. 'Wird mit einer Variablen "Zeile" gearbeitet, kommt es zum Programmabbruch,
85. 'wenn die Ausgabe ber 25 Zeilen hinausgeht.
86. PRINT
87. LOCATE , 3
88. PRINT USING "Endkapital nach ## Jahren         : "; Zeit;
89.  
90. COLOR 12
91. LOCATE , 39
92. PRINT USING "###,###,###.## Euro"; EndKapVor;
93. LOCATE , 61
94. PRINT USING "###,###,###.## Euro"; EndKapNach;
95. PRINT
96.  
97. COLOR 11
98. LOCATE , 41
99. PRINT "=================";
100. LOCATE , 63
101. PRINT "=================": PRINT
102.  
103. END '*** Ende Hauptprogramm ***
104.  

[bplus]

Next a program to convert Euro to Dollar :)

Welcome to forum, Kernelpanic

[Kernelpanic]

Next a program to convert Euro to Dollar :)

Ha, ha, ha, . . . ;-)

Thank you!
It was a nice time with Basic. My first contact with programming was with Apple Basic.

[FellippeHeitor]

Welcome aboard!

[Kernelpanic]

Thanks, Fellippe!

And I have a problem: I have forgotten how I have convert a QB 4.02 program that I then can load it in QB64. I can not see my old QB programs.

[FellippeHeitor]

I don't think I understand your problem. Care to elaborate?

[SMcNeill]

I don't think I understand your problem. Care to elaborate?

Sounds like the program was saved in tokenized (non-text) format.  If that’s the issue, there should be a link to a conversion program in the wiki.

[FellippeHeitor]

The conversion program has been integrated into the IDE, but it won't load QB4.02 format. It'll only work with QB4.5 format. Unless there wasn't a change between those two versions.

[Kernelpanic]

Yeah, how can it in English say? I don't know.
In German:
Vor einigen Monaten ist mein Rechner kaputt gegangen, und ich mußte meinen uralt, eingemotteten Rechner mit Win XP wieder reaktivieren . . . vielleicht habe ich in der Zeit das alte QB-Programm in QB64 übersetzt - eine andere Erklärung habe ich nicht. Ich habe alles probiert was ich finden konnte - Null.

Exuse me, but so is it.

[FellippeHeitor]

Attach the file here and let us have a look.

[Kernelpanic]

Hello, this is what it looks when I open old programs in QB64. With some it works, maybe I loaded them into QuickBasic as text under Win XP and then transferred them to QB64.
I'll try to install MS-DOS in Hyper-V, and then QuickBasic. Let's see.

[Kernelpanic]

The file: