10 REM << ABSCHREIBUNGSPROGRAMM  >>
20 REM DIESES PROGRAMM BERECHNET DIE
30 REM JAEHRLICHE ABSCHREIBUNG
40 PRINTCHR$(5)"[147] ABSCHREIBUNG"
50 PRINT"EINGABE DES NENNWERTS"
60 INPUT I
70 PRINT "EINGABE DER LAUFZEIT  (IN JAHREN)"
80 INPUT N
90 PRINT"EINGABE DES GESCHAETZTEN SCHROTTWERTS"
100 INPUT S:PRINT"[147]"
110 PRINT"JAHR ABSCHR. BUCHWERT"
120 B=I
130 FOR K = 1TO N
140 REM DER BUCHWERT WIRD UM DIE JAEHRLICHE ABSCHREIBUNG VERMINDERT
150 B = B-(I-S)/N
160 PRINT:PRINTTAB(0)K;:PRINTTAB(6)(I-S)/N;:PRINTTAB(13)B
170 NEXT
180 END