1 REM Ins{nd av Conny Westh <7433>    1990-04-01 05.22.29 (KERMIT)
100 ONERRORGOTO 100
110 ; 'Detta {r ett r{nteber{kningsprogram'
120 ; 'Vill du anv{nda skrivaren?'
130 ; 'Svara med siffran 1 om skrivare...'
140 ; 'eller med siffran 0 om inte skrivare...'
150 INPUT S%
160 IF S%<0% OR S%>1 THEN GOTO 100
170 OPEN "PR:VSA30A72.5" ASFILE 1
180 OPEN "PR:" ASFILE 1
190 REM Nominell r{ntesats
200 R=1.14
210 L=6000
220 REM Hur m}nga betalningsperioder per }r
230 P=12
240 M=R^(1/P)
250 A=L/P
260 PRINT #S%'Copyright Conny Westh 1988-04-15 <7433> version 0.00'
261 PRINT #S%'Uppdaterad 1990-04-01 till PENGAR.BAS version 1.00'
262 PRINT #S%'Larsbergsv 7 lgh 627'
263 PRINT #S%'181 38  Liding|'
264 PRINT #S%'Tel. (Arb)  08-714 2091'
265 PRINT #S%'Tel. (Bost) 08-767 9582'
270 PRINT #S%'M]NADSR[NTA=';(M-1)*100;'%'
280 PRINT #S%']RSR[NTA=   ';(R-1)*100;'%'
290 PRINT #S%'KVAR','AMORT','R[NTA'
300 FOR N=P TO 1 STEP -1
310 PRINT #S%L,A,(L*M-L)
320 L=L-A
330 NEXT N
340 IF S%=1% THEN PRINT #1CHR$(12)