5 GOTO 300
10 PRINT CHR$(27)"E"
30 PRINT"Behalve de annuiteit geeft het progamma ook het aflossings plan voor 
32 PRINT"de gehele periode, waarover de annuiteitenlening loopt.
33 PRINT
35 PRINT TAB(20)"******* -VOORBEELD 1- ******"
36 PRINT
40 PRINT"Er is een huis te koop voor f 150.000,-- .Men heeft hiervoor belangstelling.
50 PRINT"Beschikbaar eigen kapitaal f 35.000,-- . Men wil een annuiteitenlening met
60 PRINT"een looptijd van 30 jaar,die halfjaarlijks betaald wordt.
70 PRINT"Het rente percentage is 11,75 % . VRAAG: Wat moet er halfjaarlijks betaald
80 PRINT"worden ? ANTWOORD: De annuiteit is f 6983,48
85 PRINT
90 PRINT TAB(20)"******* -VOORBEELD 2- ******"
95 PRINT
100 PRINT"Een bedrijf heeft een machine nodig die hem f 500.000,-- gaat kosten.
110 PRINT"De machine heeft een economische levensduur van 7 jaar.
115 PRINT"Men besluit de rente en afschrijving op basis van annuiteit in te cal-
120 PRINT"culleren. De rente, die men berekent, is 10 %.
130 PRINT"VRAAG: Welk gelijk bedrag wordt jaarlijks ten laste van de verlies-
135 PRINT"en winstberekening gebracht? ANTWOORD: f 102.703,-- .
140 PRINT
150 PRINT" 1 = VOOR DOORGAAN MET ANNUITEIT PROGAMMA "
160 PRINT" 0 = TERUG NAAR MASTER MENU "
170 PRINT
180 PRINT"WAT IS UW KEUZE ";
185 INPUT Q
187 IF Q <0 OR Q>1 THEN 150
188 IF Q = 1 THEN 200
190 IF Q = 0 THEN CHAIN "ADMIN"
195 RETURN 
196 :
200 REM ** ANNUITEITENLENING ***
210 REM DIR PROGAMMA BEREKENT DE ANNUITEIT VAN EEN LENING
220 GOTO 300
230 REM ** SUBROUTINE OM DE KOP TE PRINTEN **
240 PRINT CHR$(27)"E"
245 PRINT TAB(20)"*** ANNUITEITENLENING ***"
246 PRINT TAB(25)"AFLOSSINGSPLAN"
247 PRINT:PRINT
250 PRINT"TERMIJN    RENTE     CUM-RENT     AFLOSSING   ";
260 PRINT"AFL-CUM   SCHULD"
270 PRINT"----------------------------------------------------------------------"
280 RETURN
290 REM ** INVOER VAN DE GEGEVENS **
300 PRINT CHR$(27)"E"
310 PRINT TAB(20)"*** ANNUITEITENLENING ***"
315 PRINT
316 PRINT"9 = VOOR HULP VOORBEELDEN !"
317 PRINT
318 PRINT"1 = VOOR DOORGAAN ANNUITEITEN PROG."
319 PRINT
320 PRINT"WAT IS UW KEUZE ";
322 INPUT P
325 IF P=1 THEN 329
326 IF P=9 THEN 10
327 IF P> 1 THEN 316
329 PRINT:PRINT
330 PRINT"HOE GROOT IS HET KAPITAAL          ";
340 INPUT K
350 IF (K <=0) OR (K*100-INT(K*100) <> 0) THEN 330
360 PRINT"WAT IS HET RENTE-PERCENTAGE        ";
370 INPUT I
380 IF I <= 0 THEN 360
390 PRINT"WAT IS DE LOOPTIJD IN JAREN        ";
400 INPUT T
410 IF (T <1 )OR (T-INT(T)<>0 ) THEN 390
420 PRINT"HOE VAAK WORDT ER PER JAAR BETAALD ";
430 INPUT L
440 IF (L <1) OR (L-INT(L) <> 0 ) THEN 420
450 :
460 REM *** BEREKENING ANNUITEIT ***
470 A=(I/L)/100
480 X=(1+A)^(T*L)
490 S=1-1/X
500 S=(K*A)/S
510 REM ** UITVOER VAN DE GEGEVENS ** 
520 PRINT CHR$(27)"E"
530 PRINT TAB(20)"*** ANNUITEITEN-LENING ***"
540 PRINT
550 PRINT"KAPITAAL:                         ";K
560 PRINT"RENTEPERCENTAGE:                  ";I
570 PRINT"LOOPTIJD IN JAREN:                ";T
580 PRINT"AANTAL PERIODEN PER JAAR:         ";L
590 PRINT
600 PRINT"ANNUITEIT:                        ";S
610 PRINT
620 PRINT"WILT U HET AFLOSSINGSPLAN   JA/NEE";
630 INPUT A$
640 IF LEFT$(A$,1)="N" THEN 1010
650 IF LEFT$(A$,1)<>"J" THEN 620
660 GOSUB 240
670 C=K
680 P=0
690 R1=0
700 B1=0
710 FOR X=1 TO T*L
720 R=A*C
730 B=S-R
740 C=C-B
750 R1=R1+R
760 B1=B1+B
770 REM ** AFRONDEN **
780 R2=(INT(R*100+.5))/100
790 R3=(INT(R1*100+.5))/100
800 B2=(INT(B*100+.5))/100
810 B3=(INT(B1*100+.5))/100
820 C1=(INT(ABS(C)*100+.5))/100
830 PRINT TAB(1)X;TAB(10)R2;TAB(21)R3;TAB(34)B2;
840 PRINT TAB(46)B3;TAB(56)C1
850 IF X/10-INT(X/10) <>0 THEN 950
860 REM ** VOLGEND 10 TERMIJNEN ***
870 PRINT
880 PRINT"ER KUNNEN KLEINE AFRONDINGSVERSCHILLEN IN ZITTEN."
890 PRINT"WILT U DE VOLGENDE 10 TERMIJNEN  JA/NEE";
900 INPUT A$
910 IF LEFT$(A$,1)="N" THEN 940
920 GOSUB 240
930 GOTO 950
940 X=T*L
950 NEXT X
960 REM ** TOTALEN AFLOSSINGSPLAN ***
970 PRINT"---------------------------------------------------------------------
980 R3=(INT(R1*100+.5))/100
990 B3=(INT(B1*100+.5))/100
1000 PRINT"TOTAAL";TAB(10)R3;TAB(34)B3
1010 PRINT:PRINT
1020 GOSUB 150
3=(INT(R1*100+.5))/100
990 B3=(INT(B1*100+.5))/