10 REM**BISECTION SEARCH**
20 REM CLEAR 100
30 DIM N$(20):DIM T$(20)
40 I=1
50 READ N$(I), T$(I)
60 IF N$(I)="ZZZZ" THEN 100
70 I=I+1:GOTO 50
90 REM******
100 N=1:REM*WE ARE USING ZZZZ THIS TIME*
110 REM******
150 INPUT"QUERY NAME";Q$
200 REM**START OF SEARCH******
210 PRINT" L";TAB(5);" H";TAB(10);" M";TAB(15);"N$(M)"
220 L=1:H=N
230 IF H-L=1 THEN 500
240 M=INT((L+H)/2)
250 PRINT L;TAB(5);H;TAB(10);M;TAB(15);N$(M)
260 IF Q$=N$(M) THEN 320
270 IF Q$<N$(M) THEN 300
280 L=M:GOTO 230
300 H=M:GOTO 230
320 REM**END OF SEARCH******
330 PRINT Q$;"'S TELE NO. IS ";T$(M)
350 GOTO 600
500 PRINT Q$;" IS NOT IN THE LIST"
600 INPUT"DO YOU WISH TO LOOK FOR ANOTHER NAME"'R$
610 IF R$="YES" THEN 150
620 END
900 DATA AAAA, 0000
910 DATA BENNY, 1234
920 DATA COPPER, 9832
930 DATA DRAPER, 1980
940 DATA EDDIE, 7294
950 DATA GWYNNE, 5821
960 DATA HETTY, 8632
970 DATA MORLEY, 7832
980 DATA PROSSER, 1383
990 DATA SMYTHE, 1147
1000 DATA WEEKS, 5529
1010 DATA WILSON, 9936
1020 DATA ZZZZ, 9999
