Directory of image this file is from
This file as a plain text file
@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