* tmap 1.1.0 NJC 14 July 2004 
*! -tmap-: MAP master program                                                  
*! Version 1.2 - 23 July 2004                                                  
*! Version 1.0 - 24 January 2004                                               
*! Author: Maurizio Pisati                                                     
*! Department of Sociology and Social Research                                 
*! University of Milano Bicocca (Italy)                                        
*! maurizio.pisati@unimib.it                                                   

program tmap
version 8.2


gettoken COMMAND OPT : 0, parse(" ,")

local OKlist "choropleth propsymbol deviation label dot" 

/*  Allow abbreviations to at least 3 letters */
local len = length("`COMMAND'") 
if `len' < 3 error 198 
	
local found 0 
foreach OK of local OKlist { 
	if "`COMMAND'" == substr("`OK'", 1 , `len') { 
		tmap_`OK' `OPT'
		local found 1 
		continue, break 
	}
}
	
/* Error falls through */
if !`found' {
	di as err "unknown tmap subcommand"
	exit 198 
} 	


end