BEISPIEL ð=0033BOT TTTTT#T2T7 ƒ0003011 daten indaten in datei.. argumenteOperation<1>.Feld-nr<1>.Fehler-marke<1>.. datenSatz.feld<1>.Kurzname.()<1>.Schl}ssel.feld<1>.Programme.()<1>.Funktion-a.()<1>.Gro~schreibung.()<1>.Schl}sselfelder.()<1>.Anzahlfelder<1>.Anzahlschl}ssel<1>.Datei-nr<1>.Applikation<1>.Schl}ssel-nr<1>.Status<1>.Datei<1>.daten in Ad.     ý1 daten in%10 Programmende / Fehlerausgabe 2 daten3 speicher dynamisch&4 Dateieingabe / Maske / Vorgang'5 Schl}ssel eingeben / Satz lesen&6 Satz eingeben / Satz schreiben&7 L|schen / Bl{ttern / Freigeben “Vorg<1>.Darstell-flag<1>.Txt.name<1>.Txt-laufwerk<1>.Verzeichnis<1>.Datum.tag<1>.K}rzel<1>.Abteilung<1>.Maskendatei"MASKEN.TXT".Datei<1>.Bhandb<1>.Speicher<1>.Benutzer<1>.Druck-Datei<1>.Drucker<1>.Verwalter<1>.Trennzone<1>.S-toleranz<1>.Start-flag<1>.Programm<1>.TTX-Zugang<1>.Bea-modus<1>. O-000DBOT TTTTT#T2T7 ƒ0003022 datenprogramm dateibsp.daten.]berschrift"D a t e i B e a r b e i t e nDatei:  Erfassen Auskunft Vorw{rts R}ckw{rts [ndern L|schen------------------------------------------------------------------------------". •-0011BOT TTTTT#T2T7 ƒ0003033 speicher dynamischspeicher dynamisch.Dateinametext<10>.Vorgang<1>.Lademodul.name<8>.- .ext<4>.Num1nummer.Zch1<1>.Feldnrnummer.Hauptschl}sselnummer.Letzter-schl}sselnummer.Bzl-untennummer.Satz-gelesen<1>.Maskendateidatei<11>.Feldzeigerzeiger. Û-0032BOT TTTTT#T2T7 ƒ0003044 Dateieingabe / Maske / Vorganganfang. b funktion #006. b parameter 3 Bzl-unten. anzeigen ]berschrift. l|sche Dateiname. l|sche Vorgang. setze Lademodul.ext = ".TPS". setze Maskendatei = "MASKDAT.TXT". d datei |ffnen Maskendatei Num1 keine-maskdat. setze maskendatei Maskendatei.dateiname-eingeben. maske unsichtbar ]berschrift mit Dateiname Vorgang. × {ndern in maske Dateiname ende. gro~schreibung Dateiname. anzeigen in maske Dateiname. setze Lademodul.name = Dateiname. wenn Dateiname.<2,3> nicht = ":" : springe modul-laden. hole l{nge Num1 von Dateiname. setze Lademodul.name = Dateiname.<3,Num1>.modul-laden. lade Lademodul dateiname-eingeben. l|sche Hauptschl}ssel. l|sche Satz-gelesen. setze Letzter-schl}ssel = 1. setze Feldnr = datei:Schl}sselfelder.(1). Õ rufe datei mit 1 0 modul-freigeben.2* DATEI \FFNEN l|schen zeile 6 bis Bzl-unten. maske zeile 6 datei Lademodul.name mit datei:Satz. l|schen in maske.vorgang-eingeben. l|schen zeile 4. maske unsichtbar ]berschrift mit Dateiname Vorgang. {ndern in maske Vorgang programm-ende. springe e$ neue-datei. gro~schreibung Vorgang. anzeigen in maske Vorgang. maske unsichtbar zeile 6 datei Lademodul.name mit datei:Satz. Ú vergleiche Vorgang mit#"E" schl}ssel-immer-eingeben#"A" schl}ssel-immer-eingeben#"V" vorw{rts#"R" r}ckw{rts#"[" schl}ssel-eingeben#"L" schl}ssel-eingeben. springe vorgang-eingeben. ö-002CBOT TTTTT#T2T7 ƒ0003055 Schl}ssel eingeben / Satz lesenschl}ssel-eingeben. wenn Satz-gelesen : springe satz-lesen.schl}ssel-immer-eingeben. l|schen in maske. setze zeiger Feldzeiger = datei:Satz.(1).satz-l|schen. l|sche Feldzeiger. weiter Feldzeiger alles-gel|scht. springe satz-l|schen.alles-gel|scht. l|sche Satz-gelesen. setze zeiger Feldzeiger = datei:Schl}sselfelder.(1).schl}ssel-eing.  ú setze Feldnr = Feldzeiger. eingeben in maske datei:Satz.(Feldnr) vorgang-eingeben. wenn nicht datei:Satz.(Feldnr) : wenn Vorgang nicht = "E": weiter Feldzeiger schl}ssel-immer-eingeben.: springe schl}ssel-eing. setze Letzter-schl}ssel = Feldnr.satz-lesen. wenn Vorgang = "A": rufe datei mit 3 Feldnr satz-nicht-da.sonst: rufe datei mit 4 Feldnr satz-nicht-da. vergleiche Vorgang mit "E" satz-vorhanden.satz-anzeigen. anzeigen in maske. 1schl}ssel-setzen. setze Hauptschl}ssel = datei:Schl}sselfelder.(1). setze datei:Schl}ssel.(1) = datei:Satz.(Hauptschl}ssel). setze Satz-gelesen.weiter-verzweigen. vergleiche Vorgang mit#"A" vorgang-eingeben#"V" vorgang-eingeben#"R" vorgang-eingeben#"L" l|schen. §-000BBOT TTTTT#T2T7 ƒ0003066 Satz eingeben / Satz schreibensatz-eingeben. {ndern in maske.hauptschl}ssel-pr}fen. wenn datei:Schl}ssel.(1) nicht = datei:Satz.(Hauptschl}ssel): springe schl}ssel-ge{ndert. wenn Vorgang = "[" : rufe datei mit 7 0 schreib-fehler. sonst : rufe datei mit 8 0 schreib-fehler. springe vorgang-eingeben. ä-001FBOT TTTTT#T2T7 ƒ0003077 L|schen / Bl{ttern / Freigebenl|schen. eingeben zeile 4 spalte 24 "Diesen Satz l|schen (j/n)? " Zch1. gro~schreibung Zch1. wenn Zch1 nicht = "J" : springe vorgang-eingeben. l|sche Satz-gelesen. rufe datei mit 9 0 l|sch-fehler. l|schen in maske. springe vorgang-eingeben.vorw{rts. wenn nicht Hauptschl}ssel: setze Letzter-schl}ssel = datei:Schl}sselfelder.(1). ò: rufe datei mit 3 Letzter-schl}ssel vorw{rts-weiter.: springe satz-anzeigen.vorw{rts-weiter. rufe datei mit 6 Letzter-schl}ssel datei-ende. springe satz-anzeigen.datei-ende. anzeigen fehler "Datei-Ende. Kein weiterer Satz". rufe datei mit 12 Letzter-schl}ssel vorgang-eingeben. springe vorgang-eingeben.r}ckw{rts. wenn nicht Letzter-schl}ssel : springe vorw{rts. rufe datei mit 12 Letzter-schl}ssel datei-anfang. springe satz-anzeigen. ¡datei-anfang. anzeigen fehler "Datei-Anfang. Kein weiterer Satz". rufe datei mit 6 Letzter-schl}ssel vorgang-eingeben. springe vorgang-eingeben. ó-0036BOT TTTTT#T2T7 ƒ00030810 Programmende / Fehlerausgabeneue-datei. rufe datei mit 2 0 ende-freigeben.modul-freigeben. freigeben. springe dateiname-eingeben.programm-ende. rufe datei mit 2 0 ende.ende-freigeben. freigeben.ende. wenn nicht Maskendatei : springe ohne-maskdat. d datei setzen Maskendatei. d datei schlie~en. setze maskendatei Ad:Masken.ohne-maskdat. r}cksprung. Èkeine-maskdat. l|sche Maskendatei. springe dateiname-eingeben.satz-nicht-da. vergleiche Vorgang mit "E" schl}ssel-setzen. anzeigen fehler "Satz nicht vorhanden". springe vorw{rts.satz-vorhanden. anzeigen fehler "Satz bereits vorhanden". springe vorgang-eingeben.schl}ssel-ge{ndert. anzeigen fehler "Hauptschl}ssel wurde ver{ndert. Ung}ltig". setze datei:Satz.(Hauptschl}ssel) = datei:Schl}ssel.(1). ­ anzeigen in maske datei:Satz.(Hauptschl}ssel). {ndern in maske datei:Satz.(Hauptschl}ssel). springe hauptschl}ssel-pr}fen.schreib-fehler. l|sche Satz-gelesen. wenn Vorgang = "E" : springe satz-vorhanden. anzeigen fehler "Fehler beim Schreiben des Satzes". springe vorgang-eingeben.l|sch-fehler. anzeigen fehler "Fehler beim L|schen des Satzes". springe vorgang-eingeben.