100 A=100
110 DIM A$(A)
120 FOR I=1 TO A
140 : A$(I)="TEST"+STR$(I)
160 : PRINT A$(I)
170 NEXT I
180 :
190 S$="":INPUT "SUCHKRITERIUM";S$
200 I=1
210 SYS 49344,S$,A$(I),A$(A),P%
220 IF P%<>0 AND P%<A THEN PRINT "STRING ";A$(P%),"INDEX";P%:I=P%+1:GOTO 210
230 IF P%<>0 THEN PRINT "STRING ";A$(P%),"INDEX";P%
240 GOTO 190