10 ; CHR$(12)
20 ; "     L]N OCH DERAS BETALNING"
30 ; "     ======================="
40 ; "ETT PROGRAM I DATAL[RA F\RMEDLAT AV *TOJ* 2/81"
50 ; 
60 ; "N{r man f}r ett l}n best{mmer man"
70 ; 
80 ; "- l}nets storlek,"
90 ; 
100 ; "- hur m}nga }r som }terbetalningen av"
110 ; "  l}net ska ta,"
120 ; 
130 ; "- r{ntesatsen, dvs hur m}nga procent"
140 ; "  den }rliga avgiften p} skulden skall"
150 ; "  vara,"
160 ; 
170 ; "- p} vilket s{tt l}nets ska }terbetalas."
180 ; 
190 ; "N{r det g{ller st|rre l}n (f|r en villa"
200 ; "eller liknande) finns det i huvudsak"
210 ; "tv} typer av l}n:"
220 ; 
230 ; "(Tryck  RETURN  s} presenterar vi dem!)"
240 GET A$
250 ; CHR$(12)
260 ; "PRINT L]NETYP 1"
270 ; "---------"
280 ; 
290 ; "L}net }terbetalas med LIKA STORA"
300 ; "}rliga AMORTERINGAR:"
310 ; 
320 ; "  amortering = }terbetalning av en"
330 ; "               del av l}nesumman"
340 ; 
350 ; "R{ntan betalas p} den skuld man hade"
360 ; "kvar }ret f|re en ny amortering."
370 ; "Allts} blir"
380 ; 
390 ; "den }rliga totala utgiften ="
400 ; "= r{ntan p} f|rra }rets skuld +"
410 ; "  + amorteringen"
420 ; 
430 ; "Allteftersom skulden minskar blir"
440 ; "r{ntan mindre. D{rf|r minskar den"
450 ; "}rliga totalutgiften fr}n }r till }r."
460 ; 
470 ; "(Tryck  RETURN !)"
480 GET A$
490 ; CHR$(12)
500 ; "L}netyp 2"
510 ; "---------"
520 ; 
530 ; "L}net }terbetalas med hj{lp av en fast"
540 ; "ANNUITET, som {r lika stor varje }r:"
550 ; 
560 ; "  annuitet = fast }rlig summa som"
570 ; "             innefattar b}de r{nta"
580 ; "             och amortering"
590 ; 
600 ; "Allteftersom l}net betalas kommer"
610 ; "r{ntan att utg|ra en allt mindre del"
620 ; "av annuiteten, medan amorteringen blir"
630 ; "en allt st|rre del. (Men varje }r {r"
640 ; "allts} totalutgiften densamma!)"
650 ; 
660 ; "- - - - - - - - - - - - - - - -"
670 ; 
680 ; "Pr|va nu hur de b}da l}neformerna"
690 ; "kommer att fungera f|r ett l}n!"
700 ; 
710 ; "(Tryck  RETURN !)"
720 GET A$
730 ; CHR$(12)
740 ; "L]NEVILLKOR"
750 ; "-----------"
760 ; 
770 ; "Du f}r l}na h|gst 100000 kr."
780 ; "L{ngsta }terbetalningstid {r 75 }r."
790 ; "H|gsta r{ntesats {r 15 %."
800 ; 
810 ; 
820 ; 
830 ; "l}nets storlek (kr)......... ";
840 INPUT L
850 ; "}terbetalningstiden (}r).... ";
860 INPUT N
870 ; "r{ntesatsen (%) ............ ";
880 INPUT P
890 ; 
900 ; "- - - - - - - - - - - - - - -"
910 ; 
920 ; 
930 ; "F|rst tittar vi p} betalningsplanen"
940 ; "enligt l}netyp 1."
950 ; 
960 ; "(Tryck  RETURN !)"
970 GET A$
980 ; CHR$(12)
990 ; "L]N MED FASTA AMORTERINGAR"
1000 ; "--------------------------"
1010 ; 
1020 ; "L}n . . . . . . . . . . ";L;" kr"
1030 ; "]terbetalningstid . . . ";N;" }r"
1040 ; "R{ntesats . . . . . . . ";P;" %"
1050 M=L/N
1060 M1=INT(100*M+.49)/100
1070 ; 
1080 ; "Amorteringen blir ";M1;" kr per }r"
1090 FOR I=1 TO 4000
1100 NEXT I
1110 ; 
1120 ; "Betalningsplanen blir f|ljande"
1130 ; "(efter 15 }r, tryck RETURN!):"
1140 ; 
1150 ; TAB(1);"]r";TAB(7);"R{nta";TAB(17);"Totalutgift";TAB(30);"Restskuld"
1160 ; TAB(7);"kronor";TAB(17);"kronor";TAB(30)"kronor"
1170 ; "---------------------------------------"
1180 REM R = r{ntan
1190 REM T = }rets totalutgift 
1200 REM dvs T = r{nta + amortering
1210 REM S = resterande skuldsumma
1220 REM Z = sammanlagd under }ren ut-
1230 REM betald summa
1240 S=L
1250 Z=0
1260 FOR I=1 TO N
1270 R=P*S/100
1280 R1=INT(100*R+.49)/100
1290 T=R+M
1300 T1=INT(100*T+.49)/100
1310 S=L-I*L/N
1320 S1=INT(100*S+.49)/100
1330 Z=Z+T
1340 REM Vi r{knar antalet heltals-
1350 REM siffror i resultaten, s} att
1360 REM decimalpunkterna kan justeras
1370 REM rakt |ver varandra i tabellen.
1380 I2=I
1390 J1=0
1400 I2=I2/10
1410 IF INT(I2)=0 THEN GOTO 1440
1420 J1=J1+1
1430 GOTO 1400
1440 R2=R1
1450 J2=0
1460 R2=R2/10
1470 IF INT(R2)=0 THEN GOTO 1500
1480 J2=J2+1
1490 GOTO 1460
1500 T2=T1
1510 J3=0
1520 T2=T2/10
1530 IF INT(T2)=0 THEN GOTO 1560
1540 J3=J3+1
1550 GOTO 1520
1560 S2=S1
1570 J4=0
1580 S2=S2/10
1590 IF INT(S2)=0 THEN GOTO 1620
1600 J4=J4+1
1610 GOTO 1580
1620 ; TAB(1-J1);I;TAB(9-J2);R1;TAB(20-J3);T1;TAB(34-J4);S1
1630 IF I>14 THEN GET A$
1640 NEXT I
1650 ; "---------------------------------------"
1660 ; 
1670 ; 
1680 ; "Totalt har under de";N;" }ren"
1690 ; "betalts ";INT(100*Z+.49)/100;" KRONOR"
1700 ; 
1710 ; "dvs ";INT(100*Z/L+.49)/100;" g}nger l}nesumman."
1720 ; 
1730 ; 
1740 ; "S} ska vi studera l}netyp 2"
1750 ; 
1760 ; 
1770 ; "Tryck  RETURN !"
1780 GET A$
1790 ; 
1800 ; "och  RETURN  igen !"
1810 GET A$
1820 ; CHR$(12)
1830 ; 
1840 ; "ANNUITETSL]N"
1850 ; "------------"
1860 ; 
1870 ; "L}n . . . . . . . . . . .";L;" kr"
1880 ; "]terbetalningstid . . . .";N;" }r"
1890 ; "R{ntesats . . . . . . . .";P;" %"
1900 ; 
1910 REM Annuiteten ber{knas
1920 F=1
1930 FOR I=1 TO N
1940 F=F*(1+P/100)
1950 NEXT I
1960 A=P*F*L/100/(F-1)
1970 A1=INT(100*A+.49)/100
1980 ; "Annuiteten blir";A1;" kronor"
1990 ; 
2000 FOR I=1 TO 4000
2010 NEXT I
2020 ; "S} h{r ser betalningsplanen ut"
2030 ; "(efter 15 }r, tryck RETURN!):"
2040 ; 
2050 ; TAB(1);"]r";TAB(7);"R{nta";TAB(17);"Amortering";TAB(30);"Restskuld"
2060 ; TAB(7);"kronor";TAB(17);"kronor";TAB(30);"kronor"
2070 ; "--------------------------------------"
2080 REM R {r r{ntan, M amorteringen 
2090 REM och S resterande skuld
2100 X=1
2110 Q=0
2120 FOR I=1 TO N
2130 R=(1-(X-1)/(F-1))*P*L/100
2140 R1=INT(100*R+.49)/100
2150 M=X*P*L/100/(F-1)
2160 M1=INT(100*M+.49)/100
2170 Q=Q+M1
2180 X=X*(1+P/100)
2190 S=(1-(X-1)/(F-1))*L
2200 S1=INT(100*S)/100
2210 REM Nu r{knar vi heltalssiffror i
2220 REM resultaten, s} att vi kan
2230 REM se till, att decimalpunkterna
2240 REM hamnar rakt |ver varandra i
2250 REM tabellutskriften.
2260 I2=I
2270 J1=0
2280 I2=I2/10
2290 IF INT(I2)=0 THEN GOTO 2320
2300 J1=J1+1
2310 GOTO 2280
2320 R2=R1
2330 J2=0
2340 R2=R2/10
2350 IF INT(R2)=0 THEN GOTO 2380
2360 J2=J2+1
2370 GOTO 2340
2380 M2=M1
2390 J3=0
2400 IF INT(M2)=0 THEN GOTO 2440
2410 M2=M2/10
2420 J3=J3+1
2430 GOTO 2400
2440 S2=S1
2450 J4=0
2460 S2=S2/10
2470 IF INT(S2)=0 THEN GOTO 2500
2480 J4=J4+1
2490 GOTO 2460
2500 ; TAB(1-J1);I;TAB(9-J2);R1;TAB(21-J3);M1;TAB(34-J4);S1
2510 IF I>14 THEN GET A$
2520 NEXT I
2530 ; 
2540 ; "--------------------------------------"
2550 Q2=Q
2560 J5=0
2570 IF INT(Q2)=0 THEN 2610
2580 Q2=Q2/10
2590 J5=J5+1
2600 GOTO 2570
2610 ; "Summan av "
2620 ; "amorteringarna:";TAB(21-J5);Q
2630 ; 
2640 ; 
2650 ; "Totalt har under de";N;" }ren betalts"
2660 ; 
2670 ; " ";N;" *";A;" kr  = ";N*A;" kr"
2680 ; 
2690 Z=N*A/L
2700 Z1=INT(100*Z+.49)/100
2710 ; "dvs ";Z1;"  g}nger l}nesumman."
2720 ; 
2730 ;