1 ! DEP 12--STRAIGHT LINE AND DECLINING-BALANCE DEPRECIATION METHODS
3 ON ERROR GOTO 900
5 DEF FNK$=NUM$(ASCII(RIGHT(SYS(CHR$(6)+CHR$(9)),2%))/2%)
30 DEF FNR$(X,N)
40 X9$=MID(NUM$(X/100),2%,LEN(NUM$(X/100))-2%)
45 IF INSTR(1,X9$,".")=0% THEN X9$=X9$+".00" ELSE
	X9$=LEFT(X9$+"00",INSTR(1,X9$,".")+2%)
52 FNR$=SPACE$(N-LEN(X9$))+X9$
55 FNEND
160 OPEN "DEP." + FNK$ FOR OUTPUT AS FILE 2
170 INPUT"NAME";N$
180 INPUT "COMPANY";C1$:&
185 INPUT"DEVICE (KB: OR CR:)";A9$ :
    IF LEFT(A9$,1%)="C" THEN OPEN "CR:" AS FILE 7
187 IF LEFT(A9$,1)="C"THEN INPUT"HIT RETURN WHEN CARD READER IS READY";A8$
188 &
190N%=1%:I%=1%:N1%=2%
200&#2,SPACE$(5);N$:&#2
210 &#2,SPACE$(41);C1$:&#2:&#2
220 &#2,SPACE$(6);"ASSET NUMBER  ";N%
230 N%=0%
240 N2%=4%
241 Q%,Q1%,T1=0% : IF LEFT(A9$,1%)<>"C" THEN 250
242 INPUT #7,Y(1),Y(2),Y(3)
243 IF Y(1)<>INT(Y(1))ORY(1)>50 OR Y(1)<0
    OR Y(2)<0 OR Y(2)>99999.99
    OR Y(3)<0 OR Y(3)>99999.99
    THEN &"ILLEGAL DATA ON CARD ": CLOSE 7: GOTO 1000
245 GOTO 280
250 INPUT"ESTIMATED USEFUL LIFE";Y(1)
255 IF Y(1)<>INT(Y(1)) OR Y(1)>50 OR Y(1)<0 THEN&"ILLEGAL DATA":GOTO250
260 INPUT"ACTUAL COST OF THE ASSET WHEN PURCHASED";Y(2)
265 IFY(2)<0 OR Y(2)>99999.99 THEN &"ILLEGAL DATA":GOTO 260
270 INPUT"RESIDUAL SCRAP VALUE";Y(3)
275 IF Y(3)<0 OR Y(3)>99999.99 THEN&"ILLEGAL DATA":GOTO 270
277 &
280 Y(2)=Y(2)*100:Y(3)=Y(3)*100:N%=N%+1%
300 &#2:&#2:&#2
310 &#2,SPACE$(40);"TABLE OF DEPRECIATION"
320 &#2,SPACE$(40);"STRAIGHT-LINE METHOD":&#2
330 &#2SPACE$(30);"DEBIT";SPACE$(11);"CREDIT";SPACE$(10);"TOTAL"
332 &#2SPACE$(26);"DEPRECIATION";SPACE$(5);"ACCUMULATED";
    SPACE$(5);"ACCUMULATED";SPACE$(6);"BOOK"
340 &#2SPACE$(7);"YEAR";SPACE$(17);"EXPENSED";SPACE$(6);"DEPRECIATION";
345&#2 SPACE$(5);"DEPRECIATION";SPACE$(5);"VALUE"
350 &#2 SPACE$(7);"----";SPACE$(15);"------------";SPACE$(4);
    "------------";SPACE$(5);"------------";SPACE$(4);"--------"
355 IF G%=1% THEN 640
360 &#2:&#2
370 &#2 SPACE$(75);FNR$(Y(2),9)
375 T=0
380 B=Y(2)
390 Y=(Y(2)-Y(3))/Y(1)
410 FOR I%=1% TO Y(1)
420 IF I%<>Y(1) THEN 440
430 Y=B-Y(3)
440 T=T+Y:B=B-Y
445 IF I%>9% THEN Q%=1%
450 &#2 SPACE$(7-Q%);I%;SPACE$(17);FNR$(Y,9);SPACE$(8);FNR$(Y,9);
    SPACE$(8);FNR$(T,9);SPACE$(5);FNR$(B,9)
455 NEXT I%
460 &#2 SPACE$(26);"----------";SPACE$(7);"----------"
470 &#2 SPACE$(16);"TOTAL";SPACE$(5);FNR$(T,10);SPACE$(7);FNR$(T,10)
480 &#2SPACE$(26);"----------";SPACE$(7);"----------"
490 &#2 SPACE$(26);"----------";SPACE$(7);"----------"
600 &#2 FOR I%=1% TO 5%
610&#2 SPACE$(39);"TABLE OF DEPRECIATION"
620 &#2 SPACE$(37);"DECLINING-BALANCE METHOD"
630 G%=1%:GOTO 330
640 G%=0%
650&#2 SPACE$(75);FNR$(Y(2),9)
670 T=0:B1=Y(2)
680 R=2/Y(1)
690 N3%=1%
700 FOR I%=1% TOY(1)
710 Y1=B1*R
720 IF (B1-Y1-Y(3))>=0 THEN 750
730 Y1=B1-Y(3):N3%=2%
750 T1=T1+Y1
760 B1=B1-Y1
765 IF I%>9% THEN Q1%=1%
770 &#2 SPACE$(7-Q1%);I%;SPACE$(17);FNR$(Y1,9);SPACE$(8);FNR$(Y1,9);
    SPACE$(8);FNR$(T1,9);SPACE$(5);FNR$(B1,9)
780 IF N3%=2% THEN 800
790 NEXT I%
800 &#2 SPACE$(26);"----------";SPACE$(7);"----------"
810 &#2 SPACE$(16);"TOTAL";SPACE$(5);FNR$(T1,10);SPACE$(7);FNR$(T1,10)
820 &#2 SPACE$(26);"----------";SPACE$(7);"----------"
830 &#2 SPACE$(26);"----------";SPACE$(7);"----------"
840 &#2 CHR$(12):GOTO 240
900 IF ERR<>11% THEN ON ERROR GOTO 0
910 &#2 ,CHR$(26);: CLOSE 2,7
950 &:&"OUTPUT FILE FOR KB:";FNK$;"IS READY FOR DUMPING":&
1000 END