Anonymous user
NYSIIS: Difference between revisions
m
→{{header|REXX}}: handle IL as a possible surname. -- ~~~~
(→{{header|REXX}}: added the REXX language. -- ~~~~) |
m (→{{header|REXX}}: handle IL as a possible surname. -- ~~~~) |
||
Line 374:
lw=word(x,words(x)) /*pick off the last word in name.*/
titles = 'ESQ JNR JR SNR SR' /* [↓] is the last word special?*/
if w\==1 then if
if right(lw,1)=='.' |, /*Sr. Jr. Esq. ... ?*/
datatype(left(lw,1),'W') |, /*2nd 3rd 4th ... ?*/
verify(lw,'IVXL')==0 |, /*Roman numeral suffix?*/
|