set.seed(42)
kull <- sample(1:4,10,TRUE)
leg  <- c("A","B","C","D")

# 1.
plot(1:10,col=kull,pch=20,axes=FALSE,ann=FALSE)
box()
legend("left",pch=20,col=kull,legend=leg,bty="n")
readline("Go? ")

# 2.
plot(1:10,col=kull,pch=20,axes=FALSE,ann=FALSE)
box()
legend("left",pch=20,col=kull,legend=leg,bty="n",inset=c(0.75,0.75))
readline("Go? ")

# 3.
plot(1:10,col=kull,pch=20,axes=FALSE,ann=FALSE)
box()
legend("bottom",pch=20,col=kull,legend=leg,bty="n",horiz=TRUE)
readline("Go? ")

# 4.
plot(1:10,col=kull,pch=20,axes=FALSE,ann=FALSE)
box()
legend("bottom",pch=20,col=kull,legend=leg,bty="n",horiz=TRUE,inset=c(0.75,0.75))
readline("Go? ")

# 5.
plot(1:10,col=kull,pch=20,axes=FALSE,ann=FALSE)
box()
legend("bottom",pch=20,col=kull,legend=leg,bty="n",horiz=TRUE,inset=c(0.75,0))
readline("Go? ")

# 6.
plot(1:10,col=kull,pch=20,axes=FALSE,ann=FALSE)
box()
legend("bottom",pch=20,col=kull,legend=leg,bty="n",horiz=TRUE,inset=c(0,0.75))