Radio Shack TRS-80 PC-3

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