Sharp PC-1500 Applications Manual page 118

All and more about Sharp PC-1500 at http:/lwww.PC-1500. info
PROGRAM
DEPRECIATION
PROGRAM NO.
4
T
I T LE PS- D- 12
[ Program List
I
[ Memory Contents ]
10 ; "A" : CLEAR :
( F ixed rate method)
(Fixed
amount method)
WAIT
20 : INPUT "COST?";
A:GOTO 30 A Ac<iuisition cost
Total depreciation
25: (N0
A
amount
30:
INPUT
"NO.
OF
B
No. of times
TJMES? ";B
c
Depreciation rate B
Total acquisition cost
40;
INPUT
"REM .
RA
TE <% >?" ;0
D
c
se:
IF
(0( 5)•<0>99
D Oepreeiation amount
>=!GOTO 40
Total depreciation
60:C= J - (0 / I00 > ~ < I
E
amount
Total depreciation/
/8 ) E
?0:D=INT l C t 1 0~ 5 •
F Depreciation amount
Acqusition cost
.S>/10~s
80:E=0
G
F
Years of life
90:
FOR I =ITO
B
G Depreciation date
J00:F = INT
<01'.A )
H
It0: E=E• F
120: A=A - F
I
v
H Remaining rate
130:PRINT
1 ; ..
OE
J
I
PR. = "i F
150:PRJN T
J
j "
UN
K
J
OEPR. •" ;A
I60 ;NE:XT I
l
K
J/0;PR INT
" TTL
OEP
l
R. =" ; E
M
200;GOT O 20
N
M
500 : "B" :CLEAR
:
WA lf
0 Remaining rate
N
510: INPUT
"COST?";
E: G OTO 520
p
0
s 1s:GO TO 6 10
p
S20:INPUT
"YEAR OF
Q
LIFE? " ;F
R
Q
530: INPUT
"OEPR.
M
ONTH? ";G
s
R
535: INPU T
"REM . RA
TE<%> '? ";H
T
s
540:
IF <H<S>•<H>99
>= !GOTO 535
u T
546: H=( I00-f0/ 100
550: 0=INT <E*H/F*G
v
u
/ 12>
w
v
560: A=A•O:B=E•B
S/5; PRINT
"DEPR.="
x
w
;D
x
s e0: PRJNT
"UHOEPR.
y
=" ; £- 0
y
590:GOTO 51 0
z
6 J0:PRJNT
" TTL COS
z
T;:;; ••; 8
6 : 1 5:PRJNT
"TT L DEP
R. : .. ;Q
620: PRINT
"TTL
UNO
EPR .=" ;B-A
65279:ENO
STATUS
I
586
Do not sale this PDF !!!
- 112-