DataMuseum.dk

top - metrics - download

    Length: 1664 (0x680)
    Types: TextFile
    Names: »DEPRICIA.TXT«

└─⟦57e5d42b6⟧ Bits:30005898 MicroPlan m/link (16-bit RC855)
    └─⟦this⟧ »DEPRICIA.TXT« 

TextFile

0010 PRINT "SÆT AFSKR"
0020 PRINT 
0030 DIM sbf$ OF 20,snt$ OF 20,spct$ OF 20,sper$ OF 20,sind$ OF 20
0035 DIM layout$ OF 80
0036 layout$:= "#  #####.#  #####.#  #####.#  #####.#  #####.#"
0040 WHILE TRUE DO
0050   sbf$:= ""; snt$:= ""; spct$:= ""; sper$:= ""; sind$:= ""
0060   INPUT "Vælg (Fast bel=1, År=2, Saldo=3, Saldo-fast=4) : ": f
0070   INPUT "Bogført værdi    : ": sbf$
0080   INPUT "Nedskrives til   : ": snt$
0090   INPUT "Afskrivning (%)  : ": spct$
0100   IF (f=1 AND spct$="") OR (f=3 AND snt$="") THEN
0110     INPUT "Over antal år    : ": sper$
0120   ENDIF 
0130   IF (f=3 OR f=4) THEN
0140     INPUT "Indeksregulering : ": sind$
0150   ENDIF 
0160   bf:= 0; nt:= 0; pct:= 0; per:= 0; ind:= 0
0170   IF sbf$<>"" THEN bf:= VAL(sbf$)
0180   IF snt$<>"" THEN nt:= VAL(snt$)
0190   IF spct$<>"" THEN pct:= VAL(spct$)
0200   IF sper$<>"" THEN per:= VAL(sper$)
0210   IF sind$<>"" THEN ind:= VAL(sind$)
0220   IF f=1 AND spct$<>"" THEN
0230     per:= (bf-nt)/(pct/100*bf)
0240   ENDIF 
0250   PRINT USING layout$: f,bf,nt,per,ind,pct
0260   PRINT 
0270   // Depriciate
0280   PRINT " Afskriv   Saldo"
0290   saldo:= bf; y:= 0; inf:= 0.001
0300   WHILE ((nt<>0 OR f<>3) AND saldo-nt>=inf) OR (nt=0 AND f=3 AND y<per) DO
0309     IF f=1 THEN
0310       afs:= (bf-nt)/per
0311     ENDIF 
0312     IF f=3 THEN
0313       afs:= saldo*pct/100
0314     ENDIF 
0320     saldo:= saldo-afs; y:= y+1
0330     IF saldo<nt THEN afs:= afs-(nt-saldo); saldo:= nt
0331     IF saldo>nt THEN saldo:= saldo*(1+ind/100)
0340     PRINT USING "#####.### #####.### ": afs,saldo
0350   ENDWHILE 
0360   PRINT 
0370 ENDWHILE 
«eof»