string TL = ""
real Min_rad = ""

ENTITY LIST $Tools = INPUT ENTITY Tool "Pick Tool to activate"
$TL = $Tools.name
Activate Tool $Tools.name
If ($Tool.type == "tip_radiused") or ($Tool.type == "ball_nosed") {
//Message info "Tool is Tip Radiused"
$Min_rad = $Tool.TipRadius
VIEW MODEL ; SHADE MINTOOLRAD
VIEW MODEL ; MINTOOLRAD $Min_rad
}