image of READY prompt

Wang2200.org

Listing of file='30' on disk='vmedia/glbr_22.wvd.zip'

# Sector 391, program filename = '30'
0003 DIM X(70),Y(70)
0005 PRINT "INPUT NUMBER OF KNOWN POINTS, N"
0010 INPUT N
0015 PRINT "INPUT KNOWN POINTS (1 POINT TO A LINE) AS FOLLOWS: 'X,Y'"
0020 FOR I=1 TO N
0025 INPUT X(I),Y(I)
0030 NEXT I
0035 PRINT "INPUT X-COORDINATE OF POINT TO BE INTERPOLATED. TO END"
0036 PRINT "KEY 99999"
0047 PRINT
0060 PRINT "X";
0065 INPUT Z
0067 IF Z=99999THEN 160
0070 T=0
0075 FOR K=1 TO N
0080 S=1
0085 FOR I=1 TO N
0090 IF I=K THEN 100
0095 S=S*(Z-X(I))/(X(K)-X(I))
0100 NEXT I
0110 T=T+S*Y(K)
0120 NEXT K
0130 PRINT "Y=";T
0140 PRINT
0150 GOTO 60
0160 END