Directory of image this file is from
This file as a plain text file

BEGINN
VORHER:="JA";
RB:="NEIN";
SG:="NEIN";
ZA:="NEIN";
ZZ:="NEIN";
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;
SOLANGE NICHT ED#1
FUEHRE
       ZEILE1:=ZEILE1+1;
       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]":SEITENSCHUB:="JA"
                  ENDE
                  AUS;
             WENN ANF=1
             DANN FUEHRE
                  WENN SEG$(SPEICHER1,ANF,ANF+2)="[ER"
                  DANN FUEHRE
                       WENN END=5
                       DANN FUEHRE
                            EINRUECK:=VAL(SEG$(SPEICHER1,4,4));
                            EIN:="JA"
                            AUS;
                       WENN END=6
                       DANN FUEHRE
                            EINRUECK:=VAL(SEG$(SPEICHER1,4,5));
                            EIN:="JA"
                            AUS
                       AUS
                  AUS
          BIS END-ANF<>3;
          @ZEILENANGABE;
          @EINRUECKEN;
          @RECHTSBUENDIG;
          @SEITENGERECHT;
          Z$:=SPEICHER1;
          SCHREIB#2:Z$;
          ZEILE2:=ZEILE2+1;
          SPEICHER1:=SPEICHER2;
          SPEICHER2:=""
       BIS SPEICHER1="";
LIES#1:Z$;
SPEICHER1:=Z$
AUS
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;
@EINRUECKEN:BEGINN
WENN ER="JA"
DANN FUEHRE
     LAENGE:=LEN(SPEICHER1);
     SPEICHER1:=SEG$(SPEICHER1,END+1,LAENGE);
     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;
           WIEDERHOLE
              A:=A+1;
              SPEICHER1:=" "&SPEICHER1
           BIS A=EINRUECK
           AUS
     AUS
ENDE