Kevin,
I wanted to say: "Your usenet-agent has stripped out all umlauts (umlauts can't be sent in a 7bit encoding)...", but later on I discovered these umlauts have been stripped from the original article you cite:
http://jacquardsystems.com/MComputing/1999/1/p33.htm Damn ASCII...
Armin still visits group usenet:comp.lang.mumps, anyone interested could ask him for the original version there.
Timur
On 09.04.2004 19:31, kevin furze said the following:
I was browsing the web looking for something totally unrelated and came across this piece of code that translates umlaut's to the correct two character values.
<snip> UML(%00) ; -- FUNCTION: ersetze umlaute durch vokale (? ->AE,..) ; this routine solves a very german problem, quite nice
; in: %00
N X,I,Y,A,B,P,PA,L
S X="AE,OE,UE,ae,oe,ue,sz,AE,OE,UE,ae,oe,ue,sz",Y="???????[\]{|}~"
F I=1:1:$L(Y) S A=$E(Y,I),B=$P(X,",",I) D:%00[A
. ; -- replace ju. --
. S (P,PA)=1,X="",L=$L(%00),LA=$L(A)
. F J=0:0 S P=$F(%00,A,P) Q:'P S X=X_$E(%00,PA,P-LA-1)_B,PA=P
. S %00=X_$E(%00,PA,L)
. Q
Q %00
<snip>
it actually came from http://www.jacquardsystems.com/mwelcome.htm and was written by Armin van Harten and was first published in the "M Computing magazine"
kev
