1000 REM *** RENTE ***
1010 REM *** Versie november 1983 door J.N. Verwoerd ***
1020 GOSUB 1290
1030 PRINT:PRINT:PRINT:PRINT:PRINT
1040 PRINT TAB(20)"***** RENTEBEREKENING *****"
1050 PRINT:PRINT:PRINT:PRINT
1060 INPUT "BEDRAG ";B
1070 INPUT "RENTEPERCENTAGE ";R
1080 INPUT "LOOPTIJD ";N
1090 GOSUB 1290
1100 PRINT "'RENTE PER JAAR OPGENOMEN'"
1110 PRINT "BEDRAG    RENTEPERCENTAGE    LOOPTIJD     RENTE"
1120 A=INT(B*R/100*N+.5)
1130 PRINT "FL";B,R;"%",N;"JAAR","FL";A
1140 PRINT:PRINT
1150 PRINT "'RENTE OP RENTE' "
1160 PRINT "LOOPTIJD    BEGINBEDRAG  RENTEPERCENTAGE  EINDKAPITAAL"
1170 FOR I=1 TO N
1180 A=INT(((B*R/100)+.005)*100)/100
1190 K=B+A
1200 PRINT I;"JAAR","FL";B,R;"%","FL";K
1210 B=K
1220 NEXT I
1230 PRINT:PRINT
1240 INPUT "HEEFT U MEER BEREKENINGEN? <Y>/N ";A$
1250 IF A$<>"N" THEN GOTO 1020
1260 PRINT:PRINT
1270 PRINT "EINDE PROGRAMMA"
1280 END
1290 PRINT CHR$(26)
1300 RETURN
$
1250 IF A$<>"N" THEN GOTO 1020
1260 PRINT:PRINT
1270 PRINT "EINDE PROGRAMMA"
1280 END
1