procedure __palput(origpal: paltype);