Anonymous user
NYSIIS: Difference between revisions
m
→{{header|REXX}}: changed wording in a comment.
m (→{{header|REXX}}: changed a comment.) |
m (→{{header|REXX}}: changed wording in a comment.) |
||
Line 622:
nysiis: procedure; arg x; x=space(x); x=translate(x,,','); w=words(x)
lw=word(x,words(x)) /*pick off the last word in name list. */
titles = 'ESQ JNR JR SNR SR' /* [↓] last word
if w\==1 then if pos('IL',lw)==0 then /*disallow IL as Roman#.*/
if pos(.,x)\==0 |, /*Sr. Jr. Esq. ... ? */
| |||