@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