Radio Shack TRS-80

20
FOR X
=
1 TO
126
30 FOR Y
=
1 TO 46
SAMPLE
ANSWER FOR EXERCISE
25-1
:
10
INPUT
"DISTANCE
FROM
TREE";D
20
INPUT
"HEIGHT OF
TREE
YOU'RE SEEKING"
;H
30
X=H/D:GOSUB
30660
40 PRINT "REQUIRED ANGLE
IS" ;C;
"DEGREES.
"
SAMPLE ANSWER FOR
EXERCISE
25-2:
1
CLS
10
FOR A=0 TO
360
20
X=A:GOSUB 30370
30 Y=~Y*20
40
SET( A/3,
Y+22)
50 NEXT
A
60
GOTO 1
200