http://www.ousob.com --- Legacy Redefined #include <string.h> #include <ctype.h> #include <extend50.h> CLIPPER b_encrypt() { int i; char *str = _parc(1); if( !ISCHAR(1) ){ _retc(NULL); return; } for(i=0; i<strlen(str); i++){ if( isascii(str[i]) ){ str[i] += 100; } } _retc(str); }