Sharp CE-125 - Page 54

1 37
A A
B R
c
I , T
D
L
E
XM
F
TK
G
TL
H
li R
I
Ii
J
SC
K
9 0
L
D is cr i min a t e
M
N
0
p
a
R
s
T
u
v
w
x
x
y
y
z
MEMORY CONTENTS
460
a e :IF L = 0 LPR INT 'R= • ;
B : GOT O 1 0 0
90 : LPR I N T ' L= ' iD
1 0 0 : X =A*C * ( 1 - C A 4 1 40 + CA 8 /
3 456 - Cft 1 2 1 5 99 040 )
110 : Y = A*C ft 3 1 6*( 1 - CA 4 1 5 6 +
CA 8 1 7040-C ft l2 1 1 6 1 20 0
)
1 20 : LP R I NT ·x = ·;x :
LPR IN T "' ( = • ; Y
130 : C = D*90 1 B 1 R : K =C :
G OS U B 500
1 40: L PRI N T 'T = ' i K
15 0 : E = X -B* SIN c : L PR I NT
'X M = 'l E
160:G= X - Y 1 TAN c: LP R I N T
' T L = " i G
170 : F = Y 1 SIN c : L PRIN T •
T K = ' i F
180 :H= Y +B * C O S C-B :
LPRINT ' DR = 'i H
190 : 1 = A TN ( Y 1 X) : K =I :
GOS U B 5 00
200 : LPRINT ' D = ' i K
2 10 : J = YI SIN r : L P R IN T •
S C = ' i J
2 20 : EN D
S00 : K = D M S ( K + . 0 001 4) :
R ETU RN
19 : " A' : L = 1 : G O TO 2 5
20: • B ' : L = 0
25 : US IN G
:rn : D E G RE E : INPUT ' A = •
; A : L PR I NT ' A ='i
S T R $ A
40 : IF L = 0 I N P UT 'L = • ; n
: L PRIN T ' L = ' j S T R $
D : B =A* AI D : GO TO 6 0
5 0 : I N P U T ' R = • ; B :
L P RIN T ' R = ' ; ST R$ B
60:C= A 1 B : D = A*AI B
1 0 : u s IN G •t t tnntnu . nt tt
PROGRAM LIST
promsoft.com