{
{     This procedure enables or disables swapping by setting a control
{  variable.
{
{  JMP$SET_SWAP_CONTROL_VARIABLE( TOGGLE )
{
{  TOGGLE: (input) A boolean true=enable.
{
