A Lame Program

A few key changes here I should point out.

1: Put the colours into an array
2: Positions the oval at mousex()-5 and mousey()-5 so the centre of the circle is where the mousepointer is as an oval is drawn from the top left not the centre.

; Set up Colours
Dim Colours(8,2)
Data 255,0,0
Data 0,255,0
Data 0,0,255
Data 255,255,255
Data 255,255,0
Data 255,0,255
Data 0,255,255

For n=2 To 8
	Read Colours(n,0),Colours(n,1),Colours(n,2)
Next


While Not KeyDown(1)
	
	; Check for colour Change
	For n=2 To 8
		If KeyDown(n) Then Color Colours(n,0),Colours(n,1),Colours(n,2)
	Next

	; Draw
	If MouseDown(1) Then Oval MouseX()-5,MouseY()-5,10,10,1
	
	; Clear Screen	
	If KeyHit(14) Then Cls
Wend