TEXTOR ™=0007BOTT . Das Programm wird beim Archivieren eines Textes aufgerufen, falls die. Stichworte per Programm bestimmt werden sollen.. Die Stichworte m}ssen durch Invertierung gekennzeichnet sein.. Bei Programm{nderungen m}ssen der Programmname, die Argumente, sowie das . Schreiben in die Archivdatei, also die Unterprogramme "stichwort-anfang"   8=003FBOTT anfang.setze Text = Textname.t datei |ffnen Text |ffnen-fehler.setze Seitennr = 1.anzeigen zeile 15 "Stichworte werden im Text gesucht. Seite: ".t posit seite Seitennr.rufe stichwort-anfang mit archiv-fehler. òweiter tz bis zeichen Wortgrenze. wenn tl = #045 : zur}ck tz. ** ]berpr}fen, ob es sich um einvergleiche tl mit z-trenn trennung. getrenntes Wort handelt und zu. trennung verzweigen.  kspringe suchenschleife.. Behandlung getrennter Worte: Zun{chst wird der Teil vor dem Trennstrich. gelesen und die linke Randposition gemerkt. In der n{chsten Zeile wird auf. diese Randposition positioniert. Das erste Zeichen mu~ jetzt Code i f}r die. Invertierung sein.. ---------------------------------------------------------------------------- <seitenschleife.anzeigen spalte 43 Seitennr.suchenschleife.l|sche Stichwort.t suchen Invert seitenende. ** Code i f}r Invertierung suchenwort-weiter.t rechts. ** Code i }berlesent hole index Index-a. ** Anfangspositon des Wortes merken ç=001EBOTTT# daten in archvzw.Vorgang<1>.Arvdateidatei <14>.programm st-suchen offen mit Textname Archivname fehlermarke..-----------------------------------------------------------argumente.Textname.Archivname.fehlermarke marke.daten.Textdatei<8>.Seitennrnummer.#aktuelle SeitennummerInvert#017.#Code i f}r InvertierungWortgrenze"#004#005#010#011#012#013#014#015#017". à-0018BOTT unterprogramm stichwort-anfang mit fehler..----------------------------------------------argumente.fehler marke.anfang.d datei setzen archvzw:Arvdatei.d posit 1 Archivname archiv-fehler.d tief archiv-fehler archiv-fehler. ** hinter den Satzd tief archiv-fehler archiv-fehler. ** hinter den Kommentar.r}cksprung.archiv-fehler.r}cksprung fehler. *unterprogramm stichwort-einf}gen..--------------------------------anfang.gro~schreibung Stichwort.setze Alpha-feld = Stichwort.setze Stichwort = Alpha-feld.setze Stichwort = Stichwort.d einf}gen schl}ssel 7 Stichwort.d schreiben zeile Stichwort.r}cksprung. 3. sowie "stichwort-einf}gen" erhalten bleiben.. ½.Die in "Wortgrenze" angegebenen Dezimalcodierungen haben folgende Bedeutung:. #004 - Rand f}r Kolonnenbegrenzung. #005 - senkrechte Linie. #010-#015 - Linien. #017 - Code i f}r InvertierungL-rand nummer. #Linker RandIndex-anummer.#Anfangsposition des invertierten WortesIndex-enummer.#Endposition des invertierten WortesStichworttext <40>.Alpha-feld<40>. seitenende.t tief seite textende.rechne Seitennr + 1.springe seitenschleife.textende.t datei schlie~en.l|schen zeile 15.r}cksprung.archiv-fehler.t datei schlie~en.|ffnen-fehler.r}cksprung fehlermarke. wweiter tz bis zeichen Wortgrenze.wenn tr nicht = Invert : springe fehler.bilde Stichwort + tz.<,Index-a>.rufe stichwort-einf}gen.t hole index Index-e. ** Endposition des Wortes holen undt posit index Index-e. ** zum Weitersuchen des n{chstent rechts. ** Stichwortes dahinter positionieren #trennung.bilde Stichwort + tz.<,Index-a>.t hole rand L-rand.t n{chste zeile textende seitenende.weiter tz bis spalte L-rand.wenn tr = Invert : springe wort-weiter.fehler.anzeigen fehler "Das Stichwort ist fehlerhaft".springe suchenschleife.