*
TAR1 #dAR1Save //AR1 retten
TAR2 #dAR2Save //AR2 retten
LAR1 P##arrayFeld //start
LAR2 P##arrayFeld //festlegen
//WHILE i <= 60 DO
L 60
whil: T #i
//FOR k := 1 TO 60 DO
L 60
for: T #k
//IF (arrayFeld[i] == arrayFeld[k] AND i <> k) THEN
U(
L W [AR1,P#0.0]
L W [AR2,P#0.0]
==I
)
U(
LAR1
TAK
LAR2
<>D
)
//gleicheWerte := TRUE; GOTO end;
= #gleicherWert
SPA end
//end if
+AR2 P#2.0
L #k
LOOP for
//end for
+AR1 P#2.0
LAR2 P##arrayFeld
L #i
LOOP whil
//end while
LAR1 #dAR1Save
LAR2 #dAR2Save
end: NOP 0