globale Suche 2

[Okaftan]

Liebe AllegrologInnen!

Meine Mail betreffs einer globalen Suche in mehreren Datenbanken
ist nicht sauber uebertragen worden. Deshalb hier noch einmal
etwas ergaenzt und nun hoffentlich auch lesbar.

Mit freundlichen Gruessen,
                           P. Oliver J. Kaftan



Globale Suche in mehreren DBN mittels 'Flips die Zweite'.

    Nach  Eingabe   einer  Ziffer   'i'  wird   der  zu   suchende
Regeistereintrag erfragt.  Dieser wird  zuerst im Register 'i' der
1. DBN gesucht, falls vorhanden der 1. zugehoerige Satz angezeigt.
Sonst wird  in der  2. DBN  gesucht und  gegebenenfalls angezeigt.
Falls es  in beiden  DBN keinen  Registereintrag  gibt,  wird  das
Register 'i' der 1 DBN an der naechsten Stelle aufgeschlagen.
    Die Vergleichsbefehle  'v5, ' 'i5, ' sind fuer ein 3-stelliges
Kategoriesystem, bei 2 Stellen muss es 'v4, ' bzw. 'i4, ' heissen.

#-`       Flips
#u1 +#69q V5,/ v5,: e0    falls eine Ziffer eingegeben wird, Frage
#+#

#69q
#<1                        Umschalten zur 1. DBN
#nr dxq e0
#q{ " Suchbegriff "}

#u1 +#691 i5,1 e0
#u1 +#692 i5,2 e0
#u1 +#693 i5,3 e0
#u1 +#694 i5,4 e0
#u1 +#695 i5,5 e0
#u1 +#696 i5,6 e0
#u1 +#697 i5,7 e0
#u1 +#698 i5,8 e0
#u1 +#699 i5,9 e0
#u1 +#69: i5,0 e0
#+#
#691
!uxq y2 dxq axq     Eingabe Umcodieren gemaess #-1 in der cPI
#uxq +#69x |18
#<2                 Umschalten zur 2. DBN
#uxq +#69x |18
  #<3               fuer eine 3. DBN aktivieren
  #uxq +#69x |18    und fuer die anderen Register einfuegen
#nr +#69y e0
#692
  hier umcodieren gemaess #-2 in der cPI einfuegen,
  ebenso fuer die weiteren Register
#uxq +#69x |28
#<2                 Umschalten auf die 2. DBN
#uxq +#69x |28
#nr +#69y e0
#693
#uxq +#69x |38
#<2                 Umschalten auf die 2. DBN
#uxq +#69x |38
#nr +#69y e0
#694
#uxq +#69x |48
#<2                 Umschalten auf die 2. DBN
#uxq +#69x |48
#nr +#69y e0
#695
#uxq +#69x |58
#<2                 Umschalten auf die 2. DBN
#uxq +#69x |58
#nr +#69y e0
#696
#uxq +#69x |68
#<2                 Umschalten auf die 2. DBN
#uxq +#69x |68
#nr +#69y e0
#697
#uxq +#69x |78
#<2                 Umschalten auf die 2. DBN
#uxq +#69x |78
#nr +#69y e0
#698
#uxq +#69x |88
#<2                 Umschalten auf die 2. DBN
#uxq +#69x |88
#nr +#69y e0
#699
#uxq +#69x |98
#<2                 Umschalten auf die 2. DBN
#uxq +#69x |98
#nr +#69y e0
#69:
#uxq +#69x |108
#<2                 Umschalten auf die 2. DBN
#uxq +#69x |108
#nr +#69y e0


#69x                zum 1. Satz mit gefundenen Schluessel flippen
#u1 e1 "|" axq
#uxq dxq
#+#

#69y                kein Satz gefunden, ins Register flippen
#<1
#u1 e1 "?|" axq
#uxq dxq
#+#