Radio Shack TRS-80 PC-3 Owner's Manual page 255

PROGRAM LIST
HI:
"A":J=B: GOTO 3B
2B:"B":J=1
3B:DEGREE·: INPUT "XB=
";A,"YB= ';B,"R= ";C
4B:INPUT 'Xl= ";D,'Yl=
'if; E
5B:IF J<>B INPUT 'A= ";
H:H= DEG H: GOTO 9B
6B:INPUT 'X2= ";F,'Y2=
¥;G
7B:X=F-D:Y=G-E: GOSUB 5
BB
aB:H=X
9B:X=A-D:Y=B-E: GOSUB 5
BB
lBe:K=W* SIN (X-H)
l1B:L= ACS (K/C)
l2B:M=H-9B-L:N=H-9B+L
l3B:GOSUB 6BB
l4B:PRINT USING
"tttttttttttt.
UU"; 'p:
";O;P
l5B:M=N: GOSUB 6BB
l6B:PRINT 'Q:';O;P
17B:END
5BB:W=f(X*X+Y*Y)
51B:X= ACS (X/W): IF Y<B
LET X=36B-X
52B:RETURN
6BB:O=A+C* COS M:P=B+C*
SIN M: RETURN
335
MEMORY CONTENTS
A
X o
B
Yo
C
R
D
X,
E
Y,
F
X
2
G
Y
2
H
,j
I
J
,j
K h
L
a
M Qp
N
QQ
0
Xp, XQ
P
Yp, YQ
Q
R
S
T
260
u
V
W L
X
.c.x, e
Y .c.Y
Z