File KURNST.BA (BASIC source file)

Directory of image this file is from
This file as a plain text file

5 DIM A(11)
10 INPUT A,B
20 READ N
30 FOR B = N TO 0 STEP -1
40 READ A(B)
45 NEXT B
50 GOSUB 200
59 PRINT"PRUEFUNG"
60 IF F1 *F2>0 THEN160
70 IF F1 =0 THEN 170
80 IF F2 =0 THEN 180
90 LET C =(B-A)/2
100 GOSUB 300
110 IF F3 =0 THEN 195
120 IF F1 *F3 >0 THEN 150 
130 LET A=A+C
140 GOTO 50
150 LET B=A+C
155 GOTO 50
160 PRINT "IN DIESEM INTERVALL EXISTIERT KEINE NULLSTELLE"
165 GOTO 430
170 PRINT A;"IST NULLSTELLE"
175 GOTO80
180 PRINT B;"IST NULLSTELLE"
190 GOTO90
195 PRINT A+C;"IST NULLSTELLE"
196 STOP
200 PRINT"SUB 200"
201 LET X=A
210 LET F=0
220 FOR I= 0TO N-1
230 LET F=(F+A(N-I))*X
240NEXT I
250 LET F=F+A(0)
255 LET F1 =F
260LET X=B
265LET F=0
270 FOR I= 0 TO N-1
280 LET F = (F+A(N-I))*X
290 NEXT I
295 LET F = F+A(0)
296 LET F2 =F
297 RETURN
300 PRINT "SUB 300"
301 LET X=A+C
310 DATA 2
320 FOR I= 0 TO N-1
330 LET F=(F+A(N-I))*X
340 NEXT I
350 LET F=F+A(0)
360 LET F3=F
370 RETURN
410 DATA 2
420 DATA 1,0,0
430 END



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search