home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 85 / Tiger_Disk_085_20xx_Tiger-Crew-Disk_de_Side_B.d64 / zinsberechnung (.txt) < prev   
Commodore BASIC  |  2023-02-26  |  620b  |  14 lines
  1. 10 print"[147]programm zur berechnung von zinsen bei"
  2. 20 print"jaehrlicher zinszahlung und gegebenem"
  3. 30 printtab(11)"ausgangskapital.":printtab(9)"prof.dr.w.voss, 1984"
  4. 40 k0$="":input"ausgangskapital     : ";k0$:k0=val(k0$):ifk0=<0thenend
  5. 50 p$="":input"jaehrl.zinssatz in %: ";p$:p=val(p$):ifp<=0thenend
  6. 60 t$="":input"anzahl der jahre    : ";t$:t=val(t$):ift<=0thenend
  7. 70 gosub120:fori=1tot:kt=k0*(1+p/100):z=k0*p/100:kt=k0+z:z=int(z*100+.5)/100
  8. 80 kt=int(kt*100+.5)/100:printtab(2)i;tab(8)z;tab(18)kt:k0=kt
  9. 90 ifi/19=int(i/19)thengosub110
  10. 100 nexti:gosub110:print"[147]":goto40
  11. 110 print"  bitte eine taste druecken!  ":gosub130:ifi>tthenreturn
  12. 120 print"[147] jahr     zins      kapital":print"[158]":return
  13. 130 poke198,0:wait198,1:poke198,0:return
  14.