[Tustep-Liste] Satz: Seitensysnopse

stahl at germanistik.uni-wuerzburg.de stahl at germanistik.uni-wuerzburg.de
Tue May 3 21:54:34 CEST 2005


Liebe Christiane,

in dem Band "Maschinelle Verarbeitung altdeutscher Texte V", hg. von
Moser, Stahl, Wegstein und Wolf, steht ein längerer Aufsatz, der die
Probleme eines vierspaltigen Satzes beschreibt. Die darin aufgeführte
Tue-Datei folgt weiter unten in dieser Mail. Sie müsste freilich so
angepasst werden, dass nur zwei parallele Text gesetzt werden.

Viele Grüße
Peter

-----schni schni schnappi--------------------------------------

#+++++ Vierspaltiger Satz

#+++++ 1. SCHRITT
#-        4 Dateien (BVD, BVE, BVI, BVF) anmelden
#PROTOKOLL,FREILAUFEND
#PARAMETER,AUS
#TUE,*,PARAMETER=D;E;I;F,KENNZEICHEN=!
#ANMELDE,BV!1
#DATEI,BV!1.S1,SEQ-AP
#KOPIERE,BV!1,BV!1.S1,MOD=+,LOE=+,PAR=*
          mit jedem Abschnitt, der mit [ beginnt,
          eine neue Seite anfangen
XX        |[|&&&N&&&{ [|
*EOF*
*EOF

#+++++ 2. SCHRITT
#-        die vier Dateien getrennt voneinander setzen
#TUE,*,PARAMETER=D;E;I;F,KENNZEICHEN=!
#DATEI,BV!1.S2,FRAGEN=-
#SATZ,BV!1.S1,BV!1.S2,T,+,*
BRE       88  88  88  88  88  88  88
GRO       8+1 8+1 0+0 8+1 8+1 8+1 8+1
MON       1 0 88 6 6
ABB       40 20
*EOF*
*EOF

#+++++ 3. SCHRITT
#-        Die Zieldateien des Satzlaufs in eine
          Datei kopieren
#TUE,*,PARAMETER=D;E;I;F,KENNZEICHEN=!
#DATEI,BV!1.S3,FRAGEN=-
#KOPIERE,BV!1.S2,BV!1.S3,-,+,*
ERG       |{{!1}}|
*EOF*
*EOF

#+++++ 4. SCHRITT
#DATEI,BV.S4,FRAGEN=-
#MISCHE,BVD.S3'BVE.S3'BVI.S3'BVF.S3,BV.S4,SORT=0

#+++++ 5. SCHRITT
#-        überschüssige Längen der Spalten
          durch Leerzeilen ausgleichen
#DATEI,BV.S5,FRAGEN=-
#KOPIERE,BV.S4,BV.S5,-STD-,+,*
KEN       .{{d}}.{{e}}.{{i}}.{{f}}.
KSP       12 22 32 42
SP2       12 22 32 42 3 3 3 3 3 3 3 3 3 3 3 3
RR        I9=I1; I1=1; IF (I9 .EQ. 1) GOTO 52;
RR                     IF (I9 .EQ. 2) GOTO 62;
RR                     IF (I9 .EQ. 3) GOTO 72;
RR                     IF (I9 .EQ. 4) GOTO 3;
RR                     IF (I9 .EQ. 0) GOTO 3;
RR    2   I9=I1; I1=2; IF (I9 .EQ. 1) GOTO 3;
RR    2                IF (I9 .EQ. 2) GOTO 82;
RR    2                IF (I9 .EQ. 3) GOTO 92;
RR    2                IF (I9 .EQ. 4) GOTO 102;
RR    3   I9=I1; I1=3; IF (I9 .EQ. 1) GOTO 112;
RR    3                IF (I9 .EQ. 2) GOTO 3;
RR    3                IF (I9 .EQ. 3) GOTO 122;
RR    3                IF (I9 .EQ. 4) GOTO 132;
RR    4   I9=I1; I1=4; IF (I9 .EQ. 1) GOTO 142;
RR    4                IF (I9 .EQ. 2) GOTO 152;
RR    4                IF (I9 .EQ. 3) GOTO 3;
RR    4                IF (I9 .EQ. 4) GOTO 162;
ERG   5   |{{e}}$$$  ___{{i}}$$$  ___{{f}}$$$  ___|
ERG   6   |{{i}}$$$  ___{{f}}$$$  ___|
ERG   7   |{{f}}$$$  ___|
ERG   8   |{{d}}$$$  ___{{i}}$$$  ___{{f}}$$$  ___|
ERG   9   |{{d}}$$$  ___{{f}}$$$  ___|
ERG  10   |{{d}}$$$  ___|
ERG  11   |{{e}}$$$  ___|
ERG  12   |{{d}}$$$  ___{{e}}$$$  ___{{f}}$$$  ___|
ERG  13   |{{d}}$$$  ___{{e}}$$$  ___|
ERG  14   |{{e}}$$$  ___{{i}}$$$  ___|
ERG  15   |{{i}}$$$  ___|
ERG  16   |{{d}}$$$  ___{{e}}$$$  ___{{i}}$$$  ___|
*EOF

#+++++ 6. SCHRITT
#DATEI,BV.S6,FRAGEN=-
#KOPIERE,BV.S5,BV.S6,+,+,*
ZA        |{{|
*EOF

#+++++ 7. SCHRITT
#-        Die Datei wieder in vier einzelne Dateien zerlegen
#TUE,*,PARAMETER=D;E;I;F,KENNZEICHEN=!
#DATEI,BV!1.S7,FRAGEN=-
*EOF
#KOP,BV.S6,BVD.S7'BVE.S7'BVI.S7'BVF.S7,-STD-,+,*
WS+       1
SPW       21
SP2       21 8  8  8  8  8
SP3       0  0  0  0  0  0
RR        I0=I0+1; IF (I0 .EQ. 4) WS1=1
XX        |}}|}}&!U |
KEN   2   |{{d}}|{{e}}|{{i}}|{{f}}|
KSP   2   33 43 53 63
ZD    3   1
ZD    4   2
ZD    5   3
ZD    6   4
XXX       |{{d}}||{{e}}||{{i}}||{{f}}||
XXX       |&&&N&&&{|$$$/$$$ |
*EOF

#+++++ 8. SCHRITT
#-        Die vier neuen Dateien auf unterschiedlichen
          Positionen setzen
#TUE,*,PARAMETER=D;E;I;F,KENNZEICHEN=!
#DATEI,BV!1.S8Z,FRAGEN=-
#DATEI,BV!1.S8A,FRAGEN=-
#DATEI,BV!1.S8P,FRAGEN=-
*EOF
#SATZ,BVD.S7,BVD.S8Z,T,+,*,BVD.S8A,BVD.S8P
BRE       88  88  88  88  88  382 382
HOE       572 2 0 0 1
GRO       8+1 8+1 0+0 8+1 8+1 8+1 8+1
MON       1 0 88 6 6
ABB       40 20
*EOF
#SATZ,BVE.S7,BVE.S8Z,T,+,*,BVE.S8A,BVE.S8P
BRE       88  88  88  88  88  88  88
HOE       572 2 0 0 1
SEI       1 1 0
GRO       8+1 8+1 0+0 8+1 8+1 8+1 8+1
MON       1 0 88 100 6
ABB       40 20
*EOF
#SATZ,BVI.S7,BVI.S8Z,T,+,*,BVI.S8A,BVI.S8P
BRE       88  88  88  88  88  88  88
HOE       572 2 0 0 1
SEI       1 1 0
GRO       8+1 8+1 0+0 8+1 8+1 8+1 8+1
MON       1 0 88 194 6
ABB       40 20
*EOF
#SATZ,BVF.S7,BVF.S8Z,T,+,*,BVF.S8A,BVF.S8P
BRE       88  88  88  88  88  88  88
HOE       572 2 0 0 1
SEI       1 1 0
GRO       8+1 8+1 0+0 8+1 8+1 8+1 8+1
MON       1 0 88 288 6
ABB       40 20
*EOF

#+++++ 9. SCHRITT
#-        Montage der Ausgabedatei
#DATEI,BV.S9,FRAGEN=-
#*MONT,BVD.S8A'BVE.S8A'BVI.S8A'BVF.S8A,BV.S9,+

#+++++ 10. SCHRITT
#-        Ausgeben, fertig
#DATEI,BV.PS,SDF-AP
#*PSAUS,BV.S9,DATEI=BV.PS,KOPF=-,LOESCHE=+

-----schni schni schnappi--------------------------------------



More information about the Tustep-Liste mailing list