source("setup.s")
source("setup.s")
ls)
ls()
?readline
source("scrall.s)
source("scrall.s")
source("scr1a.s")
source("com1a.s")
source("setup.s")
ls()
source("com1a.s")
source("com1b.s")
source("com1c.s")
source("com1d.s")
source("com2.s")
source("setup.s")
source("com2.s")
source("com3.s")
source("com4.s")
par()
source("com3.s")
par()
op
source("com2.s")
source("com3.s")
source("com4.s")
source("com3.s")
source("com4.s")
source("com2.s")
source("com5.s")
source("scrall.s")
source("scrall.s")
source("scrall.s")
source("scrall.s")
ls)
ls()
fnmat
ls()
fnmat
newmat
ls()
xx<0
xx<0
xx=0
xx<-ln()
xx<-ls()
rm(list=xx)
ls()
source("setup.s")
ls()
source("scrall.s")
source("scrall.s")
?contour
ls
q()
source("scrall.s")
l
ls
ls()
source("scrall.s")
scr<-ls()
rm(list=scr)
ls()
source("setup.s")
ls()
source("scrall.s")
postscript("scr.s",horiz=F)
source("scrall.s")
graphics.off()
source("scrall.s")
l
ls()
corrlen
graphics.off()
q()
ls()
:q
q()
postscript("scr.s",horiz=F)
source("comall.s")
graphics.off()
history()
q()
ls()
source("comall.s")
q()
