1 REM Ins{nt av 2314
10 ; CHR$(12)
20 ; "slutv{rde p} regelbundna inbetalningar"
30 ; 
40 ; "belopp vid varje inbetalning";
50 INPUT R
60 ; "r{nta";
70 INPUT I
80 ; "antal ins{ttningar per }r";
90 INPUT N
100 ; "antal }r";
110 INPUT Y
120 I=I/N/100
130 T=R*((1+I)^(N*Y)-1)/I
140 ; "slutv{rdet=";INT(T*100+.5)/100
150 ; 
160 ; : ; "EN TILL? (J/N):"; : GET B$
170 IF B$="n" OR B$="N" THEN 180 ELSE ; CHR$(12) : GOTO 10
180 END