/*
 * Switch
 *
 * USAGE: Switch
 *
 * This let user to launch the execution of the OLE Server in background.
 * If it is already running then simply shut down it.
 *
 * $(C): (1995, Rocco Coluccelli, Bologna)
 * $VER: Switch 1.00 (09.Feb.1995)
 */

serverport = 'OLE_SERVER'

	IF SHOW('P',serverport) THEN DO
		ADDRESS VALUE serverport
		QUIT
		END

	ELSE
		ADDRESS AREXX "'CALL OLE()'"

EXIT 0