#makro
$$- Dieses Programm schreibt alle Wörter untereinander; als Wörter werden auch Syntagmen wie C' est-à-dire usw. gewertet. Eigennamen und #/+euh#/- werden ausgeklammert. Fehler, die sich aus Einklammerungen ergeben, werden korrigiert. Es schreibt die Gesamtliste und die Frequenzliste jeweils in eine eigene Text-Datei.
$$= $ { }

#da,li1'li2'li3'li4'li5'li6'li7'li8'li9'li10'li11'li12'li13'li14,fr=-

$$ LOOP file = "A39'A56"

#ko,trans*{file}t,li1,par=*,lo=+,mo=+
x         |n' est-ce pas|n'-est-ce-pas|c' est-à-dire|c'-est-à-dire|quand m%<<eme|quand-m%<<eme
*eof*

#ko,li1,li2,lo=+,mo=+,par=*
x         | |@||aujourd'hui||'|'@|
xx        |@@|@|
za        |@|
*eof*

#ko,li2,li3,lo=+,mo=+,par=*
zf+       |@>*|@%|
lnr       |@|
*eof*

#ko,li3,li4,lo=+,par=*
x         |@<>5>/|>=02 |
*eof*

#da,list*{file}list,seq-ap,fr=-


#ko,li4,list*{file}list,lo=+

#da,list*{file}list.txt,sdf-ap,fr=-


#um,li4,list*{file}list.txt,co=cp1252,lo=+

#ko,li4,li5,lo=+,par=*
x         |<>4>/ <><%|@<=01!|
*eof*

#rv,li5,li6,lo=+,par=*
ea        ;@;
ee        ;!;
ssl       20 20
xs1       |%<<||%/||%\||%;||%:||
xs2       |%/</|<=01v|%\</|<=01w|%<<</|<=01x|%;</|<=01y|%:</|<=01z|
*eof*

#so,li6,li7,17+40-s,lo=+,17+40

#ra,li7,li8,lo=+,par=*,prot=-
ssl       0
ah        1
rh        1
*eof*

#ko,li8,li9,lo=+,par=*
x         |^%<><%|%|
*eof*

#sv,li9,li10,-,+,*
ak1       +(+
ek1       #)#
ssl       5
dez       4
*eof*

#so,li10,li11,1+5-f,+

#ra,li11,li12,-,+,par=*,prot=-
ssl       5
        ref       0
*eof*

#ko,li12,li13,lo=+,par=*
lnr       |>/%|
*eof*

#ko,li13,li14,lo=+,par=*
x         |%>/|% <=01|
*eof*

#da,freq*{file}freq,seq-ap,fr=-

#ko,li14,freq*{file}freq,lo=+

#da,freq*{file}freq.txt,sdf-ap,fr=-

#um,li14,freq*{file}freq.txt,lo=+,co=cp1252

#ab,trans*{file}t'freq*{file}freq.txt'freq*{file}freq'list*{file}list'list*{file}list.txt
$$ENDLOOP

*eof