[Tustep-Liste] Bei neuem Wert Stern setzen

[Peter Stahl]

Liebe Listen-Leserinnen und -Leser,

ich zeige Ihnen hier ein #KOP-Problem. Bitte nicht lachen wegen der
Datenstruktur...  It's classic mode. ;-)

Die Quelldatei sieht so aus:

@1 01 andar @3 gehen, laufen @2
@1 01 desandar @3 zurückgehen @2
@1 01 ser @3 sein @2
@1 02 creer @3 glauben @2
@1 02 desproveer @3 nicht versorgen @2
@1 03 ampliar @3 vergrößern @2
@1 03 averiarse @3 kaputtgehen @2
@1 03 confiar @3 anvertrauen @2

Das Problem ist: Wenn sich die Zahl nach @1 ändert, soll ein Stern eingesetzt werden,
sonst soll nichts geschehen:

Meine #TUE-Datei dazu sieht nun so aus:

#modi,rette
#par, <>
#kop,quelle,ziel,+,+,*
r         i2 = 0;

al        . at 1.
liv       i1

rr        if (i1 .ne. i2) then;
rr          i2 = i1;
rr          goto 21;
rr        else;
rr          goto 3;
rr        endif

xx    2   . at 1 <>>/. at 1 * >=04.

sp2       8 3
*eof    
#modi,hole

Die Zahl i2 wird zunächst auf 0 gesetzt, i1 nach @1 eingelesen und mit i2 
verglichen. Unterscheiden sich beide, geht's weiter zu XX und i2 bekommt den
Wert von i1. Unterscheiden sie sich nicht, wird gleich ausgegeben.

In der Zieldatei wird aber nur einmal getauscht, und nicht jedesmal, wenn sich
i1 ändert:

@1 * 01 andar @3 gehen, laufen @2
@1 01 desandar @3 zurückgehen @2
@1 01 ser @3 sein @2
@1 02 creer @3 glauben @2

Könnte mir bitte jemand einen Tipp geben, was ich nicht bedacht habe.

Herzliche Grüße reihum,
P.Stahl