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

PROGRAM LIST
10: "A": INPUT "STARTING
POINT=";V
20:INPUT "MINUTE INTERV
AL=";A
30:INPUT "INTERVAL=";w
40:G=V:F=V:Z=0
50:IF Z=0 GOTO 70
60:G=G-W:C=G: GOTO 80
70:C=G:Z=1
80:GOSUB 300
90:F=F+W:C=F
100:GOSUB 300
110:GOTO 50
120:END
300:X=C: GOSUB 500
311:1: '(=B:
X=A+C
320:GOSUB 500
330:D=C:C=D-A*Y/(B-Y)
340:IF ABS (D-C)=E-8
GOTO 300
350:BEEP 3: PRINT 9ANSWE
R=",C
360:RETURN
500:B=«X-2)*X-l)*X+2
510:RETURN
268
MEMORY CONTENTS
A
Minute interval
B
f (x)
c
X
o
D f (x
+
h)
E
F
vi
G
vi
H
I
J
K
L
M
N
0
P
Q
R
S
T
247
u
V Starting point
W
Interval
X
x
y
f (x)
Z
Initial flag