"plot.cols"<-
function()
{
	plot(c(-0.25, 18.5), c(-1, 18), type = "n", axes = F, xlab = "", ylab
		 = "")
	for(i in 1:15)
		text(i, 17.75, paste(i), adj = 0.5, cex = 0.65, col = i)
	for(j in 0:16) {
		text(0, 16.5 - j, paste(j), cex = 0.65, adj = 0.5)
		for(i in 1:15)
			points(i, 16.5 - j, pch = j, col = i)
		if(j >= 1 & j <= 8) {
			lines(c(16, 18), rep(16.5 - j, 2), lty = j)
			text(15.75, 16.5 - j, paste(j), adj = 0.5, cex = 0.65)
		}
	}
	invisible()
}