it's me eden

eden firmansyah's page


convert to Uppercase


 d up              C                   'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
 d lo              C                   'abcdefghijklmnopqrstuvwxyz'
 d case            S            100A
 c     *entry        plist
 c                   parm                    case
 /FREE
       case = %xlate(lo:up:case);
 /END-FREE
 


Leave a comment