0010 USE UNIGRAPHICS
0020
0030 graphicscreen(4)
0040 maxy#:=height*0.9375
0050
0060 textstyle(4+16)
0070 plottext(45,maxy#+2,"Colour no: ")
0080 FOR c:=1 TO 15 DO
0090   moveto(0,0)
0100   pencolor(c)
0110   drawto(100+30*c,maxy#)
0120   plottext(102+30*c,maxy#+2,str$(c))
0130 ENDFOR c
0140 textstyle(2+4+16)
0150 plottext(500,50,"Press any key")
0160 WAIT
0170 textscreen
