TEXT ÿÿASCBEARBTXT,6<ðÿÿYmÿba : Vorgang-Hilfe1TS7TS=TS?TSATSCTSGTSQTSfTSiTSjTSkTSlTSmTSnTSoTSpTSsTS  TS1  TS1 TS1 hTS1 tTS1VIVI"VI$VI+VI-VI<VIMVI demo demo &demo odemo 7doku status status status 'status =0061BO .====================================================================H.Das Programm }berarbeitet einen Text, der aus einer ASCII-DateiH.umgewandelt worden ist, so da~ er weiter bearbeitet werden kann.H  ’.gel|scht, wenn der Abstand zur maximalen Schreibbreite weniger alsH.10 Spalten betr{gt und die darauffolgende Zeile nicht leer ist.H  ð t hole seitennummer n1.!)** alte Position merken t hole zeilennummer n2. t hole index n3. t posit seite T-seite.!)** erste Seite t anfang seite. t sichtbar. t unsichtbar. {ndern neu zeile 1 "Schreibbreite f}r Seite " T-seite ": " Breite. eingeben spalte 40 "f}r alle Seiten gleich (j/n)? " Breite-flag. gro~schr Breite-flag.seiten-anfang. setze direkt Zlin.<2> = Breite.)1** Breite setzen t setze lineal Zlin.zeilen-anfang. æ vergleiche tr mit z-leer anfang-rand. springe n{chste-zeile.anfang-rand. weiter tz solange zeichen z-leer.0** Leerschritte am Zeilenanfang t hole spaltennummer T-spalte. setze direkt Zch1 = T-spalte. bilde tz.<,1> = z-kol Zch1 z-kol.1** durch Rand ersetzen rufe schreibe-zeile.!)1** Ausgleich verhindernn{chste-zeile. t n{chste zeile zeilen-ende zeilen-ende.9** bis zum Seitenende springe zeilen-anfang.zeilen-ende. È zur}ck tz bis anfang. setze Leerzeile.zeilen-ende-1. weiter tz bis ende. vergleiche tl mit z-kolvorige-zeile #255vorige-zeile. wenn tr nicht = z-fzs oder Leerzeile  : springe vorige-zeile. ** n{chste Zl leer: nicht l|schen t hole spaltennummer T-spalte. rechne T-spalte = Breite - T-spalte.1** rechter Abstand zum Rand wenn T-spalte < 10 : l|sche tz.)1** < 10: feste ZS l|schen æ  : rufe schreibe-zeile.)1** Ausgleich verhindernvorige-zeile. wenn tl = z-kol oder tl = #255 : setze Leerzeile.  sonst : l|sche Leerzeile.)1** Leerzeile merken t hoch n{chste-seite n{chste-seite. springe zeilen-ende-1.!)1** zur}ck bis Seitenanfangn{chste-seite. t tief seite fertig.!)1** n{chste Seite wenn Breite-flag nicht = "N" : springe seiten-anfang. rechne T-seite + 1. t darstellen. t unsichtbar. Í {ndern neu zeile 1 "Schreibbreite f}r Seite " T-seite ": " Breite. springe seiten-anfang.fertig. t posit seite n1 zeile n2. weiter tz bis index n3. t darstellen. r}cksprung. à.Leerschritte am Zeilenanfang werden durch einen Rand ersetzt. DieH.maximale Schreibbreite kann f}r alle Seiten gemeinsam oder f}r jedeH.Seite angegeben werden. Feste Zeilenschaltungen am Zeilenende werdenH ].====================================================================Hextern schreibe-zeile.daten in tv.bnr.programm ascbearb.daten..----Breite nummer 79.T-seite nummer 1.T-spaltenummer.Zlin <2>"B".Zch1 <1>.Breite-flag<1>.Leerzeile<1>.ascbearb. s verwaltung tv:bnr.