[Tustep-Liste] Wechsel 1- u. 2-spaltiger Satz

[Thomas Neumann]

Liebe TUSTEPler,

Problem:
Wechsel zwischen 1- und 2-spaltigem Satz.
Der Text wird nicht in 2 Spalten gesetzt, teilweise übereinander
geschrieben...

Bisheriges Vorgehen: Register wird extrahiert und in eine
Datei geschrieben, dann mit den unten aufgeführten Routinen
modifiziert, Gesamtdatei zusammengebaut ... usw.

1. 1. Satzlauf, Text aus <testtxt> (ein Register)
wird einspaltig gesetzt.
2. Makro *SUMBRUCH schreibt aus der Protokoll-
datei vom 1. Lauf eine neue Datei <spasatz>
3. <spasatz> wird im 2. Satzlauf zweispaltig gesetzt

Die Daten aus <testtxt.t7> werden mit den Steueranweiseung
&!s(2,112) [Anfang der Datei <testtxt.t7>] und
&!s{ [Ende der Datei <testtxt.t7>] versehen.

Parameter 1. Satzlauf:
   
#sa,testtxt,testtxt.t7,m=t,l=+,pr=testtxt.t9,aus=testtxt.t6,par=*,f=testtxt.f6
  max       999999 999999 999999
  tber      0.1-99.999
  ger       hp
  anl       3
  ABB       200 20
  sch       31601 31602 31604 31605 31603
  gro       9+2 8+1 9+0 12+3 11+3 9+2 8+2 8+2
  bre       112 112 112 112 112 238 238 238 238
  hoe       220 3 0 0
  aus       0 0 0 1/5 3/5 1
  sei       1 2
  SPA       1 1 0
  sil       0 1/6 1/12 5 2 2
  $         0 3/2 10
  $$        0 0 3 0
  &&&       2 1 0 0 6
  &&        2 1 0 0 6
  &         2 1 0 0 6
  mon       1 0 112 14 14
  pro       <ne>
  *eof

Aufruf *SUMBRUCH:
  #*SUMBRUCH,testtxt.t9,spasatz,,+,*

Parameter 2. Satzlauf:
  
#sa,spasatz,testtxt.t7,m=t,l=+,pr=testtxt.t9,aus=testtxt.t6,par=*,f=testtxt.f6
  max       999999 999999 999999
  tber      0.1-99.999
  ger       hp
  anl       3
  ABB       200 20
  sch       31601 31602 31604 31605 31603
  gro       9+2 8+1 9+0 12+3 11+3 9+2 8+2 8+2
  bre       112 112 112 112 112 238 238 238 238
  hoe       220 3 0 0
  aus       0 0 0 1/5 3/5 1
  sei       1 2
  sil       0 1/6 1/12 5 2 2
  $         0 3/2 10
  $$        0 0 3 0
  &&&       2 1 0 0 6
  &&        2 1 0 0 6
  &         2 1 0 0 6
  SPA       2 1 0
  mon       2 0 112 14 14 14
  kol       1 2 0
  pro       <ne>
  *eof

Ausgangsdaten in <testtxt>:
[Es sind nur ein paar Testdaten mit mögl. Varianten]
$$$ &: &!K(-2) Bernhardi, August Ferdinand (1769-1820)  5 &!K{
$$$ &: &!K(-2) Briest, Herr von (Vater von CF)  5 &!K{
$$$ &: &!K(-2) Briest, Herr von; Vater von CF  12 &!K{
$$$ &: &!K(-2) Cotta, Elisabeth von  24 26 27 &!K{
$$$ &: &!K(-2) Cotta, Johann Friedrich  21 22 23 24 25 26 &!K{
$$$ &: &!K(-2) Damen Taschenbuch  30 &!K{
$$$ &: &!K(-2) Fouqué, Friedrich de la Motte  5 6 9 12 13 16 18 19 20 24 29 
31 &!K{
$$$ &: &!K(-2) Fouqué, Marie  12 &!K{
$$$ &: &!K(-2) Friedrich der Große  23 &!K{
$$$ &: &!K(-2) Goethe, Johann Wolfgang  10 &!K{
$$$ &: &!K(-2) Goethe, Johann Wolfgang (1749-1832)  16 &!K{
$$$ &: &!K(-2) Goethe, Johann Wolfgang  19 &!K{
$$$ &: &!K(-2) Grosfürstin Alexandra  36 &!K{
$$$ &: &!K(-2) Helvig-Imhoff, Amalie von  12 &!K{
$$$ &: &!K(-2) Hitzig  30 &!K{
$$$ &: &!K(-2) Humboldt, Alexander von  23 &!K{
$$$ &: &!K(-2) Humboldt, Frau von  26 &!K{
$$$ &: &!K(-2) Ihre Frau Schwägerin  29 &!K{
$$$ &: &!K(-2) Lehnhold (Verleger)  27 &!K{
$$$ &: &!K(-2) Phuel, General von  29 &!K{
$$$ &: &!K(-2) Phuel, Mad. von (Tochter von CF)  26 &!K{
$$$ &: &!K(-2) Rochow, Hr. von; Sohn von CF  12 14 15 &!K{
$$$ &: &!K(-2) Schlegel, August Wilhelm  5 6 8 &!K{
$$$ &: &!K(-2) Schrag, Johann Leopold  28 29 30 31 32 33 35 36 72 &!K{
$$$ &: &!K(-2) Staël, Frau von  7 &!K{
$$$ &: &!K(-2) Stuttgart, Morgenblatt für gebildete Stände  22 &!K{
$$$ &: &!K(-2) Tarnow, Fanny  20 &!K{
$$$ &: &!K(-2) Tieck-Bernhardi-von Knorring, Sophie (1775/9-1833)  5 6 &!K{

Besten Dank im voraus. Wie immer wahrscheinlich nur eine Kleinigkeit.
MFG
Thomas Neumann

  ###########################################
  ##
  ##  Dr. Thomas Neumann
  ##    Vogelsangstrasse 10
  ##    D-71254 Ditzingen
  ##
  ##  e-mail:    neumann_thomas at hotmail.com
  ##             neumann_thomas at t-online.de
  ##
  ###########################################