[Allegro] Duplikate ausfindig machen

[Bernhard Eversberg]

Fernmündlich kam eine Anfrage, wie man schnell mal eben die
Duplikate z.B. im Signaturen- oder Id-Nummern-Register ausfindig machen 
kann.
Hier eine schnelle Lösung:
(Vielleicht machen wir noch einen ausführlichst ausgearbeiteten
Beitrag für die "Tricks"-Liste draus.)

open x ix1
qrix f 1
Qrix 1000000 |9 0        /Reg. 9 durcharbeiten
close x
open ix1

   Ergebnisdatei auswerten
open x ix2
get
:loop
var (f" ")
if not "1 " write;wri n
get
if yes jump loop
close x
   und anzeigen
help ix2


MfG B.E.