GoASCIIMap9<-function(){                   
setwd("/Users/jgkunkel/Desktop/lobster/Rgeology/0902/ASCIIMaps")
                   }
cat("GoASCIIMap9","\n")
###                   
GoASCIIMap11<-function(){                   
setwd("/Users/jgkunkel/Desktop/lobster/Rgeology/1103/ASCIIMaps")
                   }
cat("GoASCIIMap11","\n")
###                   
GoASCIIMapQuanti<-function(){                   
setwd("/Users/jgkunkel/Desktop/lobster/Rgeology/quanti")
                   }
cat("GoASCIIMapQuanti","\n")
###                   
GoJunk<-function(){
setwd("/Users/jgkunkel/Desktop/Junk")
                   }
cat("GoJunk","\n")
###                   
GoAtema<-function(){                   
setwd("/Users/jgkunkel/Desktop/lobster/Ratema")
                   }
cat("GoAtema","\n")                   
###