Free Form von LOOKUP

[tarkusch]

Hallo,

ich hätte gerne einen Sourcecode bearbeitet und habe da noch einige Flecken die nicht automatisch in Free übernommen werden.

Stimmt hier meine Umsetzung? Welche Stolpersteine würde es geben?

CL0N01Factor1+++++++Opcode(E)+Factor2+++++++Result++++++++Len++D+HiLoEq
C     SEARCH        LOOKUP    ARR(POS)                               99
       //    // Lookup an Array element
       //    POS = %LOOKUP(SEARCH:ARR:POS);
       //    IF POS > 0;
       //      *IN55 = *ON;
       //    ELSE;
       //      *IN55 = *OFF;
       //      POS = 1;
       //    ENDIF;

lg

[Fuerchau]

Es gibt noch die Variante des Lookup, die alle Vorkommen in einem Ziel-Array liefert.
Für diese gibt es keine Entsprechung mehr in Freeform.

[Pikachu]

Nimm *IN99, dann paßt das besser.

[tarkusch]

Ja, war leider ein Tippfehler 55 <==> 99