100 A=1000
110 DIM A$(A)
120 FOR I=1 TO A-1
130 : A$(I)="MAIER"
140 NEXT I
150 A$(A-1)="MAYER":A$(A)="MEIER"
160 PRINT "ES SIND";A-1;"'MAIER', EIN 'MAYER' U.EIN 'MEIER' VORHADEN"
170 INPUT "SUCHKRITERIUM";S$
180 :
190 X=TI
200 SYS 49344,S$,A$(1),A$(A),P%
210 T=(TI-X)/60
220 PRINT "GEFUNDEN: ELEMENT NUMMER";P%
230 PRINT "SUCHZEIT IN SEC:";T:PRINT
240 GOTO 150