Serving the Business Basic market best

0010 begin
0020 dim A[1:5],A$[1:5]
0030 let A$[1]="alfa "
0040 let A$[2]="bravo "
0050 let A$[3]="charlie "
0060 let A$[4]="delta "
0070 let A$[5]="echo "    Leerstellen für die bessere Lesbarkeit
0075 print A${all}
0080 let A{all}=pos("a"=A${all}) 
0090 print A{all}
0100 let A{all}=pos("a"=A${all},1,0)
0110 print A{all}

Die Numerische-Reihe erhält das Ergebnis der 'POS' Funktion aus der String-Reihe
	A[1]=pos("a"=A$[1]) 
	A[2]=pos("a"=A$[2]) 
	.....
	A[n]=pos("a"=A$[n])


Oder wussten Sie:

PRINT POS ( "abc" : "Schere" )
Achten Sie bitte darauf, wir verwenden nicht das "=" Zeichen, sondern einen
'Doppelpunkt'.
Wir suchen die Buchstaben 'a' oder 'b' oder 'c' aus der Reihe 'Schere'.
Das Ergebnis ist die Position in dem der gesuchte Buchstabe zuerst vorkommt. In
unserem Fall finden wir zuerst ein 'c', und zwar an der zweiten Stelle.
Folglich ist das Ergebnis gleich '2'.

Oder:

PRINT POS ( "abc" ^ "Schere" )
Wir suchen jetzt die erste Position aus der Reihe  'Schere' in dem der Buchstabe
ungleich mit 'a' oder 'b' oder 'c' ist.
Das ist also die erste Position mit dem Buchstaben 'S'. 
Das Ergebnis ist folglich gleich '1'