FUNCTION justroadname LPARAMETERS pcRoad IF PCOUNT()<1 OR VARTYPE(pcRoad)#'C' RETURN '' ENDIF LOCAL lnWord, lcReturn, lnWordcount lnWordcount=GETWORDCOUNT(pcRoad) lcReturn=pcRoad FOR x=lnWordcount TO 1 STEP -1 IF VAL(GETWORDNUM(pcRoad,x))>0 lcReturn= STRTRAN( pcRoad , GETWORDNUM(pcRoad,x) , '' ) EXIT ELSE * Exit ENDIF ENDFOR RETURN TRIM(lcReturn )