simulate:
   : UPPER  0 DO  DUP I +  DUP C@ UPC SWAP C!  LOOP  DROP ;

reference: p4_upper in ../src/lpf83.c:0206, export CO UPPER