/*REXX:CAPITALIZE ALL WORDS IN LIST, LABELS PREFIX CHARS--OPTIONAL*/
 /* AUTHOR  F. DAVID MCRITCHIE, "THE REXX MACROS TOOLBOX" 1989/05/12 */
     ADDRESS "ISREDIT"    /* CONVERTED TO REXX 1992/02/08 FDM */
     " MACRO (TOK1,TOK2,TOK3,TOK4,TOK5,TOK6,TOK7,TOK8,TOK9,TOK10,",
      ||"TOK11,TOK12,TOK13,TOK14,TOK15,TOK16,TOK17,TOK18,TOK19)"
     WORD = WORD    /* DEFAULT */
     "(CSR1,CSR2) = CURSOR"
     PREFIX='';CHARS=''; CPREF=''
     DO I = 1 TO 19 BY 1;
        TOKINA = VALUE('TOK'||I)
        TOKEN = TRANSLATE(TOKINA)
        IF TOKEN = "" THEN LEAVE I
        ELSE IF TOKEN = "NX" | "." = SUBSTR(TOKEN,1,1) THEN ,
           CPREF = CPREF  || " "   || TOKINA
        ELSE IF "WORD" = TOKEN | "PREFIX" = TOKEN | "CHAR" = TOKEN ,
           | "CHARS" = TOKEN  THEN WORD = TOKEN
        ELSE  "C ALL "WORD   CPREF  TOKINA TOKEN
      END I
 ENDTOK: "CURSOR = " CSR1 CSR2; "LOC" CSR1; RETURN 1