set/def
pen/def
set plot 30 30
set box 3 27 3 27
set coor user
lim 0 1 15 0
set marker 6 3 1.2
set char 1.5
set font duplex
for i 0 to 15
	pen /col i
	draw reloc 0 i
	label "Pencil /Colour 'I'"
	draw marker .9 i 
next