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 )