Sharp CE-140P User Manual download pdf (Page 5)

.............

;

d~r.on

~I':

rii-F.'

bmma~:ji

om!

;

~~r.n;

1,._

: :

: ...

:::"':

. ...

:.:.:

....

.. : . . . : .. :-

....

:.:

~~.::.:.:

----,.,--1

L 0 H N S T E u . E R

~A~

ELL

fUr

den

lI(.'::

- I

~(->()

Sehr

geehrte

Damen

und

Herrenl

Anbei

iibersende

ich

ein

Listing

f'ilr

den

pC-1i60.

Nach

dem

Pr'ogrammstart

m:i.

t DEF A-

steht

die

mtliche

Lohnsteuertabe-lle

/ .

l:"LST-TABELLE

1986

2:"(C) Dipl-Finanzwirt

3:"JoachiM

Zoel

Iner

str.

5:"4927 Lue,de

19:"A"

CLEAR:

DIM

Wl(4

):Wl(1)=1899:Wl(2)=1

59:

1.11

(3)=35:

(4)=5

15:USIHG

"1111111.11"

59:IHPUT

">64

ia=1

55:IHPUT

"B-Tab. ja=1

69:WAIT

PRIHT

"l=;ah

r","3=Woche","2="ona

- t","4=Ta,":

WAIT:

CURSOR

46:

INPUT

62:IF

C=9

THEN

65:CURSOR

INPUT

"KiSt

ja=l

"iD

79:INPUT

"Lohn

D".Pf "

;E:E=E*199

75:IHPUT

"Yers-Bez

D".P

";G:G=G*199

89:IHPUT

"StKI

(1-6 ";

82:IF

F=9

THEN

85:IP

F<5

IHPUT

"Kinder

fr e i bet

"; H "

99:INPUT

"Freibetr.

FB:FB=FB*199

le9:

""PQ=-

INT

(-G*.

4):

5=48E4:

G05UB

"AHTEI

L":

Q>H

LET

Q=H

195:IF

A=1

LET

O=E-G:L=-

IHT

(-0*.4):S=3E5:

GOSUB

ANTEIL":

L=H:

GOTO

115

119:L=9

115:Rl=E-Q-L-FB

299:"MTABFB"

F=1

lET

ZT=1314+H*2484:

GOTO

269

398:IF

Y3<=Y2

LET

Y2=Y3

319:YP=

IHT

«Yl+Y2)/109

):yp=

INT

(YP/54)*54

329:Tl=ZT+YP:ZY=R3/199-T

1 '

499:

"MST·T=1+T*<F=3):

GOSUB

"YAB":

F<5

GOSUB

"TAB86":

GOTO

439

419:Y=R*2.5/2:

GOSUB

"TA

B86":SI=X*2:Y=R*1.5/

G05UB

"TAB86":S2=

X*2:P=SI-S2:Y=

IHT

(

R*.22)

428:X=P:

P<Y

LET

X=Y

439:S=X*199:

GOSUB

"AHTE

IL":K="

599:""K"

D=9

THEN

"D"

519:S=H*6E4:

~=4

~iT

S=S/2

529:GOSUB

"ANTEIC":J=K-"

J<8

LET

J=9

1999:"D"

USIHG

"&&&&&&&

&&&&&111111111.11"

1199:WAIT

PRIHT

"LSt

"; K/l9lB

1119:WAIT

"KiSt";

INT

(J*.99

)/199:

EHD

1129:WAIT

: '

PRIHT

END

2999:"AHTEIL"

C=4

LET

IHT

(S/360)

:N=-

INT

(-S/369):

RETURH

291S

:If

C=3

LET

PI=

IHT

(S*7/369):N=-

IHT

(-S*7/369):

RETURN

2929:

C=2

LET

INT

(S/129)*19:N=S/12:

RETURH

Joachim

Zijllner

Kanalstr.

4927

Lilgde

2325:Yl=(Y-18E3)/1E4:X=

IHT

(

IHT

(

5692~8-21E3*Yl)*Yl

+6E6)*Vl+22E6)*Y1~

1E4+2962:

235

2339:IF

Y>=138932

THEN

234'9

2335:Yl=(Y-8E4)/lE4:X=

IHT

(42E4*Yl+518E5

)*Yl/1E4+29417 :

GOTO

2359

2349:X=.S6*Y~16433:

GOTD

2359

2359:X=

IHT

(X>*T:

RETURN

III

A,.

- . ,

..<'.

' .

-_.

r::

; .

"'"

I;;

219:IF

F<>4

THEN

22~

212:ZT=1314+H*1242:

IHT

LET

ZT=ZT+27

214:GOTO

269

229:IF

F=2

LET

ZT=5859+H.

*2484:

GOTO

269

239:IF

F=3

LET

ZT=1584+H

*2484:

GOTO

269

248:

F=5

LET

ZT=1944:

269

259:

T=18

269:GOSUB

"STUF":

F>4

LET

YP=8,

Y 1

=Ih

Y2=lh

3=8:

GOTO

329

279:Vl=234E3,Y2=117E3:

B=1

LET

Yl=IE5,Y2

=1E5

288:IF

F=3

LEr

Yl=Yl*2,Y

2=Y2*2

298:R2=R2/188:Y3=R2*9:

Y3<=Yl

LET

Yl=Y3

2939:"=S:H=S:

RETURH

2199:"STUF"I=C:W2=Wl(I)

*3:Z=Wl(I)+W2:

Rl<Z

LET

R2=9,R,3=8

RETURH

2118:Z1=

IHT

«RI-Wl(I)

)/W2>:R3=ZI*S499+1

899:R2=R3+5388:

RETURH

2289:"YA~"

ZY<9

LET

ZY=9

2219:-

ZY='ZY/T:Y=

IHl

(ZY

/54>*54:

R=V*T:

RETURH

2399:

"TAB86"

Y<4537

LET

X=9:

RETURH

2318:IF

Y<18936

LET

X=.

22*Y-998:

GOTO

235

2328:IF

Y>=a9928

THEN

339

-1

.-.

- -

..-

Sehr

geehr~

Leser

Wir

planen

ein

COIflITERI..EXION

Fur

SHARP

Computer

herrauszubringen

Haben

Sie

irgena-

welche

Anregungen

oder

F.rageTh

schreibeYl

Sie

bitte

aYl

die

Redaktion

(ggf'.

Honoratioro

Wii'.'

UW"

·~

6.~

......

..-.

1 2 3 4 5 6 7 8 9 10 ... 59 60

Jl,{MlQfI!'ll/tJJll 1
Literaturangebot 2
, , I 4
-' 5
SI:IBRP-Com 6
J)'B(3 7
') 7
* •••••• 8
* CE-12'P • 8
Pock~t-Co~puter 9
M~sikprogiamme 9
PC-1260/ 10
PC-1261 10
--- - - -- -- 11
JOUI" 12
11 . U 13
;8 14
AlfRlfl 15
PC-1251 16
I $,r 17
~nderung 18
D~en und 18
(c)="; 19
". 20
SHaRP-Comput 20
DEI IIIIIt 21
I I i I I -' 21
1 NEIN 22
";;" 23
-Handbuch 24
SCHREIB-SERVICE 25
26
':py\"'" 27
"-ll 27
PM" 28
.' 28
'sI:lA R 29
,' 30
'"' 31
::.:.a.: 31
'X 32
3' 32
.." 33
<r:,C 34
~& 35
- 18.00 36
'1_ 37
LISTING 38
BRIDGESTONE 38
"jQ$: 39
PC-1500 40
HARD-UNO 40
SOFTWARE 40
1'511 41
I PMP. 42
.a-_MUM' 43
"_" 44
"_I! 44
+'uet-' 45
SYSTEMHANDBUCH 46
PC-2500 46
" 47
"'.' 47
:l4(--~~ 48
"'IV" 49
"4" 50
~~~~~~~~~~~= 51
HARP-Comp-ut 52
'0) 53
:,.:,:,:" 54
;" : : ., : 54
.'-" 55
,. : : .' : 56
& A & 58
(L1~~A~Ff 59
Aufbau des 60
Spieffeldes 60

Comments to this Manuals

No comments

Sharp CE-140P User Manual Page 5

Comments to this Manuals

Related products and manuals for Print & Scan Sharp CE-140P