summaryrefslogtreecommitdiff
path: root/macros/latex209/contrib/misc/strukto.sty
blob: 2dc3c19046e20aeec10368f371b5c0b9e380d1e3 (plain)
ofshex dumpascii
0000 25 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d %-------------------------------
0020 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d --------------------------------
0040 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 00 0a 25 20 43 72 65 61 74 65 64 20 62 79 20 54 2e 42 69 72 -----------...%.Created.by.T.Bir
0060 6e 74 68 61 6c 65 72 20 28 46 41 55 20 45 72 6c 61 6e 67 65 6e 2d 4e 75 65 72 6e 62 65 72 67 2c nthaler.(FAU.Erlangen-Nuernberg,
0080 20 49 4d 4d 44 35 20 28 4d 75 73 74 65 72 65 72 6b 65 6e 6e 75 6e 67 29 29 0d 00 0a 25 2d 2d 2d .IMMD5.(Mustererkennung))...%---
00a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d --------------------------------
00c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d --------------------------------
00e0 2d 2d 2d 2d 2d 2d 2d 0d 00 0a 5c 6d 65 73 73 61 67 65 7b 44 6f 63 75 6d 65 6e 74 20 53 74 79 6c -------...\message{Document.Styl
0100 65 20 4f 70 74 69 6f 6e 20 60 73 74 72 75 6b 74 6f 27 20 56 65 72 73 69 6f 6e 20 32 2e 30 2c 20 e.Option.`strukto'.Version.2.0,.
0120 61 73 20 6f 66 20 31 31 2e 20 4e 6f 76 65 6d 62 65 72 20 31 39 38 39 7d 0d 00 0a 25 0d 00 0a 25 as.of.11..November.1989}...%...%
0140 20 42 65 66 65 68 6c 65 20 7a 75 6d 20 45 72 7a 65 75 67 65 6e 20 76 6f 6e 20 53 74 72 75 6b 74 .Befehle.zum.Erzeugen.von.Strukt
0160 6f 67 72 61 6d 6d 65 6e 3a 0d 00 0a 25 0d 00 0a 25 20 45 72 7a 65 75 67 75 6e 67 3a 0d 00 0a 25 ogrammen:...%...%.Erzeugung:...%
0180 20 20 20 5c 62 65 67 69 6e 7b 73 74 72 75 6b 74 6f 67 72 61 6d 6d 7d 7b 42 72 65 69 74 65 7d 7b ...\begin{struktogramm}{Breite}{
01a0 45 69 6e 72 75 65 63 6b 75 6e 67 7d 0d 00 0a 25 20 20 20 20 20 41 6e 77 65 69 73 75 6e 67 65 6e Einrueckung}...%.....Anweisungen
01c0 0d 00 0a 25 20 20 20 5c 65 6e 64 7b 73 74 72 75 6b 74 6f 67 72 61 6d 6d 7d 0d 00 0a 25 0d 00 0a ...%...\end{struktogramm}...%...
01e0 25 20 42 72 65 69 74 65 3a 0d 00 0a 25 20 20 20 62 65 73 74 69 6d 6d 74 20 64 69 65 20 76 6f 6c %.Breite:...%...bestimmt.die.vol
0200 6c 73 74 61 65 6e 64 69 67 65 20 42 72 65 69 74 65 20 64 65 73 20 53 74 72 75 6b 74 6f 67 72 61 lstaendige.Breite.des.Struktogra
0220 6d 6d 73 0d 00 0a 25 0d 00 0a 25 20 45 69 6e 72 75 65 63 6b 75 6e 67 3a 0d 00 0a 25 20 20 20 62 mms...%...%.Einrueckung:...%...b
0240 65 73 74 69 6d 6d 74 20 64 69 65 20 45 69 6e 72 75 65 63 6b 75 6e 67 73 62 72 65 69 74 65 20 64 estimmt.die.Einrueckungsbreite.d
0260 65 73 20 4b 6f 65 72 70 65 72 73 20 76 6f 6e 20 53 63 68 6c 65 69 66 65 6e 6b 6f 6e 73 74 72 75 es.Koerpers.von.Schleifenkonstru
0280 6b 74 65 6e 0d 00 0a 25 20 20 20 28 64 65 72 20 42 61 6c 6b 65 6e 20 6e 65 62 65 6e 20 49 46 78 kten...%...(der.Balken.neben.IFx
02a0 2d 4b 6f 6e 73 74 72 75 6b 74 65 6e 20 77 69 72 64 20 68 61 6c 62 20 73 6f 20 62 72 65 69 74 29 -Konstrukten.wird.halb.so.breit)
02c0 0d 00 0a 25 0d 00 0a 25 20 4d 61 73 73 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 42 65 64 ...%...%.Masse:.............(Bed
02e0 65 75 74 75 6e 67 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 eutung:.........................
0300 20 20 20 20 20 20 44 65 66 61 75 6c 74 77 65 72 74 29 0d 00 0a 25 20 20 20 5c 73 74 72 75 6b 74 ......Defaultwert)...%...\strukt
0320 6f 68 73 6b 69 70 20 20 20 20 28 68 6f 72 69 7a 2e 20 41 62 73 74 61 6e 64 20 61 6c 6c 65 72 20 ohskip....(horiz..Abstand.aller.
0340 54 65 78 74 65 20 7a 75 20 73 65 6e 6b 72 2e 20 4c 69 6e 69 65 6e 3a 20 20 20 30 2e 35 65 78 29 Texte.zu.senkr..Linien:...0.5ex)
0360 0d 00 0a 25 0d 00 0a 25 20 41 6e 77 65 69 73 75 6e 67 65 6e 3a 20 20 20 28 64 75 65 72 66 65 6e ...%...%.Anweisungen:...(duerfen
0380 20 67 65 73 63 68 61 63 68 74 65 6c 74 20 77 65 72 64 65 6e 20 21 29 0d 00 0a 25 20 20 20 5c 49 .geschachtelt.werden.!)...%...\I
03a0 46 5b 77 2c 77 2c 77 5d 7b 42 65 64 69 6e 67 75 6e 67 7d 54 48 45 4e 7b 41 6e 77 65 69 73 75 6e F[w,w,w]{Bedingung}THEN{Anweisun
03c0 67 7d 45 4c 53 45 7b 41 6e 77 65 69 73 75 6e 67 7d 20 20 20 20 20 28 53 74 61 6e 64 61 72 64 3a g}ELSE{Anweisung}.....(Standard:
03e0 0d 00 0a 25 20 20 20 5c 49 46 2a 5b 77 2c 77 2c 77 5d 7b 42 65 64 69 6e 67 75 6e 67 7d 54 48 45 ...%...\IF*[w,w,w]{Bedingung}THE
0400 4e 7b 41 6e 77 65 69 73 75 6e 67 7d 45 4c 53 45 7b 41 6e 77 65 69 73 75 6e 67 7d 20 20 20 20 20 N{Anweisung}ELSE{Anweisung}.....
0420 49 46 2c 20 54 48 45 4e 2c 20 45 4c 53 45 29 0d 00 0a 25 0d 00 0a 25 20 20 20 5c 49 46 78 7b 42 IF,.THEN,.ELSE)...%...%...\IFx{B
0440 65 64 69 6e 67 75 6e 67 7d 54 48 45 4e 7b 41 6e 77 65 69 73 75 6e 67 7d 45 4c 53 45 7b 41 6e 77 edingung}THEN{Anweisung}ELSE{Anw
0460 65 69 73 75 6e 67 7d 0d 00 0a 25 20 20 20 5c 49 46 78 2a 7b 42 65 64 69 6e 67 75 6e 67 7d 54 48 eisung}...%...\IFx*{Bedingung}TH
0480 45 4e 7b 41 6e 77 65 69 73 75 6e 67 7d 45 4c 53 45 7b 41 6e 77 65 69 73 75 6e 67 7d 0d 00 0a 25 EN{Anweisung}ELSE{Anweisung}...%
04a0 0d 00 0a 25 20 20 20 5c 46 4f 52 5b 77 5d 7b 5a 61 65 68 6c 65 72 7d 44 4f 7b 41 6e 77 65 69 73 ...%...\FOR[w]{Zaehler}DO{Anweis
04c0 75 6e 67 7d 20 20 20 20 20 20 20 20 20 20 20 20 28 53 74 61 6e 64 61 72 64 3a 20 46 4f 52 29 0d ung}............(Standard:.FOR).
04e0 00 0a 25 20 20 20 5c 57 48 49 4c 45 5b 77 5d 7b 42 65 64 69 6e 67 75 6e 67 7d 44 4f 7b 41 6e 77 ..%...\WHILE[w]{Bedingung}DO{Anw
0500 65 69 73 75 6e 67 7d 20 20 20 20 20 20 20 20 28 53 74 61 6e 64 61 72 64 3a 20 57 48 49 4c 45 29 eisung}........(Standard:.WHILE)
0520 0d 00 0a 25 20 20 20 5c 52 45 50 45 41 54 5b 77 5d 7b 41 6e 77 65 69 73 75 6e 67 7d 55 4e 54 49 ...%...\REPEAT[w]{Anweisung}UNTI
0540 4c 7b 42 65 64 69 6e 67 75 6e 67 7d 20 20 20 20 28 53 74 61 6e 64 61 72 64 3a 20 55 4e 54 49 4c L{Bedingung}....(Standard:.UNTIL
0560 29 0d 00 0a 25 20 20 20 5c 4c 4f 4f 50 5b 77 5d 7b 41 6e 77 65 69 73 75 6e 67 7d 20 20 20 20 20 )...%...\LOOP[w]{Anweisung}.....
0580 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 53 74 61 6e 64 61 72 64 3a 20 4c 4f 4f 50 .................(Standard:.LOOP
05a0 29 0d 00 0a 25 0d 00 0a 25 20 20 20 5c 42 4c 4f 43 4b 7b 65 6c 65 6d 65 6e 74 61 72 65 20 41 6e )...%...%...\BLOCK{elementare.An
05c0 77 65 69 73 75 6e 67 7d 0d 00 0a 25 20 20 20 5c 42 4c 4f 43 4b 2a 7b 65 6c 65 6d 65 6e 74 61 72 weisung}...%...\BLOCK*{elementar
05e0 65 20 41 6e 77 65 69 73 75 6e 67 7d 0d 00 0a 25 0d 00 0a 25 20 42 65 64 69 6e 67 75 6e 67 2c 20 e.Anweisung}...%...%.Bedingung,.
0600 5a 61 65 68 6c 65 72 2c 20 65 6c 65 6d 65 6e 74 61 72 65 20 41 6e 77 65 69 73 75 6e 67 3a 0d 00 Zaehler,.elementare.Anweisung:..
0620 0a 25 20 20 20 62 65 6c 69 65 62 69 67 65 72 20 54 65 78 74 20 6d 69 74 20 54 65 58 2d 4b 6f 6d .%...beliebiger.Text.mit.TeX-Kom
0640 6d 61 6e 64 6f 73 20 7a 75 6d 20 5a 65 69 6c 65 6e 75 6d 62 72 75 63 68 2c 0d 00 0a 25 20 20 20 mandos.zum.Zeilenumbruch,...%...
0660 53 63 68 72 69 66 74 61 72 74 77 65 63 68 73 65 6c 2c 20 2e 2e 2e 0d 00 0a 25 20 20 20 28 21 21 Schriftartwechsel,.......%...(!!
0680 21 20 61 62 65 72 20 6b 65 69 6e 65 20 53 74 72 75 6b 74 6f 67 72 61 6d 6d 61 6e 77 65 69 73 75 !.aber.keine.Struktogrammanweisu
06a0 6e 67 65 6e 20 21 21 21 29 2e 0d 00 0a 25 0d 00 0a 25 20 77 20 3d 20 53 63 68 6c 75 65 73 73 65 ngen.!!!)....%...%.w.=.Schluesse
06c0 6c 77 6f 72 74 3a 20 20 20 28 6f 70 74 69 6f 6e 61 6c 65 28 72 29 20 50 61 72 61 6d 65 74 65 72 lwort:...(optionale(r).Parameter
06e0 29 0d 00 0a 25 20 20 20 65 69 6e 20 6b 75 72 7a 65 72 20 54 65 78 74 20 77 69 65 20 7a 2e 42 2e )...%...ein.kurzer.Text.wie.z.B.
0700 20 46 4f 52 2c 20 46 22 55 52 2c 20 24 5c 66 6f 72 61 6c 6c 24 2c 20 2e 2e 2e 2c 20 65 72 73 65 .FOR,.F"UR,.$\forall$,....,.erse
0720 74 7a 74 20 64 61 73 0d 00 0a 25 20 20 20 6a 65 77 65 69 6c 69 67 65 20 53 74 61 6e 64 61 72 64 tzt.das...%...jeweilige.Standard
0740 2d 53 63 68 6c 75 65 73 73 65 6c 77 6f 72 74 20 28 64 61 72 66 20 61 75 63 68 20 6c 65 65 72 20 -Schluesselwort.(darf.auch.leer.
0760 73 65 69 6e 29 2e 0d 00 0a 25 0d 00 0a 25 20 48 69 6e 77 65 69 73 65 3a 0d 00 0a 25 20 20 20 2d sein)....%...%.Hinweise:...%...-
0780 2d 20 65 6c 65 6d 65 6e 74 61 72 65 20 41 6e 77 65 69 73 75 6e 67 65 6e 20 2a 6d 75 65 73 73 65 -.elementare.Anweisungen.*muesse
07a0 6e 2a 20 69 6e 20 5c 42 4c 4f 43 4b 20 6f 64 65 72 20 5c 42 4c 4f 43 4b 2a 20 65 69 6e 67 65 73 n*.in.\BLOCK.oder.\BLOCK*.einges
07c0 63 68 61 63 68 74 65 6c 74 0d 00 0a 25 20 20 20 20 20 20 77 65 72 64 65 6e 2c 20 64 61 6d 69 74 chachtelt...%......werden,.damit
07e0 20 73 69 65 20 72 69 63 68 74 69 67 20 65 69 6e 67 65 72 75 65 63 6b 74 20 77 65 72 64 65 6e 20 .sie.richtig.eingerueckt.werden.
0800 6b 6f 65 6e 6e 65 6e 2e 0d 00 0a 25 20 20 20 2d 2d 20 42 65 69 20 6c 65 65 72 65 6d 20 45 4c 53 koennen....%...--.Bei.leerem.ELS
0820 45 2d 41 6e 77 65 69 73 75 6e 67 73 74 65 69 6c 20 28 2e 2e 2e 45 4c 53 45 7b 7d 29 20 77 69 72 E-Anweisungsteil.(...ELSE{}).wir
0840 64 20 64 65 72 20 45 4c 53 45 2d 54 65 69 6c 20 64 65 72 0d 00 0a 25 20 20 20 20 20 20 49 46 2d d.der.ELSE-Teil.der...%......IF-
0860 41 6e 77 65 69 73 75 6e 67 20 6e 69 63 68 74 20 65 72 7a 65 75 67 74 20 28 65 72 20 2a 6d 75 73 Anweisung.nicht.erzeugt.(er.*mus
0880 73 2a 20 61 62 65 72 20 74 72 6f 74 7a 64 65 6d 20 61 6e 67 65 67 65 62 65 6e 20 77 65 72 64 65 s*.aber.trotzdem.angegeben.werde
08a0 6e 29 2e 0d 00 0a 25 20 20 20 2d 2d 20 45 69 6e 65 20 4c 69 6e 69 65 20 6e 61 63 68 20 64 65 6d n)....%...--.Eine.Linie.nach.dem
08c0 20 53 63 68 6c 75 65 73 73 65 6c 77 6f 65 72 74 65 72 6e 20 54 48 45 4e 20 75 6e 64 20 45 4c 53 .Schluesselwoertern.THEN.und.ELS
08e0 45 20 65 6e 74 73 74 65 68 74 20 64 75 72 63 68 0d 00 0a 25 20 20 20 20 20 20 65 69 6e 65 20 53 E.entsteht.durch...%......eine.S
0900 74 72 75 6b 74 6f 67 72 61 6d 6d 2d 20 6f 64 65 72 20 5c 42 4c 4f 43 4b 2d 41 6e 77 65 69 73 75 truktogramm-.oder.\BLOCK-Anweisu
0920 6e 67 2c 20 61 62 65 72 20 6e 69 63 68 74 20 64 75 72 63 68 20 5c 42 4c 4f 43 4b 2a 2e 0d 00 0a ng,.aber.nicht.durch.\BLOCK*....
0940 25 0d 00 0a 25 20 20 20 2d 2d 20 42 65 69 20 64 65 72 20 78 2d 56 65 72 73 69 6f 6e 20 76 6f 6e %...%...--.Bei.der.x-Version.von
0960 20 49 46 20 77 69 72 64 20 6c 69 6e 6b 73 20 76 6f 6d 20 49 46 2d 4b 6f 6e 73 74 72 75 6b 74 20 .IF.wird.links.vom.IF-Konstrukt.
0980 65 69 6e 65 20 73 63 68 6d 61 6c 65 0d 00 0a 25 20 20 20 20 20 20 53 70 61 6c 74 65 20 67 65 7a eine.schmale...%......Spalte.gez
09a0 6f 67 65 6e 20 28 68 61 6c 62 65 20 45 69 6e 72 75 65 63 6b 62 72 65 69 74 65 29 2e 0d 00 0a 25 ogen.(halbe.Einrueckbreite)....%
09c0 20 20 20 2d 2d 20 42 65 69 20 64 65 72 20 2a 2d 56 65 72 73 69 6f 6e 20 76 6f 6e 20 49 46 20 75 ...--.Bei.der.*-Version.von.IF.u
09e0 6e 64 20 49 46 78 20 77 69 72 64 20 65 69 6e 20 73 65 6e 6b 72 65 63 68 74 65 72 20 53 74 72 69 nd.IFx.wird.ein.senkrechter.Stri
0a00 63 68 0d 00 0a 25 20 20 20 20 20 20 72 65 63 68 74 73 20 76 6f 6d 20 53 63 68 6c 75 65 73 73 65 ch...%......rechts.vom.Schluesse
0a20 6c 77 6f 65 72 74 20 49 46 20 61 75 66 20 64 65 72 20 67 6c 65 69 63 68 65 6e 20 48 6f 65 68 65 lwoert.IF.auf.der.gleichen.Hoehe
0a40 20 77 69 65 20 62 65 69 6d 0d 00 0a 25 20 20 20 20 20 20 54 48 45 4e 2d 20 75 6e 64 20 45 4c 53 .wie.beim...%......THEN-.und.ELS
0a60 45 2d 54 65 69 6c 20 67 65 7a 6f 67 65 6e 2c 20 75 6e 64 20 64 69 65 20 49 46 2d 2c 20 54 48 45 E-Teil.gezogen,.und.die.IF-,.THE
0a80 4e 2d 20 75 6e 64 20 45 4c 53 45 2d 54 65 69 6c 65 20 73 69 6e 64 0d 00 0a 25 20 20 20 20 20 20 N-.und.ELSE-Teile.sind...%......
0aa0 67 6c 65 69 63 68 20 62 72 65 69 74 2e 0d 00 0a 25 20 20 20 2d 2d 20 42 65 69 20 64 65 72 20 2a gleich.breit....%...--.Bei.der.*
0ac0 2d 56 65 72 73 69 6f 6e 20 64 65 73 20 42 4c 4f 43 4b 2d 4b 6f 6d 6d 61 6e 64 6f 73 20 77 69 72 -Version.des.BLOCK-Kommandos.wir
0ae0 64 20 6c 69 6e 6b 73 20 64 61 76 6f 6e 20 6b 65 69 6e 65 0d 00 0a 25 20 20 20 20 20 20 4c 69 6e d.links.davon.keine...%......Lin
0b00 69 65 20 67 65 7a 6f 67 65 6e 20 28 6e 75 72 20 69 6e 20 54 48 45 4e 2d 20 75 6e 64 20 45 4c 53 ie.gezogen.(nur.in.THEN-.und.ELS
0b20 45 2d 54 65 69 6c 65 6e 20 73 69 6e 6e 76 6f 6c 6c 29 2e 0d 00 0a 25 0d 00 0a 25 20 20 20 2d 2d E-Teilen.sinnvoll)....%...%...--
0b40 20 4c 65 65 72 7a 65 69 63 68 65 6e 20 2e 2e 2e 0d 00 0a 25 20 20 20 20 20 20 2e 2e 2e 20 61 6d .Leerzeichen.......%..........am
0b60 20 41 6e 66 61 6e 67 20 65 69 6e 65 72 20 5a 65 69 6c 65 20 77 65 72 64 65 6e 20 2a 6e 69 63 68 .Anfang.einer.Zeile.werden.*nich
0b80 74 2a 20 62 65 61 63 68 74 65 74 2e 0d 00 0a 25 20 20 20 20 20 20 2e 2e 2e 20 7a 77 69 73 63 68 t*.beachtet....%..........zwisch
0ba0 65 6e 20 41 72 67 75 6d 65 6e 74 65 6e 20 77 65 72 64 65 6e 20 2a 6e 69 63 68 74 2a 20 62 65 61 en.Argumenten.werden.*nicht*.bea
0bc0 63 68 74 65 74 2e 0d 00 0a 25 20 20 20 20 20 20 2e 2e 2e 20 69 6e 20 41 72 67 75 6d 65 6e 74 65 chtet....%..........in.Argumente
0be0 6e 20 77 65 72 64 65 6e 20 62 65 61 63 68 74 65 74 2e 0d 00 0a 25 0d 00 0a 25 20 20 20 2d 2d 20 n.werden.beachtet....%...%...--.
0c00 44 69 65 20 41 6e 7a 61 68 6c 20 61 6e 20 56 65 72 73 63 68 61 63 68 74 65 6c 75 6e 67 73 73 74 Die.Anzahl.an.Verschachtelungsst
0c20 75 66 65 6e 20 6b 61 6e 6e 20 2a 6e 69 63 68 74 2a 20 62 65 6c 69 65 62 69 67 20 77 65 69 74 20 ufen.kann.*nicht*.beliebig.weit.
0c40 0d 00 0a 25 20 20 20 20 20 20 67 65 74 72 69 65 62 65 6e 20 77 65 72 64 65 6e 2c 20 64 61 20 54 ...%......getrieben.werden,.da.T
0c60 65 58 20 69 72 67 65 6e 64 77 61 6e 6e 20 75 65 62 65 72 6c 61 75 66 74 20 28 64 69 65 20 47 72 eX.irgendwann.ueberlauft.(die.Gr
0c80 65 6e 7a 65 20 6c 69 65 67 74 0d 00 0a 25 20 20 20 20 20 20 65 74 77 61 20 62 65 69 20 36 2d 37 enze.liegt...%......etwa.bei.6-7
0ca0 20 53 74 75 66 65 6e 29 2e 0d 00 0a 25 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d .Stufen)....%-------------------
0cc0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d --------------------------------
0ce0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 00 0a 0d 00 0a 25 20 69 6e 74 65 --------------------......%.inte
0d00 72 6e 65 20 42 6f 78 65 6e 0d 00 0a 5c 6e 65 77 62 6f 78 5c 73 74 72 75 6b 74 6f 40 6b 65 79 77 rne.Boxen...\newbox\strukto@keyw
0d20 6f 72 64 40 62 6f 78 0d 00 0a 5c 6e 65 77 62 6f 78 5c 73 74 72 75 6b 74 6f 40 69 66 40 62 6f 78 ord@box...\newbox\strukto@if@box
0d40 0d 00 0a 5c 6e 65 77 62 6f 78 5c 73 74 72 75 6b 74 6f 40 74 68 65 6e 40 62 6f 78 0d 00 0a 5c 6e ...\newbox\strukto@then@box...\n
0d60 65 77 62 6f 78 5c 73 74 72 75 6b 74 6f 40 65 6c 73 65 40 62 6f 78 0d 00 0a 5c 6e 65 77 62 6f 78 ewbox\strukto@else@box...\newbox
0d80 5c 73 74 72 75 6b 74 6f 40 73 74 72 75 74 40 62 6f 78 0d 00 0a 5c 6e 65 77 62 6f 78 5c 73 74 72 \strukto@strut@box...\newbox\str
0da0 75 6b 74 6f 40 62 6f 78 0d 00 0a 0d 00 0a 25 20 4d 61 73 73 65 0d 00 0a 5c 6e 65 77 64 69 6d 65 ukto@box......%.Masse...\newdime
0dc0 6e 5c 73 74 72 75 6b 74 6f 40 77 69 64 74 68 0d 00 0a 5c 6e 65 77 64 69 6d 65 6e 5c 73 74 72 75 n\strukto@width...\newdimen\stru
0de0 6b 74 6f 40 69 6e 64 65 6e 74 0d 00 0a 5c 6e 65 77 64 69 6d 65 6e 5c 73 74 72 75 6b 74 6f 68 73 kto@indent...\newdimen\struktohs
0e00 6b 69 70 0d 00 0a 5c 6e 65 77 64 69 6d 65 6e 5c 73 74 72 75 74 40 68 65 69 67 68 74 20 20 20 20 kip...\newdimen\strut@height....
0e20 25 20 69 6e 74 65 72 6e 0d 00 0a 0d 00 0a 25 20 4c 69 6e 69 65 6e 20 6f 68 6e 65 20 44 69 63 6b %.intern......%.Linien.ohne.Dick
0e40 65 0d 00 0a 5c 64 65 66 5c 73 74 72 75 6b 74 6f 40 76 72 75 6c 65 7b 5c 76 72 75 6c 65 5c 68 73 e...\def\strukto@vrule{\vrule\hs
0e60 6b 69 70 2d 30 2e 34 70 74 7d 0d 00 0a 5c 64 65 66 5c 73 74 72 75 6b 74 6f 40 68 72 75 6c 65 7b kip-0.4pt}...\def\strukto@hrule{
0e80 5c 68 72 75 6c 65 5c 76 73 6b 69 70 2d 30 2e 34 70 74 7d 0d 00 0a 0d 00 0a 25 20 53 74 61 6e 64 \hrule\vskip-0.4pt}......%.Stand
0ea0 61 72 64 2d 4c 65 65 72 72 61 75 6d 20 75 6d 20 53 63 68 6c 75 65 73 73 65 6c 77 6f 72 74 65 20 ard-Leerraum.um.Schluesselworte.
0ec0 28 64 61 72 66 20 6c 65 65 72 20 73 65 69 6e 29 0d 00 0a 5c 64 65 66 5c 73 74 72 75 6b 74 6f 40 (darf.leer.sein)...\def\strukto@
0ee0 6b 65 79 77 6f 72 64 23 31 7b 25 0d 00 0a 20 20 5c 68 62 6f 78 7b 5c 64 65 66 5c 6e 65 78 74 7b keyword#1{%.....\hbox{\def\next{
0f00 23 31 7d 25 0d 00 0a 20 20 20 20 20 20 20 20 5c 69 66 78 5c 6e 65 78 74 5c 65 6d 70 74 79 5c 65 #1}%...........\ifx\next\empty\e
0f20 6c 73 65 0d 00 0a 20 20 20 20 20 20 20 20 20 20 5c 68 73 6b 69 70 5c 73 74 72 75 6b 74 6f 68 73 lse.............\hskip\struktohs
0f40 6b 69 70 5c 73 74 72 75 74 20 23 31 5c 68 73 6b 69 70 5c 73 74 72 75 6b 74 6f 68 73 6b 69 70 0d kip\strut.#1\hskip\struktohskip.
0f60 00 0a 20 20 20 20 20 20 20 20 5c 66 69 0d 00 0a 20 20 7d 25 0d 00 0a 7d 0d 00 0a 0d 00 0a 5c 6e ..........\fi.....}%...}......\n
0f80 65 77 65 6e 76 69 72 6f 6e 6d 65 6e 74 7b 73 74 72 75 6b 74 6f 67 72 61 6d 6d 7d 5b 32 5d 7b 25 ewenvironment{struktogramm}[2]{%
0fa0 0d 00 0a 25 20 2d 2d 20 62 65 67 69 6e 20 6f 66 20 70 72 65 61 6d 62 6c 65 20 2d 2d 2d 0d 00 0a ...%.--.begin.of.preamble.---...
0fc0 20 20 5c 62 67 72 6f 75 70 0d 00 0a 25 0d 00 0a 20 20 20 20 5c 73 74 72 75 6b 74 6f 40 77 69 64 ..\bgroup...%.......\strukto@wid
0fe0 74 68 3d 23 31 0d 00 0a 20 20 20 20 5c 73 74 72 75 6b 74 6f 40 69 6e 64 65 6e 74 3d 23 32 0d 00 th=#1.......\strukto@indent=#2..
1000 0a 25 0d 00 0a 25 20 77 65 67 65 6e 20 42 65 72 75 65 63 6b 73 69 63 68 74 69 67 75 6e 67 20 64 .%...%.wegen.Beruecksichtigung.d
1020 65 72 20 53 63 68 72 69 66 74 67 72 6f 65 73 73 65 20 68 69 65 72 0d 00 0a 20 20 20 20 5c 73 74 er.Schriftgroesse.hier.......\st
1040 72 75 6b 74 6f 68 73 6b 69 70 3d 2e 35 65 78 0d 00 0a 20 20 20 20 5c 73 74 72 75 74 40 68 65 69 ruktohskip=.5ex.......\strut@hei
1060 67 68 74 3d 5c 68 74 5c 73 74 72 75 74 62 6f 78 0d 00 0a 25 0d 00 0a 25 20 41 75 73 67 6c 65 69 ght=\ht\strutbox...%...%.Ausglei
1080 63 68 20 66 75 65 72 20 48 6f 65 68 65 20 30 20 76 6f 6e 20 5c 73 74 72 75 6b 74 6f 40 76 72 75 ch.fuer.Hoehe.0.von.\strukto@vru
10a0 6c 65 0d 00 0a 20 20 20 20 5c 61 64 76 61 6e 63 65 5c 73 74 72 75 74 40 68 65 69 67 68 74 20 62 le.......\advance\strut@height.b
10c0 79 20 30 2e 34 70 74 0d 00 0a 20 20 20 20 5c 73 65 74 62 6f 78 5c 73 74 72 75 6b 74 6f 40 73 74 y.0.4pt.......\setbox\strukto@st
10e0 72 75 74 40 62 6f 78 3d 5c 68 62 6f 78 7b 5c 76 72 75 6c 65 20 68 65 69 67 68 74 20 5c 73 74 72 rut@box=\hbox{\vrule.height.\str
1100 75 74 40 68 65 69 67 68 74 20 64 65 70 74 68 20 5c 64 70 5c 73 74 72 75 74 62 6f 78 20 77 69 64 ut@height.depth.\dp\strutbox.wid
1120 74 68 20 30 70 74 7d 25 0d 00 0a 25 0d 00 0a 25 20 4b 6f 6d 6d 61 6e 64 6f 73 20 6e 75 72 20 6c th.0pt}%...%...%.Kommandos.nur.l
1140 6f 6b 61 6c 20 67 75 65 6c 74 69 67 0d 00 0a 20 20 20 20 5c 64 65 66 5c 49 46 7b 5c 53 54 52 55 okal.gueltig.......\def\IF{\STRU
1160 4b 54 4f 40 49 46 7d 25 0d 00 0a 20 20 20 20 5c 64 65 66 5c 49 46 78 7b 5c 53 54 52 55 4b 54 4f KTO@IF}%.......\def\IFx{\STRUKTO
1180 40 49 46 78 7d 25 0d 00 0a 20 20 20 20 5c 64 65 66 5c 46 4f 52 7b 5c 53 54 52 55 4b 54 4f 40 46 @IFx}%.......\def\FOR{\STRUKTO@F
11a0 4f 52 7d 25 0d 00 0a 20 20 20 20 5c 64 65 66 5c 57 48 49 4c 45 7b 5c 53 54 52 55 4b 54 4f 40 57 OR}%.......\def\WHILE{\STRUKTO@W
11c0 48 49 4c 45 7d 25 0d 00 0a 20 20 20 20 5c 64 65 66 5c 52 45 50 45 41 54 7b 5c 53 54 52 55 4b 54 HILE}%.......\def\REPEAT{\STRUKT
11e0 4f 40 52 45 50 45 41 54 7d 25 0d 00 0a 20 20 20 20 5c 64 65 66 5c 4c 4f 4f 50 7b 5c 53 54 52 55 O@REPEAT}%.......\def\LOOP{\STRU
1200 4b 54 4f 40 4c 4f 4f 50 7d 25 0d 00 0a 20 20 20 20 5c 64 65 66 5c 42 4c 4f 43 4b 7b 5c 53 54 52 KTO@LOOP}%.......\def\BLOCK{\STR
1220 55 4b 54 4f 40 42 4c 4f 43 4b 7d 25 0d 00 0a 25 0d 00 0a 20 20 20 20 5c 73 65 74 62 6f 78 5c 73 UKTO@BLOCK}%...%.......\setbox\s
1240 74 72 75 6b 74 6f 40 62 6f 78 5c 68 62 6f 78 20 74 6f 20 5c 73 74 72 75 6b 74 6f 40 77 69 64 74 trukto@box\hbox.to.\strukto@widt
1260 68 0d 00 0a 20 20 20 20 5c 62 67 72 6f 75 70 20 0d 00 0a 20 20 20 20 20 20 5c 40 70 61 72 62 6f h.......\bgroup..........\@parbo
1280 78 72 65 73 74 6f 72 65 20 25 53 74 61 6e 64 61 72 64 61 62 73 61 74 7a 2d 50 61 72 61 6d 65 74 xrestore.%Standardabsatz-Paramet
12a0 65 72 20 65 69 6e 73 63 68 61 6c 74 65 6e 0d 00 0a 20 20 20 20 20 20 5c 76 74 6f 70 5c 62 67 72 er.einschalten.........\vtop\bgr
12c0 6f 75 70 0d 00 0a 20 20 20 20 20 20 20 20 5c 73 74 72 75 6b 74 6f 40 68 72 75 6c 65 20 25 6f 62 oup...........\strukto@hrule.%ob
12e0 65 72 65 72 20 52 61 6e 64 0d 00 0a 7d 25 20 2d 2d 2d 20 65 6e 64 20 6f 66 20 70 72 65 61 6d 62 erer.Rand...}%.---.end.of.preamb
1300 6c 65 20 2d 2d 2d 0d 00 0a 7b 25 20 2d 2d 2d 20 62 65 67 69 6e 20 6f 66 20 70 6f 73 74 61 62 6c le.---...{%.---.begin.of.postabl
1320 65 20 2d 2d 2d 0d 00 0a 20 20 20 20 20 20 5c 65 67 72 6f 75 70 20 20 25 76 62 6f 78 20 62 65 65 e.---.........\egroup..%vbox.bee
1340 6e 64 65 6e 0d 00 0a 20 20 20 20 20 20 5c 68 73 6b 69 70 2d 30 2e 34 70 74 5c 76 72 75 6c 65 0d nden.........\hskip-0.4pt\vrule.
1360 00 0a 20 20 20 20 5c 65 67 72 6f 75 70 20 20 20 20 25 68 62 6f 78 20 62 65 65 6e 64 65 6e 0d 00 ......\egroup....%hbox.beenden..
1380 0a 20 20 20 20 5c 6c 65 61 76 65 76 6d 6f 64 65 0d 00 0a 20 20 20 20 5c 62 6f 78 5c 73 74 72 75 .....\leavevmode.......\box\stru
13a0 6b 74 6f 40 62 6f 78 0d 00 0a 20 20 5c 65 67 72 6f 75 70 0d 00 0a 7d 25 20 2d 2d 2d 20 65 6e 64 kto@box.....\egroup...}%.---.end
13c0 20 6f 66 20 70 6f 73 74 61 6d 62 6c 65 20 2d 2d 2d 0d 00 0a 0d 00 0a 0d 00 0a 25 20 42 65 68 61 .of.postamble.---.........%.Beha
13e0 6e 64 6c 75 6e 67 20 76 6f 6e 20 42 65 66 65 68 6c 73 76 61 72 69 61 6e 74 65 6e 20 75 6e 64 20 ndlung.von.Befehlsvarianten.und.
1400 6f 70 74 69 6f 6e 61 6c 65 6e 20 50 61 72 61 6d 65 74 65 72 6e 0d 00 0a 5c 64 65 66 5c 53 54 52 optionalen.Parametern...\def\STR
1420 55 4b 54 4f 40 49 46 7b 5c 40 69 66 73 74 61 72 7b 5c 53 54 52 55 4b 54 4f 40 40 49 46 7b 7d 7b UKTO@IF{\@ifstar{\STRUKTO@@IF{}{
1440 6c 7d 7d 25 0d 00 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7b l}}%...........................{
1460 5c 53 54 52 55 4b 54 4f 40 40 49 46 7b 7d 7b 7d 7d 7d 0d 00 0a 5c 64 65 66 5c 53 54 52 55 4b 54 \STRUKTO@@IF{}{}}}...\def\STRUKT
1480 4f 40 49 46 78 7b 5c 40 69 66 73 74 61 72 7b 5c 53 54 52 55 4b 54 4f 40 40 49 46 7b 78 7d 7b 6c O@IFx{\@ifstar{\STRUKTO@@IF{x}{l
14a0 7d 7d 25 0d 00 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7b }}%............................{
14c0 5c 53 54 52 55 4b 54 4f 40 40 49 46 7b 78 7d 7b 7d 7d 7d 0d 00 0a 5c 64 65 66 5c 53 54 52 55 4b \STRUKTO@@IF{x}{}}}...\def\STRUK
14e0 54 4f 40 40 49 46 23 31 23 32 7b 5c 40 69 66 6e 65 78 74 63 68 61 72 5b 7b 5c 53 54 52 55 4b 54 TO@@IF#1#2{\@ifnextchar[{\STRUKT
1500 4f 40 40 40 49 46 7b 23 31 7d 7b 23 32 7d 7d 25 0d 00 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 O@@@IF{#1}{#2}}%................
1520 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7b 5c 53 54 52 55 4b 54 4f 40 40 .....................{\STRUKTO@@
1540 40 49 46 7b 23 31 7d 7b 23 32 7d 5b 49 46 2c 54 48 45 4e 2c 45 4c 53 45 5d 7d 7d 0d 00 0a 0d 00 @IF{#1}{#2}[IF,THEN,ELSE]}}.....
1560 0a 5c 64 65 66 5c 53 54 52 55 4b 54 4f 40 46 4f 52 7b 5c 40 69 66 6e 65 78 74 63 68 61 72 5b 7b .\def\STRUKTO@FOR{\@ifnextchar[{
1580 5c 53 54 52 55 4b 54 4f 40 47 45 4e 45 52 41 4c 7d 25 0d 00 0a 20 20 20 20 20 20 20 20 20 20 20 \STRUKTO@GENERAL}%..............
15a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7b 5c 53 54 52 55 4b 54 4f 40 47 45 4e ...................{\STRUKTO@GEN
15c0 45 52 41 4c 5b 46 4f 52 5d 7d 7d 0d 00 0a 5c 64 65 66 5c 53 54 52 55 4b 54 4f 40 57 48 49 4c 45 ERAL[FOR]}}...\def\STRUKTO@WHILE
15e0 7b 5c 40 69 66 6e 65 78 74 63 68 61 72 5b 7b 5c 53 54 52 55 4b 54 4f 40 47 45 4e 45 52 41 4c 7d {\@ifnextchar[{\STRUKTO@GENERAL}
1600 25 0d 00 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 %...............................
1620 20 20 20 20 7b 5c 53 54 52 55 4b 54 4f 40 47 45 4e 45 52 41 4c 5b 57 48 49 4c 45 5d 7d 7d 0d 00 ....{\STRUKTO@GENERAL[WHILE]}}..
1640 0a 0d 00 0a 5c 64 65 66 5c 53 54 52 55 4b 54 4f 40 4c 4f 4f 50 7b 5c 40 69 66 6e 65 78 74 63 68 ....\def\STRUKTO@LOOP{\@ifnextch
1660 61 72 5b 7b 5c 53 54 52 55 4b 54 4f 40 40 4c 4f 4f 50 7d 25 0d 00 0a 20 20 20 20 20 20 20 20 20 ar[{\STRUKTO@@LOOP}%............
1680 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7b 5c 53 54 52 55 4b 54 4f 40 ......................{\STRUKTO@
16a0 40 4c 4f 4f 50 5b 4c 4f 4f 50 5d 7d 7d 0d 00 0a 5c 64 65 66 5c 53 54 52 55 4b 54 4f 40 40 4c 4f @LOOP[LOOP]}}...\def\STRUKTO@@LO
16c0 4f 50 5b 23 31 5d 7b 5c 53 54 52 55 4b 54 4f 40 47 45 4e 45 52 41 4c 5b 23 31 5d 7b 7d 44 4f 7d OP[#1]{\STRUKTO@GENERAL[#1]{}DO}
16e0 0d 00 0a 0d 00 0a 5c 64 65 66 5c 53 54 52 55 4b 54 4f 40 52 45 50 45 41 54 7b 5c 40 69 66 6e 65 ......\def\STRUKTO@REPEAT{\@ifne
1700 78 74 63 68 61 72 5b 7b 5c 53 54 52 55 4b 54 4f 40 40 52 45 50 45 41 54 7d 25 0d 00 0a 20 20 20 xtchar[{\STRUKTO@@REPEAT}%......
1720 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7b 5c ..............................{\
1740 53 54 52 55 4b 54 4f 40 40 52 45 50 45 41 54 5b 55 4e 54 49 4c 5d 7d 7d 0d 00 0a 0d 00 0a 5c 64 STRUKTO@@REPEAT[UNTIL]}}......\d
1760 65 66 5c 53 54 52 55 4b 54 4f 40 42 4c 4f 43 4b 7b 5c 40 69 66 73 74 61 72 7b 5c 53 54 52 55 4b ef\STRUKTO@BLOCK{\@ifstar{\STRUK
1780 54 4f 40 40 42 4c 4f 43 4b 7b 7d 7d 25 0d 00 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 TO@@BLOCK{}}%...................
17a0 20 20 20 20 20 20 20 20 20 20 20 7b 5c 53 54 52 55 4b 54 4f 40 40 42 4c 4f 43 4b 7b 6c 7d 7d 7d ...........{\STRUKTO@@BLOCK{l}}}
17c0 0d 00 0a 0d 00 0a 0d 00 0a 25 20 49 46 2d 54 48 45 4e 2d 45 4c 53 45 2d 4b 6f 6e 73 74 72 75 6b .........%.IF-THEN-ELSE-Konstruk
17e0 74 0d 00 0a 25 0d 00 0a 25 20 7c 23 33 20 23 36 20 20 20 20 20 20 20 20 20 20 0d 00 0a 25 20 2d t...%...%.|#3.#6.............%.-
1800 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 00 0a 25 20 7c 23 34 20 23 37 20 20 20 20 20 20 ---------------...%.|#4.#7......
1820 20 20 0d 00 0a 25 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 00 0a 25 20 7c 23 35 20 .....%.----------------...%.|#5.
1840 23 38 20 20 20 20 20 20 20 20 0d 00 0a 25 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d #8...........%.----------------.
1860 00 0a 25 20 78 20 2d 3e 20 53 63 68 61 6c 74 65 72 20 78 3a 20 73 63 68 6d 61 6c 65 72 20 42 61 ..%.x.->.Schalter.x:.schmaler.Ba
1880 6c 6b 65 6e 20 6c 69 6e 6b 73 20 6e 65 62 65 6e 20 4b 6f 6e 73 74 72 75 6b 74 0d 00 0a 25 20 2a lken.links.neben.Konstrukt...%.*
18a0 20 2d 3e 20 53 63 68 61 6c 74 65 72 20 6c 3a 20 64 75 72 63 68 67 65 68 65 6e 64 65 20 4c 69 6e .->.Schalter.l:.durchgehende.Lin
18c0 69 65 20 6e 61 63 68 20 49 46 2d 53 63 68 6c 75 65 73 73 65 6c 77 6f 72 74 0d 00 0a 25 0d 00 0a ie.nach.IF-Schluesselwort...%...
18e0 25 20 31 2e 41 72 67 3a 20 73 77 69 74 63 68 20 78 0d 00 0a 25 20 32 2e 41 72 67 3a 20 73 77 69 %.1.Arg:.switch.x...%.2.Arg:.swi
1900 74 63 68 20 6c 0d 00 0a 25 20 33 2e 41 72 67 3a 20 49 46 2d 6b 65 79 77 6f 72 64 0d 00 0a 25 20 tch.l...%.3.Arg:.IF-keyword...%.
1920 34 2e 41 72 67 3a 20 54 48 45 4e 2d 6b 65 79 77 6f 72 64 0d 00 0a 25 20 35 2e 41 72 67 3a 20 45 4.Arg:.THEN-keyword...%.5.Arg:.E
1940 4c 53 45 2d 6b 65 79 77 6f 72 64 0d 00 0a 25 20 36 2e 41 72 67 3a 20 63 6f 6e 64 69 74 69 6f 6e LSE-keyword...%.6.Arg:.condition
1960 20 28 74 65 78 74 29 0d 00 0a 25 20 37 2e 41 72 67 3a 20 74 68 65 6e 2d 70 61 72 74 20 28 73 74 .(text)...%.7.Arg:.then-part.(st
1980 72 75 6b 74 6f 67 72 61 6d 6d 29 0d 00 0a 25 20 38 2e 41 72 67 3a 20 65 6c 73 65 2d 70 61 72 74 ruktogramm)...%.8.Arg:.else-part
19a0 20 28 73 74 72 75 6b 74 6f 67 72 61 6d 6d 29 0d 00 0a 25 0d 00 0a 5c 6c 6f 6e 67 5c 64 65 66 5c .(struktogramm)...%...\long\def\
19c0 53 54 52 55 4b 54 4f 40 40 40 49 46 23 31 23 32 5b 23 33 2c 23 34 2c 23 35 5d 23 36 54 48 45 4e STRUKTO@@@IF#1#2[#3,#4,#5]#6THEN
19e0 23 37 45 4c 53 45 23 38 7b 25 0d 00 0a 25 0d 00 0a 25 20 53 63 68 6c 75 65 73 73 65 6c 77 6f 72 #7ELSE#8{%...%...%.Schluesselwor
1a00 74 62 6f 78 65 6e 20 65 72 7a 65 75 67 65 6e 0d 00 0a 20 20 5c 73 65 74 62 6f 78 5c 73 74 72 75 tboxen.erzeugen.....\setbox\stru
1a20 6b 74 6f 40 69 66 40 62 6f 78 3d 5c 73 74 72 75 6b 74 6f 40 6b 65 79 77 6f 72 64 7b 23 33 7d 25 kto@if@box=\strukto@keyword{#3}%
1a40 0d 00 0a 20 20 5c 73 65 74 62 6f 78 5c 73 74 72 75 6b 74 6f 40 74 68 65 6e 40 62 6f 78 3d 5c 73 .....\setbox\strukto@then@box=\s
1a60 74 72 75 6b 74 6f 40 6b 65 79 77 6f 72 64 7b 23 34 7d 25 0d 00 0a 20 20 5c 73 65 74 62 6f 78 5c trukto@keyword{#4}%.....\setbox\
1a80 73 74 72 75 6b 74 6f 40 65 6c 73 65 40 62 6f 78 3d 5c 73 74 72 75 6b 74 6f 40 6b 65 79 77 6f 72 strukto@else@box=\strukto@keywor
1aa0 64 7b 23 35 7d 25 0d 00 0a 25 0d 00 0a 25 20 6c 61 65 6e 67 73 74 65 20 64 65 72 20 64 72 65 69 d{#5}%...%...%.laengste.der.drei
1ac0 20 42 6f 78 65 6e 20 62 65 73 74 69 6d 6d 65 6e 0d 00 0a 20 20 5c 6c 65 74 5c 73 74 72 75 6b 74 .Boxen.bestimmen.....\let\strukt
1ae0 6f 40 6b 65 79 77 6f 72 64 40 62 6f 78 3d 5c 73 74 72 75 6b 74 6f 40 69 66 40 62 6f 78 0d 00 0a o@keyword@box=\strukto@if@box...
1b00 20 20 5c 69 66 64 69 6d 5c 77 64 5c 73 74 72 75 6b 74 6f 40 74 68 65 6e 40 62 6f 78 20 3e 20 5c ..\ifdim\wd\strukto@then@box.>.\
1b20 77 64 5c 73 74 72 75 6b 74 6f 40 6b 65 79 77 6f 72 64 40 62 6f 78 0d 00 0a 20 20 20 20 5c 6c 65 wd\strukto@keyword@box.......\le
1b40 74 5c 73 74 72 75 6b 74 6f 40 6b 65 79 77 6f 72 64 40 62 6f 78 3d 5c 73 74 72 75 6b 74 6f 40 74 t\strukto@keyword@box=\strukto@t
1b60 68 65 6e 40 62 6f 78 0d 00 0a 20 20 5c 66 69 0d 00 0a 20 20 5c 69 66 64 69 6d 5c 77 64 5c 73 74 hen@box.....\fi.....\ifdim\wd\st
1b80 72 75 6b 74 6f 40 65 6c 73 65 40 62 6f 78 20 3e 20 5c 77 64 5c 73 74 72 75 6b 74 6f 40 6b 65 79 rukto@else@box.>.\wd\strukto@key
1ba0 77 6f 72 64 40 62 6f 78 0d 00 0a 20 20 20 20 5c 6c 65 74 5c 73 74 72 75 6b 74 6f 40 6b 65 79 77 word@box.......\let\strukto@keyw
1bc0 6f 72 64 40 62 6f 78 3d 5c 73 74 72 75 6b 74 6f 40 65 6c 73 65 40 62 6f 78 0d 00 0a 20 20 5c 66 ord@box=\strukto@else@box.....\f
1be0 69 0d 00 0a 25 0d 00 0a 20 20 5c 76 74 6f 70 7b 25 0d 00 0a 20 20 20 20 5c 68 73 69 7a 65 3d 5c i...%.....\vtop{%.......\hsize=\
1c00 73 74 72 75 6b 74 6f 40 77 69 64 74 68 0d 00 0a 20 20 20 20 5c 68 62 6f 78 20 74 6f 20 5c 73 74 strukto@width.......\hbox.to.\st
1c20 72 75 6b 74 6f 40 77 69 64 74 68 7b 25 0d 00 0a 25 0d 00 0a 20 20 20 20 20 20 5c 64 65 66 5c 74 rukto@width{%...%.........\def\t
1c40 65 73 74 7b 23 31 7d 25 0d 00 0a 20 20 20 20 20 20 5c 69 66 5c 74 65 73 74 20 78 25 20 3c 2d 2d est{#1}%.........\if\test.x%.<--
1c60 20 49 46 2d 54 48 45 4e 2d 45 4c 53 45 20 6c 69 6e 6b 73 20 6d 69 74 20 42 61 6c 6b 65 6e 20 76 .IF-THEN-ELSE.links.mit.Balken.v
1c80 65 72 73 65 68 65 6e 20 3f 0d 00 0a 20 20 20 20 20 20 20 20 5c 73 74 72 75 6b 74 6f 40 76 72 75 ersehen.?...........\strukto@vru
1ca0 6c 65 0d 00 0a 20 20 20 20 20 20 20 20 5c 68 73 6b 69 70 2e 35 20 5c 73 74 72 75 6b 74 6f 40 69 le...........\hskip.5.\strukto@i
1cc0 6e 64 65 6e 74 0d 00 0a 20 20 20 20 20 20 20 20 5c 73 74 72 75 6b 74 6f 40 76 72 75 6c 65 0d 00 ndent...........\strukto@vrule..
1ce0 0a 20 20 20 20 20 20 20 20 5c 61 64 76 61 6e 63 65 5c 73 74 72 75 6b 74 6f 40 77 69 64 74 68 20 .........\advance\strukto@width.
1d00 62 79 20 2d 2e 35 20 5c 73 74 72 75 6b 74 6f 40 69 6e 64 65 6e 74 0d 00 0a 20 20 20 20 20 20 5c by.-.5.\strukto@indent.........\
1d20 66 69 0d 00 0a 25 0d 00 0a 25 20 49 46 2d 54 65 69 6c 0d 00 0a 20 20 20 20 20 20 5c 76 74 6f 70 fi...%...%.IF-Teil.........\vtop
1d40 7b 25 0d 00 0a 20 20 20 20 20 20 20 20 5c 68 73 69 7a 65 3d 5c 73 74 72 75 6b 74 6f 40 77 69 64 {%...........\hsize=\strukto@wid
1d60 74 68 0d 00 0a 25 20 0d 00 0a 20 20 20 20 20 20 20 20 5c 68 62 6f 78 20 74 6f 20 5c 73 74 72 75 th...%............\hbox.to.\stru
1d80 6b 74 6f 40 77 69 64 74 68 7b 25 0d 00 0a 20 20 20 20 20 20 20 20 20 20 5c 73 74 72 75 6b 74 6f kto@width{%.............\strukto
1da0 40 76 72 75 6c 65 0d 00 0a 20 20 20 20 20 20 20 20 20 20 5c 63 6f 70 79 5c 73 74 72 75 6b 74 6f @vrule.............\copy\strukto
1dc0 40 69 66 40 62 6f 78 20 0d 00 0a 20 20 20 20 20 20 20 20 20 20 5c 64 65 66 5c 74 65 73 74 7b 23 @if@box..............\def\test{#
1de0 32 7d 25 0d 00 0a 20 20 20 20 20 20 20 20 20 20 5c 69 66 5c 74 65 73 74 20 6c 25 20 3c 2d 2d 20 2}%.............\if\test.l%.<--.
1e00 49 46 2d 54 65 69 6c 20 77 69 65 20 54 48 45 4e 2d 20 75 2e 20 45 4c 53 45 2d 54 65 69 6c 20 65 IF-Teil.wie.THEN-.u..ELSE-Teil.e
1e20 69 6e 72 75 65 63 6b 65 6e 20 3f 0d 00 0a 20 20 20 20 20 20 20 20 20 20 20 20 5c 68 66 69 6c 6c inruecken.?...............\hfill
1e40 20 0d 00 0a 20 20 20 20 20 20 20 20 20 20 20 20 5c 73 74 72 75 6b 74 6f 40 76 72 75 6c 65 0d 00 ................\strukto@vrule..
1e60 0a 20 20 20 20 20 20 20 20 20 20 20 20 5c 61 64 76 61 6e 63 65 5c 73 74 72 75 6b 74 6f 40 77 69 .............\advance\strukto@wi
1e80 64 74 68 20 62 79 20 2d 5c 77 64 5c 73 74 72 75 6b 74 6f 40 6b 65 79 77 6f 72 64 40 62 6f 78 0d dth.by.-\wd\strukto@keyword@box.
1ea0 00 0a 20 20 20 20 20 20 20 20 20 20 5c 65 6c 73 65 0d 00 0a 20 20 20 20 20 20 20 20 20 20 20 20 ............\else...............
1ec0 5c 61 64 76 61 6e 63 65 5c 73 74 72 75 6b 74 6f 40 77 69 64 74 68 20 62 79 20 2d 5c 77 64 5c 73 \advance\strukto@width.by.-\wd\s
1ee0 74 72 75 6b 74 6f 40 69 66 40 62 6f 78 0d 00 0a 20 20 20 20 20 20 20 20 20 20 5c 66 69 0d 00 0a trukto@if@box.............\fi...
1f00 20 20 20 20 20 20 20 20 20 20 5c 68 73 6b 69 70 5c 73 74 72 75 6b 74 6f 68 73 6b 69 70 20 20 20 ..........\hskip\struktohskip...
1f20 25 20 6c 69 6e 6b 65 20 54 65 78 74 65 69 6e 72 2e 0d 00 0a 20 20 20 20 20 20 20 20 20 20 5c 76 %.linke.Texteinr..............\v
1f40 74 6f 70 7b 25 0d 00 0a 20 20 20 20 20 20 20 20 20 20 20 20 5c 68 73 69 7a 65 3d 5c 73 74 72 75 top{%...............\hsize=\stru
1f60 6b 74 6f 40 77 69 64 74 68 0d 00 0a 20 20 20 20 20 20 20 20 20 20 20 20 5c 61 64 76 61 6e 63 65 kto@width...............\advance
1f80 5c 68 73 69 7a 65 20 62 79 20 2d 5c 73 74 72 75 6b 74 6f 68 73 6b 69 70 20 20 20 20 25 20 6c 69 \hsize.by.-\struktohskip....%.li
1fa0 6e 6b 65 20 54 65 78 74 65 69 6e 72 2e 20 62 65 72 75 65 63 6b 73 2e 0d 00 0a 20 20 20 20 20 20 nke.Texteinr..beruecks..........
1fc0 20 20 20 20 20 20 5c 61 64 76 61 6e 63 65 5c 68 73 69 7a 65 20 62 79 20 2d 5c 73 74 72 75 6b 74 ......\advance\hsize.by.-\strukt
1fe0 6f 68 73 6b 69 70 20 20 20 20 25 20 72 65 63 68 74 65 20 54 65 78 74 65 69 6e 72 2e 20 62 65 72 ohskip....%.rechte.Texteinr..ber
2000 75 65 63 6b 73 2e 0d 00 0a 20 20 20 20 20 20 20 20 20 20 20 20 5c 6e 6f 69 6e 64 65 6e 74 5c 63 uecks................\noindent\c
2020 6f 70 79 5c 73 74 72 75 6b 74 6f 40 73 74 72 75 74 40 62 6f 78 20 23 36 5c 73 74 72 75 74 0d 00 opy\strukto@strut@box.#6\strut..
2040 0a 20 20 20 20 20 20 20 20 20 20 7d 25 0d 00 0a 20 20 20 20 20 20 20 20 20 20 5c 68 73 6b 69 70 ...........}%.............\hskip
2060 5c 73 74 72 75 6b 74 6f 68 73 6b 69 70 20 20 20 25 20 72 65 63 68 74 65 20 54 65 78 74 65 69 6e \struktohskip...%.rechte.Textein
2080 72 2e 0d 00 0a 20 20 20 20 20 20 20 20 7d 25 0d 00 0a 25 0d 00 0a 25 20 54 48 45 4e 2d 54 65 69 r............}%...%...%.THEN-Tei
20a0 6c 0d 00 0a 20 20 20 20 20 20 20 20 5c 6e 6f 69 6e 74 65 72 6c 69 6e 65 73 6b 69 70 0d 00 0a 20 l...........\nointerlineskip....
20c0 20 20 20 20 20 20 20 5c 68 72 75 6c 65 0d 00 0a 20 20 20 20 20 20 20 20 5c 6e 6f 69 6e 74 65 72 .......\hrule...........\nointer
20e0 6c 69 6e 65 73 6b 69 70 0d 00 0a 20 20 20 20 20 20 20 20 5c 68 62 6f 78 20 74 6f 20 5c 73 74 72 lineskip...........\hbox.to.\str
2100 75 6b 74 6f 40 77 69 64 74 68 7b 25 0d 00 0a 20 20 20 20 20 20 20 20 20 20 5c 73 74 72 75 6b 74 ukto@width{%.............\strukt
2120 6f 40 76 72 75 6c 65 20 20 20 25 20 6c 69 6e 6b 65 72 20 52 61 6e 64 0d 00 0a 20 20 20 20 20 20 o@vrule...%.linker.Rand.........
2140 20 20 20 20 5c 63 6f 70 79 5c 73 74 72 75 6b 74 6f 40 74 68 65 6e 40 62 6f 78 0d 00 0a 20 20 20 ....\copy\strukto@then@box......
2160 20 20 20 20 20 20 20 5c 68 66 69 6c 6c 20 0d 00 0a 20 20 20 20 20 20 20 20 20 20 5c 76 74 6f 70 .......\hfill..............\vtop
2180 7b 25 0d 00 0a 20 20 20 20 20 20 20 20 20 20 20 20 5c 64 65 66 5c 74 65 73 74 7b 23 32 7d 25 0d {%...............\def\test{#2}%.
21a0 00 0a 20 20 20 20 20 20 20 20 20 20 20 20 5c 69 66 5c 74 65 73 74 20 6c 25 20 3c 2d 2d 20 54 48 ..............\if\test.l%.<--.TH
21c0 45 4e 2d 54 65 69 6c 20 77 69 65 20 49 46 2d 20 75 2e 20 45 4c 53 45 2d 54 65 69 6c 20 65 69 6e EN-Teil.wie.IF-.u..ELSE-Teil.ein
21e0 72 75 65 63 6b 65 6e 20 3f 0d 00 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5c 61 64 76 61 6e ruecken.?.................\advan
2200 63 65 5c 73 74 72 75 6b 74 6f 40 77 69 64 74 68 20 62 79 20 2d 5c 77 64 5c 73 74 72 75 6b 74 6f ce\strukto@width.by.-\wd\strukto
2220 40 6b 65 79 77 6f 72 64 40 62 6f 78 0d 00 0a 20 20 20 20 20 20 20 20 20 20 20 20 5c 65 6c 73 65 @keyword@box...............\else
2240 0d 00 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5c 61 64 76 61 6e 63 65 5c 73 74 72 75 6b 74 .................\advance\strukt
2260 6f 40 77 69 64 74 68 20 62 79 20 2d 5c 77 64 5c 73 74 72 75 6b 74 6f 40 74 68 65 6e 40 62 6f 78 o@width.by.-\wd\strukto@then@box
2280 0d 00 0a 20 20 20 20 20 20 20 20 20 20 20 20 5c 66 69 0d 00 0a 20 20 20 20 20 20 20 20 20 20 20 ...............\fi..............
22a0 20 5c 68 73 69 7a 65 3d 5c 73 74 72 75 6b 74 6f 40 77 69 64 74 68 0d 00 0a 20 20 20 20 20 20 20 .\hsize=\strukto@width..........
22c0 20 20 20 20 20 23 37 25 0d 00 0a 20 20 20 20 20 20 20 20 20 20 7d 25 0d 00 0a 20 20 20 20 20 20 .....#7%.............}%.........
22e0 20 20 7d 25 0d 00 0a 25 0d 00 0a 25 20 45 4c 53 45 2d 54 65 69 6c 0d 00 0a 20 20 20 20 20 20 20 ..}%...%...%.ELSE-Teil..........
2300 20 5c 64 65 66 5c 74 65 73 74 7b 23 38 7d 25 0d 00 0a 20 20 20 20 20 20 20 20 5c 69 66 78 5c 74 .\def\test{#8}%...........\ifx\t
2320 65 73 74 5c 65 6d 70 74 79 5c 65 6c 73 65 20 25 20 3c 2d 2d 20 45 4c 53 45 2d 54 65 69 6c 20 76 est\empty\else.%.<--.ELSE-Teil.v
2340 6f 72 68 61 6e 64 65 6e 20 3f 0d 00 0a 20 20 20 20 20 20 20 20 20 20 5c 6e 6f 69 6e 74 65 72 6c orhanden.?.............\nointerl
2360 69 6e 65 73 6b 69 70 0d 00 0a 20 20 20 20 20 20 20 20 20 20 5c 68 72 75 6c 65 0d 00 0a 20 20 20 ineskip.............\hrule......
2380 20 20 20 20 20 20 20 5c 6e 6f 69 6e 74 65 72 6c 69 6e 65 73 6b 69 70 0d 00 0a 20 20 20 20 20 20 .......\nointerlineskip.........
23a0 20 20 20 20 5c 68 62 6f 78 20 74 6f 20 5c 73 74 72 75 6b 74 6f 40 77 69 64 74 68 7b 25 0d 00 0a ....\hbox.to.\strukto@width{%...
23c0 20 20 20 20 20 20 20 20 20 20 20 20 5c 73 74 72 75 6b 74 6f 40 76 72 75 6c 65 20 20 20 25 20 6c ............\strukto@vrule...%.l
23e0 69 6e 6b 65 72 20 52 61 6e 64 0d 00 0a 20 20 20 20 20 20 20 20 20 20 20 20 5c 63 6f 70 79 5c 73 inker.Rand...............\copy\s
2400 74 72 75 6b 74 6f 40 65 6c 73 65 40 62 6f 78 0d 00 0a 20 20 20 20 20 20 20 20 20 20 20 20 5c 68 trukto@else@box...............\h
2420 66 69 6c 6c 0d 00 0a 20 20 20 20 20 20 20 20 20 20 20 20 5c 76 74 6f 70 7b 25 0d 00 0a 20 20 20 fill...............\vtop{%......
2440 20 20 20 20 20 20 20 20 20 20 20 5c 64 65 66 5c 74 65 73 74 7b 23 32 7d 25 0d 00 0a 20 20 20 20 ...........\def\test{#2}%.......
2460 20 20 20 20 20 20 20 20 20 20 5c 69 66 5c 74 65 73 74 20 6c 25 20 3c 2d 2d 20 45 4c 53 45 2d 54 ..........\if\test.l%.<--.ELSE-T
2480 65 69 6c 20 77 69 65 20 49 46 2d 20 75 2e 20 54 48 45 4e 2d 54 65 69 6c 20 65 69 6e 72 75 65 63 eil.wie.IF-.u..THEN-Teil.einruec
24a0 6b 65 6e 20 3f 0d 00 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5c 61 64 76 61 6e 63 65 ken.?...................\advance
24c0 5c 73 74 72 75 6b 74 6f 40 77 69 64 74 68 20 62 79 20 2d 5c 77 64 5c 73 74 72 75 6b 74 6f 40 6b \strukto@width.by.-\wd\strukto@k
24e0 65 79 77 6f 72 64 40 62 6f 78 0d 00 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5c 65 6c 73 65 eyword@box.................\else
2500 0d 00 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5c 61 64 76 61 6e 63 65 5c 73 74 72 75 ...................\advance\stru
2520 6b 74 6f 40 77 69 64 74 68 20 62 79 20 2d 5c 77 64 5c 73 74 72 75 6b 74 6f 40 65 6c 73 65 40 62 kto@width.by.-\wd\strukto@else@b
2540 6f 78 0d 00 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5c 66 69 0d 00 0a 20 20 20 20 20 20 20 ox.................\fi..........
2560 20 20 20 20 20 20 20 5c 68 73 69 7a 65 3d 5c 73 74 72 75 6b 74 6f 40 77 69 64 74 68 0d 00 0a 20 .......\hsize=\strukto@width....
2580 20 20 20 20 20 20 20 20 20 20 20 20 20 23 38 25 0d 00 0a 20 20 20 20 20 20 20 20 20 20 20 20 7d .............#8%...............}
25a0 25 0d 00 0a 20 20 20 20 20 20 20 20 20 20 7d 25 0d 00 0a 20 20 20 20 20 20 20 20 5c 66 69 0d 00 %.............}%...........\fi..
25c0 0a 20 20 20 20 20 20 7d 25 0d 00 0a 20 20 20 20 7d 25 0d 00 0a 20 20 20 20 5c 73 74 72 75 6b 74 .......}%.......}%.......\strukt
25e0 6f 40 68 72 75 6c 65 20 20 20 25 20 75 6e 74 65 72 65 72 20 52 61 6e 64 0d 00 0a 20 20 7d 25 0d o@hrule...%.unterer.Rand.....}%.
2600 00 0a 20 20 5c 6e 6f 69 6e 74 65 72 6c 69 6e 65 73 6b 69 70 0d 00 0a 7d 0d 00 0a 0d 00 0a 0d 00 ....\nointerlineskip...}........
2620 0a 25 20 46 4f 52 2d 2c 20 57 48 49 4c 45 2d 2c 20 4c 4f 4f 50 2d 4b 6f 6e 73 74 72 75 6b 74 0d .%.FOR-,.WHILE-,.LOOP-Konstrukt.
2640 00 0a 25 0d 00 0a 25 20 7c 23 31 20 20 23 32 20 20 20 20 20 20 20 20 20 20 20 0d 00 0a 25 20 20 ..%...%.|#1..#2..............%..
2660 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 00 0a 25 20 7c 20 20 20 7c 20 23 33 20 20 ...--------------...%.|...|.#3..
2680 20 20 20 20 20 20 20 20 0d 00 0a 25 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d ...........%.------------------.
26a0 00 0a 25 20 31 2e 41 72 67 3a 20 46 4f 52 2d 6b 65 79 77 6f 72 64 0d 00 0a 25 20 32 2e 41 72 67 ..%.1.Arg:.FOR-keyword...%.2.Arg
26c0 3a 20 63 6f 6e 64 69 74 69 6f 6e 20 28 74 65 78 74 29 0d 00 0a 25 20 33 2e 41 72 67 3a 20 62 6f :.condition.(text)...%.3.Arg:.bo
26e0 64 79 20 20 20 20 20 20 28 73 74 72 75 6b 74 6f 67 72 61 6d 6d 29 0d 00 0a 25 0d 00 0a 5c 6c 6f dy......(struktogramm)...%...\lo
2700 6e 67 5c 64 65 66 5c 53 54 52 55 4b 54 4f 40 47 45 4e 45 52 41 4c 5b 23 31 5d 23 32 44 4f 23 33 ng\def\STRUKTO@GENERAL[#1]#2DO#3
2720 7b 25 0d 00 0a 20 20 5c 76 74 6f 70 7b 25 0d 00 0a 20 20 20 20 5c 68 73 69 7a 65 3d 5c 73 74 72 {%.....\vtop{%.......\hsize=\str
2740 75 6b 74 6f 40 77 69 64 74 68 0d 00 0a 25 0d 00 0a 25 20 46 4f 52 2d 54 65 69 6c 0d 00 0a 20 20 ukto@width...%...%.FOR-Teil.....
2760 20 20 5c 68 62 6f 78 20 74 6f 20 5c 73 74 72 75 6b 74 6f 40 77 69 64 74 68 7b 25 0d 00 0a 20 20 ..\hbox.to.\strukto@width{%.....
2780 20 20 20 20 5c 73 74 72 75 6b 74 6f 40 76 72 75 6c 65 0d 00 0a 20 20 20 20 20 20 5c 73 65 74 62 ....\strukto@vrule.........\setb
27a0 6f 78 5c 73 74 72 75 6b 74 6f 40 6b 65 79 77 6f 72 64 40 62 6f 78 3d 5c 73 74 72 75 6b 74 6f 40 ox\strukto@keyword@box=\strukto@
27c0 6b 65 79 77 6f 72 64 7b 23 31 7d 25 0d 00 0a 20 20 20 20 20 20 5c 63 6f 70 79 5c 73 74 72 75 6b keyword{#1}%.........\copy\struk
27e0 74 6f 40 6b 65 79 77 6f 72 64 40 62 6f 78 0d 00 0a 20 20 20 20 20 20 5c 68 73 6b 69 70 5c 73 74 to@keyword@box.........\hskip\st
2800 72 75 6b 74 6f 68 73 6b 69 70 20 20 20 25 20 6c 69 6e 6b 65 20 54 65 78 74 65 69 6e 72 2e 0d 00 ruktohskip...%.linke.Texteinr...
2820 0a 20 20 20 20 20 20 5c 76 74 6f 70 7b 25 0d 00 0a 20 20 20 20 20 20 20 20 5c 68 73 69 7a 65 3d .......\vtop{%...........\hsize=
2840 5c 73 74 72 75 6b 74 6f 40 77 69 64 74 68 0d 00 0a 20 20 20 20 20 20 20 20 5c 61 64 76 61 6e 63 \strukto@width...........\advanc
2860 65 5c 68 73 69 7a 65 20 62 79 20 2d 5c 77 64 5c 73 74 72 75 6b 74 6f 40 6b 65 79 77 6f 72 64 40 e\hsize.by.-\wd\strukto@keyword@
2880 62 6f 78 0d 00 0a 20 20 20 20 20 20 20 20 5c 61 64 76 61 6e 63 65 5c 68 73 69 7a 65 20 62 79 20 box...........\advance\hsize.by.
28a0 2d 5c 73 74 72 75 6b 74 6f 68 73 6b 69 70 20 20 20 20 25 20 6c 69 6e 6b 65 20 54 65 78 74 65 69 -\struktohskip....%.linke.Textei
28c0 6e 72 2e 20 62 65 72 75 65 63 6b 73 2e 0d 00 0a 20 20 20 20 20 20 20 20 5c 61 64 76 61 6e 63 65 nr..beruecks............\advance
28e0 5c 68 73 69 7a 65 20 62 79 20 2d 5c 73 74 72 75 6b 74 6f 68 73 6b 69 70 20 20 20 20 25 20 72 65 \hsize.by.-\struktohskip....%.re
2900 63 68 74 65 20 54 65 78 74 65 69 6e 72 2e 20 62 65 72 75 65 63 6b 73 2e 0d 00 0a 20 20 20 20 20 chte.Texteinr..beruecks.........
2920 20 20 20 5c 6e 6f 69 6e 64 65 6e 74 5c 63 6f 70 79 5c 73 74 72 75 6b 74 6f 40 73 74 72 75 74 40 ...\noindent\copy\strukto@strut@
2940 62 6f 78 20 23 32 5c 73 74 72 75 74 0d 00 0a 20 20 20 20 20 20 7d 25 0d 00 0a 20 20 20 20 20 20 box.#2\strut.........}%.........
2960 5c 68 73 6b 69 70 5c 73 74 72 75 6b 74 6f 68 73 6b 69 70 20 20 20 25 20 72 65 63 68 74 65 20 54 \hskip\struktohskip...%.rechte.T
2980 65 78 74 65 69 6e 72 2e 0d 00 0a 20 20 20 20 7d 25 0d 00 0a 20 20 20 20 5c 6e 6f 69 6e 74 65 72 exteinr........}%.......\nointer
29a0 6c 69 6e 65 73 6b 69 70 0d 00 0a 25 0d 00 0a 25 20 4b 6f 65 72 70 65 72 0d 00 0a 20 20 20 20 5c lineskip...%...%.Koerper.......\
29c0 68 62 6f 78 20 74 6f 20 5c 73 74 72 75 6b 74 6f 40 77 69 64 74 68 7b 25 0d 00 0a 20 20 20 20 20 hbox.to.\strukto@width{%........
29e0 20 5c 73 74 72 75 6b 74 6f 40 76 72 75 6c 65 20 20 20 25 20 6c 69 6e 6b 65 72 20 52 61 6e 64 0d .\strukto@vrule...%.linker.Rand.
2a00 00 0a 20 20 20 20 20 20 5c 68 73 6b 69 70 5c 73 74 72 75 6b 74 6f 40 69 6e 64 65 6e 74 0d 00 0a ........\hskip\strukto@indent...
2a20 20 20 20 20 20 20 5c 73 74 72 75 6b 74 6f 40 76 72 75 6c 65 20 20 20 25 20 6c 69 6e 6b 65 72 20 ......\strukto@vrule...%.linker.
2a40 52 61 6e 64 20 28 65 69 67 65 6e 74 6c 69 63 68 20 75 65 62 65 72 66 6c 75 65 73 73 69 67 29 0d Rand.(eigentlich.ueberfluessig).
2a60 00 0a 20 20 20 20 20 20 5c 76 74 6f 70 7b 25 0d 00 0a 20 20 20 20 20 20 20 20 5c 61 64 76 61 6e ........\vtop{%...........\advan
2a80 63 65 5c 73 74 72 75 6b 74 6f 40 77 69 64 74 68 20 62 79 20 2d 5c 73 74 72 75 6b 74 6f 40 69 6e ce\strukto@width.by.-\strukto@in
2aa0 64 65 6e 74 0d 00 0a 20 20 20 20 20 20 20 20 5c 68 73 69 7a 65 3d 5c 73 74 72 75 6b 74 6f 40 77 dent...........\hsize=\strukto@w
2ac0 69 64 74 68 0d 00 0a 20 20 20 20 20 20 20 20 5c 6e 6f 69 6e 74 65 72 6c 69 6e 65 73 6b 69 70 0d idth...........\nointerlineskip.
2ae0 00 0a 20 20 20 20 20 20 20 20 5c 68 72 75 6c 65 0d 00 0a 20 20 20 20 20 20 20 20 23 33 25 0d 00 ..........\hrule...........#3%..
2b00 0a 20 20 20 20 20 20 7d 25 0d 00 0a 20 20 20 20 7d 25 0d 00 0a 20 20 20 20 5c 73 74 72 75 6b 74 .......}%.......}%.......\strukt
2b20 6f 40 68 72 75 6c 65 20 20 20 25 20 75 6e 74 65 72 65 72 20 52 61 6e 64 0d 00 0a 20 20 7d 25 0d o@hrule...%.unterer.Rand.....}%.
2b40 00 0a 20 20 5c 6e 6f 69 6e 74 65 72 6c 69 6e 65 73 6b 69 70 0d 00 0a 7d 0d 00 0a 0d 00 0a 25 20 ....\nointerlineskip...}......%.
2b60 52 45 50 45 41 54 2d 55 4e 54 49 4c 2d 4b 6f 6e 73 74 72 75 6b 74 0d 00 0a 25 0d 00 0a 25 20 7c REPEAT-UNTIL-Konstrukt...%...%.|
2b80 20 20 20 7c 20 23 32 20 20 20 20 20 20 20 20 20 20 0d 00 0a 25 20 20 20 20 20 2d 2d 2d 2d 2d 2d ...|.#2.............%.....------
2ba0 2d 2d 2d 2d 2d 2d 2d 2d 0d 00 0a 25 20 7c 23 31 20 23 33 20 20 20 20 20 20 20 20 20 20 20 20 0d --------...%.|#1.#3.............
2bc0 00 0a 25 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 00 0a 25 20 31 2e 41 72 67 ..%.------------------...%.1.Arg
2be0 3a 20 55 4e 54 49 4c 2d 6b 65 79 77 6f 72 64 0d 00 0a 25 20 32 2e 41 72 67 3a 20 62 6f 64 79 20 :.UNTIL-keyword...%.2.Arg:.body.
2c00 20 20 20 20 20 28 73 74 72 75 6b 74 6f 67 72 61 6d 6d 29 0d 00 0a 25 20 33 2e 41 72 67 3a 20 63 .....(struktogramm)...%.3.Arg:.c
2c20 6f 6e 64 69 74 69 6f 6e 20 28 74 65 78 74 29 0d 00 0a 25 0d 00 0a 5c 6c 6f 6e 67 5c 64 65 66 5c ondition.(text)...%...\long\def\
2c40 53 54 52 55 4b 54 4f 40 40 52 45 50 45 41 54 5b 23 31 5d 23 32 55 4e 54 49 4c 23 33 7b 25 0d 00 STRUKTO@@REPEAT[#1]#2UNTIL#3{%..
2c60 0a 20 20 5c 76 74 6f 70 7b 25 0d 00 0a 20 20 20 20 5c 68 73 69 7a 65 3d 5c 73 74 72 75 6b 74 6f ...\vtop{%.......\hsize=\strukto
2c80 40 77 69 64 74 68 0d 00 0a 25 0d 00 0a 25 20 4b 6f 65 72 70 65 72 0d 00 0a 20 20 20 20 5c 68 62 @width...%...%.Koerper.......\hb
2ca0 6f 78 20 74 6f 20 5c 73 74 72 75 6b 74 6f 40 77 69 64 74 68 7b 25 0d 00 0a 20 20 20 20 20 20 5c ox.to.\strukto@width{%.........\
2cc0 73 74 72 75 6b 74 6f 40 76 72 75 6c 65 20 20 20 25 20 6c 69 6e 6b 65 72 20 52 61 6e 64 0d 00 0a strukto@vrule...%.linker.Rand...
2ce0 20 20 20 20 20 20 5c 68 73 6b 69 70 5c 73 74 72 75 6b 74 6f 40 69 6e 64 65 6e 74 0d 00 0a 20 20 ......\hskip\strukto@indent.....
2d00 20 20 20 20 5c 73 74 72 75 6b 74 6f 40 76 72 75 6c 65 20 20 20 25 20 6c 69 6e 6b 65 72 20 52 61 ....\strukto@vrule...%.linker.Ra
2d20 6e 64 20 28 65 69 67 65 6e 74 6c 69 63 68 20 75 65 62 65 72 66 6c 75 65 73 73 69 67 29 0d 00 0a nd.(eigentlich.ueberfluessig)...
2d40 20 20 20 20 20 20 5c 76 74 6f 70 7b 25 0d 00 0a 20 20 20 20 20 20 20 20 5c 61 64 76 61 6e 63 65 ......\vtop{%...........\advance
2d60 5c 73 74 72 75 6b 74 6f 40 77 69 64 74 68 20 62 79 20 2d 5c 73 74 72 75 6b 74 6f 40 69 6e 64 65 \strukto@width.by.-\strukto@inde
2d80 6e 74 0d 00 0a 20 20 20 20 20 20 20 20 5c 68 73 69 7a 65 3d 5c 73 74 72 75 6b 74 6f 40 77 69 64 nt...........\hsize=\strukto@wid
2da0 74 68 0d 00 0a 20 20 20 20 20 20 20 20 23 32 25 0d 00 0a 20 20 20 20 20 20 20 20 5c 68 72 75 6c th...........#2%...........\hrul
2dc0 65 0d 00 0a 20 20 20 20 20 20 7d 25 0d 00 0a 20 20 20 20 7d 25 0d 00 0a 20 20 20 20 5c 6e 6f 69 e.........}%.......}%.......\noi
2de0 6e 74 65 72 6c 69 6e 65 73 6b 69 70 0d 00 0a 25 0d 00 0a 25 20 55 4e 54 49 4c 2d 54 65 69 6c 0d nterlineskip...%...%.UNTIL-Teil.
2e00 00 0a 20 20 20 20 5c 68 62 6f 78 20 74 6f 20 5c 73 74 72 75 6b 74 6f 40 77 69 64 74 68 7b 25 0d ......\hbox.to.\strukto@width{%.
2e20 00 0a 20 20 20 20 20 20 5c 73 74 72 75 6b 74 6f 40 76 72 75 6c 65 0d 00 0a 20 20 20 20 20 20 5c ........\strukto@vrule.........\
2e40 73 65 74 62 6f 78 5c 73 74 72 75 6b 74 6f 40 6b 65 79 77 6f 72 64 40 62 6f 78 3d 5c 73 74 72 75 setbox\strukto@keyword@box=\stru
2e60 6b 74 6f 40 6b 65 79 77 6f 72 64 7b 23 31 7d 25 0d 00 0a 20 20 20 20 20 20 5c 63 6f 70 79 5c 73 kto@keyword{#1}%.........\copy\s
2e80 74 72 75 6b 74 6f 40 6b 65 79 77 6f 72 64 40 62 6f 78 0d 00 0a 20 20 20 20 20 20 5c 68 73 6b 69 trukto@keyword@box.........\hski
2ea0 70 5c 73 74 72 75 6b 74 6f 68 73 6b 69 70 20 20 20 25 20 6c 69 6e 6b 65 20 54 65 78 74 65 69 6e p\struktohskip...%.linke.Textein
2ec0 72 2e 0d 00 0a 20 20 20 20 20 20 5c 76 74 6f 70 7b 25 0d 00 0a 20 20 20 20 20 20 20 20 5c 68 73 r..........\vtop{%...........\hs
2ee0 69 7a 65 3d 5c 73 74 72 75 6b 74 6f 40 77 69 64 74 68 0d 00 0a 20 20 20 20 20 20 20 20 5c 61 64 ize=\strukto@width...........\ad
2f00 76 61 6e 63 65 5c 68 73 69 7a 65 20 62 79 20 2d 5c 77 64 5c 73 74 72 75 6b 74 6f 40 6b 65 79 77 vance\hsize.by.-\wd\strukto@keyw
2f20 6f 72 64 40 62 6f 78 0d 00 0a 20 20 20 20 20 20 20 20 5c 61 64 76 61 6e 63 65 5c 68 73 69 7a 65 ord@box...........\advance\hsize
2f40 20 62 79 20 2d 5c 73 74 72 75 6b 74 6f 68 73 6b 69 70 20 20 20 20 25 20 6c 69 6e 6b 65 20 54 65 .by.-\struktohskip....%.linke.Te
2f60 78 74 65 69 6e 72 2e 20 62 65 72 75 65 63 6b 73 2e 0d 00 0a 20 20 20 20 20 20 20 20 5c 61 64 76 xteinr..beruecks............\adv
2f80 61 6e 63 65 5c 68 73 69 7a 65 20 62 79 20 2d 5c 73 74 72 75 6b 74 6f 68 73 6b 69 70 20 20 20 20 ance\hsize.by.-\struktohskip....
2fa0 25 20 72 65 63 68 74 65 20 54 65 78 74 65 69 6e 72 2e 20 62 65 72 75 65 63 6b 73 2e 0d 00 0a 20 %.rechte.Texteinr..beruecks.....
2fc0 20 20 20 20 20 20 20 5c 6e 6f 69 6e 64 65 6e 74 5c 63 6f 70 79 5c 73 74 72 75 6b 74 6f 40 73 74 .......\noindent\copy\strukto@st
2fe0 72 75 74 40 62 6f 78 20 23 33 5c 73 74 72 75 74 0d 00 0a 20 20 20 20 20 20 7d 25 0d 00 0a 20 20 rut@box.#3\strut.........}%.....
3000 20 20 20 20 5c 68 73 6b 69 70 5c 73 74 72 75 6b 74 6f 68 73 6b 69 70 20 20 20 25 20 72 65 63 68 ....\hskip\struktohskip...%.rech
3020 74 65 20 54 65 78 74 65 69 6e 72 2e 0d 00 0a 20 20 20 20 7d 25 0d 00 0a 20 20 20 20 5c 73 74 72 te.Texteinr........}%.......\str
3040 75 6b 74 6f 40 68 72 75 6c 65 20 20 20 25 20 75 6e 74 65 72 65 72 20 52 61 6e 64 0d 00 0a 20 20 ukto@hrule...%.unterer.Rand.....
3060 7d 25 0d 00 0a 20 20 5c 6e 6f 69 6e 74 65 72 6c 69 6e 65 73 6b 69 70 0d 00 0a 7d 0d 00 0a 0d 00 }%.....\nointerlineskip...}.....
3080 0a 0d 00 0a 25 20 7c 20 23 32 20 20 20 20 20 20 20 20 20 20 20 20 0d 00 0a 25 20 2d 2d 2d 2d 2d ....%.|.#2...............%.-----
30a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 00 0a 25 20 2a 20 2d 3e 20 53 63 68 61 6c 74 65 72 20 6c 3a -----------...%.*.->.Schalter.l:
30c0 20 6b 65 69 6e 65 20 4c 69 6e 69 65 20 6c 69 6e 6b 73 20 76 6f 6e 20 42 6c 6f 63 6b 0d 00 0a 25 .keine.Linie.links.von.Block...%
30e0 0d 00 0a 25 20 31 2e 41 72 67 3a 20 73 77 69 74 63 68 20 6c 0d 00 0a 25 20 32 2e 41 72 67 3a 20 ...%.1.Arg:.switch.l...%.2.Arg:.
3100 62 6f 64 79 20 28 74 65 78 74 29 0d 00 0a 25 0d 00 0a 5c 6c 6f 6e 67 5c 64 65 66 5c 53 54 52 55 body.(text)...%...\long\def\STRU
3120 4b 54 4f 40 40 42 4c 4f 43 4b 23 31 23 32 7b 25 0d 00 0a 20 20 5c 76 74 6f 70 7b 25 0d 00 0a 20 KTO@@BLOCK#1#2{%.....\vtop{%....
3140 20 20 20 5c 68 73 69 7a 65 3d 5c 73 74 72 75 6b 74 6f 40 77 69 64 74 68 0d 00 0a 20 20 20 20 5c ...\hsize=\strukto@width.......\
3160 68 62 6f 78 20 74 6f 20 5c 73 74 72 75 6b 74 6f 40 77 69 64 74 68 7b 25 0d 00 0a 20 20 20 20 20 hbox.to.\strukto@width{%........
3180 20 5c 64 65 66 5c 74 65 73 74 7b 23 31 7d 25 0d 00 0a 20 20 20 20 20 20 5c 69 66 5c 74 65 73 74 .\def\test{#1}%.........\if\test
31a0 20 6c 25 20 3c 2d 2d 20 6c 69 6e 6b 65 6e 20 52 61 6e 64 20 7a 69 65 68 65 6e 20 3f 0d 00 0a 20 .l%.<--.linken.Rand.ziehen.?....
31c0 20 20 20 20 20 20 20 5c 73 74 72 75 6b 74 6f 40 76 72 75 6c 65 0d 00 0a 20 20 20 20 20 20 5c 66 .......\strukto@vrule.........\f
31e0 69 0d 00 0a 20 20 20 20 20 20 5c 68 73 6b 69 70 5c 73 74 72 75 6b 74 6f 68 73 6b 69 70 20 20 20 i.........\hskip\struktohskip...
3200 25 20 6c 69 6e 6b 65 20 54 65 78 74 65 69 6e 72 2e 0d 00 0a 20 20 20 20 20 20 5c 76 74 6f 70 7b %.linke.Texteinr..........\vtop{
3220 25 0d 00 0a 20 20 20 20 20 20 20 20 5c 68 73 69 7a 65 3d 5c 73 74 72 75 6b 74 6f 40 77 69 64 74 %...........\hsize=\strukto@widt
3240 68 0d 00 0a 20 20 20 20 20 20 20 20 5c 61 64 76 61 6e 63 65 5c 68 73 69 7a 65 20 62 79 20 2d 5c h...........\advance\hsize.by.-\
3260 73 74 72 75 6b 74 6f 68 73 6b 69 70 20 20 20 20 25 20 6c 69 6e 6b 65 20 54 65 78 74 65 69 6e 72 struktohskip....%.linke.Texteinr
3280 2e 20 62 65 72 75 65 63 6b 73 2e 0d 00 0a 20 20 20 20 20 20 20 20 5c 61 64 76 61 6e 63 65 5c 68 ..beruecks............\advance\h
32a0 73 69 7a 65 20 62 79 20 2d 5c 73 74 72 75 6b 74 6f 68 73 6b 69 70 20 20 20 20 25 20 72 65 63 68 size.by.-\struktohskip....%.rech
32c0 74 65 20 54 65 78 74 65 69 6e 72 2e 20 62 65 72 75 65 63 6b 73 2e 0d 00 0a 20 20 20 20 20 20 20 te.Texteinr..beruecks...........
32e0 20 5c 6e 6f 69 6e 64 65 6e 74 5c 63 6f 70 79 5c 73 74 72 75 6b 74 6f 40 73 74 72 75 74 40 62 6f .\noindent\copy\strukto@strut@bo
3300 78 20 23 32 5c 73 74 72 75 74 0d 00 0a 20 20 20 20 20 20 7d 25 0d 00 0a 20 20 20 20 20 20 5c 68 x.#2\strut.........}%.........\h
3320 73 6b 69 70 5c 73 74 72 75 6b 74 6f 68 73 6b 69 70 20 20 20 25 20 72 65 63 68 74 65 20 54 65 78 skip\struktohskip...%.rechte.Tex
3340 74 65 69 6e 72 2e 0d 00 0a 20 20 20 20 7d 25 0d 00 0a 20 20 20 20 5c 73 74 72 75 6b 74 6f 40 68 teinr........}%.......\strukto@h
3360 72 75 6c 65 20 20 20 25 20 75 6e 74 65 72 65 72 20 52 61 6e 64 0d 00 0a 20 20 7d 25 0d 00 0a 20 rule...%.unterer.Rand.....}%....
3380 20 5c 6e 6f 69 6e 74 65 72 6c 69 6e 65 73 6b 69 70 0d 00 0a 7d 0d 00 0a 0d 00 0a .\nointerlineskip...}......