Anfrage:
&
var '40'
ins #uzA
ins #uzB
var '1'
ins #uzS
var 'TIT _ado'
ins #utI
var '41'
ins #uzW
var ''
ins #ufa
switch coding
var 'TIT _ado'
asci
ins #uff
var 'TIT+_ado'
ins #usT
var 'TIT _ado'
ins #ufC
var #uff
if 'FAM' jump fmly
find
switch coding
jump found
:fmly
var '#' #uff(b'FAM')
find
fam
:found
if l 1 jump nix
var #uff
if ='FAM' jump kurzliste
if g 1 order d57
:kurzliste
wri '
'
var #ufC
ins #ufA
wri ''
var l
ins #uer
wri '' #uer(f'0') ' Ergebnisse des Befehls: ' #utI '
'
wri '(Den Befehl können Sie ändern, dann [Neu suchen])'
wri ''
var l
ins #uzU
=
var #uzW
-
var Z
if <1 wri ' ';jump back
wri n ''
wri 'Weiter ' n
:back
var #uzS
if <2 jump numm
=
var #uzA
-
var Z
if <2 var '1'
ins #uzS
wri n ''
wri 'Zurück '
:numm
var #uzU
if <51 jump liste
wri ''
:liste
wri ' '
wri '
'
xport p p-brief
get 1
:loop
var r
ins #urr
var #urr(f'0')
ins #urr
write 10 '- ' #urr(r5) '. '
down
wri ' [Info]'
switch coding
var #uzA
=
- 1
var Z
ins #uzA
if <1 jump send
next
if ok jump loop
:send
write '
'
jump finish
:grec
var i
ins #urN
write 'i=' #urN n
write '
Ergebnis: nur 1 Datensatz, und zwar
' n
write s n
wri n ''
wri 'New Search
' n
jump finish
:nix
var #uff '?'
ins #uff
find
if l 1 jump garnix
jump found
:garnix
wri n '
This command ' #ufC '
retrieved nothing. Try other terms.' n
wri '
Nichts gefunden mit ' #ufC '
'
jump finish
:index
var #usF
var '15 ' #urG(e' ')
ins #upG
exec X page
:finish
var l
ins #uzU
=
var #uzW
-
var Z
if <1 wri ' ';jump clear
wri n ''
wri 'Weiter ' n
:clear
var ''
ins #ukt
ins #urr
ins #ufC
ins #ufA
ins #ufC
ins #us2
ins #uff
ins #uII
ins #usF
write n
@ DB=demo ID=opac/opac
Ergebnis voll:
3 Ergebnisse des Befehls: TIT _ado
(Den Befehl kÓnnen Sie ¼ndern, dann [Neu suchen])áááááááááááááááá
- 1
Shakespeare, William: Much ado about nothing
- Cambridge Univ. Press (1997) Signatur:
[Info]
- 2
Much ado about nothing and The taming of the shrew
- [contemporary critical essays]. - Palgrave (2001) Signatur:
[Info]
- 3
Shakespeare, William: Much Ado about nothing
- Methuen (1981) Signatur: 2590-4916
[Info]
AVANTI:EOR
Ergebnis ohne p-brief:
3 Ergebnisse des Befehls: TIT _ado
(Den Befehl kÓnnen Sie ¼ndern, dann [Neu suchen])áááááááááááááááá
- 1. [Info]
- 2. [Info]
- 3. [Info]
AVANTI:EOR
Magic Quotes: 0