Sharp CE-125 - Page 50

1 33
2 9 0 : LPRINT "Z B " : LP RINT
• R = ' ' ; S TR$ L:
LPR I NT "X = • ; STRS M
300: L P R INT · zc•: L P RINT
" R= • ; S T R $ N :
LPRINT "X = • ; S TR$ 0
310: E ND
350 : U =.f c ~ : >t< X +'lit<'( )
360 : 'v' = A C S (X/ IJ )
370 : IF 0 ) Y L E T l/ =- V
380 : RET UR N
400: S=:X : + S : T=' t + T
410 : R E TURN
450 : U= X it< CO S Y: Y = X • SIN
'l
4 60 : RE T IJRN
505 : ' ' B • : CLEAR
510:DE GREE : rn PUT " ZA R
= " ; )< ; : LPRI N T '' ZA R =
'' ; STR$ x
5 2 0: I NPUT 'ZA x = • ; y :
L P RIN T " Z A X = • ;
STR$ Y
5 3 0 : GO : :>U B 350
54 0 : B = U: C = V
55 0 : I N P UT " ZB R= " I X :
LP R I N T " Z B R= • ;
ST R $ : • :
56 0 :I N P U T ' ZB X = • ; y :
L P RINT 'ZB X = • ;
S TR $ Y
570 : GO SU B 350
580 : D = U : E = I/
590 : I N P UT · zc R= · ; x :
LPRIN T ·z c R= •;
ST R $ X
600 : INP UT ·zc x= · ; y:
LPRINT · zc X = · ;
STR $ Y
6 1 0 : GOSUB 350
620 : F= U : G = ' v '
630 : ) < :O: '·( ::;[I
6 4 0 : H = B>1<D : I= C + E
6 5 0: : ~ = : ,.: + H:+< CO S l
Hl : " A ' : T=0 : S = 0 : DE GRE E
20 : 1NPU T ·z1 R = · ; x:
LPR I NT ' ' Z1 R = •;
STR $ x
30 : I N PUT "Zl X = • ; y :
LPRINT " 2 1 i < = ., ;
S TR $ 't
4 0: GOSUB 400
50 : GOSU B 35 0
6~J: B = IJ : C = Y
70 : INPU T · z2 R=· ; x :
LPRI NT " Z 2 R = '' ;
STR $ : , :
ae : I NPUT · 2 2 x = • ;y:
LPR IN T • Z2 i< : = ' ' i
S TR $ Y
9 0 : GOSUB 400
100 : GOSU B 350
110 : D = IJ : E = './
1 2 0 : I N P IJ T · z3 R= · ; x :
l:PRHH " Z 3 R = • ;
STR $ ~:
130 : INPUT · z3 x =• ; y :
LPR IM T ' ' Z3 > !. = v l
S T R $ ~·
140:G O SU B 400
1 50 : G OS IJ B 350
1 6 0:F= U : G = '.l
170 : X = S : 'l = T
1 8 0:GOSU B 350
1 9 0: H =U : I = './
2 00 : X = B • D / H : Y = C + E-I:
GOS U B 4 50
210 :J =U : K = I/
220 : X = D• F 1 H:Y=E+G-I
2 3 0:GOS U B 4 5 0
24~ l: L =U: M =IJ
2 50 : X =B• F 1 H : Y =C+G-I
2 60 : G OS UB 4 50
270 : N = U : O =I/
2s0 : u s1 NG: L P R INT " ZA':
L P RI NT " R= • ; STR$ J
: L P RINT "X = •; S TR$
K
PROGRAM LIST
promsoft.com