Sharp PC-1500 Anwenderhandbuch Seite 118

{ Pro
1Q:
28:
25:
3a:
490:
5a:
6a:
79:
8a:
.° SB:
' 128:
-11Q:
1] 2B:
138:
158:
168:
L?O:
-20B3
"508:
519:
315:
520:
538:
335:
542:
346:
33@:
562:
575:
382:
538:
619:
615:
628:
PROGRAMMNAME:
grammlisting ]
"A"™: CLEAR :
WAIT ——
INPUT *PREIST®
3A:GOTO 38
END
INPUT ""ANZAHL-
DER ABSCHREIBU
NGEN", B
INPUT ""RESTRAT
ECHDP"50
IF ¢€0¢5)+¢€0999
J=1GQTO 42
C=1-(Q/7188)6¢1
7B> .
D=INT ¢Cx1@05+
-29/1805 -
E=2
FOR I=1TO B
F=INT (DAD,
E=E+F
A=A-F
PRINT 13" ABS"
CHa" 3
PRINT I3" NICH"
T_ABSCH. ="30
NEXT I]
PRINT "TTL DEP
R,="3E
GOTO 28.
"BYZCLEAR :
WAIT
INPUT "PREIS?!
36&:GOJTO 3528
GOTO 612
INPUT "LEBENSD
AUER IN JAHREN
?'5F
INPUT "ABSCH.
MONAT?" 3G
INPUT "RESTRAT
ECHIP"SH
IF CH<5)+CHS939
2=1G0TO 535
H=¢€18B8-H)/189
D=INT CE*H/FXG
712)
A=A+D: B=E+B
PRINT "ABSCH.=
a
3
PRINT "NICHT A
- BSCH. ="3E-D
GOTO S12
PRINT "KOSTEN
GESAMT="3B
PRINT "GES. AB
SCH.="3A
PRINT "GES. NI
CHT ABSCH.="38
-A
65279: END
STATUS 1
[ Speicherinhalt ]
Gesamtbetrag -
Anschaffungs-
Gesamtpreis
we
el [>]
fee
a) >
Nd
:
= cS)
a
6
a
a
oF
E
S 5
Abschreibungsrate |
bschreibungs- ©
esamtbetrag
Abschreibungsbetrag
esamte Abschreibung/
nschaffungspreis
' Abschreibungsbetrag |
>
7)
[
bensdauer in J ahren
Be
bschreibungsdatum
Ww
estrate.
BEE ll
Bl
Restrate
eg
=[<[<[-[+[=[2]=[o[2|
Beles
bel
N
abe