Radio Shack TRS-80 PC-3

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: GO TO 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