{ 
      This script should be attached to a sheet as the sheet script.

      The following should be in the Startup.scz file.

      CREATEQUEUES( 1024, 20480 )
      ADECONNECT()
}

ON ACTIVATE
	call InitStatus()
END ACTIVATE

define Initialized

FUNCTION InitStatus()
      IF ( Initialized  = 0)
            { Insert any other initializations to be performed here. }
            RECALC 

            { Enable the following if automatic recal is not appropriate.

            MANUAL RECALC 
            EXECUTE EVERY 10 SECONDS COMMAND "RECALC"
            }

		Initialized = 1

      END IF

	{ MESSAGE cannot be called from ON ACTIVATE }
      IF ( VALIDADESERVICE("*") = 0 OR DATAQUEUESIZE() <= 0 )
            PUT "Warning - Wingz/RealTime not Initialized" INTO A1
		Initialized = 0
		{ Call AdeConnect() And CreateQueues() to attempt recovery }
	ELSE
		PUT "Wingz RealTime is Initialized" INTO A1
      END IF

END FUNCTION