10 REM -----------------------------
20 REM --                         --
30 REM --  BEISPIELPROGRAMM FUER  --
40 REM --  ITERATIVE STRINGSUCHE  --
50 REM --   IN SORTIERTEM ARRAY   --
60 REM --                         --
70 REM --  MATTHIAS ULLMANN 1989  --
80 REM --                         --
90 REM -----------------------------
100 :
110 REM ** PSEUDOSTRINGS ERZEUGEN **
120 :
130 SM=676 : DIM A$(SM)
140 FOR X=65 TO 90 : FOR Y=65 TO 90
150 I=I+1 : A$(I)=CHR$(X)+CHR$(Y)
160 NEXT Y,X
170 :
180 REM ** SIMULIERTES HAUPTPROGRAMM **
190 :
200 SU$="" : INPUT"SUCHKRITERIUM ";SU$
210 IF SU$="*" THEN END
220 TI$="000000" : GOSUB 10000 : GOTO 200
230 :
240 REM ** ROUTINE "ITERATIVE SUCHE" **
250 :
10000 UG=1 : OG=SM+1
10010 :
10020 VE=INT((UG+OG)/2)
10030 IF A$(VE)=SU$ THEN 10100
10040 :
10050 IF VE=UG THEN 10120
10060 :
10070 IF A$(VE)<SU$ THEN UG=VE : GOTO 10020
10080 OG=VE : GOTO 10020
10090 :
10100 SN=VE : PRINT"SATZNUMMER =";SN,"TI =";TI : RETURN
10110 :
10120 SN=0 : PRINT"*** SATZ NICHT GEFUNDEN ***" : RETURN