      * ENCRYPT_CP - encrypt a string                                                               
     d encrypt         pr           512A                                                            
     d  inmode                        1a   VALUE                                                    
     d  invalue                     512a   VALUE                                                    
