Sharp PC-1403 - Page 242

23 6
A
X 1
B
Y1
c v
0 X 2
E
Y2
F
v
G
Di sc ri m i n at i n g c o ndition (3 )
H
P 1 X
I
P 1Y
J
P 2 X
K
P 2 Y
L v
M
P 0 x
N
P o Y
0
r 1
p
r 2
Q
D i sc rim in atin g c o ndi t i o n ( 1 )
A Di s c rim i n a ti ng c ond i t io n ( 2 )
s
A
w v
x
v
y
v
• MEMORY CON T ENT S
6 63 B yt es
P R INT 'P 2 ~ = · ; K : E ND
2 40 : W = A C S (X I S Q R (X*X + Y*
Y )) : IF 0 >Y L ET W = -W
2 50 : RE TU ~ : N
:r = . , ; .J:
' · 'O · -: •
I ,_
· ;i = ' ' ; I
' ' p 1
P R H H
2 3 0 : P ~ : HJ T
~- · ) "'' ' •
. i..- ~ :i: .
160 :IF (( R =- l ) * ( S } P )) = l
LET ~ 1 = ~ J+ 1 :3 0
1 70: J = M +S*C O S W : K = N + S*
S IM ~ l
18 0 :M= M+ S G N M* . 0 0 5 : N = N +
%M M :t< . 00 5
1 90 :H=H + SG M H • . 00 5 : I = I +
: 3 G N I* . 005
20 0 : J = J +S G N J :t< . 00 5 : K = K +
:3 GN K :tc . 005
2 1 0 :PRi tH ' 'P 0 x= '' ; IJ S H H i
' ' ttUttttltU. tt:n: . , ; M:
PRIMT '' P 0 · ~='' H l
C E- t -D : G 0 : 3U B 2 40
1 = . .. ; I] .
90 : I N P U T ·c2 . o u r: 1 I N ~ -
i = " ; R
1 00 : I N P U T "L EF T : l R IGH T :
- 1=' ' i G
1 10 : F = P+R*S : C = O +Q *S : H =D -
A : I =E- B : J = S Q R CH *H + I
*I ) : K = A C S ( H / J ): I F 0
> I LET K = - 1<
12 0 : L= A C S C C C * C + J * J -F * F )
/ 2 /C / J )
1 3 0 : N = K +G*L : M = A + C * CO S N :
N= B + C * S I N N : X = Q* ( A - M
) : Y = Q * ( B- N ) : GOS IJB 24
0
14 0 : IF ((Q = -1 ) * ( S ) 0 ) )= 1
L E T ~ J = ~J+ 1 8 0
1 5 0 : H =M + S* CO S W : I = N +S *
S I N W : X =R •C D - M ) : Y = R *
1
::t: = ' ' ; A
20 : IN P U T
'· ' C 1
·~ = · · · ; B
30 : HJ P IJ T
' · ' C l
r = · · ·; 0
4 ~1 : IM P U T
' ) C2
r = • . • ; [I
5 0 : HJP U T
' · 'C 2
· ~ =· · · ; E
60 : I t · l P IJ T
' · '(:2 r = • ; p
70: W P UT
'J R == ' · ' ; S
:3 0: IM P U T
'' CLO IJT : t
rn : -
• PRO GRA M LIST