Sharp PC-1500 - Page 118

All and more about Sharp PC-1500 at http :/l www.PC-1500.info
PROGRAM
DEPRECIATION
PROGRAM NO.
4
T I T LE PS - D- 12
[ Program Li st I [ Memory Contents ]
10 ; "A": CLE AR
:
(F i xed rate method) (Fixed a mount method)
WAIT
20: INP UT "COST?";
A:GOT O 30
A Ac<i uisition cost
Total depreciation
25: (N0
A
amount
30: I NPUT "NO. OF
B
No. of times
T JM ES? ";B
c Dep reciation ra te
B
To ta l acquisition cost
40; INPU T "REM . RA
TE <% >?" ;0
D
c
se: IF
(0( 5)•<0>99
D Oep ree i at ion amount
>=!G OTO 40
Total depreciati on
60:C= J - (0 / I00 > ~ < I
E
amo unt
Total depreciation/
/8 )
E
?0:D =INT
l C t 1 0~ 5 •
F Depreciation a mount
Acqu si ti on cost
.S>/10~s
80:E=0
G
F Years of life
90: FOR
I =ITO B
G Depreciati on date
J00:F =INT
<0 1'.A )
H
It0: E=E• F
120:
A=A -F
I
v
H Remai ning rate
130:PRINT
1 ; ..
OE
J
I
PR. = "i F
150 :P RJN T
J j " UN
K
J
OEPR. •" ;A
I6 0 ;NE:XT I
l
K
J/0;PR INT "TTL OEP
l
R. =" ; E
M
200;GOTO 20
N
M
500 : " B" :CLE AR
:
WA lf
0
Remaining rate
N
510: I NP UT
"COST?";
E: G OT O 520
p 0
s 1s:GO
TO 610
p
S20:IN PUT
"Y
EAR OF Q
LIFE? " ;F
R
Q
530: IN PUT
"OE PR.
M
ONTH ? ";G
s
R
5 35: IN PU T
"
REM . RA
T E<%> '? ";H
T
s
540: IF
<H<S>•<H>99
>= !GOTO 535
u
T
546 : H=( I00 -f 0/ 100
55 0: 0=INT <E* H /F *G
v
u
/ 1 2>
w
v
56 0: A=A•O:B=E•B
S/ 5; PRINT
"DE PR.="
x
w
;D
x
s e0: PRJNT
" UHO EPR.
y
=" ; £- 0
y
590:GOTO 51 0 z
6 J0:PRJNT
"
TTL C OS
z
T ;:;; • •; 8
6 :15:PRJ NT
" TT L D EP
R. : .. ;Q
620: PRINT "TTL
UNO
EPR .= " ;B-A
65279:ENO
STATUS
I
58 6
Do not sale this PDF ! !!
- 11 2-