Ist die DB aufgebohrt? im FLEX feststellen

[Bernhard Eversberg]

Tip: wenn man im FLEX feststellen will, ob es sich um eine "aufgebohrte" 
Datenbank handelt (Setzung von ii > 1 in den Indexparametern) kann man das mit 
dieser Sequenz tun:

  TBL oeffnen, 2 Bytes lesen:
var D B ".tbl"
open
fetch b
fetch b
  (denn das zweite Byte der TBL enthaelt den Faktor +2)
if <4 mes nicht aufgebohrt
if <4 end
  Den Wert in die iZ schreiben, 2 subtrahieren
Z =
Z -2
  und anzeigen:
var "aufgebohrt, Faktor " Z
mes



Bernhard Eversberg
Universitaetsbibliothek, Postf. 3329, 
D-38023 Braunschweig, Germany
Tel.  +49 531 391-5026 , -5011 , FAX  -5836
e-mail  B.Eversberg at tu-bs.de