'*****************************************************************************
'*
'* The following code demonstrates the use of the Run Command to set a graph
'* title.  The graph title to be used is stored in a string variable.
'*
'******************************************************************************

Declare Sub Main

Sub Main

	Dim graph_str,								' Holds the Set Graph command
    	    graph_title As String						' Holds the Graph Title

	Open Table "Province" Interactive
	Graph Character_Name, Total_Pop_1990 From Province
	graph_title = "My Population 1990 graph of China Province"			' Sets the graph title
	graph_str = "Set graph rotated off title " + """" + graph_title + """"	' Sets the Graph command
	Run Command graph_str									' Runs the Graph command
End Sub