/* Recherche d'une chaîne de caractères dans toutes les fenêtres
   Saint-Martin, 8 septembre 1993		Version 1.0,
   Chez Corbin,  8 janvier   1997 (AmiTex)      Version 1.01 */

options results

'LOCK(-1)'
'NBTEXT(-1)'    /* lecture du nombre de fenêtres */
df = result-1	/* indice dernière fenêtre */

'SELTEXT(-1)'   /* lecture de l'indice de la fenêtre active */
f = result

'LINE'          /* lecture du numéro de ligne actuelle */
l1 = result

'COL'           /* lecture du numéro de colonne */
c1 = result

'FIND(1)'       /* recherche de l'occurence suivante */
if result=0 then do
    if f < df then f=f+1    /* passage à la fenêtre suivante */
    else
    if f=df & f>0 then f=0  /* retour à la première fenêtre */
    else do
	'UNLOCK(-1)'
	exit		    /* il n'y a qu'une fenêtre... */
    end
    /* aller au début du texte de la nouvelle fenêtre, y effectuer une recherche */
    'SELTEXT('f'):GOTO(1,1):FIND(1)'
end
'TOFRONT('f'):UNLOCK(-1)'