ref: 3519f1d58ff78407227adb5a3a202d7a4e626a93
dir: /bin/rc/D2X/
#!/bin/rc
decstr=`{cat '/mnt/acme/'^$winid^'/rdsel'}
hexstr=`{echo 'obase=16; ' $decstr | bc}
if(! ~ $hexstr *error*)
echo -n $hexstr >'/mnt/acme/'^$winid^'/wrsel'
if not
exit 'malformed decimal string'