BEGINN
VORHER:="JA";
RB:="NEIN";
SG:="NEIN";
SEITENSCHUB:="NEIN";
ZA:="NEIN";
ZZ:="NEIN";
SEITENZAEHLER:=0;
ZEILE1:=0;
ZEILE2:=0;
SCHREIB "WO FINDE ICH DEN TEXT ?(IN DER FORM 'DTA(0/1):';";
SCHREIB "BEI PLATTE EINFACH 'RETURN')"!;
LIES PLATZ;
SCHREIB "WELCHEN NAMEN HAT DER TEXT ?(OHNE EXTENTION!)"!;
LIES NAME;
SCHREIB "WELCHE EXTENTION HAT DER TEXT ?(IN DER FORM '.EXT')"!;
LIES EXTENTION;
OEFFNE#1:PLATZ&NAME&EXTENTION;
OEFFNEV#2:NAME&".TE";
SOLANGE VORHER="JA"
FUEHRE
   VORHER:="NEIN";
   WENN NICHT ED#1
   DANN FUEHRE
        LIES#1:Z$;
        SPEICHER1:=Z$;
        FALLS SPEICHER1 GLEICH
              "[ZZ]":@ZZA;
              "[SG]":@SGA;
              "[RB]":@RBA;
              "[ZA]":@ZAA
        ENDE
        AUS
   SONST FUEHRE
         SCHREIB "STEHT LEIDER NICHTS DRIN ,IN DEINEM PROGRAMM!";
         VORHER:="NEIN"
         AUS
AUS;
@ZIERZEILE;
@SEITE1;
SOLANGE NICHT ED#1
FUEHRE
       WIEDERHOLE
          WIEDERHOLE
             ANF:=POS(SPEICHER1,"[",1);
             END:=POS(SPEICHER1,"]",ANF);
             WENN END-ANF=3
             DANN FUEHRE
                  FALLS SEG$(SPEICHER1,ANF,END) GLEICH
                        "[SP]":@SPERRSCHRIFT;
                        "[NZ]":@NEUE ZEILE;
                        "[UZ]":@UNTERSTREICHEN;
                        "[UW]":@UNTERSTREICHEN;
                        "[NS]":@NSA
                  ENDE
                  AUS;
             WENN SEG$(SPEICHER1,ANF,ANF+2)="[ER"
             DANN FUEHRE
                  WENN END-ANF=4
                  DANN FUEHRE
                       EINRUECK:=VAL(SEG$(SPEICHER1,ANF+3,ANF+3));
                       EIN:="JA"
                       AUS;
                  WENN END-ANF=5
                  DANN FUEHRE
                       EINRUECK:=VAL(SEG$(SPEICHER1,ANF+3,ANF+4));
                       EIN:="JA"
                       AUS;
                  LAENGE:=LEN(SPEICHER1);
                  HSPEICHER:=SEG$(SPEICHER1,1,ANF-1);
                  HSPEICHER1:=SEG$(SPEICHER1,END+1,LAENGE);
                  SPEICHER1:=HSPEICHER&HSPEICHER1
                  AUS
          BIS END-ANF<3 ODER END-ANF>5;
          @ZEILENANGABE;
          @EINRUECKEN;
          @RECHTSBUENDIG;
          @SEITENGERECHT;
          Z$:=SPEICHER1;
          SCHREIB#2:Z$;
          ZEILE2:=ZEILE2+1;
          SPEICHER1:=SPEICHER2;
          SPEICHER2:=""
       BIS SPEICHER1="";
LIES#1:Z$;
ZEILE1:=ZEILE1+1;
SPEICHER1:=Z$
AUS;
@ZIERZEILE;
SCHLIESS#1;
SCHLIESS#2
ENDE;
@ZZA:BEGINN
ZZ:="JA";
VORHER:="JA"
ENDE;
@SGA:BEGINN
SG:="JA";
VORHER:="JA"
ENDE;
@RBA:BEGINN
RB:="JA";
VORHER:="JA"
ENDE;
@ZAA:BEGINN
ZA:="JA";
VORHER:="JA"
ENDE;
@NSA:BEGINN
SEITENSCHUB:="JA";
LAENGE:=LEN(SPEICHER1);
HSPEICHER:=SEG$(SPEICHER1,1,ANF-1);
HSPEICHER1:=SEG$(SPEICHER1,END+1,LAENGE);
SPEICHER1:=HSPEICHER&HSPEICHER1
ENDE;
@EINRUECKEN:BEGINN
WENN EIN="JA"
DANN FUEHRE
     LAENGE:=LEN(SPEICHER1);
     C:=LAENGE+EINRUECK-72;
     WENN C>0
     DANN FUEHRE
          SPEICHER2:=SEG$(SPEICHER1,LAENGE-C,LAENGE);
          A:=0;
          WIEDERHOLE
             A:=A+1;
             SPEICHER1:=" "&SPEICHER1;
             SPEICHER2:=" "&SPEICHER2
          BIS A=EINRUECK
          AUS
     SONST FUEHRE
           A:=0;
           SOLANGE A<>EINRUECK
           FUEHRE A:=A+1;
                  SPEICHER1:=" "&SPEICHER1
               AUS
           AUS
     AUS
ENDE;
@SPERRSCHRIFT:BEGINN
ZAEHLER:=1;
LAENGE:=LEN(SPEICHER1);
SPEICHER1:=SEG$(SPEICHER1,END+1,LAENGE);
LAENGE:=LEN(SPEICHER1);
WENN LAENGE*2>72
DANN SCHREIB "SPERRSCHRIFT IN ZEILE "ZEILE1" NICHT MOEGLICH"
SONST FUEHRE
      WIEDERHOLE
         HSPEICHER:=SEG$(SPEICHER1,1,ZAEHLER)&" ";
         SPEICHER1:=HSPEICHER&SEG$(SPEICHER1,ZAEHLER+1,LAENGE);
         ZAEHLER:=ZAEHLER+2;
         LAENGE:=LAENGE+1
      BIS ZAEHLER=LAENGE
      AUS
ENDE;
@ZIERZEILE:BEGINN
WENN ZZ="JA"
DANN FUEHRE
     HZEILE:="*******************************";
     ZZEILE1:=HZEILE&"PETER*LENZ"&HZEILE;
     HZEILE:="*****************************";
     ZZEILE2:=HZEILE&"RUEDIGER*GERTZ"&HZEILE;
     WENN ZEILE2>2
     DANN FUEHRE
          HZEILE:=ZZEILE1;
          ZZEILE1:=ZZEILE2;
          ZZEILE2:=HZEILE
          AUS;
     Z$:="";
     SCHREIB#2:Z$;
     ZEILE2:=ZEILE2+4;
     Z$:=ZZEILE1;
     SCHREIB#2:Z$;
     Z$:=ZZEILE2;
     SCHREIB#2:Z$;
     Z$:="";
     SCHREIB#2:Z$
     AUS
ENDE;
@SEITENGERECHT:BEGINN
HSPEICHER:="                                                          ";
WENN SG="JA"
DANN FUEHRE
     WENN SEITENSCHUB="JA"
     DANN FUEHRE
          ANGABE:=ZEILE2/63;
          HZEILE:="";
          SOLANGE ANGABE<>INT(ANGABE)
          FUEHRE Z$:=HZEILE;
                 SCHREIB#2:Z$;
                 ZEILE2:=ZEILE2+1;
                 ANGABE:=ZEILE2/63
          AUS;
          SEITENSCHUB:="NEIN"
     AUS;
     ANGABE:=ZEILE2/63;
     WENN ANGABE=INT(ANGABE)
     DANN FUEHRE
          SEITENZAEHLER:=SEITENZAEHLER+1;
          ZAEHLER:=0;
          WIEDERHOLE
             ZAEHLER:=ZAEHLER+1;
             WENN  ZAEHLER=5
             DANN FUEHRE
                  Z$:=HSPEICHER&"SEITE   "&SEG$(SEITENZAEHLER);
                  SCHREIB#2:Z$
                  AUS
             SONST FUEHRE
                   Z$:="";
                   SCHREIB#2:Z$
                   AUS
          BIS ZAEHLER=9
          AUS
     AUS
ENDE;
@SEITE1:BEGINN
WENN SG="JA"
DANN FUEHRE
     ZEILE2:=ZEILE2+2;
     HSPEICHER:="                                                     ";
     Z$:=HSPEICHER&"     SEITE   1";
     SCHREIB#2:Z$;
     Z$:="";
     SCHREIB#2Z$
     AUS
ENDE;
@RECHTSBUENDIG:BEGINN
LAENGE:=LEN(SPEICHER1);
WENN LAENGE>50 UND RB="JA"
DANN FUEHRE
     ZAEHLER:=1;
     SOLANGE SEG$(SPEICHER1,ZAEHLER,ZAEHLER)=" "
     MACH ZAEHLER:=ZAEHLER+1;
     ANF:=ZAEHLER;
     END:=69-LAENGE;
     WIEDERHOLE
        SOLANGE SEG$(SPEICHER1,ZAEHLER,ZAEHLER)<>" " UND ZAEHLER<LAENGE
        MACH ZAEHLER:=ZAEHLER+1;
        WENN ZAEHLER=LAENGE
        DANN ZAEHLER:=ANF
        SONST FUEHRE
              HSPEICHER:=SEG$(SPEICHER1,1,ZAEHLER&" ";
              SPEICHER1:=HSPEICHER&SEG$(SPEICHER1,ZAEHLER+1,LAENGE;
              LAENGE:=LAENGE+1;
              SOLANGE SEG$(SPEICHER1,ZAEHLER,ZAEHLER)=" "
              MACH ZAEHLER:=ZAEHLER+1;
              A:=A+1
              AUS
     BIS A=END
     AUS
ENDE