64'er 1985 August/64er_Magazin_85-08_1985_Markt__Technik_de.d64/rechen-demo

Commodore BASIC | 2022-10-26 | 269b | 13 lines

5 rem*****rechen-demo*****
10 !new
15 :
20 !def unterprogramm=:q=1+p/100:kn=k*q^n:_
30 !def umrechnung=:unterprogramm:print"endkapital nach"n"jahren ="kn:_
35 :
40 input"anfangskapital  :";k
50 input"laufzeit (jahre):";n
60 input"zins            :";p
65 :
70 umrechnung
80 end