+ir z
+set pref(base) Default
+set pref(format) usmarc
+
+proc help {} {
+ puts "Commands:"
+ puts " target <host>"
+ puts " base <base>"
+ puts " format <format>"
+ puts " find <query>"
+ puts " show <offset> <number>"
+ puts ""
+}
+
+proc fail-response {} {
+ global ok
+ set ok -1
+}
+proc target {name} {
+ global ok pref
+
+ set ok 0
+ z disconnect
+ z failback {fail-response}