1060 "Z" CLEAR : CLS : INPUT "Kredithoehe=";K,"Zinssatz in %=";Z,"Laufz.in Mon=";L
 1061 Z=Z/1200:A=(1+Z)^L:R=K*Z*A/(A-1)
 1062 FOR I=1 TO L:P=K*Z:T=R-P:K=K-T
 1063 X=R: GOSUB 1066: PRINT I;"mon.Rate :DM "; STR$ F:X=P: GOSUB 1066: PRINT "Zinsanteil :"; STR$ F+"%"
 1064 X=T: GOSUB 1066: PRINT "Tilg.Anteil:DM "; STR$ F:X=K: GOSUB 1066: PRINT "Restschuld :DM "; STR$ F
 1065 NEXT I: END 
 1066 F= INT (100*X+.5)/100: RETURN