'============================================================================
'  ZColumn.BAS
'
'  This script demonstrates the following:
'
'  Grids data with a new z column each time, creates and saves a new grid
'	file each time.
'
'============================================================================

'Create the surfer object.
	Set Surf = CreateObject("Surfer.App")

'Get Surfer's startup directory
	Path$ = Surf.StartupPath()

'Loop for each new z column
	for Column = 2 to 5
	cols$=Str$(Column)
		
'Open a new drawing document
   Surf.FileNew()

'Grid the data file using a different Z column each time and assigns a new grid name
	if Surf.GridData("c:\golden\surfer6\test.DAT", OutGrid=("c:\golden\surfer6\SAMPLE"+cols$),\
	zcol=Column) = 0 then end

' Create a contour map from the grid
   if Surf.MapContour("c:\golden\surfer6\SAMPLE"+cols$) = 0 then end

 
next