# Read a .jax file type and change to a .tps file type.
 require(sm)
 require(session)    # includes texteval() function
# Function Deffinition Section
# pause function
pause<- function() {
cat("Push return to continue!")
indata<- readLines(con=stdin(), n=1, ok = TRUE)
  }

# Ask function
ask<- function(text) {
cat(text,": ", sep="")
indata<- readLines(con=stdin(), n=1, ok = TRUE)
                     }

cat("Directory of JAX files \n")
lsout<- system("ls *.csv*", TRUE, TRUE)
print(lsout)
infile= ask("Enter a .csv file name without quotes")
basis<- strsplit(infile, '.csv')
junk<- read.csv(infile)
attach(junk)
recnums<- length(junk[,1])
fieldnums<- length(junk[1,])
landmarknum<- (fieldnums -1)/2
filnam = paste(basis,".tps", sep="")

   cat("", file = filnam, append = FALSE)

for (i in 1:recnums) {
      cat("LM=", landmarknum, "\n", sep="",
                 file = filnam , append = TRUE)
      for (j in 1:landmarknum) {
             cat(junk[i,2*j], junk[i, 1+2*j], "\n", 
                 file = filnam , append = TRUE)
                             }
      cat(paste("IMAGE=",ID[i],sep=""), "\n", sep="", 
                 file = filnam , append = TRUE)
      cat("ID=", i, "\n", sep="",
                 file = filnam , append = TRUE)
                     }

# *******************************************************************
par(op)