1050 "K" CLEAR : CLS : INPUT "mon.Rate=";R,"Laufzeit in Jahren=";L,"Zinssatz in %=";Z
 1051 Z=Z/100: FOR I=1 TO L:A=(1+Z)^I,K=R*(A-1)*(12/Z+6.5),K= INT (100*K+.5)/100
 1052 PRINT I;"Jahr:DM "+ STR$ K: NEXT I: END