expr "$Z" :Z '%<PSS%.'"$N"'%>' += "Reg.$N" && let ++n
    expr "$Z" :Z '%<PSS%.K%(%[[^][.]%{1,}]%.%)'"$N"'%>' + 'Reg.K%1'"$N" &&
    expr "$n" :: '/NT/GWS.*' &|
    expr "$n" :: '/NT/T_ONLINE' &|
    expr "$n" :: '/NT/ZDBENCH' &&
    expr "$n" :: '/NT/[A-Z0-9]%{1,%}%.[A-Z0-9]%{1,%}[+-]*$' &|
    expr "$zeile" :: '^Layer ' && continue
    proto [ expr : size ]
    expr " $W" :mail '[, ]mail=%([^, ]%{1,%}%)' ;;
    expr " $W" :name '[, ]cn=%([^,]%{1,%}%)'
    expr "${{nam}}" :$nam '%.%(%D%)$' '.0%1';;
    expr "$Hbuf" :: '^@%D' || continue
    expr "$Hbuf" :: '^@' || break 2
    expr "$Tag" =:Tag %
    expr "$Url" :: '^[#?/\]' ||
    expr "$Url" :: '^[a-zA-Z][a-zA-Z0-9]%{1,16%}:' ||
    expr "$Z" :: "$cstr" && txt="$Z"
    expr "$grp" :: "$g" || continue
    expr "$inp" :: '[0-9]' && sel="$sel$inp " inp=
    expr "$Hbuf" :: '^AT' && MOinitapp=$Hbuf
    expr "$Hbuf" :Hbuf 'AT' += ' AT'
    expr "$obj" :: '/conn$' &&
    expr "$obj" :Hbuf '/[0-9]*$' = ''
    expr "$obj" :Hbuf '[0-9]*$' = $Fali
    expr "$obj" :Hbuf '[0-9]*/[0-9]*$' = $Fali
    expr "$obj" :gid '%([0-9]*%)/[0-9]*$'
    expr "$obj" :id '%([0-9]*%)$'
    expr "$obj" :obj '^%.%./%(..*%)$'
    expr "$Hbuf" :: '^DELALL:' && {
    expr "$Hbuf" :Hbuf '[ %t]%{1,}$' = ''
    expr "$Hbuf" :Hbuf '^DEL:%(.*%)$' && {
    expr "$Such" :: '^#@D[0-9] ' || continue
    expr "$Z" :: '^.$' && { c=ende
    expr "$Z" :Size '[0-9]%{1,}  *%([0-9]%{1,}%)' ;;
    expr "$Z" :Z '^ *[0-9]%{1,}  *%([!-~]%{1,}%) *$'
    expr "$Z" =:: '^Content-Type: multipart/' && m=M
    expr "$Z" =:: '^Content-Type: multipart/' && m=M continue
    expr "$Z" =:: '^Content-Type: text/html' && m=H continue
    expr "$Z" =:: '^Content-Type: text/plain' && m=t continue
    expr "$Z" =:From '^From: %(..*%)$'
    expr "$Z" =:From '^From: %(..*%)$' && continue
    expr "$inp" :: '[^ 0-9]' ||
    expr "$z" :z '^%(.%{22} %)%D%{8}' "%1$LNK"
    while expr "$Tag" =:Url %
    b)  expr "${{v}}" :$v '^x%([0-9a-fA-F]%{1,}%)$' && goend
    expr "$Z" :: "^$Beg" || z=0 goend
    expr "$Z" :: "^$Beg%$" && [ "$z" == P ] &&
    expr "$Z" :: "^$End" && z=I
    expr "$Z" :: "^$Pv$End" &|
    expr "$a" :a '^[ %t]*""%(.*%)$' && break
    expr "$a" :a '^[ %t]*".*[^\]"%(.*%)$' && break
    expr "$a" :a '^[ %t]*''.''%(.*%)$' && break
    expr "$a" :a '^[ %t]*''\.''%(.*%)$' && break
    expr "$a" :a '^[ %t]*[0-9][0-9a-zA-Z]*%(.*%)$' && break
    expr "$a" :a '^[ %t]*[^, %t]*%(.*%)$' && break
    expr "$w" :arr1 '%(%D%{1,}%)'
    expr "$w" :arr2 ',%(%D%{1,}%))$'
    expr "$w" :siz2 '^%D:%(%D%)$' && continue
    expr "$w" :w '^%D%{1,2}%(.*%)$'
    if expr "$Z" :: "^$Pv"
    z=P expr "$Z" :: "^$Pl$LANG%$" && z=p
    expr "$ddir" :: '^[a-zA-Z]:$' || RD $ddir 2> NUL
    expr "${{v}" :$v '..$'   '.&' ;;
    expr $ddir :: '^[a-zA-Z]:$'  RD $ddir 2 NUL
    dev2)  expr "$zeile" :zeile '%(Package ''%)%([^'']%)' %
    expr " $sel " :: " $nf " && Fsel="$Fsel$nf:$nam  "
    expr "$File" :rsec '%([^/]%{1,%}%)$' &&
    expr "$Line" :: '[€-ώ %t%r%z]' &&
    expr "$Line" :: '\istep%.dir' && continue
    expr "$Line" :: 'bsh_tmpf%.[0-9]%{1,3%}' &|
    expr "$N" :N '%%s' += ' '
    expr "$Such" :: '.html%{0,1%}$' &&
    expr "$Z" :: "%<$ind%>" && V=S
    expr "$Z" :: '^%%v%%\begin{verbatim}' || goend
    expr "$Z" :: '^%%v%%\end{verbatim}' && V=v
    expr "$Z" :: '^%%v%%\end{verbatim}' && {
    expr "$Z" :: '^\begin{verbatim}' &|
    expr "$Z" :: '^\end{verbatim}' &|
    expr "$Z" :Z "^$RAfcb" = ''
    expr "$Z" :Z "^$RAfcn" = ''
    expr "$Z" :l "$l2" || continue
    expr "$Z" :n "$d3" || continue
    expr "$ZO" :ZO '^@0%{8} ' = "@$ZI " || { catv ZO /%n; continue; }
    expr "$Zeile" :: '^#@D[0-9] ' || continue
    expr "$Zeile" :Zeile '<[a-zA-Z][^<>]%{8,%}>' ''
    expr "$darst" :: '^[123]$' && {
    expr "$inp" :: '[0-9]' && sel="$sel$inp " inp=
    expr "$inp" :yt '@%(..*%)$'
    expr "$txt" :txt "$cstr"
    expr "$zeile" : '^%([^<%r]*%)' | catv "/ " 0 =:,,Des
    expr "$zeile" : '^%([^<%r]*%)' | catv "/ ^ " 0 =:,,Des
    expr "$zeile" :inp '>%([^<>]*%)</[Hh]3>%r*$'
    expr "$zeile" :inp '>[^<>]*%(</[Aa]>%r*%)$'
    expr "$zeile" :mail '^%(..*>%)[^<>]*</[Aa]>%r*$'
    expr "$zeile" :name '>%([^<>]*%)</[Aa]>%r*$'
    expr "$zeile" :name 'NICKNAME="%([^"]%{1,76%}%)"' &&
    expr $Line :: '[- %t%r%z]' 
    expr $Line :: '\istep%.dir'  continue
    expr $Line :: 'bsh_tmpf%.[0-9]%{1,3%}' 
    if expr "$Z" :: '\input{'
    [1-4])  expr "$Qtyp" :: '^[iu]$' &&
    expr "$Dir" :: '^-' && continue
    expr "$File" :File ' %*%(..*%)%*$' || continue
    expr "$Zeile" :: "^#@$a " ||
    expr "$file" :: '/' || vors=de/
    expr "$file" :: '^[^/]%{1,%}/[^/]%{1,%}$' && vors=../de/
    expr "$file" :: '^de/[^/]%{1,%}$' && vors=
    expr "$file" :: '^de/[^/]%{1,%}/[^/]%{1,%}$' && vors=../
    expr "$inp" :: '[ %t]' && echo Zu blank && continue
    expr "$ipw" :: '^...' || XmsgExit "iPassword wrong: »$ipw«"
    expr "$pw" :: '^...' || XmsgExit "Password wrong"
    expr "$r" :r '%([a-z]%)%(.*%.[^.]%{1,%}%)$' '%U%1%E%2'
    expr "$r" :r '[a-z]' '%U&'
    expr "$r" :r '^[a-z]' '%U&'
    expr "$telnu" :station '^%(.*[^ ]%) %{1,}[^ ]%{1,}$' || station=Station
    expr "$telnu" :telnu '%([^ ]%{1,}%)$' || telnu=0000000
    expr "$w" :: '^%D$' && { siz=$w ; continue; }
    expr "$w" :: '^(%D%{1,2},%D%{1,2})$' && {
    expr "$w" :: '^+$' && continue
    expr "$w" :: '^[-.].' && Err "$w"
    expr "$w" :: '^[-.a-zA-Z_]%W*$' || Err "$w"
    expr "$w" :: '^[0-9][0-9a-fA-F]*$' && {
    expr "$w" :arr '^%(%D%{1,2}%)' &&
    expr "$w" :arr1 '^(%(%D%{1,2}%))$' && continue
    expr "$w" :siz '^%(%D%):%D$' &&
    expr "$zeile" :: 'cgi/icnt.pl?' ||
    expr "$zeile" :zeile %
    expr "$zeile" :zeile 'P%*%([^*]%{1,%}%)%*P'
    expr "$zeile" =:: %
    expr "$zeile" =:: '^[ %t]*<body ' || continue
    expr "$zeile" =:zeile %
    expr $inp :: '^[a-zA-Z]:' ||
    expr relop expr
    let z==0 && expr "$zeile" =:: '<table ..*130..*35' &&
    let z==1 && expr "$zeile" =:: '</table>' &&
    0)  expr "$Z" :Le "^$Pl"'%(..*%)$' && z=1
    1)  expr "$Z" :: "^$Pv$Beg" &|
    C)  expr "$Z" :: "^$Pl$LANG%$" && continue 2
    D)  expr "$Z" :: "^$Pl$LANG%$" && z=d ;;
    I)  if expr "$Z" :: "$Inp"
    d)  expr "$Z" :: "$Inp" && z=D continue 2
    expr " $* " :: "[ %t]${s}[ %t]" && r=0 catv id /%n
    expr " $W" :mail '[, ]mail=%([^, ]%{1,%}%)'
    expr " $W" :name '[, ]cn=%([^,]%{1,%}%)'
    expr "$3" :: "$t" && r=0 catv id /%n
    expr "$5" :: "$t" && let "$a" && r=0 catv id /%n
    expr "$Hbuf" :: '[ %t][0-9W,PT]%{1,}$' || continue
    expr "$Hbuf" :: '^[^ %t]' || continue
    expr "$Hbuf" :Hbuf '[ %t]%{1,}$' = ''
    expr "$Hbuf" :Hbuf '[ %t]%{1,}%([0-9W,PT]%{1,}%)$'  ' %1'
    expr "$Hbuf" :Hbuf '^[ %t]%{1,}' = ''
    expr "$a" :: "[sShHrR][ %t][ %t]*[^ %t][^ %t]*"'$'
    expr "$path" :: '[!-~]' || continue
    expr "$path" :ddir '^%(.*%)\[^\][^\]*$' || {
    expr "$s" :: '[^0-9]' && continue
    expr "$zeile" / '^ %{7,%}'                   &|
    expr "$zeile" :: '^ %{7,%}'                  &|
    expr $path :: '[!-~]'  continue
    expr $path :ddir '^%(.*%)\[^\][^\]*$'  {
    >< ; expr "$1" :: '!' && cat $Plist > "$File"
    do  expr "$Line" :Line '^[a-zA-Z]:%(..*%)$' 
    do  expr $Line :Line '^[a-zA-Z]:%(..*%)$' 
    expr "$1" :: '^[0-9]%{1,3%}$' && {
    expr "$2" :: '^[TP]' || wr="$wr$TPwahl"
    expr "$Dir" :Dir '%*%(..*%)%*$' || continue
    expr "$Dir" :Dir '/$' '' && lsec="/$lsec"
    expr "$Dir" :Dir '^%(.*/%)[^/]%{1,%}$' || Dir=
    expr "$Dir" :lsec '%([^/]%{1,%}%)$' || continue
    expr "$File" :File '/$' '' && rsec="/$rsec"
    expr "$File" :File '^%(.*/%)[^/]%{1,%}$' || File=
    expr "$File" =:: "[^/]%.$e%$" || continue
    expr "$Gsel" :: $g || continue
    expr "$Hbuf" :: "$boundary" && break
    expr "$Hbuf" :Hbuf '[ %t%r%n]%{1,}$' = ''
    expr "$Hbuf" :Hbuf '[%r%n]%{1,}' += "$RN"
    expr "$Line" :: '[a-zA-Z]%{3,%}' && break
    expr "$Line" :zdir '^%(.*%)\[^\][^\]*$' || {
    expr "$Paare" :Paare " $c." += ''
    expr "$Url" :Url '%([a-z]%)%(.*%.[^.]%{1,%}%)$' '%U%1%E%2'
    expr "$Url" :Url '[a-z]' '%U&'
    expr "$Z" :: "$1" && z=0 let ++N ;;
    expr "$Z" :: "$boundary--" && break
    expr "$Z" :: "$kz@-$ch@$kz" && {
    expr "$Z" :: "%<$N%>" || continue
    expr "$Z" :: '\begin{verbatim}' || goend
    expr "$Z" :: '\end{verbatim}' && V=v
    expr "$Z" :: '^@:.' || { seek $sk 0; break; }
    expr "$Z" :: '^\index{[^}]%{1,}}' && continue
    expr "$Z" :CText "^$RAfcb" && {
    expr "$Z" :CText "^$RAfcn" && {
    expr "$Z" :Z "^$RApre" = ''
    expr "$Z" :Z '  0$' = "  $T" || print -u2 "%t!subst: $Z"
    expr "$Z" :Z ' %D%{6} ' = " $adr " ||
    expr "$Z" :Z ' ' = '!'
    expr "$Z" :Z ' 000 ' = " $pbn " && let ++n
    expr "$Z" :Z '\index{[^}]%{1,}}' += ''
    expr "$Z" :c '^\include{%([^}]%{1,}%)}' || continue
    expr "$Z" :ch '%(..%)@+%('"$4"'_[a-z0-9]%{2}%)@%1' || continue
    expr "$Z" :nam 'name="%([^"]%{1,%}%)"' || return 2
    expr "$ZI" :ZI '^D%D%D%(%D%{8}%)' || print -u2 "»$ZI«"
    expr "$Zeile" :: '^#@D[0-9] ' || continue
    expr "$Zeile" :Zeile %
    expr "$Zeile" :Zeile ' [0-9]%{1,%}%( *%*%)' " $lsec%1"
    expr "$Zeile" =:Zeile %
    expr "$a" :bis '%([0-9]%{1,}%)$'
    expr "$a" :von '^%([0-9]%{1,}%)' &&
    expr "$alinam" :: '^[SNC]%.[a-z]%{3%}$' || {
    expr "$an" :an '^[ %t]*%(.*[^ %t]%)[ %t]*$' &&
    expr "$ats" :ats '^[0-9]%{1,}' = ''
    expr "$ats" :sec '^%([0-9]%{1,}%)' || sec=1
    expr "$buf"  :: '^%[[A-Za-z]' && zv=' ' break
    expr "$buf" =:: '^[ %t]*'"$nam"'[ %t]*=' && break
    expr "$c" :c '%([^/}]%{1,}%)$'
    expr "$fdep" :fdep "$dep" = ''
    expr "$flags" :: '#' && goend
    expr "$grp" :: $g || continue
    expr "$grp" :: '-' && grp=-
    expr "$grp" :: '[0-9]=[-0-9]' || continue
    expr "$grp" :: '[^-0-9]' && continue
    expr "$hbuf" :hbuf '%r%n' += "\r\n"
    expr "$inp" :: '[^ 0-9]' ||
    expr "$inp" :inp '%([0-9]%{1,%}%)'
    expr "$max" :max '^0x%([0-9a-fA-F]%{1,}%)'
    expr "$min" :min '^0x%([0-9a-fA-F]%{1,}%)'
    expr "$n" :: '-' || { let 'n==nm' && continue 2; continue; }
    expr "$n" :n '-' = ' to ' || continue
    expr "$name" :idname ']%..%{1,}$' = ']'
    expr "$name" :idname '^%(.*[^.]%)%.[^.]%{1,}$'
    expr "$oz" :oz '^%(.*%) [^ ]*$'
    expr "$pzeile" : ' %(-%{0,1%}[0-9]%{1,4%}%%%)'
    expr "$rz" :oz '^.%(.*%)$'
    expr "$von$bis" :: '[^0-9]' && continue
    expr "$x" :: "$znck" && lx=0 znum=$x
    expr "$x" :: "^$emck%$" || {
    expr "$x" :: "^$urlck%$" || { Err "URL1" -$y+; continue; }
    expr "$x" :: "^$urlck%$" || { Err "URL2" -$y+; continue; }
    expr "$x" :: "^$urlck%$" || { Err "URL3" -$y+; continue; }
    expr "$x" :: '[0-9]' || bem="Keine Hausnummer?"
    expr "$x" :: '[^0-9]' || let x+=0
    expr "$x" :: '^[a-zA-Z.-]%{2,%}' || {
    expr "$x" :: '^[a-zA-Z]%{1,%}' || {
    expr "$x" :land_ '^%(.*[^0-9]%)[0-9]' || land_=
    expr "$x" :plz_ '%([0-9]%{3,%}%)$' || lx=1
    expr "$x" :x '   *' += ' '
    expr "$x" :x '  *$' = ''
    expr "$x" :x '^  *' = ''
    expr "$x" :zbis '[0-9]-%([0-9][0-9]*%)'
    expr "$x" :zvon '^%([0-9][0-9]*%)'
    expr "$z" :: '^%$' && { catv z /%n; break; }
    expr "$z" :: '^:..' && {
    expr "$z" :lnk ' %(%D%{8}%) '
    expr "$z" :z '^%(.%{18} %)%D%D%D ' "%1$grp " ||
    expr "$z" :z '^%([@x]%)%D%{8} ' "%1$id " && {
    expr "$zeile" : '<[Dd][Dd]>%([^<%r]*%)' | catv =:,,Des
    expr "$zeile" :: '^ *</[Dd][Ll]><[Pp]>' &&
    expr "$zeile" :: '^ *<[Dd][Ll]><[Pp]>' &&
    expr "$zeile" :: '^ *<[Dd][Tt]><[Aa]' && {
    expr "$zeile" :: '^#@D[0-9] ' || continue
    expr "$zeile" :W ': %(.*%)$'
    expr "$zeile" :W '^ %(.*%)$' || W=''
    expr "$zeile" :h3nam '>%([^<>]*%)</[Hh]3>%r*$'
    expr "$zeile" :mail '"mailto:%([^:"]*%)"'
    expr "$zeile" :mail '=%([^=%r%n]*%)$' || continue
    expr "$zeile" :mail '^%([^()]%{3,%}[^() ]%)  *('
    expr "$zeile" :name '>%([^<>]*%)</[Aa]>%r*$'
    expr "$zeile" :name '^%([^<>]%{1,%}[^<> ]%)  *<'
    expr "$zeile" :s '^%([a-zA-Z0-9-]%{1,%}%):%{1,2%}'
    expr "$zvon$zbis" :: '[^0-9]' &&
    expr "-$1" :: "$g" || continue
    expr $Line :: '[a-zA-Z]%{3,%}'  break
    expr $Line :zdir '^%(.*%)\[^\][^\]*$'  {
    expr $alinam :: '^[SNC]%.[a-z]%{3%}$'  {
    ifdef UNIX && expr $datei : '/$' > $NUL && continue
    let chl && expr "$Zeile" :Zeile '<%*>%*<>?"' += '"'
    while expr "$Zeile" :Tag '%(<[a-zA-Z][^<>]%{8,%}>%)'
    .1)  expr "${{v}" :$v '.$'   '.&' ;;
    TOP% [0-9]*)  c=topn m=- expr "$Z" :n '%([0-9]%{1,}%)'
    expr "$D" :D "'" += "''"
    expr "$E" :E "'" += "''"
    expr "$Hbuf" :: '^[0-9]%{1,}$' &&
    expr "$Hbuf" :: '^®[^®]%{3,}®$' && { conv -d® Hbuf; goend; }
    expr "$Hbuf" :mudati ' %([0-9.]%{8,}  *[0-9:]%{8,}%)' && a=.
    expr "$Hbuf" :muokfa 'State: *%(%W%{2,}%)' && c=.
    expr "$Hbuf" :mustat 'Station: *"%([^"]%{1,}%)"' && b=.
    expr "$R" :R "'" += "''"
    expr "$Z" :D "$RA"'de %{1,3}"%([^"]%{1,}%)"' || Err de
    expr "$Z" :E "$RA"'en %{1,3}"%([^"]%{1,}%)"' || continue
    expr "$Z" :R "$RA"'ru %{1,3}"%([^"]%{1,}%)"' || Err ru
    expr "$Zeile" :: "^#@$a $b" || continue
    expr "$file" :: '^..$' &| expr "$file" :: '^..[^\]' &&
    expr "$file" :: '^..[^\]' &&
    expr "$inp" :: '[^0-9]' && continue
    expr "$o" :: 'd' || { inp="$rest$inp"; break; }
    expr "$o" :: 'l' && conv -l r
    expr "$o" :: 'u' && expr "$o" :: '[x1]' || conv -u r
    expr "$o" :: 'u1' && expr "$o" :: 'x' ||
    expr "$o" :: 'xu1' && expr "$r" :: '[^.]%.[^.]%{1,%}$' &&
    expr "$o" :: 'xu1' && expr "$r" :: '[^.]%.[^.]%{1,%}$' ||
    expr "$pw" :: '^%t%t%t' || {
    expr "$rest" :rest '/$' '' && r="/$r"
    expr "$rest" :rest '^%(.*/%)[^/]%{1,%}$' || rest=
    expr "${{nam}}" :$nam ' ' += '\, '
    expr "${{nam}}" :$nam '%([ &$#{}_%]%)' + '\%1'
    expr "${{nam}}" :$nam '0X%([0-9A-F]%{1,}%)' && $nam="${{nam}}\Sub{H}"
    expr "${{nam}}" :$nam '[\ ]%{1,}$' = '\textvisiblespace{}'
    expr "${{nam}}" :$nam '^-%([^-]%)' '--%1'
    expr "${{nam}}" :$nam '°C' += '\textcelsius{}'
    expr "${{nam}}" :$nam '±' += '\textpm{}'
    expr $file :: '^..$'  expr $file :: '^..[^\]' 
    expr $file :: '^..[^\]' 
    expr '' x: ''  '${*top*3}'
    expr 'abcdecfhc' x:   'c'    +=   '++'
    expr DATEIx3 xv:: '^(.+)\1\1$'
    expr abcdecfhc x: 'c'  '$IxYYG,hg,lKJ,jHHJ'
    expr abcdecfhc x: 'c' + '${*${*top*10}$n*2}'
    expr abcdecfhc x: 'c(fh)'  '+C$1.$1-'
    expr abcdecfhc x:ABC 'c' + '${*${*top*10}$n*1000000}'
    list)  expr "$Z" :: '^ *[0-9]%{1,}  *[0-9]%{1,} *$' &&
    list)  expr "$Z" :n '^ *%([0-9]%{1,}%)  *[0-9]%{1,} *$' ||
    objectclass)  expr "$W" :: 'group[Oo]f[Nn]ames' && gon=1 ;;
    stat)  expr "$Z" :Nmax '%([0-9]%{1,}%)  *[0-9]%{1,}'
    stat)  expr "$Z" :Stat '%([0-9]%{1,}  *[0-9]%{1,}%)' ;;
    topn)  expr "$Z" =:Subj '^Subject: %(.*%)$'
    topn)  expr "$Z" =:Subj '^Subject: %(.*%)$' && continue
    uidl)  expr "$Z" :: '^ *[0-9]%{1,}  *[!-~]%{1,} *$' &&
    uidl)  expr "$Z" :n '^ *%([0-9]%{1,}%)  *[!-~]%{1,} *$' ||
    MOinit)  expr "$Hbuf" :Hbuf '[^!-~]%{1,}' += ' '
    T[1-9])  expr "$Hbuf" :Hbuf '[^0-9]' += ''
    [ "$1" == h ] && expr "$lz" :lz "[$2]" += ''
    [ "$1" == h ] && expr "$lz" :lz "[$3]" += ''
    b="`- expr "$a" : '^[1-9][0-9]*:%(..*%)$'`"
    b="`- expr "$a" : '^[1-9][0-9]*:%(..*/[Ee]:%)[1-9]'`"
    c="`- expr "$a" : '^[1-9][0-9]*:..*/[Ee]:[1-9][0-9]*%(.*%)$'`"
    expr "$HTTP_REFERER" =:: 'b-sh%.de/' &|
    expr "$HTTP_REFERER" =:: 'localhost/' || err=1
    expr "$HTTP_REFERER" =:: 'schellong%.biz/' &|
    expr "$HTTP_REFERER" =:: 'schellong%.de/' &|
    expr "$Hbuf" :Hbuf '%([0-9]%{1,} %)[^%n]*%n' + '%1'
    expr "$Z" :OFILE "$Vim"'@+%(%W%{4,}%)@'"$Vim" && break
    expr "${{2}" :$2 '..$'   '.&' ;;
    t=2 expr "$a" :Arg$i '^[ %t]*%(""%)' &&
    t=3 expr "$a" :Arg$i '^[ %t]*%(''.''%)' &&
    t=4 expr "$a" :Arg$i '^[ %t]*%(''\.''%)' &&
    t=5 expr "$a" :Arg$i '^[ %t]*%([0-9][0-9a-zA-Z]*%)' &&
    t=6 expr "$a" :Arg$i '^[ %t]*%([^, %t]*%)' &&
    [ "$bf" != . ] && expr "$BitF" :: "%<$bf%>" && { BitFc='' ; return 1; }
    [ "$e" != ')*(' ] && expr "$o" :: 'a' || continue
    [ "x$sc" != 'x<' ] && expr "$an" :an '%([^<> %t]%{1,%}%)' &&
    [ $6 == m ] && expr "${{2}" :$2 ' %{1,}$' = ''
    elif expr "$oz" :rw ' %([^ ]*%)$'
    expr " $Z " :W ' %([a-zA-ZäöüßÄÖÜ][a-zA-Z0-9äöüßÄÖÜ]%{1,}%)[ ,.!:]' || brea
    expr " $Z " :Z ' [a-zA-ZäöüßÄÖÜ][a-zA-Z0-9äöüßÄÖÜ]%{1,}[ ,.!:]' = ''
    expr " $pids " :: " $ppid " || continue
    expr "$Arg" :: '-[^0-9]' && continue
    expr "$Arg" :: '[^0-9 -]' && continue
    expr "$Arg" :: '[^0-9]-' && continue
    expr "$Arg" :: '^[0-9]%{1,2}$' && { Hosts $Arg; Arg="$Host"; }
    expr "$Arg" :: '^[jJyY]$' || continue
    expr "$Arg" :: '^[jJyY]$' || return 0
    expr "$CText" :CText '^ %{1,}' = ''
    expr "$CText" :CText '^[^ ]%{1,}' = ''
    expr "$Dir" :Dir '^%.%{0,1%}/' ''
    expr "$F" =:: "$VF" && continue
    expr "$F" =:: "^$VF%$" && continue
    expr "$File" :Dir '^%(.*/%)[^/]%{1,%}$' || continue
    expr "$File" :File '%([a-z]%)%(.*%.[^.]%{1,%}%)$' '%U%1%E%2'
    expr "$File" :File '[a-z]' '%U&'
    expr "$File" :File '^[a-z]' '%U&'
    expr "$File" :Url '/%([^/]%{1,%}%)$' || continue
    expr "$File" :rsec '%([^/]%{1,%}%)$' &&
    expr "$Gsel" :: '[0-9]' || return
    expr "$HTTP_REFERER" =:: %
    expr "$HTTP_REFERER" =:: 'schellong%.com/' &|
    expr "$Hbuf" :: '^@%D%{3} %{1,}L %{1,}2 ' || continue
    expr "$Hbuf" :: '^@' || break
    expr "$Hbuf" :Hbuf '%([^ %t]%{1,}%)$' || continue
    expr "$Hbuf" :Hbuf '&' += ' '
    expr "$Hbuf" :boundary '%(-%{2,}[^-]%{1,}%)"%{0,1}$' && break
    expr "$Hbuf" :dati 's%t-%t%A%{2,},`*%([0-9.]%{8,}``*[0-9:]%{8,}%)' && b=
    expr "$Line" :: "^%[$3]" && break
    expr "$Line" :: '[!-~]' || continue
    expr "$Line" :: '[^0-9]' ||
    expr "$Line" :: '[€-ώ %t%r%z]' &&
    expr "$Line" :: '^%[[a-zA-Z]%{1,%}]' && break
    expr "$Line" :: '^[ %t]*;' && continue
    expr "$Line" :: '^[0-9a-z]%{2,3%}$' && {
    expr "$Line" :Line '[Hh][Rr][Ee][Ff]="%([^"]%{1,%}%)"'
    expr "$Line" :Line '[Hh][Rr][Ee][Ff]="[^:]*:%([^"]%{1,%}%)"'
    expr "$Line" :Line '[Ss][Rr][Cc]="%([^"]%{1,%}%)"'
    expr "$Oflags" :: '%<'"$qual"'%>' || continue
    expr "$QUERY_STRING" :Adir '&anl=%([^&=]*%)$' || Adir=AX
    expr "$QUERY_STRING" :Gdir '&group=%([^&=]*%)' || Gdir=GX
    expr "$QUERY_STRING" :Gdir '^req=callsys&%(..*%)$' || Gdir=
    expr "$QUERY_STRING" :Gdir 'req=ctlfset&' = 'req=ctl&' || Gdir=GX
    expr "$QUERY_STRING" :Gdir 'req=infofset&' = 'req=info&' || Gdir=GX
    expr "$QUERY_STRING" :Hbuf '^[^=]%{1,}=%(..*%)$' || Hbuf=SGX
    expr "$QUERY_STRING" :Hbuf '^req=admact&%(..*%)$'
    expr "$QUERY_STRING" :Hbuf '^req=ctlact&%(..*%)$'
    expr "$Url" :: '[*[\%]' && {
    expr "$Url" :Url '^[a-z]' '%U&'
    expr "$W" :: '^T_[0-9a-z_]%{2,}$' || continue
    expr "$W" :: '^T_e_' && continue
    expr "$Z" :: " $RA_D"'[a-z][a-z]  0$' && {
    expr "$Z" :: "$KZ@-$OFILE@$KZ" && break
    expr "$Z" :: "$KZ@-$OFILE@$KZ" &|
    expr "$Z" :: "$Vim@-$OFILE@$Vim" && break
    expr "$Z" :: "$boundary" && {
    expr "$Z" :: '-%{60,%}' && let "++bar>=3" && break
    expr "$Z" :: '[a-zA-Z0-9.-]%{4,}' || continue
    expr "$Z" :: '[a-zA-Z0-9_.-]%{4,}' || continue
    expr "$Z" :: '\begin{verbatim}' || goend
    expr "$Z" :: '\end{verbatim}' && V=v
    expr "$Z" :: '^%[11;[234][0-9]H[0-9. ]%{1,}' || continue
    expr "$Z" :: '^.'"$id " && {
    expr "$Z" :: '^@:.' || { seek $sk 0; break; }
    expr "$Z" :D ' %('"$RA_D$LL"'%)  "[^"]*"$' || { catv Z /%n; continue; }
    expr "$Z" :HexC "^$RAfcc" && {
    expr "$Z" :Host '%([^ %t]%{4,}%)' || break
    expr "$Z" :IP '^addr: %([0-9.]%{7,15}%)' && break
    expr "$Z" :Pass '[ %t]"%(.%{1,}%)"[ %t]*$'
    expr "$Z" :T " ${RA_D}en"'  %("[^"]*"%)$' && {
    expr "$Z" :Tb '%[]= %(".%{1,}%);$' || echo $i:$Ta
    expr "$Z" :Text "^$RApre" && {
    expr "$Z" :User '[^ %t]%{4,}[ %t]%{1,}%([^ %t]%{1,}%)' || break
    expr "$Z" :Z "%<$old%>" + "$new"
    expr "$Z" :Z "^$RAbgc" = ''
    expr "$Z" :Z "^$RAfcc" = ''
    expr "$Z" :Z "^$RAfcc" = ''; a=f
    expr "$Z" :Z "^$RAlez" = ''
    expr "$Z" :Z "^$RAtxt" = ''
    expr "$Z" :Z '"[^"]*"$' = "$T" || print -u2 "%t!subst: $D"
    expr "$Z" :Z '%<%W%{3,}(' = ''
    expr "$Z" :Z 'Batt%.%(%W%{1,}%)%(%[[^]]%{1,}]%)' + 'Batt.B%2.%1' && m=1
    expr "$Z" :Z 'Batt%.i1%[' += 'Batt.i[' && m=1
    expr "$Z" :Z 'LANGX_%U%U' = "LANGX_$LL"
    expr "$Z" :Z 'LANGi_%U%U.*$' = "LANGi_$LLs  '$C'"
    expr "$Z" :Z '^ *# *define  *D%D%{10}%W%{3,7}%(.*%)$' || continue
    expr "$Z" :Z '^%D%{1,} ' = ''
    expr "$Z" :Z '^%W%{1,} ' = ''
    expr "$Z" :Z '^[0-9.]%{1,} ' = ''
    expr "$Z" :Z '^[^"]%{1,} %(".*%)"[ %t]*$' && len=${#Z}
    expr "$Z" :col '^....%(..%)H' || continue
    expr "$Z" :dfstr ' S%D%{10}..= *"%([^"]*%)";' && { s=1 continue; }
    expr "$Z" :dfstr ' S%D%{10}..= *%(%W%W*%);'   && { s=2 continue; }
    expr "$Z" :einh  ' E%D%{10}..= *"%([^"]*%)";' && { e=1 continue; }
    expr "$Z" :email 'E%*%([^*][^*]*%)%*E'
    expr "$Z" :id '%(%D%{8,}%)'
    expr "$Z" :id '^%([0-9.]%{1,}%) '
    expr "$Z" :id '_id  %(%D%{4}%)$'
    expr "$Z" :info  ' I%D%{10}..= *"%([^"]*%)";' && { i=1 continue; }
    expr "$Z" :ip 'H%([0-9. ]%{1,}%)'
    expr "$Z" :land_ 'L%*%([^*]*%)%*L'
    expr "$Z" :mu '^%(%W%{1,}%) '
    expr "$Z" :n '%([0-9]%{1,}%)' || { catv Z /%n; continue; }
    expr "$Z" :name 'N%*%([^*][^*]*%)%*N'
    expr "$Z" :ort 'O%*%([^*][^*]*%)%*O'
    expr "$Z" :pbn '^%(%D%{1,}%) '
    expr "$Z" :plz_ 'P%*%([^*][^*]*%)%*P'
    expr "$Z" :qual '^%(%W%{1,}%) '
    expr "$Z" :strasse 'S%*%([^*][^*]*%)%*S'
    expr "$Z" :val "^$f*%%($d%%)$t%%($d%%).*%$" '%1 %2' ||
    expr "$Z" :val "^$f*%%($d%%)-%%($d%%)$t%%($d%%).*%$" %
    expr "$Z" :ztyp '^ *# *define  *D%D%{10}%(%W%{3,7}%) ' || continue
    expr "$Z" =:: '^LIST$' && c=list
    expr "$Z" =:: '^QUIT$' && c=quit
    expr "$Z" =:: '^STAT$' && c=stat
    expr "$Z" =:: '^UIDL$' && c=uidl
    expr "$Z" =:n '^TOP %([0-9]%{1,}%)' && c=topn m=-
    expr "$Z2" :T '%("[^"]%{1,}"%)$' || { catv Z /%n; continue; }
    expr "$Z2" :c2 '"\...%(.%)' || continue
    expr "$Z2" :n2 '/*%(..%)*/' || continue
    expr "$ZR" :S5 ' %("[^"]%{16%}"%)'
    expr "$ZR" :ZR ' "[^"]%{16%}"' = ' '
    expr "$ZS" :: ' "[^"]%{16%}",' || continue
    expr "$ZS" :: '^ *//' && continue
    expr "$ZS" :: '^ *}; *$' && break
    expr "$ZS" :S1 ' %("[^"]%{16%}"%)'
    expr "$ZS" :S2 ' %("[^"]%{16%}"%)'
    expr "$ZS" :S3 ' %("[^"]%{16%}"%)'
    expr "$ZS" :S4 ' %("[^"]%{16%}"%)'
    expr "$ZS" :Tnam ' %(T_%W%{1,}%) *= *{' || continue
    expr "$ZS" :ZS ' "[^"]%{16%}"' = ' '
    expr "$Zeile" :: "^#@D$g " || continue
    expr "$Zeile" :: '%*/[ %t]*$' && continue
    expr "$Zeile" :: '[^a-zA-Z_0-9]'"$funam"'([^;]%{1,%});' || break
    expr "$Zeile" :: '^[ %t]*/[*/]' && break
    expr "$Zeile" :Dir '^%(.%{1,%}%):$' || isz=1 || continue
    expr "$Zeile" :File %
    expr "$Zeile" :File ' %*%([^*][^*]*%)%*' || continue
    expr "$Zeile" :File '%([^/]%{1,%}%)$' || continue
    expr "$Zeile" :Zeile ' [0-9]%{1,10%} ' = " $File "
    expr "$Zeile" :Zeile '%*%(..*%)%*$' || continue
    expr "$Zeile" :Zeile '%t' + ' '
    expr "$Zeile" :Zeile '<%*>%*<>?"' += '"'
    expr "$Zeile" :Zeile '?%(..*%)/$' || continue
    expr "$Zeile" :Zeile '^ *%(..*%)$'
    expr "$Zeile" :Zeile '^%(.*[ %t*][a-zA-Z_][a-zA-Z_0-9]*(.*)%)[ %t]*/[*/].*$
    expr "$Zeile" :Zeile '^%(..*)%) *$'
    expr "$Zeile" :Zeile '^.*[^a-zA-Z_0-9]%('"$funam"'(.*%)$'  '%1'
    expr "$Zeile" :liste "^$funam("'%(..*%)$'
    expr "$Zeile" :lsec ' %([0-9]%{1,%}%) *%*' && {
    expr "$Zeile" :nam ' %([^ %t]%{1,%}%)$' || { print -r "$Zeile"; continue; }
    expr "$Zeile" :size ' %([0-9]%{1,10%}%) %*[^*]%{1,%}%*' || {
    expr "$Zeile" :vorne '^%(.*[^a-zA-Z_0-9]%)'"$funam(" || break
    expr "$Zq" :: '_%D%D%D_no  "' && f=1 break
    expr "$a" :: '^[0-9]%{1,}%.[0-9]%{1,}$' && t="${t}sz" &&
    expr "$a" :: '^[tHM-]%{1,4}$' && t="${t}mt"
    expr "$a" :bis '^%.%([0-9]%{1,}%)$' && t="${t}sz" von=0
    expr "$a" :von '^%([0-9]%{1,}%)%.$' && t="${t}sz" bis=100000000
    expr "$buf"  :$inh '=[ %t]*%(..*%)[ %t]*$' && zv=0
    expr "$buf"  :: '^%[[A-Za-z]' && continue 2
    expr "$buf" :: "^$gid $aid " || { catv buf /%n; continue; }
    expr "$buf" :: "^$nam=" || { catv buf /%n; continue; }
    expr "$buf" :: '[&<>"|„”αŽ™š.·]' ||
    expr "$buf" =:: '^%['"$rub"']' && continue
    expr "$buf" =:: '^%['"$rub"']' || continue
    expr "$buf" =:: '^[ %t]*'"$nam"'[ %t]*=' || continue
    expr "$cmd" :: '^[0-9][0-9]*$' || continue
    expr "$cmd" :: '^[a-zA-Z_0-9]%{2,15}$' || continue
    expr "$cmd" :cmd '%([^ ]%{1,}%) :[0-9]' || continue
    expr "$cmd" :dpy '/[^ ]%{1,} %(:[0-9]%)' || continue
    expr "$darst" :darst '%.%([0-9]%)'
    expr "$f" :: 'A' && { Enum=$n; Flags="$f"; Titel="$Line"; }
    expr "$f" :: '[^Avn]' &| expr "$f" :: '.A' &|
    expr "$f" :: 'n.' &| let "${#f}>3||${#Line}>48" &&
    expr "$f" :f '^A%(.*%)$' && [ "$f0" == n ] && f=A${f}n
    expr "$f0" :: 'D' && let "n>n0" && continue
    expr "$f0" :: '[AD]' && let "n==n0" && f=A$f
    expr "$file" :dir '^%([^*?]*\%)[^\]%{1,%}$' ||
    expr "$flags" :: '#' && goend
    expr "$flags" :: '&' && ptr=
    expr "$flags" :: '1%.' && let "flg|=1<<7"
    expr "$flags" :: ':'   && let "flg|=1<<14"
    expr "$flags" :: 'A'   && let "flg|=1<<22"
    expr "$flags" :: 'B'   && let "flg|=1<<8"
    expr "$flags" :: 'B[AS][0-9]' && let "flg|=256"
    expr "$flags" :: 'D'   && let "flg|=1<<16"
    expr "$flags" :: 'E'   && let "flg|=1<<21"
    expr "$flags" :: 'F'   && let "flg|=1<<18"
    expr "$flags" :: 'I' && let "flg|=1<<13"
    expr "$flags" :: 'K'   && let "flg|=1<<5"
    expr "$flags" :: 'K[AS][0-9]' && let "flg|=32"
    expr "$flags" :: 'N'   && let "flg|=1<<19"
    expr "$flags" :: 'S'   && let "flg|=1<<23"
    expr "$flags" :: 'Z'   && let "flg|=1<<24"
    expr "$flags" :: '[sz]' && let autopad && pad=0
    expr "$flags" :: '[sz]' && pad=0
    expr "$flags" :: 'a' && let "flg|=1<<30"
    expr "$flags" :: 'b' && let "flg|=2"
    expr "$flags" :: 'c' && let "flg|=1<<14"
    expr "$flags" :: 'd' && let "flg|=1<<15"
    expr "$flags" :: 'h' && let "flg|=1<<20"
    expr "$flags" :: 'l' && let "flg|=1<<11"
    expr "$flags" :: 'm'   && let "flg|=1<<17"
    expr "$flags" :: 'n' && let "flg|=4"
    expr "$flags" :: 'q'   && let "flg|=1<<6"
    expr "$flags" :: 'r' && let "flg|=1"
    expr "$flags" :: 's'   && let "flg|=1<<3"
    expr "$flags" :: 't1' && let "flg|=1<<12"
    expr "$flags" :: 't2' && let "flg|=1<<10"
    expr "$flags" :: 'u1' && let "flg|=1<<16"
    expr "$flags" :: 'u2' && let "flg|=1<<17"
    expr "$flags" :: 'u3' && let "flg|=1<<18"
    expr "$flags" :: 'u4' && let "flg|=1<<19"
    expr "$flags" :: 'v' && ds=v name=0
    expr "$flags" :: 'z' && let "flg|=32"
    expr "$flags" :ele 'A%(%D%{1,}%)'
    expr "$flags" :info2 '=%([1-9][0-9]%{0,2}%)'
    expr "$flags" :nelem 'A%([0-9]%{1,}%)' && {
    expr "$flags" :pad 'p%(%D%{1,}%)'
    expr "$flags" :parbn '=%([1-9][0-9]%{0,2}%)'
    expr "$flags" :txtgrp 'G%(%D%{1,3}%)'
    expr "$flags" :txtnum 'T%(%D%{1,3}%)'
    expr "$grp" :: '[^0-9]' && return
    expr "$host" =:host 'Name: *%([^ %t%r%n]%{1,%}%)' ||
    expr "$html3" :html3 "~$x~" += "$y"
    expr "$htmlF2" :htmlF2 "~$x~" += "$y"
    expr "$htmlRO" :htmlRO "~$xy~" += "${{xy}"
    expr "$idname" :: '^[A-Za-z_]' || idname="$text"
    expr "$idname" :idname '[^A-Za-z_0-9]' += '_'
    expr "$idname" :idname '^%([^\]%{1,}%)\000'
    expr "$inp" :: '/' && {
    expr "$liste" :liste '  *$' ''
    expr "$liste" :liste '^  *' ''
    expr "$liste" :liste '^%([^;]%{1,%}%));.*$'
    expr "$liste" :reste '^[^;]%{1,%}%();.*%)$'
    expr "$lnam" :lnam '^:%(.*%)$' && dnam="$Line"
    expr "$n" :: '-' || { echo "$n"; continue; }
    expr "$n" :: '[.-]' && continue
    expr "$n" :: '[^0-9]' &| let 'n<1||n>999' &|
    expr "$n" :n '-' = ' to ' || continue
    expr "$n" :n '[^0-9]' += ' '
    expr "$n" :n '^eelf.%(..*%)$'
    expr "$n" :n '^eemain.%(..*%)$'
    expr "$n" :n '^eerf.%(..*%)$'
    expr "$n2" :: '^0.' && conv -D0 n2
    expr "$nam" :nb ':%([0-9][0-9]*%)'
    expr "$name" :idname '^%(.*[^.]%)%.[^.]%{1,}$'
    expr "$nsoll" :: '[^0-9]' && continue
    expr "$o" :: '!' && move "$File" "$Dir$Url"
    expr "$o" :: '[lu]' || continue
    expr "$o" :: 'l' && conv -l Url
    expr "$o" :: 'u' && expr "$o" :: '[x1]' || conv -u Url
    expr "$o" :: 'u1' && expr "$o" :: 'x' ||
    expr "$o" :: 'xu1' && expr "$Url" :: '[^.]%.[^.]%{1,%}$' &&
    expr "$oz" :oz '^%(.*%) [^ ]*$'
    expr "$textEMAIL" :textEMAIL "~$x~" += "$y"
    expr "$txt" :$2 "$cstr"
    expr "$txt" :txt "$cstr"
    expr "$url" :url '^[^/]%{1,%}/%(..*%)$' || break
    expr "$val" :val '%(%D%)%.%(%D%{1,2}%)'   '(%1<<8)+%2'
    expr "$vonbis" :: '^[0-9a-fA-F]%{8%}-[0-9a-fA-F.]%{8%}' || continue
    expr "$word" :: "^$msg" && let "mnu|=nr"
    expr "$wr" :: '+++$' || wr="$wr$RN"
    expr "$z" :: '^%$' && { catv z /%n; break; }
    expr "$z" :: '^:..' && {
    expr "$z" :: '^[@x]%D%{8} ' && {
    expr "$z" :ido '^[@x]%(%D%{8}%) ' && {
    expr "$z" :nam '^[ %t]%{1,}%([^ %t]%{1,}%)' || continue
    expr "$z" :z '^%([@x]%)%D%{8} ' "%1$id " && {
    expr "$zeile" / '^[         ]*[^.]..*[0-9]:[0-9]' && {
    expr "$zeile" / '^[^.]..*[0-9]:[0-9]' && {
    expr "$zeile" :: '[a-zA-Z]%{3,%}' || continue
    expr "$zeile" :: '^ *<' || {
    expr "$zeile" :: '^ *<[Dd][Tt]><[Hh]3' && Des="$zeile" &&
    expr "$zeile" :: '^%[' && break
    expr "$zeile" :: '^%[adressen]$' && break
    expr "$zeile" :: '^[         ]*[^.]..*[0-9]:[0-9]' && {
    expr "$zeile" :: '^[^.]..*[0-9]:[0-9]' && {
    expr "$zeile" :: '^[^=%t]*[=%t][^=%t]%{3,%}$' || continue
    expr "$zeile" :: '^[^=,]%{1,%}=[^=]%{1,%}$' || continue
    expr "$zeile" :b '^%([a-zA-Z][^: ]*%):' || b=unknown
    expr "$zeile" :ip '[ %t]%([0-9W,PT]%{1,}%)[ %t]*$' || continue
    expr "$zeile" :mail '"mailto:%([^:"]*%)"'
    expr "$zeile" :mail '<%([^<>]%{3,%}%)>' &&
    expr "$zeile" :mail '[=%t]%([^=%t]*%)$' || continue
    expr "$zeile" :mail '^%([^ ]%{3,%}%) *' || continue
    expr "$zeile" :name '(%([^()]%{1,%}%))' &&
    expr "$zeile" :name '>%([^<>]*%)</[Aa]>%r*$'
    expr "$zeile" :name '^%([^=%t]*%)[=%t]' || name=''
    expr "$zeile" :name '^%([^=]*%)='
    expr "$zeile" :num '^Layer  *%([0-9]%{1,%}%)' &&
    expr "$zeile" :st '^%(..*%)[ %t][0-9W,PT]%{1,}[ %t]*$' || st=--
    expr "$zeile" :zeile "%%($nowd%%)$old%%($nowd%%)" + "%%1$new%%2" && is=
    expr "$zeile" :zeile "%%<$old%%>" + "$new" && is=
    expr "$zeile" :zeile '^%(.%{32}%)'
    expr "$zeile" =:: '%.00"*$' ||
    expr "$zeile" =:: '%.gif"*$' ||
    expr "${{nam}" :$nam '##-%{0,1}[0-9]%{1,}' = "$sd"
    expr "${{nam}}" :$nam '#-%{0,1}[0-9]%{1,}' = "$sd"
    expr "${{v}" :: '^%.' && $v="0${{v}"
    expr $Datei : "$TCPPATT" > $NUL && continue
    expr $inp :: '^[a-zA-Z]:' ||
    expr $Line :: ^%[$3]  break
    expr $Line :: '[!-~]'  continue
    expr $Line :: '[- %t%r%z]' 
    expr $Line :: '[^0-9]' 
    expr $Line :: '^%[[a-zA-Z]%{1,%}]'  break
    expr $Line :: '^[ %t]*;'  continue
    expr $Line :Line '[Ss][Rr][Cc]=%([^]%{1,%}%)'
    expr $f :: 'A'  { Enum=$n; Flags=$f; Titel=$Line; }
    expr $f :: '[^Avn]'  expr $f :: '.A' 
    expr $f :: 'n.'  let ${#f}3&brvbar;${#Line}48 
    expr $f :f '^A%(.*%)$'  [ $f0 == n ]  f=A${f}n
    expr $f0 :: 'D'  let nn0  continue
    expr $f0 :: '[AD]'  let n==n0  f=A$f
    expr $file :dir '^%([^*?]*\%)[^\]%{1,%}$' 
    expr $n :: '[^0-9]'  let 'n1&brvbar;n999' 
    expr $nsoll :: '[^0-9]'  continue
    if expr "$CONTENT_TYPE" =:: 'boundary=.'
    if expr "$rz" :: '^ '
    if expr "$zeile" :: '^[a-zA-Z0-9-]%{1,%}:%{1,2%}'
    if expr "${{nam}}" :: '^[0-9-]'
    ifset is && expr "$zeile" :zeile "%%($nowd%%)$old%$"   "%%1$new" && is=
    ifset is && expr "$zeile" :zeile "^$old%%($nowd%%)"   "$new%%1" && is=
    let hi==0 && expr "$zeile" :: '^ *<[Dd][Dd]>' && Des='' &&
    txt=OTP$1 expr "${{txt}}" :: " $3_$4 " && goend
    while expr "$Dir" :lsec '%([^/]%{1,%}%)$' &&
    { expr "$f" :: 'A' && let Enum; } &|
    { expr "$file" :: '^[a-zA-Z]:'; inv; } &|
    ")  expr "`catv $o,,W`" :an '^"%([^"]*%)' ;;
    # expr "$d" :d '%D' += ' '
    # expr "$zeile" :zeile '    %D%{1,}    ' = %
    #while expr "$rest" :rest '/%*/' '/'; do  done
    ()  expr "`catv $o,,W`" :an '^(%([^)]*%)' ;;
    0)  expr "$Z" :: '^<h3.%{20,}>%D%{4}<' && z=1 ;;
    0)  expr "$Z" :: '^\mainmatter' && z=1 ;;
    1)  expr "$Z" :: '^\backmatter' && break
    2)  expr "$Z" :: '^</p' && z=0 goend
    <)  expr "`catv $o,,W`" :an '^<%([^>]*%)' ;;
    B)  expr "$Z" :Z '^</span>' = '' && k=$sw ;;
    F)  expr "$Z" :Z '^</font>' = '' && k=$sw ;;
    Station)  expr "$Hbuf" :Hbuf '^[ %t]%{1,}' = ''
    [ `ver s` != unix ] && expr "$ed" =:: 'vim$' || edo=
    b)  expr "$Z" :Z '^</b>'    = '' && k=R ;;
    bit)  expr "$w" :: '^[-.a-zA-Z_]%W*$' || Err "$w"
    bit)  expr "$w" :: '^[a-zA-Z_]%W*(%D%{1,2},%D%{1,2})$' && {
    expr "$1" :: '^-%{0,1%}[0-9]%{1,3%}$' || return
    expr "$1" :f '^f%([1-9]%)$' || return
    expr "$FtpCmd" :FtpCmd '{}' "$FtpInp" ||
    expr "$Hbuf" =:: 'Connection %{1,3}aborted' || AnrufMsg="NO ABORT" break
    expr "$Hbuf" =:: 'PASSWORD %{1,3}OK' || AnrufMsg="PASSWORD NOT OK" break
    expr "$Hbuf" =:: 'PASSWORD:' || AnrufMsg="NO PASSWORD:" break
    expr "$Hbuf" =:: 'PASSWORD:' || break
    expr "$Host" :Host ' *;;* *' + ';'
    expr "$Host" :Host '%%n' + ';'
    expr "$Host" :Host ';' += '%n'
    expr "$Zeile" :Zeile ' ?%(..*%)/$' || continue
    expr "$ed" :: 'vim%{0,1%}$' || edo=
    expr "$file" :: ' ' &| expr "$file" :: '\%.%.$' && continue
    expr "$file" :: '\%.$' && expr "$file" :file '^%(..*%)\%.$'
    expr "$fsel" :: '^[0-9]$' || return 1
    expr "$rest" :: '%*' && return 1
    expr "$rest" :: '%./' || expr "$rest" :: '/%.' || return 0
    expr "$rest" :Tag '%([#?].*%)$'
    expr "$rest" :rest '%(.%)/%.$' '%1'
    expr "$rest" :rest '%(.%)/[^/*]%{1,%}/%*$' '%1'
    expr "$rest" :rest '/%.%.$' '/*'
    expr "$rest" :rest '^%([^#?]%{1,%}%)' || return
    expr "$rest" :rest '^%.%./' '*/'
    expr "$rest" :rest '^%./' '.'
    expr "$rest" :rest '^/%.$' '/'
    expr "$rest" :rest '^/[^/*]%{1,%}/%*$' '/'
    expr $RCHAR : '[a-z]' >/dev/null &&
    f)  expr "$Z" :Z '^</font>' = '' && k=r ;;
    file)  obj="$Hbuf" expr "$obj" :adir '/[^/]%{1,}$' = '' ;;
    if expr "$a" :: '/[Ee]:[1-9][0-9]*'
    if expr match $PPP_DEVICE 'tty[0-9][0-9]*[A-Za-z]' ; then
    n=` expr "$a" : '^%([1-9][0-9]*%):.' `
    nam)  expr "$w" :: '^[a-zA-Z_]%W*$' || Err "$w"
    sym|pac|dev)  expr "$zeile" :zeile "$nam" "$pre&"
    until arch_lines_kv3 || expr "$wva" :: '[qQ]uerty  *..*pure%r%n$'
    while expr "$rest" :r '%([^/]%{1,%}%)$'
    while expr "$rest" :rest '/%.%./' '/*/'; do  done
    while expr "$rest" :rest '/%./' '/'; do  done
    while expr "$rest" :rest '/[^/*]%{1,%}/%*/' '/'; do  done
    while expr "$rest" :rest '^%*/%(.%)' '%1'; do  done
    # expr "$zeile" :zeile "%%($nowd%%)$old%%($nowd%%)" + "%%1$new%%2" && is=
    # ifset is && expr "$zeile" :zeile "%%($nowd%%)$old%$"   "%%1$new" && is=
    # ifset is && expr "$zeile" :zeile "^$old%$"   "$new" && is=
    # expr "$Z" :Z "^$RAlez" = ''
    #expr "$lsec" :: '^/' || expr "$rsec" :rsec '^/' ''
    >< ; expr "$1" :: '!' && cat $Plist > "$File"
    [ "$ask" == 00000 ] && expr "$Hbuf" :: '^0%t0%t-%t-%t-$' && ask=$sk
    [ "$st" == + ] && expr "$File" :: '/' && {
    [ $skip == 1 ] && expr "$Zeile" :: '%*/[ %t]*$' && { skip=0; continue; }
    [ $skip == 2 ] && expr "$Zeile" :: '^#endif' && { skip=0; continue; }
    [ -f $ziel ] && expr "$ziel" :: 'liste%.' && attrib +r $ziel >NUL
    [ -f $ziel ]  expr $ziel :: 'liste%.'  attrib +r $ziel NUL
    do  expr "$Z" :OFILE "$KZ"'@+%(%W%{4,}%)@'"$KZ" && break
    do  expr "$Z" :OFILE "$KZ"'@+%(%W%{4,}%)@'"$KZ" &|
    do  t=1 expr "$a" :Arg$i '^[ %t]*%(".*[^\]"%)' &&
    elif expr "$Z" :z '  "%(.*%)"$'
    elif expr "$oz" :rw ' %([^ ]*%)$'
    else  id=0 expr "$Z" :Z ' %(".*%)"[ %t]*$' && let "Nchar+=${#Z}"
    end=`grep -nm '^%$$' $FO` && expr "$end" :end '^%(%D%{1,}%):'
    expr       (intern bsh(K))
    expr  $NAME : '.*'
    expr  $NAME : '[^%r%n]*'
    expr  $PFAD : '.*\%(.*%)\.*'
    expr  $PFAD : '.*\%([A-Z]%{1,8%}%.[A-Z]%{1,3%}%)\[A-Z.]%{1,12%}$'
    expr  $PFAD : '.*\%([^\]%{1,12%}%)\[^\]%{1,12%}$'
    expr " $* " :: " $n " && echo $id
    expr " $* " :: "[ %t]${dnam}[ %t]" || continue
    expr " $* " :: "[ %t]${n}[ %t]" && catv id /%n
    expr " $* $Dnam " :: "[ %t]${dnam}[ %t]" || continue
    expr " $langs " :: " $l " && { catv Z$l /%n; continue; }
    expr " jan feb mar apr may jun jul aug sep oct nov dec" %
    expr "$1" :: 'T' || continue
    expr "$1" :: 'd' &&
    expr "$1" :: 'd' ||
    expr "$1" :: 'l' && conv -l File
    expr "$1" :: 't' && let "lsec>rsec" && {
    expr "$1" :: 'u' && expr "$1" :: '[x1]' || conv -u File
    expr "$1" :: 'u1' && expr "$1" :: 'x' ||
    expr "$1" :: 'xu1' && expr "$File" :: '[^.]%.[^.]%{1,%}$' &&
    expr "$1" :: D && {
    expr "$1" :: V && continue
    expr "$CText" :Text '^%( %{1,}%)' && {
    expr "$CText" :Text '^%([^ ]%{1,}%)' && {
    expr "$DAT" :: '^cfg' && SECT="Konfiguration"
    expr "$DAT" :: '^mes' && SECT="Meßwerte"
    expr "$Dir" :: '^[/\]' || {
    expr "$Dir" :: '^[ONI][LDEWN ]%{2%}: ' || continue
    expr "$Dir" :Dir '/$' '' && lsec="/$lsec"
    expr "$Dir" :Dir '^%(.*/%)[^/]%{1,%}$' || Dir=
    expr "$Dir" :File 'P%*%([^*]%{1,%}%)%*P'
    expr "$Dir" :Path '^IN : %(..*%)%[[0-9]%{1,%}]$' || continue
    expr "$Dir" :Url '^OLD: "%(..*%)"$' && continue
    expr "$Dir" :n '%([0-9]%{1,%}%)]$'
    expr "$Dir" :rsec '^[0-9]%{1,%}  *%([0-9]%{1,%}%)' || continue
    expr "$Dir" :rsiz '^%([0-9]%{1,%}%)' || continue
    expr "$Dir" :url '^NEW: "%(..*%)"$' && continue
    expr "$F" :: '%.cgi$' && { chmod 710 $F; continue; }
    expr "$F" :: '%.gif$' && { chmod 400 $F; continue; }
    expr "$F" :: '/DB/' && continue
    expr "$F" :: '/DB[^/]*/' && continue
    expr "$F" :: '/db/' && continue
    expr "$F" :: 'bsh_' && { chmod 100 $F; continue; }
    expr "$F" :: 'perm.bsh$' && { chmod 710 $F; continue; }
    expr "$File" :: '[^-a-zA-Z0-9_.+/=]' && Onl=up &&
    expr "$File" :: '^%.%{1,2%}$' && continue
    expr "$File" :File '/$' '' && rsec="/$rsec"
    expr "$File" :File '^ *[^ ]%{1,%}  *[^ ]%{1,%}  *%(..*%)$'
    expr "$File" :File '^%(.*/%)[^/]%{1,%}$' || File=
    expr "$File" :File '^%(.*[^/]%)/[^/][^/]*$' || continue
    expr "$File" :Zeile '^%(.*[^/]%)/[^/]%{1,%}$' &&
    expr "$File" =:: 'bsh_tmpf%.[0-9]%{1,3%}$' && continue
    expr "$File" =:: 'hpm_tmpf%....$' && continue
    expr "$Flags" :: 'n' && {
    expr "$Gsel" :: $g || continue
    expr "$HTM2" :Hbuf '999.888.777.666' += "$ip"
    expr "$Hbuf" :: '^%r%n</EEDATA>%r%n$' || {
    expr "$Hbuf" :Hbuf "~$a~" = "$b"
    expr "$Hbuf" :Hbuf '^[^=]%{1,}=%(.*%)$' || continue
    expr "$Hbuf" :L_c '^:%(.%)' || continue
    expr "$Hbuf" :boundary '%(-%{2,}[^-]%{1,}%)"%{0,1}$' && break
    expr "$Hbuf" :e '^@%(.%)' || break
    expr "$Hbuf" :nam '^%([^=]%{1,}%)=' || continue
    expr "$Hbuf1" :Hbuf1 "~znum~" += "$znum_mk"
    expr "$I" :i 'id  %([0-9]%{4}%)' || { print -u2 "'$I'"; break; }
    expr "$InpAnruf" :: '^[0-9W,PT]%{1,}$' &&
    expr "$Ip" :ip %
    expr "$KatOffs" :: "%t$a " || continue
    expr "$Leer" :Leer 'λ' += ' '
    expr "$N" :n '^/[ 0-9*]%{10,12}/ %{1,3}%(%D%D%D%D%)' || { print -u2 "'$N'";
    expr "$O" :: '^-' && s=-
    expr "$Path" :Dir '^%(.*%)/[^/]%{1,%}$'
    expr "$T" :t '"%([^"]*%)"' || { print -u2 "'$T'"; break; }
    expr "$TageBez" :: '[^0-9-]' ||
    expr "$Text" :Text 'λ%{1,}' = "\verb:$Leer:"
    expr "$Url" :: '^%^' &| expr "$Url" :: '%$$' &|
    expr "$Url" :Dir '%([#?].*%)$' && url="$url$Dir"
    expr "$Url" :Url '%.' += '%.'
    expr "$Url" :url '^%([^#?]%{1,%}%)'
    expr "$WD" :IND '^%([^ ]%{1,}%)'
    expr "$WD" :WD '^[^ ]%{1,}' = ''
    expr "$Z" ::  '^[%t ]*$' && { len=$len0; continue; }
    expr "$Z" :: "$muster" || { catv Z /%j; continue; }
    expr "$Z" :: ' "\[0-9]%{3}[a-z?A-Z]' || { catv Z /%r%n; continue; }
    expr "$Z" :: ' 0%{1,}[ %t]*$' ||
    expr "$Z" :: ' <td[> ].%{1,}</td>$' || continue
    expr "$Z" :: ' LANGX_%U%U%>' && {
    expr "$Z" :: '/bsh_tmpf%.[0-9][0-9][0-9]' || continue
    expr "$Z" :: '</pre>' && break
    expr "$Z" :: '</tr>' && break
    expr "$Z" :: '<h%D>Eventlist</h%D>' && break
    expr "$Z" :: 'D_%W%{1,}_%D%D%D_%L%L' || continue
    expr "$Z" :: '^ *$' && Len=$LEN
    expr "$Z" :: '^#define D%D%{10}grp ' && {
    expr "$Z" :: '^#define D_%W%{2,24}_%D%D%D_%L%L  ".*"$' || {
    expr "$Z" :: '^%$' && break
    expr "$Z" :: '^%%++FLG--%%$' || continue
    expr "$Z" :: '^<body[ >]' && z=1
    expr "$Z" :: '^@%D' || continue
    expr "$Z" :: '^@[0-9]' || { catv Z /%n; continue; }
    expr "$Z" :: '^[@a-z;.,][0-9]' || continue
    expr "$Z" :: '^[@a-z;.,][0-9]' || { catv Z /%n; continue; }
    expr "$Z" :: '^[@x][0-9]' || { catv Z /%n; continue; }
    expr "$Z" :: '_%D%D%D_no  "' || { catv Z /%n; continue; }
    expr "$Z" :: 'const struct cfgdata_t FAR '"$2"'data%[]= {' && {
    expr "$Z" :D ' %('"$RA_D$LL"'%) ' || continue
    expr "$Z" :HexC "^$RAfcc" && {
    expr "$Z" :IP '^addr: %([0-9.]%{7,15}%)' && break
    expr "$Z" :LEN '^//|%(%D%D%)|' && Len=$LEN
    expr "$Z" :LLs ' LANGi_%(%U%U%)%>' && {
    expr "$Z" :Len '^//%(%D%D%)'
    expr "$Z" :N "$RE" || continue
    expr "$Z" :T '%("[^"]%{1,}"%)$' || continue
    expr "$Z" :Ta ' %(const BYTE FAR T[0-9]%{10}%[]%)= ' && {
    expr "$Z" :Ta '^ %{1,}{ D.%{1,}%( D%D%{10}Text %)' && {
    expr "$Z" :Ta '^%(#define D%D%{10}Text %{1,}%)' && {
    expr "$Z" :Text "^$RAtxt" && {
    expr "$Z" :Z " $ip4 " = " $host "
    expr "$Z" :Z "$muster" = "$subst" && let "start+=inc"
    expr "$Z" :Z ' %D%{6} ' = " $Adr "
    expr "$Z" :Z '"' += '&quot;'
    expr "$Z" :Z '%*K%(N%*..*%*P%)L%*'
    expr "$Z" :Z '%.d5' += '.d6' && ow=1
    expr "$Z" :Z '&' += '&amp;'
    expr "$Z" :Z '&[a-zA-Z0-9#]%{1,};' = ''
    expr "$Z" :Z ', ..,' = ", $nn,"
    expr "$Z" :Z ':%(%D%{1,}%)$' || continue
    expr "$Z" :Z '<' += '&lt;'
    expr "$Z" :Z '=$' = '' && { catv Z; continue; }
    expr "$Z" :Z '>' += '&gt;'
    expr "$Z" :Z '^%(@:English,Deutsch,%).*$'  '%1'"$Lang"
    expr "$Z" :Z '^[^"]%{1,} %(".*%)"[ %t]*$'; len=${#Z}
    expr "$Z" :adr '^[@x-]%D%{8,10} %D %(%D%{6}%) ' || continue
    expr "$Z" :c '"\...%(.%)'
    expr "$Z" :danam ' %(D_%W%{1,}_%D%D%D_%L%L%)  *"' || continue
    expr "$Z" :danam ' %(D_%W%{1,}_%D%D%D_%L%L%)  *%D%{1,5}, *"' || {
    expr "$Z" :danam ' %(D_%W%{1,}_%D%D%D_%L%L%)  *["0-9]' || continue
    expr "$Z" :danam ' %(D_%W%{1,}_%D%D%D_%L%L%)  *["0]' || continue
    expr "$Z" :ddd ' D_%W%{1,}_%(%D%D%D%)_%L%L  *%D%{1,5}, *"'
    expr "$Z" :flags ' %(p%D%{1,}A%D%{1,}%)st2T' && {
    expr "$Z" :id ' D_%W%{1,}_%D%D%D_%L%L  *%(%D%{1,5}%), *"'
    expr "$Z" :id ' D_%W%{1,}_%D%D%D_id  *%(%D%{1,6}%)' || continue
    expr "$Z" :id '^#define D_%W%{2,24}_%D%D%D_id  %(%D%{4}%)$' && continue
    expr "$Z" :id '^@%(%D%{8,10}%) %D' || continue
    expr "$Z" :ip " %%($ip4%%) " || print -r "$Z" && continue
    expr "$Z" :kenn 'K%*%(..*%)%*KN%*'
    expr "$Z" :lc '^%(.%{1,}/%)%([A-Z_0-9]%{1,}%.[A-Z_0-9]%{1,}%)$' + '%1%L%2' 
    expr "$Z" :lc '^%(.%{1,}\%)%([.A-Za-z_0-9-]%{1,}%.%)%([A-Z_0-9]%{1,}%)$' + 
    expr "$Z" :len  '^//%(%D%{1,}%)' && continue
    expr "$Z" :len0 '^//|%(%D%{1,}%)|' && { len=$len0; continue; }
    expr "$Z" :ll ' D_%W%{1,}_%D%D%D_%(%L%L%)  *%D%{1,5}, *"'
    expr "$Z" :n '/*%(..%)*/'
    expr "$Z" :nam '^#define D_%(%W%{2,24}%)_%D%D%D_id  %D%{4}$' &|
    expr "$Z" :num '^ *%(%D%{1,2}%) *& *%W%{2,} *& *[^ ]' || continue
    expr "$Z" :sym '^[^&]%{1,}& *%(%W%{2,}%)' || continue
    expr "$Z" :text '^[^"]%{1,} %(".*"%)[ %t]*$'
    expr "$Z" :time ' %([0-9]*%) '
    expr "$Z" :tm ' %([0-9][0-9]*%) '
    expr "$Z" :txt '^[^&]%{1,}&[^&]%{1,}& *%(.*[^\ ]%)[\ ]*$' || continue
    expr "$Z" :z '^#define D_%W%{2,24}_%D%D%D_'"$Lang"'  %(".*"%)$' && {
    expr "$Z" :zn '^%([0-9][0-9]*%) ' || { ><<
    expr "$Z" :znum '^%([0-9]*%) '
    expr "$Z" =:: '</table>' && break
    expr "$Z" =:: '<table [^>]*WIDTH="150"  *HEIGHT="35"[^>]*>' || continue
    expr "$Z" =:Z 'width=60' = 'width=72' && ow=1
    expr "$Z0" :lm '^//%([^ %t]%{1,}%)' && let "len-=${#lm}"
    expr "$Z2" :T2 '%("[^"]%{1,}"%)$' || continue
    expr "$Zeile" :: "^-[-a-zA-Z]%{9%} " || continue
    expr "$Zeile" :: 'Print[a-zA-Z_0-9]%{1,%}(' || continue
    expr "$Zeile" :: 'Print[a-zA-Z_0-9]%{1,%}(..*);' ||
    expr "$Zeile" :: '[ %t*][a-zA-Z_][a-zA-Z_0-9]*(.*)[ %t]*/[*/].*$' && {
    expr "$Zeile" :: '^#@f' && { catv 4,,Zeile /%n; continue; }
    expr "$Zeile" :: '^-.' || continue
    expr "$Zeile" :: '^[ %t]*/%*' && {
    expr "$Zeile" :: '^[ %t]*//' && continue
    expr "$Zeile" :: '^[-<].' || continue
    expr "$Zeile" :: '^[:.>+].' || continue
    expr "$Zeile" :: 'defined(OLDPRN)' && { skip=2; continue; }
    expr "$Zeile" :Dir '^%(.*/%)[^/]%{1,%}$' || Dir=
    expr "$Zeile" :File ' %*%(..*%)%*$' || File=
    expr "$Zeile" :File ' %*%(..*%)%*$' || continue
    expr "$Zeile" :File '%([^/]%{1,%}%)$' || continue
    expr "$Zeile" :File '%*%(..*%)%*$' || continue
    expr "$Zeile" :File '^.%{10%}  *[^ ]%{1,%}  *%(..*%)$'
    expr "$Zeile" :File '^[0-9]%{1,%}: %(..*%)$' || n=${n}b
    expr "$Zeile" :Path 'P%*%([^*]%{1,%}%)%*P'
    expr "$Zeile" :Url 'U%*%([^*]%{1,%}%)%*U'
    expr "$Zeile" :Zeile "%"!)#@<$n>{(}%"" = "%"$url<*>*<>?%"" || e=${e}2
    expr "$Zeile" :Zeile %
    expr "$Zeile" :Zeile '"'  += '&quot;'
    expr "$Zeile" :Zeile '%([ %t]%)[ISEL]' + '%1'
    expr "$Zeile" :Zeile '%*  '  ' *'
    expr "$Zeile" :Zeile '%*%*  '  '**'
    expr "$Zeile" :Zeile '%r%{1,%}$' ''
    expr "$Zeile" :Zeile '&'  += '&amp;'
    expr "$Zeile" :Zeile '([rR])'  += '®'
    expr "$Zeile" :Zeile '<'  += '&lt;'
    expr "$Zeile" :Zeile '>'  += '&gt;'
    expr "$Zeile" :Zeile '[§]'  += '&sect;'
    expr "$Zeile" :Zeile '[··]'  += '&middot;'
    expr "$Zeile" :Zeile '^%(.*[ *][a-zA-Z_][a-zA-Z_0-9]*%)(.*)$' || continue
    expr "$Zeile" :Zeile '^[ISEL]' ''
    expr "$Zeile" :Zeile 'yright *([cC])'  = 'yright ©'
    expr "$Zeile" :Zeile '|'  += '&brvbar;'
    expr "$Zeile" :Zeile 'Ä' += 'Ž'
    expr "$Zeile" :Zeile 'Ö' += '™'
    expr "$Zeile" :Zeile 'Ü' += 'š'
    expr "$Zeile" :Zeile 'ß' += 'α'
    expr "$Zeile" :Zeile 'α'  += 'ß'
    expr "$Zeile" :Zeile 'ä' += '„'
    expr "$Zeile" :Zeile 'ö' += '”'
    expr "$Zeile" :Zeile '.'  += '&middot;'
    expr "$Zeile" :Zeile 'ü' += ''
    expr "$Zeile" :funam '[ *]%([a-zA-Z_][a-zA-Z_0-9]*%)$' || continue
    expr "$Zeile" :liste '[ *][a-zA-Z_][a-zA-Z_0-9]*(%(.*%))$' || continue
    expr "$Zeile" :lsec '^[0-9]%{1,%}  *%([0-9]%{1,%}%)' || continue
    expr "$Zeile" :lsiz '^%([0-9]%{1,%}%)' || continue
    expr "$Zeile" :n '^%([0-9]%{1,%}%): .' || n=a
    expr "$Zeile" :n '^%([0-9][0-9]*%)'
    expr "$Zeile" :rsec '^[0-9]%{1,%}  *%([0-9]%{1,%}%)' || continue
    expr "$Zeile" :rsiz '^%([0-9]%{1,%}%)' || continue
    expr "$Zeile" :vorne '^%(.*[ *]%)[a-zA-Z_][a-zA-Z_0-9]*$' || continue
    expr "$Zeile" :zeile 'FOO(%([^)]%{1,}%))' || continue
    expr "$a" :a '^[ %t]*,%(.*%)$'
    expr "$adr" :: '^@%D' || { expr "$adr" :: '^%$' || continue; break; }
    expr "$asm2" :asm2 '~extend~' = "$extend"
    expr "$bf" :bfc '^%(..*%)%D$' && expr "$bf" :d '%(%D%)$' && {
    expr "$buf" :: "^$nam=" || { catv buf =:,,obuf:; continue; }
    expr "$buf" =:: '^%['"$rub"']' || continue
    expr "$byte" :byte '%([0-9][0-9.,]*%)' || byte=0
    expr "$c" :: '[ %%]' || wr="$wr$c" continue
    expr "$c" :: '[%%dpt0COT]' || wr="$wr$c" continue
    expr "$cc" :: "$c" || cc="$cc$c" fst="$fst $c=$n"
    expr "$cmd" :: "$1" && {
    expr "$ctv0" :ctv0 '^[0-9]%{1,} %([0-9]%{1,}%)' || ctv0=0
    expr "$danam" :dnam '^%(D_%W%{1,}%)_%D%D%D_%L%L$'
    expr "$darst" :darst '%.%([0-9]%)'
    expr "$date" :sek ':%([0-9][0-9]%) '
    expr "$day" :day '^[0-9]%{1,} %([0-9]%{1,}%)' || day=0
    expr "$displ" :: ":$dpy " || sargs="$sargs :$dpy" break
    expr "$eriEMAIL" :Hbuf1 "~datetime~" = "$time"
    expr "$esl" :esl '^%(.%)'
    expr "$esl" :esl '^%([ESILesil]%)' || continue
    expr "$fil" :fil '01GET' = ''
    expr "$file" :: "%.$wc%$" || continue
    expr "$file" :: "cgi/" && continue
    expr "$file" :: c || [ ! -e "$arch" ] &&
    expr "$file" :fil '%([^/]%{1,%}%)$'
    expr "$flags" :: '1.' && let "flg|=128"
    expr "$flags" :: ':L:' && let "flg|=1024"
    expr "$flags" :: ':SP:' && let "flg|=512"
    expr "$flags" :: 'B[AS][0-9]' && let "flg|=256"
    expr "$flags" :: '[sz]' && pad=0
    expr "$flags" :: 'a' && let "flg|=2"
    expr "$flags" :: 'i' && let "flg|=16"
    expr "$flags" :arr '[AS]%(%D%{1,4}%)' || arr=1
    expr "$flags" :nelem 'A%([0-9]%{1,}%)' && {
    expr "$flags" :nelem 'S%([0-9]%{1,}%)'
    expr "$flags" :pad 'p%([0-9]%{1,}%)' || {
    expr "$flags" :padd 'p%(%D%{1,5}%)' || padd=0
    expr "$fsn" :: '^[A-Za-z_][A-Za-z_0-9. ]%{7}$' || fsn=""
    expr "$headEMAIL" :Hbuf2 "~loeschenerinnern~" = Erinnerung
    expr "$headEMAIL" :Hbuf2 "~loeschenerinnern~" = Löschung
    expr "$headEMAIL" :headEMAIL "~email~" = "$email"
    expr "$htmlF" :htmlF "~$x~" = "$y"
    expr "$htmlU" :html '~dati~' = "$date"
    expr "$id" :: '^%$' && break
    expr "$id" :: '^%...*' && {
    expr "$id" :: '^%...*' && { continue; }
    expr "$id" :: '^:..*' && { echo; continue; }
    expr "$id" :: '^[:.]..*' && continue;
    expr "$id" :: '^[@x-]%D%{8,10}$' || continue
    expr "$id" :: '^{#$' && {
    expr "$id" :: '^}$' && {
    expr "$id" :id '^@%([0-9]%{1,}%)' && {
    expr "$idname" :: '^[A-Za-z_]' || idname="$text"
    expr "$idname" :idname '[^A-Za-z_0-9]' += '_'
    expr "$idname" :idname '^%([^\]%{1,}%)\000'
    expr "$inh" :inh '<' += '&lt;'
    expr "$inp" :: '^-.*$' && inp="$prev\`-expr "$inp" : '^-%(.*%)$'`"
    expr "$ip" :: "^$REip%$" || return 1
    expr "$ja" :: '^[1-9][0-9][0-9][0-9]$' || err "Jahr: '$ja'"
    expr "$lbl" :: '^[A-Za-z_0-9. ]%{11}$' || lbl="jmp=$((16#,jmp))"
    expr "$lc" :name '[\/]%([^\/]%{1,}%)$' || break
    expr "$liste" :: '[^ %t]' || liste=void
    expr "$liste" :liste ' %{2,%}' + ' '
    expr "$liste" :liste ' ,' + ','
    expr "$liste" :liste '%*[][a-zA-Z_0-9]%{1,%},' + '*,'
    expr "$liste" :liste ', ' + ','
    expr "$liste" :liste ',%([^ %t]%)' + ', %1'
    expr "$liste" :liste '^  *%(.*%)$'
    expr "$liste" :liste '^%(.*%)  *$'
    expr "$loeEMAIL" :Hbuf1 "~datetime~" = "$time"
    expr "$n" :: '[.-]' && continue
    expr "$n" :: '[^0-9]' && { ><
    expr "$n" :: '^[1-9]' || n=${n}e
    expr "$n" :n '^4/%(..*%)' && n="/scratch/TEMP/$n"
    expr "$n" :n '^5/%(..*%)' && n="/scratch/RECYCLED/$n"
    expr "$nam" :: '^[IWP][0-9]%{1,3}$' || continue
    expr "$nam" :erw '%.%([^.]*%)$' || erw=''
    expr "$nam" :l '^%([\/]%)'
    expr "$nam" :l '^%([a-zA-Z]:%)' && {
    expr "$nam" :nam '%D%{1,}$' = "$num"
    expr "$nam" :nam '://%(.*%)'
    expr "$nam" :nam '<' += '&lt;'
    expr "$nam" :nam '^%([^ ]*%)'
    expr "$name" :: '[^ %t]' &&
    expr "$name" :: '^ */[/*]' && continue
    expr "$name" :name ' %([a-zA-Z_][a-zA-Z_0-9]*%) *[,;] *$' && is=1
    expr "$namen" :: " $name " || namen="$namen$name "
    expr "$nb" :: '^->' && {
    expr "$nb" :nb '^%([0-9]%{1,%}%)' && print "$nb +$esl$nam+"
    expr "$nb" :nb '^%([0-9]%{1,%}%)' && {
    expr "$num" :: '^%D%{1,20}$' && {
    expr "$num" :m '^%D%{1,12}%([bmgBMG]%)$' || {
    expr "$num" :num '^%(%D%{1,}%)'
    expr "$o" :: '=' && url="$Url"
    expr "$o" :: '[lu]' && Fmain UrlUcLc "$o" url
    expr "$o" :: a || Fmain CorrPP Dir &&
    expr "$o" :e 't%([+-]%{0,1%}[0-9]%{1,%}%)' && let "url+= $e*60"
    expr "$oem" :: '^[A-Za-z_][A-Za-z_0-9. ]%{7}$' || oem=""
    expr "$oz" :oz '^%(.%{44%}%)'
    expr "$oz" :rz '^.%{44%}%(.*%)$'
    expr "$pid" :: '^[0-9]%{1,}$' || return
    expr "$pzeile" : ' %(-%{0,1%}[0-9]%{1,4%}%%%)' && ((lz=lz+1))
    expr "$rek" :k '%(.%)$' || k=.
    expr "$rek" :rek '^.%(.*%)$'
    expr "$s" :: E && { echo directory checksum error; >< ; goend; }
    expr "$s" :: E && { echo directory checksum error; break; }
    expr "$sz" :: '^-' && continue
    expr "$sz$ta" :: '[^0-9]' && err "Gr”αeTag: '$sz'$ta'"
    expr "$t" :t '&' += '&amp;'
    expr "$t" :t '<' += '&lt;'
    expr "$t" :t '>' += '&gt;'
    expr "$tanam" :tnam '^%(T_%W%{1,}%)_%D%D%D_%L%L$'
    expr "$teltxt" :: '%W' || teltxt=
    expr "$teltxt" :teltxt 'Station____max16[^%r%n]*[%r%n]*' = ''
    expr "$textEMAIL" :textEMAIL "~datetime~" = $(systime -t)
    expr "$txt"   :$2 "$cstr"
    expr "$typ" :: 'N' && catv /%n
    expr "$typ" :: 'T' && catv '/</ul>%n'
    expr "$typ" :: '^#' && continue
    expr "$typ" :: 'n' && catv /%n
    expr "$tz" :: '^-%{0,1%}[0-9]%{1,2%}$' && tz $tz
    expr "$uj" :mi '^[0-9]%{1,2%}:%([0-9]%{1,2%}%)$' || ja=$uj
    expr "$uj" :st '^%([0-9]%{1,2%}%):[0-9]%{1,2%}$' || ja=$uj
    expr "$v" :v '%([0-9]%{1,}%)'
    expr "$val" :val '[^0-9-]' += ''
    expr "$vonbis" :: '^[0-9a-fA-F]%{8%}-[0-9a-fA-F.]%{8%}' || continue
    expr "$vorne" :: '[^* %t_a-zA-Z0-9]' && continue
    expr "$vorne" :: '__interrupt' && continue
    expr "$vorne" :vorne '  *$' ''
    expr "$vorne" :vorne ' %(%*%{1,%}%)$'  '%1'
    expr "$vorne" :vorne ' %{2,%}' + ' '
    expr "$vorne" :vorne '^  *' ''
    expr "$wd" :: '%W$' || let "ww|=2"
    expr "$wd" :: '^%W' || let "ww|=1"
    expr "$wd" :wd '%%s' += ' '
    expr "$z" :: '^%$' && break
    expr "$z" :: '^:..' && break
    expr "$z" :: '^[@x]%D%{8} ' && let ++NGE
    expr "$z" :: '^[@x]%D' || continue
    expr "$z" :z ' %(%D%{8}%) ' || continue
    expr "$z" :z '%(.%)%(%.[^.]%{1,}%)$' "%1$a%2" || z="$z$a"
    expr "$zeile" :: "$from" && {
    expr "$zeile" :: "$msg" && {
    expr "$zeile" :: "%.$wc%$" && { file="$zeile"; break; }
    expr "$zeile" :: '%.long %.L' || break
    expr "$zeile" :: '%W' || continue
    expr "$zeile" :: '^ *</[Dd][Ll]><[Pp]>' && let --h3
    expr "$zeile" :: '^ *<[Dd][Tt]><[Aa]' || continue
    expr "$zeile" :: '^CO ' && {
    expr "$zeile" :: '^[!-~]%{60,}$' ||
    expr "$zeile" :: '^[+0-9]' || continue
    expr "$zeile" :: 'tmp/' && continue
    expr "$zeile" :mail '"mailto:%([^:"]*%)"' || continue
    expr "$zeile" :nam '^Edit %([^ .]%{1,%}%)%.dev' && {
    expr "$zeile" :name '>%([^<>]*%)</[Aa]>%r*$'
    expr "$zeile" :nv ' %([0-9]%{1,2%}%)00 ' && let "nv!=nv0" && num=00 nv0=$nv
    expr "$zeile" :zeile "$alt" += "$neu"
    expr "$zeile" :zeile "$asubst" = "$ema"
    expr "$zeile" :zeile ' %([0-9]%{1,2%}%)00 ' " %%1$num " && let ++num
    expr "$zeile" :zeile ' %(filename=..*%)$' &&
    expr "$zeile" :zeile ' [0-9]%{1,3%} ' = " $num " && let ++num
    expr "$zeile" :zeile '%<cie%.pl%>' += cie.cgi
    expr "$zeile" :zeile '%<cntadm%.pl%>' += cntadm.cgi
    expr "$zeile" :zeile '%<coltaB%.pl%>' += coltaB.cgi
    expr "$zeile" :zeile '%<gcnt%.pl%>' += gcnt.cgi
    expr "$zeile" :zeile '%<get%.pl%>' += get.cgi
    expr "$zeile" :zeile '%<icnt%.pl%>' += icnt.cgi
    expr "$zeile" :zeile '%<icntget%.pl%>' += icntget.cgi
    expr "$zeile" :zeile '%<icntvw%.pl%>' += icntvw.cgi
    expr "$zeile" :zeile '^/%*[0-9]%{3%}' = "/*$num" && let ++num
    expr "$zeile" =:extend '^EXT:%(....%)$' && continue
    expr "${{1}" :$1 "$c" += '%'$h
    expr "${{1}" :$1 '%%'$h += "$z"
    expr "${{a}}" :: "$RA" || continue
    expr "${{a}}" :: '[^0-9]' && n=
    expr "${{f}" :$f '/[0-9][0-9]*_' = "/${zn}_"
    expr "${{nam}}" :$nam '^MAKRO()' = '' && $nam="${{nam}}\Sup{M}"
    expr "${{ot}}" :$o '+%(%D%{1,3}%)$'
    expr "${{ot}}" :$ot '^T%(%W%{1,}%)'
    expr "000${{o}}" :$o '%(%D%{3}%)$'
    expr "00000${{nam}}" :$nam '^0*%(%D%{1,}%)%(%D%{'"$d"'}%)$' '%1.%2'
    expr "`catv $o,,W`" :an '^%([^"(,<]*%)' || an=''
    expr "`grep -inm '^%[adressen]' $Ziel`" :hi '^%([^:]*%)'
    expr "`grep -inm '^%[verteiler]' $Ziel`" :hi '^%([^:]*%)'
    expr $1 :: '.*%.' || { let "x=$1*$2"; echo $x%c; return; }
    expr $datei :: '.Z$' &| [ $p -gt 12 ] && PAC=unpacked
    expr $Flags :: 'n'  {
    expr $byte :byte '%([0-9][0-9.,]*%)'  byte=0
    expr $grp :: $g  continue
    expr $nam :l '^%([\/]%)'
    expr $nam :l '^%([a-zA-Z]:%)'  {
    expr -$1 :: $g  continue
    if expr "$Z" :a '[AS]%(%D%{1,}%)'
    if expr "$Z" :id ' D_%W%{1,}_%D%D%D_id  *%(%D%{1,6}%)'
    if expr "$Z" :id '_id  %(%D%{4}%)$'
    if expr "$file" :: '[*?]'
    if expr "$flags" :padf 'p%([0-9]%{1,}%)'
    if expr "$rz" :: '^ '
    if expr "$yt" :yt ':' ' '
    if expr $file :: '[*?]'
    ifdef DOS  && expr $dir :: '^[a-zA-Z]:' ||
    ifdef DOS  && expr $dir :: '^[abAB]:' && Mount $MNTDIR $MRO || r=2
    ifdef UNIX && expr $dir :: '^'$MNTDIR && Mount $MNTDIR $MRO || r=2
    ifset a && expr "$Hbuf" :sern 's%tSN:%t%(.*%)$' && a=
    ifset a && expr "$Hbuf" :sern 's%tSernum%t%(.*%)$' && a=
    ifset b && expr "$Hbuf" :dati ' %([0-9.]%{8,}  *[0-9:]%{8,}%)' && b=
    ifset base && expr "$a1" :: '^@[^:]' || continue
    ifset c && expr "$Hbuf" :stat 'Station: *"%([^"]%{1,}%)"' && c=
    ifset c && expr "$Hbuf" :stat 's%tStation%t%(.*%)$' && c=
    ifset d && expr "$Hbuf" :okfa 'State: *%(%W%{2,}%)' && d=
    ifset erw && expr "$nam" :nam '^%(.[^~''.]*%)'
    ifset is || expr "$name" :name ' %([a-zA-Z_][a-zA-Z_0-9]*%) *%[' && is=1
    let "${#edit}>72" &| expr "$edit" :: '[^a-zA-Z0-9_ /:.+-]' &&
    let ${#edit}72  expr $edit :: '[^a-zA-Z0-9_ /:.+-]' 
    let c && expr "$an" :: '[^ %t]%{1,%}' && {
    let chl && expr "$Zeile" :Zeile '<%*>%*<>?"' += '"'
    let na==1 && tmp=$dir$sub && expr "$tmp" :: '[?*[]' && continue
    readl Z && expr "$Z" :e '%([0-9]%{1,6}%):' && z=0
    readl Z && expr "$Z" :s '%([0-9]%{1,6}%):' && z=1
    s='' expr "${{nam}}" :$nam '^-' = '' && s=-
    while expr "$Dir" :Dir '^[^/]%{1,%}/' ''
    while expr "$Z" :f '%(%<%W%{3,}(%)'
    while expr "$zeile" :zeile '^%(..*%)[ %t]*+%{1,}$'
    while expr "${{nam}" :sd '##%(-%{0,1}[0-9]%{1,}%)'
    .1)  let "++len"; expr "${{2}" :$2 '.$'   '.&' ;;
    [1-4])  expr "xxxxx.yyyyy" :Odstg '%(x%{'"$((5-Odstg))"'}%.y%{'"$Odstg"'}%)
    b)  expr "$val" :val '[^01]' += ''
    b) if expr "$scs" :: '-nobank'
    expr "$Z" :: '^-- ====' && continue
    expr "$Z" :: '^Status' &&
    expr "$Z" :C '^-- *%(.*%W%) *%.%.%.' && expr "$Z" :U '%(USERNAME.*%)$' || U
    expr "$Z" :Z '"[^"?]*/%([^/"?]%{1,%}?[^?"]%{1,%}"%)' + '"%1'
    expr "$Z" :Z '%(-[a-z]%{3,5%}%)'"-$d13-$d13-$d13" + %
    expr "$Z" :Z '^ %{1,}%(.*%)$'
    expr "$Z" =:Z '%( bgcolor *= *"#%)......' "%%1$col" &&
    expr "$inp" :: '^[><]$' || { echo '%a%c'; continue; }
    expr $RCHAR : '[a-z]' >/dev/null &&
    i)  expr "$val" :val '[^0-9-]' += '' ;;
    ifset INN || { expr "$Z" :INN '^INSTANCE_NAME *: *%(%W%{1,}%)'; continue; }
    l)  expr "$opt" :: '^[1-9][0-9]*$' || continue
    o)  expr "$opt" :: '^[a-zA-Z_0-9/\]%{1,}$' || continue
    u)  expr "$val" :val '[^0-9]' += '' ;;
    until arch_lines_kv3 || expr "$wva" :: '[qQ]uerty  *..*pure%r%n$'
    x)  expr "$val" :val '[^0-9a-fA-F]' += ''
    bb)  expr "$val" :val '%(%D%.%D%{1,2}%)'
    #expr "$o" :: '[lu]' || expr "$o" :o '=' + ''
    #expr "$o" :: 'l' && expr "$o" :: 'u' && return 1
    [ "$ok" == d ] && expr "$a" :a '%.[0-9]%{1,3}$' = '.---'
    [ $. -ge 0 ] && expr "${{1}" :$1 '%%' += '%25'
    [ $6 == i ] && expr "${{2}" :: '^[-+]' || let "++len"
    [ $admin == 1 ] && expr "$znum" :: "$znck" && o=$znum
    [ $} -lt 1 ] && expr "$o" :: 'a' || return
    [ -z "$1" ] &| expr "$ifile" :: '^%.%.%.' && {
    [ Vscan -eq 1 ] && expr "$Z" :: '^%%v%%' && return 1
    [ l -lt 2 ] && expr "$Z" :ll '_%D%D%D_%(%L%L%)%>' && {
    [ n -eq 6 ] && expr "${{v}" :: '[^0-9a-fA-F]' && continue
    [ n -eq 9 ] && expr "${{v}" :: '[^0-9]' && continue
    do  expr "$Zeile" :: '^#@[a-zA-Z]%{1,8%} ' && break;  done
    do expr "$Z" :: '^ *</body%>' && break; catv Z /%n; done
    do expr "$Z" :: '^ *<body%>' && break; done
    expr "$*" :: '[^0-9 ]' && return 2
    expr "$*" :: '[^0-9%t ]' && { print -u2 "wrong arg '$*'"; return 3; }
    expr "$*" :: '^[lh]  *[1-9][0-9 -]*$' && t=vb
    expr "$1" :: "$znck" || return 1
    expr "$1" :: '!' && print -r "<!undo>" > url_tmpf.inf
    expr "$1" :: '[0-9]'
    expr "$1" :: '[?/]' &|
    expr "$1" :: '[Rlu]' || return 0
    expr "$1" :: '[^!-~]' && return 1
    expr "$1" :: '[^0-9WPT,]' && return 1
    expr "$1" :: '[^a-zA-Z0-9_]' && PutErrHtm "User name contains wrong chars."
    expr "$1" :: '[lu]' || return 0
    expr "$1" :: '^-[hH]' && {
    expr "$1" :: '^[0-9]%{1,4}$' || PutErrHtm "Length value: »$1«"
    expr "$1" :: '^[a-zA-Z]' || PutErrHtm "User name must begin with [a-zA-Z]."
    expr "$1" :: 't' && expr "$1" :: 'T' && return 1
    expr "$1" :: D && print -ru3 "lcd $Dir" && let ++dt
    expr "$1" :: D && { Fmain CkDDir . || return ; ddir="$inp"; }
    expr "$1" :: L && mktemp rdir
    expr "$1" :: V && [ -s hpm_tmpf.inf ] || echo LV > hpm_tmpf.inf
    expr "$1" :: V || grep -qm '^[-<].' hpm_tmpf.inf || return
    expr "$1" :PfName 'Print%([a-zA-Z_0-9]%{1,%}%)(..*);'
    expr "$1" :a 'Print[a-zA-Z_0-9]%{1,%}(%(..*%));'
    expr "$1" :aid '[0-9]*/%([0-9]*%)$'
    expr "$1" :dali0 '/%([0-9]%{1,4}%)$'
    expr "$1" :email 'E%*%([^*][^*]*%)%*E'
    expr "$1" :gid '%([0-9]*%)/[0-9]*$'
    expr "$1" :kw 'K%*%(..*%)%*KN%*'
    expr "$1" :land_ 'L%*%([^*]*%)%*L'
    expr "$1" :name 'N%*%([^*][^*]*%)%*N'
    expr "$1" :ort 'O%*%([^*][^*]*%)%*O'
    expr "$1" :plz_ 'P%*%([^*][^*]*%)%*P'
    expr "$1" :strasse 'S%*%([^*][^*]*%)%*S'
    expr "$1" :tm ' %([0-9][0-9]*%) '
    expr "$1.$2.$3.$4" :: "^$REip%$" || return 1
    expr "$2" :var '^%([^:]%{1,}%):'
    expr "$3" :aid '%([0-9]%{1,}%)$'
    expr "$3" :gid '%([0-9]%{1,}%)/[0-9]%{1,}$'
    expr "$CONTENT_TYPE" =:boundary 'boundary=%(..*%)'
    expr "$Cmd" :nam '%${%([a-zA-Z][a-zA-Z0-9]*%)}' || nam=''
    expr "$F" :: 'ELF .*executable' || continue
    expr "$F" :: '[lL][iI][bB]9..[slmcSLMC]%....$' && {
    expr "$F" :F '^%(..*%): ' || continue
    expr "$F" =:: '^mb.*%.h$' && continue
    expr "$F" =:: '^t' && continue
    expr "$FF" :F '%([^/*?]%{1,}%)$' || continue
    expr "$FILE" :: '%<cfgbase.txt%>' && typ=base
    expr "$FILE" :: '%<mesbase.txt%>' && typ=base
    expr "$FILE" :: '%<txtbase.h%>' && typ=text
    expr "$FILE" :NAME '%([^/]%{1,}%)%.tex$' || continue
    expr "$File" :Man '%(.%)$' || continue
    expr "$File" :Name '^%(..*%)%.mn.$' || continue
    expr "$Gsel" :: '[0-9]' || return
    expr "$HTM" :HTM '~kbist___~' = "$ka"
    expr "$HTM" :HTM '~kp5ma___~' = "$kp5ma"
    expr "$HTMcfg3" :Hbuf '~moinitapp~' = "$moinit"
    expr "$HTMkont3" :Hbuf '999.888.777.666' += "$VBMip"
    expr "$HTMtelhf" :Hbuf '~TextTelhf~' = "$AnrufMsg"
    expr "$HTTP_HOST" :: '%.schellong%.' ||
    expr "$Hbuf" :: '^!' && r=e conv -D! Hbuf
    expr "$Hbuf" :Hbuf '~MOwahl ~' = "$mow"
    expr "$Hbuf" :Hbuf '~Station~' += "$VBMstation"
    expr "$Hbuf" :Hbuf '~TPwahl~' = "$tpw"
    expr "$Hbuf" :Hbuf '~telnu~' = "$2"
    expr "$Hbuf" :MOinitapp 'MOINIT:%(..*%)$' && MOinitapp=$MOinitapp
    expr "$Hbuf" :MOwahl '^.%([01]%)'
    expr "$Hbuf" :TPwahl '^%([TP]%)'
    expr "$Hbuf" :TblFolge '^..%([0-9 ]%{1,}%)'
    expr "$HexC" :B '^....%(..%)'
    expr "$HexC" :G '^..%(..%)..'
    expr "$HexC" :R '^%(..%)....'
    expr "$IND" :: '^#' && continue
    expr "$IP" :: '^[0-9.]%{7,15}$' || return 3
    expr "$Jahr" :Jahr '%([0-9]%{2,4%}%)$' ||
    expr "$KatOffs" :o '%t'"$3"' %(%D%{1,5}%)' || return
    expr "$KatOffs" :o '%tc %(%D%{1,5}%)' || return 1
    expr "$LES" :: "%%<$le%%>" || {
    expr "$N" :: ' EventNo%[[^][]%{1,}]=' && break
    expr "$N" :n '^%(.%)%(.*%)$' '%1%L%2'
    expr "$N" :n '^/[ 0-9*]/ %{1,3}%(%D%D%D%D%)' && print -u2 "'$n' unerwartet"
    expr "$Oacc" :Oacc '%([0-9A-Fa-f]%{4}%)'
    expr "$Oid" :Grp '^%D%D%(%D%{3}%)%D%{5}$'
    expr "$Oid" :Oid '^%(%D%)%(%D%)%(%D%{3}%)%(%D%{5}%)$' '%1.%2.%3.%4'
    expr "$Oname" :Oname '%([A-Za-z_].*%)$'
    expr "$Oxflg" :Oxflg '%(%D%{8}%)'
    expr "$P" :: "[rs]_$p" || P="$P r_$p s_$p"
    expr "$QS" :: '^+' && { let "Nn+=QS-SelfN"; SetVar Nn; }
    expr "$QS" :: '^[0-9]' && SelfN=$QS SetVar SelfN
    expr "$QS" :Nn '^=' = '' && SetVar Nn
    expr "$REQUEST_URI" :: '/eepr%.cgi$' || PutErrHtm "Sorry!"
    expr "$RxTxMsg" :: '^FAIL:' && {
    expr "$Script" :: '^.:\.' || Script="`-pwd`\$Script"
    expr "$Script" :: '^[^/]' && Script="`-pwd`/$Script"
    expr "$Script" :: '^\.' && pwd | catv 0,2,0 Script =Script:
    expr "$Stat" :Nmax '%([0-9]%{1,}%)  *[0-9]%{1,}'
    expr "$TDIR$BN/$1" :d '^%(.%{1,}%)/[^/]%{1,}$' || d=/
    expr "$Text" :Text "$kl" += '\{'
    expr "$Text" :Text "$kr" += '\}'
    expr "$Text" :Text "$l" += ' '
    expr "$Text" :Text "$l" += '\ '
    expr "$Text" :Text ' ' += "$l"
    expr "$Text" :Text ' ' += 'λ'
    expr "$Text" :Text '"' += '\symbol{34}'
    expr "$Text" :Text '"' += '\textquotedblright '
    expr "$Text" :Text '#' += '\#'
    expr "$Text" :Text '%$' += '\$'
    expr "$Text" :Text '%%' += '\%'
    expr "$Text" :Text '%('"$l"'%{1,}%)' + '\verb:%1:'
    expr "$Text" :Text '%[' += '\symbol{91}'
    expr "$Text" :Text '%^' += '\symbol{94}'
    expr "$Text" :Text '%^' += '\textasciicircum '
    expr "$Text" :Text '&' += '\&'
    expr "$Text" :Text '&amp;' += '&'
    expr "$Text" :Text '&gt;' += '>'
    expr "$Text" :Text '&lt;' += '<'
    expr "$Text" :Text '&quot;' += '"'
    expr "$Text" :Text '''' += '\symbol{39}'
    expr "$Text" :Text '''' += '\textquoteright '
    expr "$Text" :Text '\' += '\symbol{92}'
    expr "$Text" :Text '\' += '\textbackslash '
    expr "$Text" :Text '`' += '\textquoteleft '
    expr "$Text" :Text '{' += "$kl"
    expr "$Text" :Text '{' += '\{'
    expr "$Text" :Text '}' += '\}'
    expr "$Text" :Text '~' += '\symbol{126}'
    expr "$Text" :Text '~' += '\textasciitilde '
    expr "$V" =:version 'Productversion:%(%D*%)'
    expr "$Z" :: " $ip " || continue
    expr "$Z" :: "$exp" || return 1
    expr "$Z" :: "[mp]-$d%%{1,2%%}-[a-z]%%{3,5%%}-$d13-$d13-$d13" &&
    expr "$Z" :: '%$[^$]%{1,}' &|
    expr "$Z" :: '%<D_%W%{1,}_%D%D%D_%L%L%>' || {
    expr "$Z" :: '& *= *&' &|
    expr "$Z" :: '\[a-z]%{0,9}section%*[{[]' &|
    expr "$Z" :: '\[a-z]*section%*[{[]' &|
    expr "$Z" :: '\chapter[{[]' && return 0
    expr "$Z" :: '\frac%>' &|
    expr "$Z" :: '\multicolumn%>' &|
    expr "$Z" :: '\pageref{' &|
    expr "$Z" :: '\wedge%>' &|
    expr "$Z" :: '^"Aktien";"' || continue
    expr "$Z" :: '^:..*' && {
    expr "$Z" :: '^[ %t]%{0,}%%' &|
    expr "$Z" :: '^[@a-z][0-9]%{3,16}' && {
    expr "$Z" :: '^\begin{itemize}' &|
    expr "$Z" :: '^\label{' &|
    expr "$Z" :: '_%D%D%D_'"$LL"'%>' && catv Z /%n
    expr "$Z" :: '_%D%D%D_[ed][ne]%>' && {
    expr "$Z" :DZ '^%( *# *define  *[Dd]_%W%{1,}_%D%D%D_%L%L  *%)["0-9]' || {
    expr "$Z" :Z " $ip " = " $name "
    expr "$Z" :Z "$a$N$b" += "\textsc{$n}"
    expr "$Z" :Z "$d13,$d13,$d13;%%(..*%%)#[0-9a-fA-F]%%{6%%}" %
    expr "$Z" :Z "%<$N%>" + "$a&$b"
    expr "$Z" :Z "\index{$a$N$b" += "\index{$N"
    expr "$Z" :Z "\label{%([^}]*%)$a$N$b" + "\label{%1$N"
    expr "$Z" :Z "\pageref{%([^}]*%)$a$N$b" + "\pageref{%1$N"
    expr "$Z" :Z "\ref{%([^}]*%)$a$N$b" + "\ref{%1$N"
    expr "$Z" :Z "\textbf{%([^}]*%)$a$N$b" + "\textbf{%1$N"
    expr "$Z" :Z "\textsc{$a$N$b" += "\textsc{$N"
    expr "$Z" :Z "\verb%(.%)$a$N$b" + "\verb%1$N"
    expr "$Z" :Z ' %(D_[0-9a-z_]%{2,}%)_%D%D%D_en ' || continue
    expr "$Z" :Z '%([ \]*%)$'   "\index{$_ind}%1"
    expr "$Z" :Z '%([^0-9_]%)[0-9_]%{8%}%([^0-9_]%)' "%%1$n%%2"
    expr "$Z" :Z '[0-9] %(.%{1,}%)$'
    expr "$Z" :a '%*rA%*%(.*%)%*aB%*'
    expr "$Z" :a 'A%*%(.*%)%*a'
    expr "$Z" :addr " %($ip%) " || continue
    expr "$Z" :b '%*aB%*%(.*%)%*b'
    expr "$Z" :b 'B%*%(.*%)%*b'
    expr "$Z" :danam ' %(D_%W%{1,}_%D%D%D_%L%L%)  *"[^"]*" *$' || {
    expr "$Z" :danam ' %(D_%W%{1,}_%D%D%D_%L%L%)  *["0]' || {
    expr "$Z" :dir '^%(.*/%)[^/]*$' || dir=
    expr "$Z" :hex '^RD=%([ 0-9A-Fa-f]%{3,}%)::%D%{1,10} ms.%{0,2}$' || {
    expr "$Z" :n '%*tN%*%(.*%)%*nR%*'
    expr "$Z" :n 'N%*%(.*%)%*n'
    expr "$Z" :nam '%([^/]*%.htm%)$' || continue
    expr "$Z" :p '%([^ ].*[^ ]%)  ' || continue
    expr "$Z" :p '%<proto=%([^ ]%{1,}%)' || continue
    expr "$Z" :r '%*nR%*%(.*%)%*rA%*'
    expr "$Z" :r '%<rcvd=%([0-9]%{1,}%)' || continue
    expr "$Z" :r 'R%*%(.*%)%*r'
    expr "$Z" :t 'T%*%(..*%)%*t' || continue
    expr "$Z" :t 'T%*%([0-9]%{12%}%.[0-5][0-9]%)%*t' || continue
    expr "$Z" :t 'T%*%([0-9][0-9.]*%)%*tN%*' || continue
    expr "$Z" :t1 ' D_%(%W%{1,}%)_%D%D%D_en ' || continue
    expr "$Z" :text '%(  *"[^"]*"%) *$' || text=0
    expr "$Z" :txt ' %(%W%{1,}%) *: *%D' || continue
    expr "$Z" :z '  %([0-9][ 0-9]*%)' || continue
    expr "$Z" :z '[1-9]%([^/\1-9]*%)$' '%1' || continue
    expr "$Z" :z '[^/\]%{1,}$' "%%$lu&"
    expr "$Z" :zn1 '["/]tcnt.pl?%([0-9]%{1,10%}%.[0-9]%{1,10%}%)' ||
    expr "$Z" =:: '%.abs$' && continue
    expr "$Z" =:: '<table .* bgcolor *= *"#[0-9a-fA-F]%{6%}"' &&
    expr "$Z16" :: '[89abcdef][0-9a-f]' || { catv Z /%n; continue; }
    expr "$ZNAM" :title '^_%(upc3_.%{1,}%)$' || continue
    expr "$Zeile" :: '[^ %t%z]' || continue
    expr "$Zeile" :: '^#@[a-zA-Z]%{1,8%} ' && continue
    expr "$Zeile" :: '^<!undo>$' || { >< ; return 0; }
    expr "$Zeile" :: '^[ %t]*#' && continue
    expr "$Zg" :Zg 'icnt.pl?%(0%.[1-9][0-9]*%)'
    expr "$Ziel" :name '^%(..*%)'$T'[^'$T']*$'
    expr "$__e" :__e '^%([^ ]%{1,%}%)' || __e=''
    expr "$_ind" :_ind '_' += '\_'
    expr "$a" :: '^[ %t]*[^, %t]%{1,%}[ %t]%{1,%}[^, %t]' && return 1
    expr "$a2" :a2 '^ *%([0-9]%{1,%}%) *$'  '%1' && let ++an
    expr "$arg" :Ref '^[0-9]%{1,2%}%.%(..*%)$'
    expr "$arg" :nam ':%(..*%)$'  nam=
    expr "$ats" :ats '[^!-~]%{1,}' += ' '
    expr "$b" =:b '%[%([a-zA-Z]%{2%}%)]' + '%L%1'
    expr "$b" =:b 'MSIE' += 'IE'
    expr "$b" =:b 'Netscape' += 'NS'
    expr "$b" =:b 'compatible;' = ''
    expr "$boundary" =:boundary 'boundary=%(..*%)' || return 1
    expr "$buf" :buf "^$gid $aid "'%(.*%)$' || return
    expr "$buf" :buf ' %([^ ].*%)$' || buf=
    expr "$danam" :dnanu '^%(D_%W%{1,}_%D%D%D_%)%L%L$'
    expr "$danam" :lang '^D_%W%{1,}_%D%D%D_%(%L%L%)$'
    expr "$dir" :dir '^%(.*%)'"$name"'$' || return
    expr "$dir" :name '%([^/\]%{1,%}%)$' || return
    expr "$errval" :: '-kenn[123]+' ||
    expr "$fil" :fil '01GET' = ''
    expr "$file" :: c || [ ! -e "$arch" ] &&
    expr "$file" :fil '%([^/]%{1,%}%)$'
    expr "$file" =:: '[Mm][Bb][0-9]%{2,%}%.[Hh]$' && continue
    expr "$file" =:: '^tmp_..*' && continue
    expr "$file" =:: 'mb[0-9]%{2,%}%.h$' && continue
    expr "$file" =:: 'sl%D%{2,%}%.h$' && continue
    expr "$fmt" :: '^%%?K' && {
    expr "$fnams" :fnams '/?????_' = "/${1}_" || r=4$r
    expr "$g" :x '=%([^=]*%)$' || x=
    expr "$g" :y '^%([^=]%{1,%}%)' || { ErrExit "$g"; break; }
    expr "$gew" :gb '^%([a-z]%)' || exit 1
    expr "$gew" :gn '^.%([0-9]%{1,}%)' || exit 1
    expr "$gf" :: 'tar archive' && {
    expr "$gf" :: 'x86 boot sector' && {
    expr "$grp" :: '^[!* ]' && { remove $tmp; PutErrHtm "!* not allowed: »$grp«
    expr "$headEMAIL" :Hbuf '~email~' = "$z"
    expr "$hostname" :hostname '^%([^:]%{4,}%)'
    expr "$hostname" :port ':%([0-9]%{1,5}%)$' || port=''
    expr "$html" :HTML '~url~' = "$url"
    expr "$htmlF" :htmlF "~$x~" = "$y"
    expr "$id" :: '^%$' && break
    expr "$id" :: '^:..*' && {
    expr "$id" :id '^@%([0-9]%{1,}%)' && {
    expr "$id" :id '^[@a-z;,.]%(%D%{8}%)$' || continue
    expr "$if" :dir 'I' = D
    expr "$ind" :ind '%%s' += ' '
    expr "$inp" :: '[?*[]' && {
    expr "$le" :: '^[a-z]%{1,4}$' || return
    expr "$lkn" :time '^%([0-9]%{8,10}%)_[0-9]%{1,}_'  continue
    expr "$lst" :: '[^ ]' || return 0
    expr "$mtr" :mtr '^%([0-9]%{1,}%)'
    expr "$n" :N '^%(.%{1,}%)%.Z$'
    expr "$n" :n ' %([a-z]%)' + ' %U%1'
    expr "$n" :name $nu "/mnt/${D[nu]}"
    expr "$n" :nu '^%([1-9]%{1,3%}%)/..*' || { echo $n; break; }
    expr "$n1" :name1 $nu "/scratch/${D[nu]}"
    expr "$n1" :nu '^%([1-9]%{1,3%}%)/..*' || { echo $n1; break; }
    expr "$nam" :dir '^%(.*/%)[^/]*$'  dir=
    expr "$nam" :dir '^%(.*/%)[^/]*$' || dir=
    expr "$nam" :erw '%.%([^/.]%{1,%}%)$'  erw=
    expr "$nam" :nam '%([^/]*%)$'  nam=
    expr "$nam" :nam '%([^/][^/]*%)$' || nam=
    expr "$nam" :num '%(%D%{1,}%)$' && {
    expr "$nam" =:nam '%%2f' += '/'
    expr "$name" :name '^%(%.*[^.]*%)' || return
    expr "$name1" :: '..*-$' && {
    expr "$o" :: '[^ !adlxut0-9+-]' && return 1
    expr "$o" :: '[^=adlxu1 ]' && return 1
    expr "$o" :: '[lut]' || return
    expr "$o" :: 'a' && erw=
    expr "$o" :: 'd' && fd=d
    expr "$o" :: 't' && {
    expr "$ok" :: '^@[0-9]:OK'"$RN" || return 1
    expr "$ok" :: '^@[0-9]:READY'"$RN" || return 1
    expr "$okfa" :: '^[Ff][Aa]' && {
    expr "$okfa" :: '^[Oo][Kk]' && : > $adir/okay
    expr "$p" :Z '^%(.%{1,}%)%.Z$'
    expr "$path" :dir '^%(..*%)\[^\][^\]*%.[ch]$' || continue
    expr "$r" :r '://%(.*%)'
    expr "$rd" :: '^[1-9][0-9]*$' && n=$rd
    expr "$reftxt" :reftxt '/?????_' = "/${1}_" || r=3$r
    expr "$rek" :k '.' += '}' || k=
    expr "$rek" :k '[BFb]' += '}' || k=
    expr "$s" :: E && { echo directory checksum error; >< ; goend; }
    expr "$sn" :: '[^JY0-9.-]' && sn=YY000000-000.000
    expr "$t2" :t2 '^0%{1,2}' = ''
    expr "$ta$mo$ja$st$mi$se" :: '^[0-9]%{7,14}$' && {
    expr "$title0" :: '^%.%.%.' || {
    expr "$try" :try ' %([0-9]%{1,}%)[^0-9]*$' || return
    expr "$tz" :: '^-%{0,1%}[0-9]%{1,2%}$' && tz $tz
    expr "$url" :: ' ' && continue
    expr "$url" :url '^%([^%n]*%)'
    expr "$urltxt" :urltxt '/%D%D*_url.txt' = "/${zn}_url.txt"
    expr "$urltxt" :urltxt '/?????_' = "/${1}_" || r=2$r
    expr "$v" :$1 "^$2 "'%(.*%)$' || return
    expr "$val" :val '^[^:]%{1,}:' = ''
    expr "$w" :a '(%(%D%{1,}%),%D%{1,})$'
    expr "$w" :w '^%([^(]%{1,}%)('
    expr "$wd" :: '%W$' || let "ww|=2"
    expr "$z" :: "^%r%n--$boundary--%r%n%$" || { remove -s $arch; return 4; }
    expr "$z" :Stxt ' "%([^"]%{1,50}%)"' || { print -u2 "Stxt"; exit 5; }
    expr "$z" :l '^%(%D%{1,5}%):' || { print -u2 "line:"; exit 4; }
    expr "$z" :tid ' { %D%{4}, %(%D%{4}%), %D }' || { print -u2 tid; exit 3; }
    expr "$z" :z '[| ]' += ''
    expr "$zeile" :$1 '^%([0-9]%{1,%}%)'
    expr "$zeile" :: '[ %t]call .' || { catv zeile /%j; continue; }
    expr "$zeile" :: '^From - ' && {
    expr "$zeile" :: '^[ %t]%.data' || continue
    expr "$zeile" :: '^[ %t]%{1,%}%.align' &&
    expr "$zeile" :: '^[ %t]%{1,%}jmp %*%.L' || continue
    expr "$zeile" :a '^ *%([0-9]%{1,%}%)' || {
    expr "$zeile" :ema '|%([^|]%{3,}%)|'
    expr "$zeile" :zeile '<[^>]%{1,%}>' + ''
    expr "$zeile" :zeile '^/%*000' = "/*$num" && {
    expr "$zn1" :zn1 '^%([0-9]%{1,%}%)'
    expr "$zn1" :zn2 '%([0-9]%{1,%}%)$'
    expr "$znum" :: "$znck" || return 1
    expr "$znum" :: '^[0-9]%{1,4}$' &&
    expr "${{1}" :$1 '%%00' += "?"
    expr "${{1}" :spez '[a-zA-Z_0-9&=.-]' += ''
    expr "${{2}" :: '^%.' && $2="0${{2}" #let "++len"
    expr ".$zn1" :: '%.0[0-9]' && end=1
    expr "000$n" :n '%(%D%{3}%)$'
    expr "000000000$Oid" :Oid '%(%D%{10}%)$'
    expr $1 :: '.*%.' || { let "x=$1*$2"; echo $x%c; return; }
    expr $Dir : "^$A_" > $NUL &| expr "$L" : '^[abAB]:' > $NUL && {
    expr $Dir :: "^$A_" &| expr "$L" :: '^[abAB]:' && {
    expr $F : '..*\.mn[a-z]' >/dev/null && {
    expr $FN :: '..*mn[a-zA-Z]$' && {
    expr $FN :: '..*mn[a-zA-Z]$'  {
    expr $o : '^0*%([1-7][0-7]*%)$'
    expr $dir :dir '^%(.*%)'&quot;$name'$'  return
    expr $dir :name '%([^/\]%{1,%}%)$'  return
    expr $name :name '^%(%.*[^.]*%)'  return
    expr $url :: ' '  continue
    expr $url :url '^%([^%n]*%)'
    if [ -s "$rdir" ] && expr "$1" :: L && [ "$1" != LV ]
    if expr "$1" :: 'AT&F'
    if expr "$1" :: 'R'
    if expr "$Hbuf" :: '[ %t%r%n]'
    if expr "$Z" :comment '[^\]%(%%.*%)$'
    if expr "$dp" :: '^:$'
    if expr "$sargs" :: '/[^ ]%{1,} :[0-9]'
    if { expr "$Z" :: '\verb%>'; inv; } && expr "$Z" :comment '[^\]%(%%.*%)$'
    then  expr "$Z" :Z '%([^\]%)%%.*$' '%1'
    while  expr "$dir" :C '^.%{'$N'%}%(.%)'
    while expr "$Dir" :lsec '%([^/]%{1,%}%)$' &&
    while expr "$Text" :Leer '%(λ%{1,}%)'
    while expr "$Z" :U '&%([a-zA-Z0-9#]%{2,}%);'
    while expr "$zeile" :zeile '<[Bb][Rr]>%(.%)' "$zv%1"
    while expr "${{1}" :h '%%%([a-fA-F0-9]%{2%}%)'
    while shift; expr "$1" :v '%([0-9]%{1,}%)'
    expr "$Z" :: '^//' || break
    expr "$Z" :: '^//-%{50,}' && {
    expr "$Z" :Z '&' += '&amp;'
    expr "$Z" :Z '^//%(.*%)$'
    expr "$Z" :b '^//--> %{1,}%([0-9, ]%{1,}%)' && { B$n="$b"; continue; }
    expr "$Z" :v '^//--> %{1,}V[^0-9]%{2,}%([0-9.]%{1,}%)' && { V$n="$v"; conti
    if expr "$Z" :: '^[^ ]'
    # expr "$Z" :: '%<T_%W%{1,}_%D%D%D_%L%L%>' || {
    # expr "$Z" :: '_[ed][ne]%>' && {
    # expr "$Z" :ll '_%D%D%D_%(%L%L%>%)' && {
    # expr "$Z" :n '%([0-9]%{1,}%)' || { catv Z /%n; continue; }
    # expr "$buf" :: "^$nam=" || { catv buf /%n; continue; }
    # expr "${{1}" :$1 '%(.%)/%*$' '%1'
    # expr "${{1}" :$1 '%(.%)/[^/*]%{1,%}/%*$' '%1'
    # expr "${{1}" :$1 '/%.%.$' '/*'
    # expr "${{1}" :$1 '^%.%./' '*/'
    # expr "${{1}" :$1 '^/[^/*]%{1,%}/%*$' '/'
    # while expr "${{1}" :$1 '/%*/' '/'; do  done
    # while expr "${{1}" :$1 '/%.%./' '/*/'; do  done
    # while expr "${{1}" :$1 '/%./' '/'; do  done
    # while expr "${{1}" :$1 '/[^/*]%{1,%}/%*/' '/'; do  done
    # expr "$Gdir" :VBMip '%([0-9.]%{7,15}%)' && {
    # expr "$Z" :lc '^%(.%{1,}\[^\/]%{1,}%.%)%([A-Z_0-9]%{1,}%)$' + '%1%L%2' ||
    # expr "$lc" :name '[\/]%([^\/]%{1,}%)$' || break
    # expr "$x" :x '%%'$h += "$z"
    # expr "$zeile" =:: 'AT' && ext -ocot30od4o4 ok
    # expr "$zeile" =:: 'ATA' && continue
    # expr "$html0" :html0 'www%.schellong%.com' += 'localhost'
    # grep -cvh -e expr file ...         
    # while expr "$x" :h '%%%([a-fA-F0-9]%{2%}%)'
    expr "$Z" :: "^$Beg" || z=0 goend
    expr "$Z" :: "^$Beg%$" && [ "$z" == P ] &&
    expr "$Z" :: "^$End" && z=I
    expr "$Z" :: "^$Pv$End" &|
    if expr "$Z" :: "^$Pv"
    z=P expr "$Z" :: "^$Pl$LANG%$" && z=p
    0)  expr "$Z" :Le "^$Pl"'%(..*%)$' && z=1
    1)  expr "$Z" :: "^$Pv$Beg" &|
    C)  expr "$Z" :: "^$Pl$LANG%$" && continue 2
    D)  expr "$Z" :: "^$Pl$LANG%$" && z=d ;;
    I)  if expr "$Z" :: "$Inp"
    d)  expr "$Z" :: "$Inp" && z=D continue 2
    expr "$Z" :: "%<$N%>" || continue
    expr "$Z" :: '\begin{verbatim}' || goend
    expr "$Z" :: '\end{verbatim}' && V=v
    expr "$Z" :: "$KZ@-$OFILE@$KZ" && break
    expr "$Z" :Z "%<$old%>" + "$new"
    expr "$Z" :Z "^$RAtxt" = ''
    B)  expr "$Z" :Z '^</span>' = '' && k=R ;;
    do  expr "$Z" :OFILE "$KZ"'@+%(%W%{4,}%)@'"$KZ" && break
    expr "$Z" :HexC "^$RAbgc" && {
    expr "$Z" :Text "^$RAtxt" && {
    expr "$Z" :Z "$muster" = "$subst" &&  {
    expr "$rek" :k '%(.%)$' || k=.
    expr "$rek" :rek '^.%(.*%)$'
    expr "$FILE" :NAME '%([^/]%{1,}%)%.tex$' || continue
    expr "$HexC" :B '^....%(..%)'
    expr "$LES" :: "%%<$le%%>" || {
    expr "$N" :n '^%(.%)%(.*%)$' '%1%L%2'
    expr "$Text" :Text "$l" += ' '
    expr "$Text" :Text '~' += '\textasciitilde '
    expr "$V" =:version 'Productversion:%(%D*%)'
    expr "$Z" :: '\[a-z]*section%*[{[]' &|
    expr "$Z" :: '\chapter[{[]' && {
    expr "$Z" :: '^[ %t]%{0,}%%' &|
    expr "$Z" :Z "$a$N$b" += "\textsc{$n}"
    expr "$Z" :Z "%<$N%>" + "$a&$b"
    expr "$Z" :Z "\index{$a$N$b" += "\index{$N"
    expr "$Z" :Z "\label{%([^}]*%)$a$N$b" + "\label{%1$N"
    expr "$Z" :Z "\pageref{%([^}]*%)$a$N$b" + "\pageref{%1$N"
    expr "$Z" :Z "\ref{%([^}]*%)$a$N$b" + "\ref{%1$N"
    expr "$Z" :Z "\textbf{%([^}]*%)$a$N$b" + "\textbf{%1$N"
    expr "$Z" :Z "\textsc{$a$N$b" += "\textsc{$N"
    expr "$Z" :Z "\verb%(.%)$a$N$b" + "\verb%1$N"
    expr "$file" =:: 'sl%D%{2,%}%.h$' && continue
    expr "$id" :: '^%$' && break
    expr "$id" :: '^{#$' && {
    expr "$id" :: '^}$' && {
    expr "$le" :: '^[a-z]%{1,4}$' || return
    expr "$n" :n ' %([a-z]%)' + ' %U%1'
    expr "$rek" :k '.' += '}' || k=
    if expr "$Z" :comment '[^\]%(%%.*%)$'
    then  expr "$Z" :Z '%([^\]%)%%.*$' '%1'
    [ -t 0 ] &| expr "$1" :: '[^0-9-]' && {
    ifset CMD  && expr "$C" :: "%<$CMD%>" || exit 3
    ifset LANG && expr "$L" :: "%<$LANG%>" || exit 4
    [ $# -eq 1 ] && expr "$1" :: '%.djffiodj' && arg="$1"
    [ $# == 1 ] && expr "$1" :: '^[0-9]%{1,4%}%.[0-9]%{1,3%}' && arg="$1"
    [ -t 0 ] &| expr "$1" :: '[^0-9-]' && {
    bgrep2  -c -lc -f datei -e expr 
    do  expr "$Zeile" :: '^#@D[0-9] ' && break;  done
    do  expr "$Zeile" :: '^#@G ' && { let ++inp; continue; }
    do  expr "$Zeile" :: '^#@[a-zA-Z]%{1,8%} ' && inp=1 && break;  done
    do  expr "$Zeile" :: '^#@g ' && break;  done
    do  expr $Zeile :: '^#@G '  { let ++inp; continue; }
    do  expr $Zeile :: '^#@g '  break;  done
    do expr "$Z" :: 'BUILDs' && break; done
    ifset LANG && expr "$L" :: "%<$LANG%>" || exit 4
    ifset TageBez && expr "$TageBez" :: ' ' || {
    expr "$1" :: '[^0-9WPT,]' && return 1

    expr "$Z" :Z '%<PSS%.'"$N"'%>' += "Reg.$N" && let ++n
    expr "$Z" :Z '%<PSS%.K%(%[[^][.]%{1,}]%.%)'"$N"'%>' + 'Reg.K%1'"$N" &&
    expr "$z" :z '^%(.%{22} %)%D%{8}' "%1$LNK"
    b)  expr "${{v}}" :$v '^x%([0-9a-fA-F]%{1,}%)$' && goend
    expr "$ZO" :ZO '^@0%{8} ' = "@$ZI " || { catv ZO /%n; continue; }
    expr "$darst" :: '^[123]$' && {
    expr "$Z" :: "$1" && z=0 let ++N ;;
    expr "$Z" :: '^@:.' || { seek $sk 0; break; }
    expr "$Z" :Z '  0$' = "  $T" || print -u2 "%t!subst: $Z"
    expr "$Z" :Z ' %D%{6} ' = " $adr " ||
    expr "$Z" :Z ' ' = '!'
    expr "$Z" :Z ' 000 ' = " $pbn " && let ++n
    expr "$ZI" :ZI '^D%D%D%(%D%{8}%)' || print -u2 "»$ZI«"
    expr "$flags" :: '#' && goend
    expr "$max" :max '^0x%([0-9a-fA-F]%{1,}%)'
    expr "$min" :min '^0x%([0-9a-fA-F]%{1,}%)'
    expr "$name" :idname ']%..%{1,}$' = ']'
    expr "$name" :idname '^%(.*[^.]%)%.[^.]%{1,}$'
    expr "$z" :: '^%$' && { catv z /%n; break; }
    expr "$z" :: '^:..' && {
    expr "$z" :lnk ' %(%D%{8}%) '
    expr "$z" :z '^%(.%{18} %)%D%D%D ' "%1$grp " ||
    expr "$z" :z '^%([@x]%)%D%{8} ' "%1$id " && {
    expr "$D" :D "'" += "''"
    expr "$Z" :D "$RA"'de %{1,3}"%([^"]%{1,}%)"' || Err de
    expr "$Z" :E "$RA"'en %{1,3}"%([^"]%{1,}%)"' || continue
    expr "$Z" :R "$RA"'ru %{1,3}"%([^"]%{1,}%)"' || Err ru
    expr "$W" :: '^T_[0-9a-z_]%{2,}$' || continue
    expr "$W" :: '^T_e_' && continue
    expr "$Z" :: " $RA_D"'[a-z][a-z]  0$' && {
    expr "$Z" :: '^.'"$id " && {
    expr "$Z" :: '^@:.' || { seek $sk 0; break; }
    expr "$Z" :D ' %('"$RA_D$LL"'%)  "[^"]*"$' || { catv Z /%n; continue; }
    expr "$Z" :T " ${RA_D}en"'  %("[^"]*"%)$' && {
    expr "$Z" :Tb '%[]= %(".%{1,}%);$' || echo $i:$Ta
    expr "$Z" :Z '"[^"]*"$' = "$T" || print -u2 "%t!subst: $D"
    expr "$Z" :Z 'Batt%.%(%W%{1,}%)%(%[[^]]%{1,}]%)' + 'Batt.B%2.%1' && m=1
    expr "$Z" :Z 'Batt%.i1%[' += 'Batt.i[' && m=1
    expr "$Z" :Z 'LANGX_%U%U' = "LANGX_$LL"
    expr "$Z" :Z 'LANGi_%U%U.*$' = "LANGi_$LLs  '$C'"
    expr "$Z" :Z '^[^"]%{1,} %(".*%)"[ %t]*$' && len=${#Z}
    expr "$Z" :id '%(%D%{8,}%)'
    expr "$Z" :id '_id  %(%D%{4}%)$'
    expr "$Z2" :T '%("[^"]%{1,}"%)$' || { catv Z /%n; continue; }
    expr "$Z2" :c2 '"\...%(.%)' || continue
    expr "$ZR" :S5 ' %("[^"]%{16%}"%)'
    expr "$ZR" :ZR ' "[^"]%{16%}"' = ' '
    expr "$ZS" :: ' "[^"]%{16%}",' || continue
    expr "$ZS" :: '^ *//' && continue
    expr "$ZS" :: '^ *}; *$' && break
    expr "$ZS" :S4 ' %("[^"]%{16%}"%)'
    expr "$ZS" :Tnam ' %(T_%W%{1,}%) *= *{' || continue
    expr "$ZS" :ZS ' "[^"]%{16%}"' = ' '
    expr "$Zq" :: '_%D%D%D_no  "' && f=1 break
    expr "$cmd" :: '^[0-9][0-9]*$' || continue
    expr "$cmd" :: '^[a-zA-Z_0-9]%{2,15}$' || continue
    expr "$darst" :darst '%.%([0-9]%)'
    expr "$flags" :: '#' && goend
    expr "$flags" :: '&'   && ptr=
    expr "$flags" :: '&' && ptr=
    expr "$flags" :: '1%.' && let "flg|=128"
    expr "$flags" :: 'Z'   && let "flg|=1<<24"
    expr "$flags" :: '[sz]' && let autopad && pad=0
    expr "$flags" :: '[sz]' && pad=0
    expr "$flags" :: 'u4' && let "flg|=1<<19"
    expr "$flags" :: 'v' && ds=v name=0
    expr "$flags" :: 'z' && let "flg|=32"
    expr "$flags" :ele 'A%(%D%{1,}%)'
    expr "$flags" :info2 '=%([1-9][0-9]%{0,2}%)'
    expr "$flags" :nelem 'S%([0-9]%{1,}%)' && {
    expr "$flags" :pad 'p%(%D%{1,}%)'
    expr "$flags" :pad 'p%([0-9]%{1,}%)' || {
    expr "$flags" :parbn '=%([1-9][0-9]%{0,2}%)'
    expr "$flags" :txtnum 'T%(%D%{1,3}%)'
    expr "$idname" :: '^[A-Za-z_]' || idname="$text"
    expr "$idname" :idname '[^A-Za-z_0-9]' += '_'
    expr "$idname" :idname '^%([^\]%{1,}%)\000'
    expr "$n2" :: '^0.' && conv -D0 n2
    expr "$name" :idname '^%(.*[^.]%)%.[^.]%{1,}$'
    expr "$z" :: '^%$' && { catv z /%n; break; }
    expr "$z" :: '^:..' && {
    expr "$z" :: '^[@x]%D%{8} ' && {
    expr "$z" :ido '^[@x]%(%D%{8}%) ' && {
    expr "$z" :z '^%([@x]%)%D%{8} ' "%1$id " && {
    expr "$zeile" :zeile "$Wl$old$Wr" + "$new"
    expr "$zeile" :zeile "%%<$old%%>" + "$new" && is=
    expr "${{nam}" :$nam '##-%{0,1}[0-9]%{1,}' = "$sd"
    expr "${{nam}}" :$nam '#-%{0,1}[0-9]%{1,}' = "$sd"
    0)  expr "$Z" :: '^<h3.%{20,}>%D%{4}<' && z=1 ;;
    1)  expr "$Z" :: '^<p' && z=2 ;;
    2)  expr "$Z" :: '^</p' && z=0 goend
    expr "$Hbuf" =:: 'Connection %{1,3}aborted' || break
    expr "$Hbuf" =:: 'PASSWORD %{1,3}OK' || break
    expr "$Hbuf" =:: 'PASSWORD:' || break
    # expr "$zeile" :zeile "%%($nowd%%)$old%%($nowd%%)" + "%%1$new%%2" && is=
    # ifset is && expr "$zeile" :zeile "%%($nowd%%)$old%$"   "%%1$new" && is=
    # ifset is && expr "$zeile" :zeile "^$old%%($nowd%%)"   "$new%%1" && is=
    elif expr "$Z" :z '  "%(.*%)"$'
    else  id=0 expr "$Z" :Z ' %(".*%)"[ %t]*$' && let "Nchar+=${#Z}"
    end=`grep -nm '^%$$' $FO` && expr "$end" :end '^%(%D%{1,}%):'
    expr " $* " :: "[ %t]${dnam}[ %t]" || continue
    expr " $* $Dnam " :: "[ %t]${dnam}[ %t]" || continue
    expr " $langs " :: " $l " && { catv Z$l /%n; continue; }
    expr "$I" :i 'id  %([0-9]%{4}%)' || { print -u2 "'$I'"; break; }
    expr "$N" :n '^/[ 0-9*]%{10,12}/ %{1,3}%(%D%D%D%D%)' || { print -u2 "'$N'";
    expr "$O" :: '^-' && s=-
    expr "$T" :t '"%([^"]*%)"' || { print -u2 "'$T'"; break; }
    expr "$Z" ::  '^[%t ]*$' && { len=$len0; continue; }
    expr "$Z" :: "$muster" || { catv Z /%j; continue; }
    expr "$Z" :: ' "\[0-9]%{3}[a-z?A-Z]' || { catv Z /%r%n; continue; }
    expr "$Z" :: ' 0%{1,}[ %t]*$' ||
    expr "$Z" :: ' <td[> ].%{1,}</td>$' || continue
    expr "$Z" :: ' LANGX_%U%U%>' && {
    expr "$Z" :: '</tr>' && break
    expr "$Z" :: '<h%D>Eventlist</h%D>' && break
    expr "$Z" :: 'D_%W%{1,}_%D%D%D_%L%L' || continue
    expr "$Z" :: '^ *$' && Len=$LEN
    expr "$Z" :: '^#define D%D%{10}grp ' && {
    expr "$Z" :: '^#define D_%W%{2,24}_%D%D%D_%L%L  ".*"$' || {
    expr "$Z" :: '^%$' && break
    expr "$Z" :: '^@%D' || continue
    expr "$Z" :: '^@[0-9]' || { catv Z /%n; continue; }
    expr "$Z" :: '^[@a-z;.,][0-9]' || continue
    expr "$Z" :: '^[@a-z;.,][0-9]' || { catv Z /%n; continue; }
    expr "$Z" :: '^[@x][0-9]' || { catv Z /%n; continue; }
    expr "$Z" :: '_%D%D%D_no  "' || { catv Z /%n; continue; }
    expr "$Z" :: 'const struct cfgdata_t FAR '"$2"'data%[]= {' && {
    expr "$Z" :D ' %('"$RA_D"'en%) ' || continue
    expr "$Z" :D ' %('"$RA_D$LL"'%) ' || continue
    expr "$Z" :LEN '^//|%(%D%D%)|' && Len=$LEN
    expr "$Z" :LLs ' LANGi_%(%U%U%)%>' && {
    expr "$Z" :Len '^//%(%D%D%)'
    expr "$Z" :T '%("[^"]%{1,}"%)$' || continue
    expr "$Z" :Ta ' %(const BYTE FAR T[0-9]%{10}%[]%)= ' && {
    expr "$Z" :Ta '^ %{1,}{ D.%{1,}%( D%D%{10}Text %)' && {
    expr "$Z" :Ta '^%(#define D%D%{10}Text %{1,}%)' && {
    expr "$Z" :Z "$muster" = "$subst" && let "start+=inc"
    expr "$Z" :Z ' %D%{6} ' = " $Adr "
    expr "$Z" :Z '"' += '&quot;'
    expr "$Z" :Z ', ..,' = ", $nn,"
    expr "$Z" :Z '<' += '&lt;'
    expr "$Z" :Z '^%(@:English,Deutsch,%).*$'  '%1'"$Lang"
    expr "$Z" :Z '^[^"]%{1,} %(".*%)"[ %t]*$'; len=${#Z}
    expr "$Z" :adr '^[@x-]%D%{8,10} %D %(%D%{6}%) ' || continue
    expr "$Z" :c '"\...%(.%)'
    expr "$Z" :danam ' %(D_%W%{1,}_%D%D%D_%L%L%)  *%D%{1,5}, *"' || {
    expr "$Z" :danam ' %(D_%W%{1,}_%D%D%D_%L%L%)  *["0-9]' || continue
    expr "$Z" :danam ' %(D_%W%{1,}_%D%D%D_%L%L%)  *["0]' || continue
    expr "$Z" :ddd ' D_%W%{1,}_%(%D%D%D%)_%L%L  *%D%{1,5}, *"'
    expr "$Z" :flags ' %(p%D%{1,}A%D%{1,}%)st2T' && {
    expr "$Z" :id ' D_%W%{1,}_%D%D%D_%L%L  *%(%D%{1,5}%), *"'
    expr "$Z" :id ' D_%W%{1,}_%D%D%D_id  *%(%D%{1,6}%)' || continue
    expr "$Z" :id '^#define D_%W%{2,24}_%D%D%D_id  %(%D%{4}%)$' && continue
    expr "$Z" :id '^@%(%D%{8,10}%) %D' || continue
    expr "$Z" :lc '^%(.%{1,}\%)%([.A-Za-z_0-9-]%{1,}%.%)%([A-Z_0-9]%{1,}%)$' + 
    expr "$Z" :len  '^//%(%D%{1,}%)' && continue
    expr "$Z" :len0 '^//|%(%D%{1,}%)|' && { len=$len0; continue; }
    expr "$Z" :ll ' D_%W%{1,}_%D%D%D_%(%L%L%)  *%D%{1,5}, *"'
    expr "$Z" :n '/*%(..%)*/'
    expr "$Z" :nam '^#define D_%(%W%{2,24}%)_%D%D%D_id  %D%{4}$' &|
    expr "$Z" :text '^[^"]%{1,} %(".*"%)[ %t]*$'
    expr "$Z" :z '^#define D_%W%{2,24}_%D%D%D_'"$Lang"'  %(".*"%)$' && {
    expr "$Z0" :lm '^//%([^ %t]%{1,}%)' && let "len-=${#lm}"
    expr "$Z2" :T2 '%("[^"]%{1,}"%)$' || continue
    expr "$cc" :: "$c" || cc="$cc$c" fst="$fst $c=$n"
    expr "$danam" :dnam '^%(D_%W%{1,}%)_%D%D%D_%L%L$'
    expr "$darst" :darst '%.%([0-9]%)'
    expr "$flags" :: '1.' && let "flg|=128"
    expr "$flags" :: 'B[AS][0-9]' && let "flg|=256"
    expr "$flags" :: '[sz]' && pad=0
    expr "$flags" :: 'a' && let "flg|=2"
    expr "$flags" :arr '[AS]%(%D%{1,4}%)' || arr=1
    expr "$flags" :nelem 'S%([0-9]%{1,}%)'
    expr "$flags" :nelem 'S%([0-9]%{1,}%)' && {
    expr "$flags" :pad 'p%([0-9]%{1,}%)' || {
    expr "$flags" :padd 'p%(%D%{1,5}%)' || padd=0
    expr "$id" :: '^%$' && break
    expr "$id" :: '^%...*' && {
    expr "$id" :: '^%...*' && { continue; }
    expr "$id" :: '^[:.]..*' && continue;
    expr "$id" :: '^[@x-]%D%{8,10}$' || continue
    expr "$id" :: '^{#$' && {
    expr "$id" :: '^}$' && {
    expr "$id" :id '^@%([0-9]%{1,}%)' && {
    expr "$idname" :: '^[A-Za-z_]' || idname="$text"
    expr "$idname" :idname '[^A-Za-z_0-9]' += '_'
    expr "$idname" :idname '^%([^\]%{1,}%)\000'
    expr "$lc" :name '[\/]%([^\/]%{1,}%)$' || break
    expr "$sz" :: '^-' && continue
    expr "$tanam" :tnam '^%(T_%W%{1,}%)_%D%D%D_%L%L$'
    expr "$z" :: '^%$' && break
    expr "$z" :: '^:..' && break
    expr "$z" :: '^[@x]%D%{8} ' && let ++NGE
    expr "$z" :: '^[@x]%D' || continue
    expr "$z" :z ' %(%D%{8}%) ' || continue
    expr "${{a}}" :: "$RA" || continue
    expr "${{a}}" :: '[^0-9]' && n=
    if expr "$Z" :a '[AS]%(%D%{1,}%)'
    if expr "$Z" :id ' D_%W%{1,}_%D%D%D_id  *%(%D%{1,6}%)'
    if expr "$Z" :id '_id  %(%D%{4}%)$'
    if expr "$flags" :padf 'p%([0-9]%{1,}%)'
    ifset base && expr "$a1" :: '^@[^:]' || continue
    readl Z && expr "$Z" :e '%([0-9]%{1,6}%):' && z=0
    while expr "${{nam}" :sd '##%(-%{0,1}[0-9]%{1,}%)'
    expr "$Z" :Z '^ %{1,}%(.*%)$'
    l)  expr "$opt" :: '^[1-9][0-9]*$' || continue
    o)  expr "$opt" :: '^[a-zA-Z_0-9/\]%{1,}$' || continue
    [ l -lt 2 ] && expr "$Z" :ll '_%D%D%D_%(%L%L%)%>' && {
    do expr "$Z" :: '^ *</body%>' && break; catv Z /%n; done
    do expr "$Z" :: '^ *<body%>' && break; done
    expr "$F" =:: '^mb.*%.h$' && continue
    expr "$F" =:: '^t' && continue
    expr "$FILE" :: '%<cfgbase.txt%>' && typ=base
    expr "$FILE" :: '%<mesbase.txt%>' && typ=base
    expr "$FILE" :: '%<txtbase.h%>' && typ=text
    expr "$N" :: ' EventNo%[[^][]%{1,}]=' && break
    expr "$N" :n '^/[ 0-9*]/ %{1,3}%(%D%D%D%D%)' && print -u2 "'$n' unerwartet"
    expr "$Z" :: '%<D_%W%{1,}_%D%D%D_%L%L%>' || {
    expr "$Z" :: '^:..*' && {
    expr "$Z" :: '^[@a-z][0-9]%{3,16}' && {
    expr "$Z" :: '_%D%D%D_'"$LL"'%>' && catv Z /%n
    expr "$Z" :: '_%D%D%D_[ed][ne]%>' && {
    expr "$Z" :DZ '^%( *# *define  *[Dd]_%W%{1,}_%D%D%D_%L%L  *%)["0-9]' || {
    expr "$Z" :Z ' %(D_[0-9a-z_]%{2,}%)_%D%D%D_en ' || continue
    expr "$Z" :danam ' %(D_%W%{1,}_%D%D%D_%L%L%)  *"[^"]*" *$' || {
    expr "$Z" :hex '^RD=%([ 0-9A-Fa-f]%{3,}%)::%D%{1,10} ms.%{0,2}$' || {
    expr "$Z" :ms '^RD=[ 0-9A-Fa-f]%{3,}::%(%D%{1,10}%) ms.%{0,2}$'
    expr "$Z" :t1 ' D_%(%W%{1,}%)_%D%D%D_en ' || continue
    expr "$Z" :t2 ' D_%W%{1,}_%(%D%D%D%)_en '
    expr "$Z" :text '%(  *"[^"]*"%) *$' || text=0
    expr "$Z" :txt ' %(%W%{1,}%) *: *%D' || continue
    expr "$Z16" :: '[89abcdef][0-9a-f]' || { catv Z /%n; continue; }
    expr "$ZNAM" :title '^_%(upc3_.%{1,}%)$' || continue
    expr "$danam" :dnanu '^%(D_%W%{1,}_%D%D%D_%)%L%L$'
    expr "$danam" :lang '^D_%W%{1,}_%D%D%D_%(%L%L%)$'
    expr "$file" =:: '[Mm][Bb][0-9]%{2,%}%.[Hh]$' && continue
    expr "$id" :: '^%$' && break
    expr "$id" :: '^:..*' && {
    expr "$id" :: '^{#$' && {
    expr "$id" :: '^}$' && {
    expr "$id" :id '^@%([0-9]%{1,}%)' && {
    expr "$id" :id '^[@a-z;,.]%(%D%{8}%)$' || continue
    expr "$ok" :: '^@[0-9]:OK'"$RN" || return 1
    expr "$ok" :: '^@[0-9]:READY'"$RN" || return 1
    expr "$t2" :t2 '^0%{1,2}' = ''
    expr "$title0" :: '^%.%.%.' || {
    expr "$z" :Stxt ' "%([^"]%{1,50}%)"' || { print -u2 "Stxt"; exit 5; }
    expr "$z" :l '^%(%D%{1,5}%):' || { print -u2 "line:"; exit 4; }
    expr "$z" :tid ' { %D%{4}, %(%D%{4}%), %D }' || { print -u2 tid; exit 3; }
    if expr "$dp" :: '^:$'
    expr "$Z" :: '^//' || break
    expr "$Z" :: '^//-%{50,}' && {
    expr "$Z" :Z '^//%(.*%)$'
    expr "$Z" :b '^//--> %{1,}%([0-9, ]%{1,}%)' && { B$n="$b"; continue; }
    expr "$Z" :v '^//--> %{1,}V[^0-9]%{2,}%([0-9.]%{1,}%)' && { V$n="$v"; conti
    if expr "$Z" :: '^[^ ]'
    # expr "$Z" :: '%<T_%W%{1,}_%D%D%D_%L%L%>' || {
    # expr "$Z" :: '_[ed][ne]%>' && {
    # expr "$Z" :ll '_%D%D%D_%(%L%L%>%)' && {
    # expr "$Z" :lc '^%(.%{1,}\[^\/]%{1,}%.%)%([A-Z_0-9]%{1,}%)$' + '%1%L%2' ||
    # expr "$lc" :name '[\/]%([^\/]%{1,}%)$' || break
    expr "$Z" :Z 'LANGX_%U%U' = "LANGX_$LL"
    expr "$Z" :Z 'LANGi_%U%U.*$' = "LANGi_$LLs  '$C'"
    expr "$Z" :: ' LANGX_%U%U%>' && {
    expr "$Z" :LLs ' LANGi_%(%U%U%)%>' && {
    expr "$Z" :Z '^%(@:English,Deutsch,%).*$'  '%1'"$Lang"
    [ l -lt 2 ] && expr "$Z" :ll '_%D%D%D_%(%L%L%)%>' && {
    expr "$Z" :: '%<D_%W%{1,}_%D%D%D_%L%L%>' || {
    expr "$Z" :: '_%D%D%D_'"$LL"'%>' && catv Z /%n
    expr "$Z" :: '_%D%D%D_[ed][ne]%>' && {
    expr "$LL" :: '^%L%L$' || { print -u2 "LL='$LL'"; exit 2; }
    expr "$Lang" :Lang 'LANG_%U%U *, *"%([^"]%{3,}%)"'
    expr "$PWD" :PD '/%([^/]%{1,}%)$'
    [ -t 0 ] &| expr "$1" :: '[^0-9-]' && {
    do expr "$Z" :: 'BUILDs' && break; done

    catv 140,Z /%j
    catv Such /%n
    catv Z /%j
    catv c,1,$s
    [ n -ge nf ] && { catv feld /%n; continue; }
    catv Z /%r%n
    catv f '/)%n'
    catv sps
    catv zeile /%r%n >> sym.scr
    ifset Z || { catv /%n; continue; }
    let ++i; catv /%n =4; catv Z /%n =3; continue
    then  [ fst -eq 0 ] && { fst=1; catv 140,z0 /%j; }
    )  catv '/' =$o,,Line ; let o+=6 ; continue ;;
    bsh -p -c '...; catv Z'  ...
    bsh -p -c '...; catv Z' | ...
    catv        =48,,V
    catv /%0 =49,,1  >datei
    catv 0,0 =50,,V
    catv 0,isda =50,,V
    catv isnichda =50,,V
    catv =F <bsh.c   #7700 Zeilen
    ifset Des || catv W =:,,Des ;;
    catv Z /%r%n =o,,Ziel
    catv hr /%n >> from.txt
    ifset Des || catv W =:,,Des ;;
    catv "/#@D$g " zeile /%n >> $Script
    catv $len,Hbuf =$adr,,3
    catv Z /%n >> "$Tmp"
    catv Z =$((n*[20+75+2+520+520+2]+20+75)),,3
    catv $o,,Z /%n =$OFFS,,KODE
    catv '.%l%' LANG /%n
    datei ; catv 8,0 ; 1&amp;0 ; echo AAAAA ; 
    datei ; catv 8,0 ; print -u0 AAAAA ; 
    catv 1,2,nam =nam:
    catv Hbuf =$(([nam-1]*3)),3,TblFolge
    let "flg&&!(flg&4)" && catv "/Comments: %j"
    let flg && catv "/Field-Text: %j%j"
    catv "/     " 4,,Zeile $j
    catv "/#@D$g " Such /%n >> $Script
    catv "/xmozillanickname: " name /%j >> $Ziel
    catv $offs,5,BasePos =offs:
    catv /%t 4,,Zeile $j
    catv 3,1,Such =g:
    catv 5,,Such =Such:
    catv Z /%r%n =$(([n-1]*[20+75+2+520+520+2])),,3
    catv Z =$(([n-1]*[20+75+2+520+520+2]+20)),,3
    catv Zeile /%n
    catv name /= mail /%j >> aaaa_bsh.tmp
    catv "/     " 4,,Zeile $j
    catv Zeile /%j >> $Script && continue
    catv hr /%n >> from.txt
    catv station /%t telnu "/%t %t %j" >> $1
    catv station /%t telnu "/%t$okfa%t$dati%j"
    else catv '.\input{' INAME '/}%n'
    else o=0 catv '.%v%'
    then catv 3,,Z =Z:
    catv /$bvp.$((36#, anu))%t path /%j  $ali
    catv /$bvp.$((36#, anu))%t path /%j >> $ali
    # do  cmpv Zeile zeile && { catv Such /%n; break; }
    #let "na&8" || catv / =$offs,,3:
    Lock; catv $((znum*4000)),4000,3 =Data:  3<$dat
    V=V; catv Z /%n; continue
    catv "/$hm" mail "/ (" name "/)%j" >> $Ziel
    catv "/Name: " inp "/%jAddresses: " >> $Ziel; }
    catv "/Name: " name "/%jAddresses: " mail /%j >> $Ziel
    catv "/cn: " name /%j >> $Ziel
    catv "/dn: cn=" inp "/%jcn: " inp /%j >> $Ziel
    catv "/dn: cn=" name "/,mail=" mail /%j >> $Ziel
    catv "/mail: " mail /%j >> $Ziel
    catv "/member: cn=" name "/,mail=" mail /%j >> $Ziel
    catv "/objectclass: top%jobjectclass: groupOfNames%j" %
    catv "/objectclass: top%jobjectclass: person%j" >> $Ziel
    catv $((n*20)),20,CN =$((Gpos+g*260+n*26+4)),,0
    catv $.,inp =File:
    catv '/%n%n'
    catv /$hm name >> vvvv_bsh.tmp ; hm=,
    catv /%j zeile =:,,Des && continue
    catv /. =$((i-1)),1,out
    catv /000%t000%t path /%j >> $isDir\savemiss.$2
    catv 5,,Zeile =Zeile:
    catv Such /%n
    catv Z /%n; continue ;;
    catv inp /= >> vvvv_bsh.tmp; }
    catv mail h3nam /. name inp /%j
    catv name /= mail /%j >> aaaa_bsh.tmp
    else catv "/\index{$_ind}%n"; catv Z /%n
    expr "$ZO" :ZO '^@0%{8} ' = "@$ZI " || { catv ZO /%n; continue; }
    expr "$zeile" : '^%([^<%r]*%)' | catv "/ ^ " 0 =:,,Des
    ifset Z || { catv /\\%n; continue 2; }
    ifset b && catv A /%n             =3
    ifset c && catv A /%n B /%n       =3 && continue
    ifset d && catv A /%n B /%n C /%n =3 && continue
    ifset d  catv A /%n B /%n C /%n =3  continue
    ifset lnot &| catv Des /%j zeile /%j && Des=''
    ifset txt && { let ++nz; catv txt /%n =:,,$2; }
    let ++no; catv ZO /%n; continue 2
    then catv Z /%n; catv "/\index{$_ind}%n"
    ")  catv '/' =$o,,Line ; let o+=6 ; continue ;;
    &)  catv '/' =$o,,Line ; let o+=5 ; continue ;;
    [ a -eq 0 ] && catv "/$3%t0000000%t$4%t$5%j"
    [!&<>"%|„”αŽ™š.·])  catv 1,C =$o,,Line ; let o+=1
    catv ".<input name=%"$name%" type=%"PASSWORD%" value=%"$Hbuf%"" %
    catv ".<textarea name=%"$name%" cols=%"$len%" rows=%"$max%"" %
    catv "/#@" a ". $2" /%j >> $Script
    catv $.,Ibuf =Hbuf:
    catv '/[' Hbuf '/]'
    catv ipw | extern ./mailcode -dns -c "$MC64" | catv 0 =ipw:
    catv station /%t telnu "/%t %t %j"
    expr Z xv:W '^T_([0-9a-z_]{4})' && catv W /%n
    ·)  catv '/' =$o,,Line ; let o+=8 ; continue ;;
    %|)  catv '/' =$o,,Line ; let o+=8 ; continue ;;
    catv $ilen,Ibuf /%j
    catv Hbuf /%j
    expr " $* " :: "[ %t]${s}[ %t]" && r=0 catv id /%n
    expr "$3" :: "$t" && r=0 catv id /%n
    expr "$5" :: "$t" && let "$a" && r=0 catv id /%n
    let "$a" && r=0 catv id /%n
    60)  catv /0p RAND | mailcode -en -c "$MC64" | catv 0 =inh: ;;
    Name)  let "flg&&!(flg&2)" && catv "/Addresses: %j"
    V=V catv Z /%n; continue
    [ nchar -gt len ] && catv ".$nl »" z .« /len=$nchar%j
    catv "/$kz $ch.$2%n"
    catv "/Comments: " 68,Des /%j >> $Ziel
    catv "/description: " 65,Des /%j >> $Ziel
    catv $((Gpos+g*260+n*26+4)),20,0 =$((n*20)),,CN
    catv $.,File =Zeile:
    catv $.,Ibuf =Hbuf:
    catv $Cols,Z /%j
    catv $Dpos,,0 < $Script | {
    catv $len,val =val:
    catv '/(' hbuf '/)%j'
    catv /"$((n+1)) " $((Gpos+g*260+n*26+4)),20,0 %
    catv 1,inp =c
    catv 2,,Z =0:,,liste
    catv 3,1,zeile =g:
    catv 5,,zeile =zeile:
    catv 95,null /%n
    catv HTMtelvf2 >> $Fmueehtm
    catv Hbuf /%j
    catv Z /%n; continue
    catv alinam /%t path /%j  $alinew ; continue; }
    catv buf /%r%n
    catv buf =$o,,Line && let "o+=${#buf}" && continue
    catv c /%n =:,,CHAP:
    catv g =$g,1,Gsel
    catv liste =null
    catv sp oz /%j
    catv z /%n
    cmpv $1 zeile && catv g =$g,1,grp
    do  catv path /%j  $chdel
    do  catv path /%j >> $chdel
    do  let "inp+=76"; catv "/ " name /%j >> $Ziel;  done
    echo $th | base -10 +b | catv =$((i-1)),1,out
    expr "$z" :: '^%$' && { catv z /%n; break; }
    ifset Z || { catv /\\%n; continue 2; }
    let chl && catv Zeile /%j >> $Plist
    let chl && catv Zeile /%j >> url_tmpf.inf
    let o==1 && catv /J =0,,Ln ;;
    while catv $inp,76,Des =name:
    while readl -u4 Zeile; do  catv Zeile /%j >> $Plist;  done
    z=3 t=1; catv 2,ch =kz:; catv 2,,ch =ch:
    [ $# -eq 0 ] && catv 0 =4
    `mtime $file | base -10 +8`" " "        "    |   catv =inp:
    catv $((l+3)),,Zeile =$3:
    catv $.,Ibuf =Hbuf:
    catv $offs,32,0 =Hbuf
    catv '/[' Hbuf '/]'
    catv /%t =tab:
    catv 1,Ibuf
    catv Buf datei
    catv Buf >datei
    catv Hbuf | extern ./mailcode -en -c "$MC64" | catv 0 =Hbuf:
    catv htmlE
    catv 5000,0 =Hbuf: < $Ddb/$Fali
    catv Line /%j  $changed
    catv Line /%j >> $changed
    MkRgb && a=F catv ".\textcolor[rgb]{$R,$G,$B}{"
    Z2="$(-grep -m1 " $D  "'"[^"]%{1,}"$' "$Src")" || { catv Z /%n; continue; }
    [ "$1" == '?' ] && { catv /%t n '.: ' Z /%j; continue; }
    [ "$zv" == ' ' ] && catv buf /%r%n
    [ $. -gt 0 ] && catv '/((' $.,Ibuf '/))%j'
    [ $r != 000 ] && catv f =$((20*[n-1])),20,CN
    [ $r != 000 ] && catv fnam =f
    [ ${#oz} -eq 44 ] && { catv sp oz /%j; oz=''; continue 2; }
    [ -f $ziel ] && catv /S.$((36#, anu))%t Line /%j >> $ali
    [ -f $ziel ]  catv /S.$((36#, anu))%t Line /%j  $ali
    [ Q -eq 0 ] && catv $Cols,Z /%j
    [ Q -eq 0 ] && catv Z /%j
    [ SW -eq 0 ] && MkRgb && a=F catv ".\textcolor[rgb]{$R,$G,$B}{"
    [ SW -eq 0 ] && { MkRgb; catv ".\colorbox[rgb]{$R,$G,$B}{"; }
    [ dali -gt dali0 -a w -eq 0 ] && w=1 catv dali0 ". $3" /%n
    [ id -ne 50 ] && { catv id '. ' inh /%r%n; continue; }
    base -W +w < C:\MUEE | catv 2048,0 =5000,2048,3  3<> C:\DATA.MUC
    catv ".$nl »" Z .« '/defektes Format%j'; continue
    catv ".${st}$ip" /%n
    catv ".\colorbox[rgb]{$R,$G,$B}{"
    catv ".\textbf{"
    catv ".\textcolor[rgb]{$R,$G,$B}{"
    catv "/+new  " Zeile /%j >> hpm_tmpf.inf
    catv "/-lign  " Zeile /%j >> hpm_tmpf.inf
    catv "/-remote_only  " Zeile /%j >> hpm_tmpf.inf
    catv "/.size=$((lsiz-rsiz))  " Zeile /%j >> hpm_tmpf.inf
    catv "/:size=$((lsiz-rsiz)),time=$((lsec-rsec))  " Zeile /%j %
    catv "/<rem_newer:size=$((rsiz-lsiz)),time=$((rsec-lsec))  " %
    catv "/>time=$((lsec-rsec))  " Zeile /%j >> hpm_tmpf.inf
    catv "/\verb:   :"
    catv "/quote MDTM " File /%j =3
    catv $((n*20)),20,CN =$((Gpos+g*260+n*26+4)),,0
    catv $Dpos,,0 < $Script | {
    catv $L_c /%s Hbuf /%s ; L_c='/,%n'
    catv $len,$fd | base -$typ +10; continue; }
    catv $len,$fd | tr '[\0-\31] ' '[\254*32]\250'
    catv $o,2,Zeile | base -31 +b
    catv '.   extern ' Ta '.;  //' Tb /%n =3
    catv '/   {' Ta '/},%n' =4
    catv '/%n%n%nconst struct cfgdataT_t FAR '"$2"'dataT[]= {%n' =4
    catv '/\ \ \ '  #"/\verb:   :"
    catv '/}'
    catv ."\item [\B{$num}] \texttt{" Z /'}%n'
    catv .'\item[\B{' pbn .'}]\makebox[\wofmu][r]{\Pl{' mu .'}}' %
    catv .'\item[\Pl{' qual .'}]\makebox[\wofid][r]{' id .'}\hspace{1em}' Z /'%
    catv .'\texttt{' Z /'}\\%n'
    catv /"0 0 ?" Dir //%j =3
    catv /%j  $isDir\istep.gol
    catv /%j >> $isDir\istep.gol
    catv /%t a$aa
    catv /\\%n
    catv 0 =ip: < /tmp/wanip
    catv 0,1,C >> texts.h
    catv 0,2,Zeile /" " 2,2,Zeile /" " %
    catv 1,typ 1,darst
    catv 16,,Zeile =Zeile:
    catv 19,null /%n
    catv 4,0 =newcnt: < $datf
    catv 44,,oz =:rz
    catv 5,,Zeile /%n ; let ++n ++nn
    catv 8,,Zeile =Zeile:
    catv 80,Z /%j
    catv Gsel =$GWpos,10,0  <> $Script
    catv HTMtelvf1 > $Ftelvfhtm
    catv Hbuf '/: FAIL message%n' >> $adir/fail
    catv Line /%j  $OutFile
    catv Line /%j >> $OutFile
    catv RGB =$((6*[n-1])),6,Hex
    catv Ta "/&$2dataT[$i]%n" =3
    catv W /%n
    catv Z ". $3" /%n
    catv Z "/ $3" /%n
    catv Z /%n
    catv Z /%n =4
    catv ai '/ ' inh /%r%n >> $D/$g/$a/i
    catv buf /%r%n
    catv ctim '. ' cttim > $dir/conn
    catv dali ". " bez /%n
    catv einheit =null
    catv gid '. ' aid '. ' $tnam '. ' day '. ' try /%n
    catv id '/ ' Hbuf /%r%n
    catv id '/ 0%r%n'
    catv id /%t z /%j
    catv ip =$col,,Ip
    catv nam "/='" $nam "/'%n"
    catv nam /= inh /%r%n $zv
    catv name /%t mail /%j
    catv newcnt > $cntf
    catv qual .' ' Oid .' ' OText /%n =:,,BUFqual
    catv sps oz /%n
    catv zeile /%j
    catv zeile /%n
    catv zeile /%n >> from_tmp
    chl=0; catv Zeile /%j >> $Plist
    do  catv 4,val =$((o<<2)),4,Data;  done
    do  catv Line /%n;  done
    do  catv Line /%r%n;  done
    expr "$Z" :D ' %('"$RA_D$LL"'%)  "[^"]*"$' || { catv Z /%n; continue; }
    expr "$Z" :n '%([0-9]%{1,}%)' || { catv Z /%n; continue; }
    expr "$Z2" :T '%("[^"]%{1,}"%)$' || { catv Z /%n; continue; }
    expr "$buf" :: "^$gid $aid " || { catv buf /%n; continue; }
    expr "$buf" :: "^$nam=" || { catv buf /%n; continue; }
    expr "$z" :: '^%$' && { catv z /%n; break; }
    from=2 catv zeile /%n >> from_fn
    grep -Fmq -e "$Line" $alt || catv Line /%j >> $deleted
    grep -Fmq -e $Line $alt  catv Line /%j  $deleted
    ifset Des || catv zeile /%j
    ifset Hbuf && { catv Hbuf /%j ; continue; }
    ifset aline && catv '/;' 1,,aline >> $changed
    ifset aline  catv '/;' 1,,aline  $changed
    ifset oz && { catv sp oz /%j; oz=''; }
    ifset txt && { let ++nz; catv txt /%n =:,,$2; }
    let "n!=$2" && { catv Z /%n; continue; }
    let "nz>8" && catv ." $3_$4 " =:,,OTP$1
    let "o>=512" && catv $o,Line && print -u2 .%c && o=0
    let wrn && catv Zeile =$Pos,,0.
    while catv $((++ci)),1,buf =C:
    "$h13 $h14 $h15 $h16" | base -16 +b | catv =out:
    #base -W +w < $MUdir/eepr | catv 2048,0 =5000,2048,3  3<> C:\DATA.MUC
    ((y=[newzn+1]*4000-1, x<=y))  &&  catv /%0 =$y,1,3  3<>$dat
    B)  catv ".\colorbox[rgb]{$1,$2,$3}{"; shift 3 ;;
    F)  catv ".\textcolor[rgb]{$1,$2,$3}{"; shift 3 ;;
    J)  catv /J =$o,,Ln
    N)  catv /N =$o,,Ln ;;
    [ $f == 0 ] && catv "/#@" a ". $2" /%j >> $Script
    [ -d $file ] && catv /5 =156,1,inp
    `mtime $file | base -10 +8`" " "        "    |   catv =inp:
    b)  catv '.\textbf{' ;;
    base -10 +b | catv =$((446+o+1)),3,3
    base -W +w < C:\MUEE | catv 2048,0 =5000,2048,3  3<> C:\DATA.MUC
    bi)  catv 1,1,d =d: ; catv 1,1,p =p:
    catv "/rmdir " 1,,Zeile /%j >> $FtpInp; let ++dt
    catv $(( 960<<1)),2,0 =ring:  < C:\MUEE
    catv $.,Ibuf
    catv $.,Ibuf =Hbuf:
    catv $Cpos,,0  < $Script | {
    catv ."$newzn $time K*$kenn1*KN*$name*NS*$strasse*S" %
    catv /INSTANCE_NAME: INN '.  ' C '. ' U /%n Z /%n%n
    catv 0,2,Ibuf =ring:
    catv 1,Ibuf /%j
    catv 1500,Ibuf
    catv 2,cksum =cksum:
    catv 2,ring =ring:
    catv 2048,0 =Hbuf < $MUdir/eepr
    catv 2048,2,Ibuf =ring:
    catv 2048,Ibuf > ../tmp/eeprin
    catv 4,2,dt =mon:
    catv 548,2,Hbuf =ring:
    catv 548,Hbuf
    catv 6,2,dt /. $(([mon-1]*3)),3,Mon /. 0,4,dt "/, " %
    catv Hbuf
    catv inp =3
    catv url1 /%n url2 /%n url3 /%n > $urltxt
    f)  catv ".\textcolor[rgb]{$1,$2,$3}{"; shift 3 ;;
    prints s6sF0002-  $((8#, s)) " " | catv =148,8,inp
    t)  catv $((++ato)),,ats =ats:
    then  catv File /%n | read ed -
    *)  catv Thtml html1 htmlF htmlE ;;
    #600 catv 103,3,inp =s:
    #base -W +w < $Fmueebin | catv 2048,0 =5000,2048,3  3<> $Fmueemuc
    DIR $df  grep -L '[0-9]'  catv =byte:
    DIR $df | grep -L '[0-9]' | catv =byte:
    catv Hbuf Sbuf Kesa1
    [ "$k" == R ] && { catv '.}'; return 0; }
    [ "$zv" == 000 ] && catv '/[' rub '/]%r%n' nam /= inh /%r%n
    [ $z == I ] && { catv '.\input{' INAME '/}%n'; PutKode; }
    [ ${#oz} -eq 44 ] && { catv sps oz /%n;oz=''; continue 2; }
    [ ${#s} -le 1 ] && { catv $2,C /%n; break; }
    [ -s $cntf ] && catv 10,0 =oldcnt: < $cntf
    [ -s $dir/conn ] && catv 10,3 =btim: 3< $dir/conn
    [ -s $secf ] && catv 3,0 =sec: < $secf
    [ ow -eq 1 ] && catv Z =$sk,,0.
    [ size -gt offs ] && catv $offs,$((size-offs)),0  < /tmp/wanout
    [ w -eq 0 ] && catv dali0 ". $3" /%n
    [ z0 -eq 1 ] && catv Z0 /%n
    base -W +w < $Fmueebin | catv 2048,0 =5000,2048,3  3<> $Fmueemuc
    base -W +w < C:\MUEE | catv 2048,0 =5000,2048,3  3<> C:\DATA.MUC
    catv ".$3" nam inh ".$4" /%n
    catv ".${MUstation}------"
    catv ".FOR: $File" /%j %
    catv "/Content-type: text/html%n%n" HTM
    catv "/\verb:   :"
    catv "/d${d}_$n=%""
    catv $((!!(s&8#400)*1)),1,S  $((!!(s&8#200)*2)),1,S %
    catv $((++ato)),1,ats =c:
    catv $((8+[J0-2000]*13*4+M0*4)),4,0 =iv: || catv / 4,,iv:
    catv $((m<<2)),4,Mon =M:
    catv $((o*4000)),4,3 =4,cnt: || continue
    catv $((o-510)),4,$1 =jmp3
    catv $((zn1*10)),10,0 =o:
    catv $(({Start+[cl-2]*64}*512)),$sz,3 > "$n" || break
    catv $.,File =url:
    catv $.,Ibuf =Hbuf:
    catv $.,Ibuf | base -b +10
    catv $O,Obuf | base -b +10
    catv $adr,$len,3 =Nn:  3<> $feepr
    catv $blen,Hbuf =$adr,,3
    catv $f,,Path =Dir:
    catv $hex,6,Hex =hex:
    catv $mdsk,2061,0 =Ibuf  < $1
    catv $nrw,Ibuf
    catv $o,$n,ibuf =buf:
    catv $o,${#boundary},0 =Hbuf:
    catv $o,,0
    catv $o,4,0 =iv
    catv $o,99,0 =nam:
    catv $o0,$((o-o0)),0
    catv $s,0 > $file
    catv './/' lm $len,Lz '.|' $Len,Lz '.|' =Z0:
    catv '.<a class="elf" href="/cgi/muee.cgi?eerf.' n "..$1" %
    catv '.<table height="9%" align="CENTER" border="0"' %
    catv '/ 4 E ' /_ zeile /%n
    catv '/#define ' dnanu0 l text /%n
    catv '/);%n'
    catv '/<<%n'
    catv '/>>'
    catv '/[' Hbuf '/]'
    catv '/\begin{flushleft}%n\begin{ttfamily}%n'
    catv '/\end{ttfamily}%n\end{flushleft}%n'
    catv '/var SigSrc= Array(%n'
    catv ,.
    catv ,.; len=$.;
    catv ."$znum $tm K*$kenn1*KN*$name*NS*$strasse*S" %
    catv .'\Pl{Auswahlwerte}&\multicolumn{5}{|c|}{' Oinfo .'}\\' /%n
    catv .'\Pl{Bit\,Info}&\multicolumn{5}{|c|}{\T{' OTbit .'}}\\' /%n
    catv .'\Pl{Default}&\Pl{Min}&\Pl{Max}&\Pl{Einheit}&\Pl{Bits}&\Pl{Bit\,Pos}\
    catv .'\Pl{Info\,Text}&\multicolumn{5}{|c|}{\T{' OTinfo .'}}\\' /%n
    catv .'\Pl{Subgruppe}&\multicolumn{5}{|c|}{' OTsgrp .'}\\' /%n
    catv .'\cline{1-1}' /%n
    catv .'\hline' /%n
    catv .'\multicolumn{3}{|c|}{' Odfstr .'}&' Oeinh .'&' Onbit .'&' Obitpos /'
    catv .'\multicolumn{3}{|c|}{\Pl{Default}}&\Pl{Einheit}&\Pl{Bits}&\Pl{Bit\,P
    catv .FAIL =msg
    catv / =-1:,,Z:
    catv /%n
    catv /&gt;&gt; $Line %j  $isDir\istep.log
    catv /'     |' url1 /'|%n'  =:,,SATZ
    catv /++ $.,Ibuf /--%n
    catv /,%%$xpos%0%%$rahm%0%1%0%%$height%0%0 =:,,Z
    catv /- =$sk,1,0.
    catv /r =$r,,0 <>$D/$f
    catv 0 =n: < $Fmuee
    catv 0 > $arch
    catv 0,2,Ibuf =ask:
    catv 0,2048,Ibuf  > $adir/eepr
    catv 0,3072,DAT
    catv 0,4,C >> texts.h
    catv 1,3,nam "/ " Hbuf RN
    catv 1,Zeile =fst:
    catv 1,Zeile =st:
    catv 1,dp $Ilen,Ibuf =Ibuf
    catv 1,rek =k:
    catv 1,spez =c
    catv 100,inp | tr -d \0
    catv 103,3,inp =s:
    catv 2048,13,Ibuf =Hbuf:
    catv 32,32,buf =buf &&
    catv 4,,Zeile =Zeile:
    catv 4,iv =$((8+[J0-2000]*13*4+M0*4)),4,0
    catv 44,,oz =:rz
    catv 44,oz =:oz
    catv 47,,0 =Z: < $d/$n.gif
    catv 48,2,Hbuf =c:
    catv 48,Hbuf /%r%n
    catv =url:
    catv BUF >> ../../tmp/$1
    catv HTM > $deroot/self.htm
    catv HTM1 Hbuf
    catv Hbuf3 Hbuf1 SATZ endEMAIL |
    catv L_offs =$L_n,6,BasePos
    catv Odf .'&' Omi .'&' Oma .'&' Oeinh .'&' Onbit .'&' Obitpos '/\\%n'
    catv TXT3 0 <$CO | {
    catv Z /%n =3
    catv Z /%n =:,,HTMLa:
    catv Z /%n >>$kunloe
    catv Z /%n; return 0
    catv Z /%r%n
    catv Z =$sk,,0.
    catv Zeile /%j >> $Plist
    catv Zeile /%n | read - - - - size mon day yt -
    catv asm2 >> $Tmpf1
    catv b =$((a*3-3)),3,iv
    catv data =$O,,Obuf
    catv g =$g,1,Gsel
    catv gid '. ' aid '. ' ctim '. ' day '. 0' /%n
    catv headEMAIL textEMAIL |
    catv html
    catv htmlF html3 htmlE
    catv htmlRO
    catv id /%n =ADR,,RIDLNK
    catv id bl =$O,,Obuf
    catv id bl data =$O,,Obuf
    catv iv =$o,4,0
    catv l$n '/ ' =2
    catv nam "/='" $nam "/'%n" =:,,obuf:
    catv o,1,s =N,1,C
    catv o,2,$1 =magic2 || break
    catv p d '. ' nk,k ok,,b "$e"
    catv pid /%n | read - pid -
    catv size /" " sec "/$ign*" File "/*" /%j =3
    catv t =$i,1,ArgTyp
    catv teltxt /%j >> "$Fteltxt"
    catv url1 /%n url2 /%n url3 /%n > $urltxt
    catv v =4,3
    catv z "/ " mod /%n
    catv z =:,,Z
    catv zeile /%j && readl zeile || break
    catv zeile /%j >> tbl_$1
    catv zeile /%r%n >> $of
    cmpv kw kenn2 || { catv Z /%n =3; continue; }
    do  catv Z /%n =3;  done
    do  catv z /%n;  done
    else  catv ".$nl »" Z .« '/Text fehlt%j'
    expr " $* " :: "[ %t]${n}[ %t]" && catv id /%n
    expr " $langs " :: " $l " && { catv Z$l /%n; continue; }
    expr "$Z" :: "$muster" || { catv Z /%j; continue; }
    expr "$Z" :: ' "\[0-9]%{3}[a-z?A-Z]' || { catv Z /%r%n; continue; }
    expr "$Z" :: '^@[0-9]' || { catv Z /%n; continue; }
    expr "$Z" :: '^[@a-z;.,][0-9]' || { catv Z /%n; continue; }
    expr "$Z" :: '^[@x][0-9]' || { catv Z /%n; continue; }
    expr "$Z" :Z '=$' = '' && { catv Z; continue; }
    expr "$Zeile" :: '^#@f' && { catv 4,,Zeile /%n; continue; }
    expr "$buf" :: "^$nam=" || { catv buf =:,,obuf:; continue; }
    expr "$typ" :: 'N' && catv /%n
    ifset zeile || { catv /%n ; continue; }
    let !chl && catv n '/: ' File /%j Zeile /%j >> url_tmpf.inf
    let "--nnotd>0" && { catv Z /%j; continue; }
    let "flg&&!(flg&2)" && catv "/Addresses: %j"
    let "o+=c, o<l" && catv $o,1,W =sc
    let "o-=3072, o>0" && catv 3072,$o,DAT =DAT
    let "o>0" && catv $o,Line && print -u2 ";%c"
    let "tim0-tim<=1*3600" && catv '/put ' file /%n
    let "zn!=$1" && { catv Z /%n =3 ; continue; }
    let chl && catv Zeile /%j >> url_tmpf.inf
    let flg && catv "/Field-Text: %j%j"
    let zn!=znum && { catv Z /%n =3; continue; }
    while catv 24,0 =buf:
    while let "i-=16, i>0"; do  catv out;  done
    while readl -u4 Zeile; do  catv Zeile /%j >> $Plist;  done
    "$h13 $h14 $h15 $h16" | base -16 +b | catv =out:
    [ -d $file ] && catv /5 =156,1,inp
    catv inp >> $arch
    lst)  catv Thtml html1 htmlF
    prints s6sF0002-  $((8#, s)) " " | catv =148,8,inp
    #600 catv 103,3,inp =s:
    #ifset comment && catv comment =:,,Z:
    $3=$( catv 11,1,$1 | base -b +10 )
    ((o<100)) && catv /%0 =99,1,0
    ((o=[znum+1]*4000-1, sz<=o))  &&  catv /%0 =$o,1,3  3<>$dat
    *)      catv htmlE ;;
    1)      catv sec > $secf; catv htmlL ;;
    Lock; catv Data =$((znum*4000)),4000,3  3<>$dat
    [ ! -e "$dir$nam" ] && catv HTML > $dir$nam
    [ "$dflt" == 1 ] && catv TPwahl MOwahl TblFolge /MOINIT: MOinitapp > "$Fcfg
    [ "$t1" != "$t0" ] && catv /T_ t1 /%n >> __1__ ; t0=$t1
    [ $# -ge 9 ] && catv '.<td align=center valign=top width="20%" ' %
    [ $1 == text -a t -eq 1 ] && { catv '/%n%n%n'; }
    [ -e "$links/$nam" ] && catv dir pre nam /%n >> $links/lpnames
    [ -s $ali ] || { catv dali0 ". $3" /%n > $ali; return 0; }
    [ -s $deroot/tmp/tz.dat ] && catv 0 =tz: < $deroot/tmp/tz.dat &&
    [ O -eq 0 ] && O=1 catv /: =0,1,Obuf
    [ z0 -eq 1 ] && catv Z0 /%n
    c1)     catv js1 ;;
    catv  Oid .'&' Otyp .'&' Odstg .'&' Olen .'&' p1 Oparbn p2 .'&' Onelem '/\\
    catv "/  " ta /. mo /. ja '/ ' st /: mi "/  "
    catv "/%t.align 4%j"
    catv $((!!(s&8#400)*1)),1,S  $((!!(s&8#200)*2)),1,S %
    catv $((446+o+1)),3,3 | base -b +10 | read sh ss sc
    catv $((8+[J-2000]*13*4)),4,0 =iv: || catv / 4,,iv:
    catv $((962<<1)),2,0 =ft:
    catv $(([rub-1]*6)),5,BasePos =offs:
    catv $((n+n)),$n,$v =${f}b:
    catv $((zn1*4*1000+zn2*4)),4,3 =n:  3<$dat
    catv $((zn>>1)),2,FNAMO =o: || oo=0 o='  '
    catv $.,,a2 /%j
    catv $.,Ibuf =20,ok:
    catv $.,a =a:
    catv $.,b /%j
    catv $1,0 =Hbuf:
    catv $1,3 =$2: && let `catv ,`==$1
    catv $len,cmd
    catv $n,$n,$v =${f}g:
    catv $n,1,cnt =v:
    catv $num,256,3 | tr '\0[\1-\31][\128-\255]' '\10[ *]' |
    catv $o,4,0 =iv
    catv $offs1,4,3 =v:
    catv $offs1,4000,3 =$offs1,4000,4  3<$dat  4<>$datb
    catv $pos,$((64*512)),3 > /scratch/VALUE/$cl
    catv $s,0 > $file
    catv $zn,1,0 =o:
    catv $zn,4,DAT =v:
    catv $zn1,1,0 =v: <$kunflg || err=1
    catv '.#' line '/ -1000%n'
    catv '.<table width="90%" align="CENTER" border="0" cellspacing="5"' %
    catv '/   { 0 }%n};%n%n%n%n' =4
    catv '/\begin{ttfamily}%n'
    catv '/\end{ttfamily}%n'
    catv '/noch nicht implementiert%j'
    catv '/quit%n'
    catv '/user root pfaubeem' /%n
    catv '/verbose%nbinary%nhash%ncd /usr/home/cie%nls%n'
    catv +0,,0 =0,,3:  3<> $log
    catv -$bp6:,,0 =z:  < $arch
    catv .$KZ@+ NAME ._ TN .@$KZ /%n $OFFS,KODE %
    catv .'\Pl{Param\,Text}&\multicolumn{5}{|c|}{' OText .'}\\' /%n
    catv .'\Pl{Symbol}&\Pl{Zgrf}&\multicolumn{3}{|c|}{\Pl{Flags}}&\Pl{Adresse}\
    catv .'\begin{tabular}{|c|c|c|c|c|c|}' /%n
    catv .'\end{tabular}' '/%n%n\bigskip%n'
    catv .'\hline' /%n
    catv .'{\footnotesize ' Oname .'}&' Oacc .'&\multicolumn{3}{|c|}{\small ' O
    catv .'{\small\pid}&\Pl{Typ}&\Pl{Dstg}&\Pl{Länge}&{\small\pbn}&\Pl{Elemente
    catv / 4000,,Data
    catv / =4000,,DAT:
    catv /"d1218_$n=%"" >> gdat
    catv /%%$((16#2c))%%$((n*12+0))%0%0%0%12%0%18%0%0 =1
    catv /%%$flg =$o,1,0
    catv /%n t1 /+ t2
    catv /%r%n =zv:
    catv /%r%n boundary /--%r%n =boundary:
    catv /'  --'
    catv /'|' name /'|%n' /'|' strasse /'|%n'  =:,,SATZ
    catv /'|' plz /'|' /' |' ort /'|%n' /'|' email /'|%n'  =:,,SATZ
    catv /,%%$xpos%0%%$rahm%0%%$width%0%%$height%0%0 =:,,Z
    catv /0000000000 =$((zn*10)),10,0  <>$kunbez
    catv /: 1,len 4,id 1,cksum =id:
    catv /: l dat =Out:
    catv /@DK40: =6,Ibuf
    catv /T_ t1 /' ' t2 /%n >> __2__
    catv 0 =1000,Hbuf: < $3
    catv 0 =BasePos: < "A:\DATA\BASEPOS"
    catv 0 =Hbuf: < "$1"
    catv 0 =fdep: < dep/1
    catv 0,$n,$v =${f}r:
    catv 0,10,Z =Tim:
    catv 0,8,$1 | tr '\0\5' '\1\229' | catv =__n:
    catv 1,len 4,id | sum -b cksum
    catv 1,o =$zn,1,0
    catv 10,Ibuf
    catv 100,inp | tr -d \0
    catv 1000,0 =Hbuf: < $1
    catv 1000,0 =ibuf:  < uvars.bsh
    catv 1000,0 | {
    catv 103,3,inp =s:
    catv 11,10,Z =N:
    catv 2,n =$((zn2<<1)),2,3  3<>$fnamo
    catv 24,,Z =Z:
    catv 3,nam =pre:
    catv 4,0 =Time:
    catv 4,0 =Zn
    catv 4,0 =Zn:
    catv 4,iv =$((8+[J-2000]*13*4+M*4)),4,0
    catv 4000,0 =DAT:  <$kunflg
    catv 4000,DAT =$((zn*4000)),4000,3  3<>$dat
    catv 47,$s,3 =1
    catv 47,$s,3 | base -b +16 >> gdat
    catv 48,1,3 | base -b +10 | catv =s:
    catv 5,BasePos =offs:
    catv 7,Ibuf
    catv 8,3,$1 | tr '\0' '\1' | catv =__e:
    catv =F <bsh.c
    catv BUFpbn | sortl -f1n,2 | {
    catv BUFqual | sortl -f1,2 | {
    catv BasePos > "A:\DATA\BASEPOS"
    catv Buf >$D/$f           #Wie cat, nur Buf ist keine Datei
    catv FNAMO =$o,,DAT
    catv Gsel =$GWpos,10,0   $Script
    catv HDR =3
    catv HTM1 HTM2 > $Fc2
    catv HTMcfg1 Hbuf
    catv Hbuf Mtxt | /etc/mail/sendmail "$z"
    catv INCL HDR =4
    catv Thtml html1 htmlK htmlE
    catv TimRef '/ ' Set '/   ' =$Sk,24,0  <>$Frfr
    catv Time =0,4,0
    catv Z =$sz,,0.
    catv Z =Z$lang:
    catv Zn   =4,4,0
    catv addr /%n >> addresses
    catv cks =0:,1,Out:
    catv ctim '. ' cttim > $dir/conn
    catv gmt > $deroot/tmp/tz.dat
    catv hr /%n
    catv iv =$o,4,0
    catv k /\verb: Text /:
    catv msg '.Connect test failed:' MUdir /: AnrufZ /%n >> $MUdir/fail
    catv new /%0 =$num,,3
    catv ta /. mo /. ja '/ ' st /: mi
    catv v =$((zn*10)),10,3  3<>$kunbez
    catv v =$offs1,4,3
    catv v =$offs12,4,3
    catv zn /' ' tm2 /'%n|' kw /'|%n'  =SATZ:
    com -p && { com -it700id20i1000 Ibuf; catv $.,Ibuf; }
    do  catv zeile /%j ;  done
    expr "$Script" :: '^\.' && pwd | catv 0,2,0 Script =Script:
    expr "$Z" :: '_%D%D%D_'"$LL"'%>' && catv Z /%n
    expr "$Z16" :: '[89abcdef][0-9a-f]' || { catv Z /%n; continue; }
    expr "$zeile" :: '[ %t]call .' || { catv zeile /%j; continue; }
    for byte in $( catv $3,$4,$2 | base -b +10 )
    for word in $( catv $3,$4,$2 | base -w +10 )
    grep -Fq -e "$zeile" call || { catv zeile /%j; continue; }
    ifset InpAnruf || { catv HTMtelhf > $1; return 0; }
    ifset Z || { catv /%n; return 0; }
    ifset comment && catv comment =:,,Z:
    ifset oz && { catv sp oz /%j; }
    l)      catv htmlL ;;
    let "(sz>>1)<=zn2" && catv /%0%0 =$((zn2<<1)),,3  3<>$fnamo
    let "sz<=zn1" && catv /%0 =$zn1,,3  3<>$kunflg
    let "zn>=o" && catv /%0 =$zn,1,0
    start)  catv html0 ;;
    then  catv Oparbn .' ' MU .' ' Oid .' ' OText /%n =:,,BUFpbn
    while catv $((++ato)),1,ats =c:
    while catv $((++o)),1,DAT =1,v:
    while catv $o,4,0 =iv
    while catv $o,4,0 =iv:
    while catv +0,50,0 =Hbuf:
    while catv 1,0 =o:
    while catv 512,3 =278,inp:
    while catv O,$LEN,3 =BUF
    while seek + 0 o; catv +0,1000,0 =Hbuf:
    #do  catv sml | grep -Fq "$sm" || catv sm /%j =:,,sml;  done
    1bs)  catv htmlF htmlH html2 htmlE ;;
    catv Buf >datei
    # catv Z /%n
    # catv Z ". $3" /%n
    # catv nam "/='" $nam "/'%n"
    # expr "$Z" :n '%([0-9]%{1,}%)' || { catv Z /%n; continue; }
    # expr "$buf" :: "^$nam=" || { catv buf /%n; continue; }
    # let "n!=$2" && { catv Z /%n; continue; }
    # catv 1,Ibuf /%j
    # catv /%0$(()) =$((cl*2)),2,3
    # catv 0 =file < "$1"
    # catv 0,40,file =pw:
    # catv 40,40,file =st:
    # catv 80,40,file =ip:
    # catv Z /%n
    # catv $.,Ibuf =Hbuf:
    # catv '/[' Hbuf '/]'
    # catv $.,Ibuf =Hbuf:
    # catv /OK%r%n =ok:
    # for word in $( catv $3,$4,$2 | base -w +10 )
    #((sz>v)) && catv / =$((v-v/10)),,3:  3<>$reftxt
    catv $o,,Z /%n =$OFFS,,KODE
    catv '.%l%' LANG /%n
    else catv '.\input{' INAME '/}%n'
    else o=0 catv '.%v%'
    then catv 3,,Z =Z:
    V=V catv Z /%n; continue
    catv Z /%n
    catv Z /%n; continue
    catv ".\colorbox[rgb]{$R,$G,$B}{"
    catv ".\textbf{"
    catv ".\textcolor[rgb]{$R,$G,$B}{"
    catv "/\verb:   :"
    B)  catv ".\colorbox[rgb]{$1,$2,$3}{"; shift 3 ;;
    [ "$k" == R ] && { catv '.}'; return 0; }
    [ $z == I ] && { catv '.\input{' INAME '/}%n'; PutKode; }
    catv '/\end{ttfamily}%n\end{flushleft}%n'
    catv 1,rek =k:
    catv .$KZ@+ NAME ._ TN .@$KZ /%n $OFFS,KODE %
    catv k /\verb: Text /:
    for word in $( catv $3,$4,$2 | base -w +10 )
    ifset Z || { catv /%n; return 0; }
    ifset comment && catv comment =:,,Z:
    catv ."$1" =$l,1
    catv ."$3" e /%j
    ((v=[zn1+1]*4000-1, sz<=v))  &&  catv /%0 =$v,1,3  3<>$dat
    ((zn2!=0)) && catv /%0%0%255 =13,3,Z
    2# catv $((1000*1000*1000*3)),20,0  /home2/large
    3# /home2/large; catv $((1000*1000*1000*3)),20,0; seek + 0; >
    expr "$Z" :: '_%D%D%D_'"$LL"'%>' && catv Z /%n
    catv $offs,$((size-offs)),0 =Data:  $file
    [ -s $deroot/tmp/tz.dat ] && catv 0 =tz: < $deroot/tmp/tz.dat &&
    [ Nz -ge 200 ] && cat $Frfr | { >$Frfr; catv $MinSk,0; readl Z; cat; ><; }
    [ z0 -eq 1 ] && catv Z0 /%n
    _bsh:_  catv 1,0 =key:
    cat from.txt | { catv hr /%n > from.txt
    catv $((zn1*4000)),4000,0 =DAT  <$dat || catv / =4000,,DAT
    catv 0,2000,0 =FNAMO  <$fnamo || catv / =2000,,FNAMO
    catv name | tr '[a-z]' '[A-Z]' | catv =name:
    expr " $* " :: "[ %t]${n}[ %t]" && catv id /%n
    expr " $* " :: "[ %t]${s}[ %t]" && r=0 catv id /%n
    expr " $langs " :: " $l " && { catv Z$l /%n; continue; }
    expr "$3" :: "$t" && r=0 catv id /%n
    expr "$5" :: "$t" && let "$a" && r=0 catv id /%n
    expr "$Script" :: '^\.' && pwd | catv 0,2,0 Script =Script:
    expr "$Z" :: "$muster" || { catv Z /%j; continue; }
    expr "$Z" :: ' "\[0-9]%{3}[a-z?A-Z]' || { catv Z /%r%n; continue; }
    expr "$Z" :: '^@[0-9]' || { catv Z /%n; continue; }
    expr "$Z" :: '^[@a-z;.,][0-9]' || { catv Z /%n; continue; }
    expr "$Z" :: '^[@x][0-9]' || { catv Z /%n; continue; }
    expr "$Z" :: '_%D%D%D_'"$LL"'%>' && catv Z /%n
    expr "$Z" :: '_%D%D%D_no  "' || { catv Z /%n; continue; }
    expr "$Z" :D ' %('"$RA_D$LL"'%)  "[^"]*"$' || { catv Z /%n; continue; }
    expr "$Z" :Z '=$' = '' && { catv Z; continue; }
    expr "$Z" :n '%([0-9]%{1,}%)' || { catv Z /%n; continue; }
    expr "$Z16" :: '[89abcdef][0-9a-f]' || { catv Z /%n; continue; }
    expr "$Z2" :T '%("[^"]%{1,}"%)$' || { catv Z /%n; continue; }
    expr "$ZO" :ZO '^@0%{8} ' = "@$ZI " || { catv ZO /%n; continue; }
    expr "$Zeile" :: '^#@f' && { catv 4,,Zeile /%n; continue; }
    expr "$buf" :: "^$gid $aid " || { catv buf /%n; continue; }
    expr "$buf" :: "^$nam=" || { catv buf =:,,obuf:; continue; }
    expr "$typ" :: 'N' && catv /%n
    expr "$typ" :: 'n' && catv /%n
    expr "$z" :: '^%$' && { catv z /%n; break; }
    expr "$zeile" : '^%([^<%r]*%)' | catv "/ " 0 =:,,Des
    expr "$zeile" : '^%([^<%r]*%)' | catv "/ ^ " 0 =:,,Des
    expr "$zeile" :: '[ %t]call .' || { catv zeile /%j; continue; }
    ifset HTTP_REFERER && catv 99,z /%n =$v,100,3  3<>$fnams
    let "o>0" && catv 0,$o,DAT
    print -u2 abc |2  catv =2
    s2=$( catv ".$1" $((11-l)),sp | base -b +10 )
    while catv $offs,4,0 =num:
    while catv 512,3 =278,inp: