globale Suche

[Okaftan]

1¾

Herrn Berger fuer die Idee und der Entwicklungabteilung ein dickes Kompliment fuer 'Flips die Zweite'. Damit laesst sich nun etwa eine globale Suche in zwei Datenbanken verwirklichen. Vielleicht kanns noch jemand gebrauchen.
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. zugeh”rige 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.

Mit freundlichen Gruessen,
                           P. Oliver J. Kaftan



#-`       Flip: Suche in 2 Datenbanken
#u1 +#69q V5,/ v5,: e0  falls eine Ziffer eingegeben wird, weiter
#+#
#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 wie bei #-1 der cPI
#uxq +#69x |18
#<2                     Umschalten zur 2. DBN
#uxq +#69x |18
#nr +#69y e0
#692
    evt. zuerst Eingabe umcodieren
#uxq +#69x |28
#<2                     Umschalten zur 2. DBN
#uxq +#69x |28
#nr +#69y e0

  usw. fuer alle Register


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

#69y     kein Satz gefunden, ins Register flippen
#<1                     Umschalten zur 1. DBN
#u1 e1 "?|" axq   
#uxq dxq
#+#
ÜÜÜÜÜÜÜÜÜ€
Á
°
T
j
ò