require(session)

junk<-read.table("Sym_v108mf-s.ang", header = TRUE, row.names = 1)
attach(junk)
Nvar<- length(NamVar<-names(junk))
range1<- "[1:35]"
range2<- "[36:108]"

for (i in seq(1, Nvar, 2)) {
line<- paste("plot(", NamVar[i],range1,",", NamVar[i+1], range1,", col='red')", sep='')
texteval(line) 
point<- paste("points(", NamVar[i],range2,",", NamVar[i+1], range2,", col='blue')", sep='')
texteval(point)
browser()                   }