&TEXT $C=0032BOTTTT#T-   #!C-003CBOTTTT#TT7TA !.EINGABE ASCII-DATEI .R]CKSPR]NGE.DATEI SCHLIE~EN, ALTES VERZEICHNIS SETZENende.rufe vrz-wechsel mit Verzeich3 0 r}cksprung.l|sche zeile 24.eingeben Zeichen. weiter tz bis zeichen "#003#020#145#133#146#144" zeile.setze tr-feld = tr.wenn tr = #003: weiter tz.: springe feldeinf}g.t l|sche zeichen.vergleiche tr-feld mit##020 feldeinf}g##145 datum##133 k}rzel##146 name##144 verschieb.feldeinf}g.wenn Zeilenende : springe suchen.t einf}gen Zeile..springe weiter. !nummer.t holen zeilennummer N1.wenn N1 = Nummer : springe suchen. sonst : t einf}gen z-fzs. : springe nummer..POSITIONIEREN AUF N[CHSTE TEXTZEILE -ODER SEITE zeile.t n{chste zeile druckanf seite.springe suchen. .DER GEMISCHTE TEXT WIRD GEDRUCKT.druckanf.t anfang text.t drucken anfang Format.drucken.t drucken seite fdrucken.rechne N2 + 1.t posit seite N2 drende.  springe lesen. %springe vorlage.fkopie.anzeigen fehler "Vorlagetext kann nicht kopiert werden. Abbruch!".springe ende.fdrucken.anzeigen fehler "Platte ist voll".springe drucken. C-0018BOTTTT#TT7 ! mZeiletext<500>.#-ein Satz der Ascii-DateiZeichen<1>.#-einf. EingabefeldZeilenende<1>.#-Bildanummer.#-akt. BildschirmnummerBetriebnummer.#-akt. BetriebssystemNummerzahl<3>.#-Zeilennummer hinter cod-VAnfangnummer.#-Zeigerpositionen Feldanfang undEndenummer.#--ende springe drucken.drende.t drucken ende.rechne Anzahl + 1.setze N2 = 1.t datei schlie~en.t datei l|schen Mischtxt. .EINGABE VORLAGETEXTvorlage.{ndern zeile 5 spalte 25 "Textvorlage : " Vorlage endea.gro~schreibung Vorlage.springe e$ verzeichnis.anzeigen neu zeile 5 spalte 39 Vorlage.setze Vorlagedat = Vorlage.info text Vorlagedat Verzeich1 N1 fvorlage.bilde Vorlage2 = Vorlagedat ".TXT".wenn Verzeich1.<2,3> = ":" : bilde Vorlage3 = Verzeich1.<1,3> Vorlage2. : setze Vorlagedat2 = Vorlage3.  C-002EBOTTTT#TT7 |druckzeig.t datei |ffnen Vorlagedat2.hole verwaltung 5 Format.t datei schlie~en.a datei |ffnen Ascii.  datum.t einf}gen speicher "T".springe suchen.k}rzel.t einf}gen speicher "K".springe suchen.name.t einf}gen Vorlage.springe suchen.verschieb.t lesen wort Nummer.t l|schen wort. #.EINGABE VERZEICHNIS verzeichnis.{ndern zeile 5 spalte 14 Verzeich1 endea.gro~schreibung Verzeich1.springe e$ verzeichnis.rufe vrz-wechsel mit Verzeich1 0 verzeichnis.anzeigen neu zeile 5 spalte 14 Verzeich1. "za datei schlie~en.r}cksprung.endea.rufe vrz-wechsel mit Verzeich3 0 r}cksprung.r}cksprung.  Jseite.t n{chste zeile.t n{chste zeile.springe suchen.  Rascii.{ndern zeile 6 spalte 25 "Auswahldatei: " Ascii endea.gro~schreibung Ascii.anzeigen neu zeile 6 spalte 25 "Auswahldatei: " Ascii.info datei Ascii N1 fascii..ZWISCHENDATEI BILDENmischtxt.s system Bilda Betrieb.bilde Misch = "$MISCH" Bilda ".TXT".setze Mischtxt = Misch. 6 sonst : setze Vorlagedat2 = Vorlage2. l|sche Zeilenende.t datei kopieren Vorlagedat2 nach Verzeich2 Mischtxt fkopie.t datei |ffnen Mischtxt.t anfang text.anzeigen zeile 24 spalte 25 "Es wird gemischt!".setze zeiger Zeiger = Zeile.<1>.springe zeiger.zende.setze Zeilenende.springe suchen.weiter.weiter Zeiger zende..ASCII-DATEIFELD WIRD GELESEN E-0022BOTTTT#TT7  vzeiger.hole index Anfang von Zeiger.weiter Zeiger bis zeichen Feldende.hole index Ende von Zeiger. -003DBOTTTT#TT7 .DIE TEXTZEILEN WERDEN NACH EINF]GEPOSITION DURCHSUCHT.(COD-?,COD-<), DIE FELDER WERDEN AN DIESEN EINGEF]GT..CODIERTE T, K, V UND N WERDEN UMGEWANDELT.suchen.t rechts 0. .ERSTER SATZ DER ASCII-DATEI WIRD GELESEN. DIE ZWISCHENDATEI.WIRD ANGELEGT UND GE\FFNET. lesen.anzeigen neu zeile 10 "Anzahl der erstellten Texte: " Anzahl.a datei setzen Ascii.a zeile lesen Zeile ende.wenn nicht Zeile : springe ende. $Vorlage2text<14>.#-) Felder zum Erstellen des NamensVorlage3text<14>.#-) der ZwischendateiVorlage4text<14>.#-)Vorlagedat2datei<14>.#-)Verzeich1text<10>.#-Eingabe-VerzeichnisVerzeich2text<10>.#-Verz-Zwischendatei Verzeich3text<10>.#-akt VerzeichnisFormat<1>.#-Format-FeldVorgang<1>.#-letzter VorgangFeldende",".#-Kennzeichen Feldende Ascii-dateitr-feld<1>.#-Feld f}r Textzeiger (tr)  Anzahlnummer.#-Anzahl der erstellen TexteN1nummer.#-allg. NummernfeldN2nummer 1.#-Seitenanzahl (drucken)Zeigerzeiger. %r}cksprung..FEHLERMARKENverwaltung.anzeigen fehler "Programm kann nur }ber Men} aufgerufen werden".r}cksprung. ustart.hole verwaltung 1 Vorgang.wenn nicht Vorgang : springe verwaltung.b funktion #006.t unsichtbar.anzeigen zeile 2 spalte 15 "Mischen einer ASCII-Datei mit einem Text".hole verwaltung 6 Verzeich1.setze Verzeich3 = Verzeich1.setze Verzeich1 = Verzeich1.anzeigen zeile 5 "Verzeichnis: " Verzeich1.springe vorlage. extern vrz-wechsel.programm ascmisch.daten.Asciidatei<14>.#-Ascii-AuswahldateiMischtxtdatei<12>.#-ZwischendateiVorlagedatdatei<12>.#-VorlagedateiMisch text<12>.Vorlagetext<12>.#-) "fascii.anzeigen fehler "Datei nicht vorhanden".springe ascii.fvorlage.anzeigen fehler "Text nicht vorhanden".