AppTitle "RandomArt" ;RandomArt.
Graphics 500,500, 16, 2 ;500x500 for the screen

;Stop
SeedRnd (MilliSecs) ;Make it TRUE random
Global linedot
Global change=1
Global red = Rnd(0,255)
Global green = Rnd(0,255)
Global blue = Rnd(0,255)
Global bluething = True
Global greenthing = False
Global redthing = True


	While Not KeyDown(1)
	
		If KeyHit(57) = True ; space bar
			change = change + 1
		;Cls ;Comment off to see a very cool thing that shows MORE about print and it's scroll.
		EndIf
		
		If change = 3
		change = 1
		EndIf

	
		If change = 1
		
			linedot=Rnd (0,1) ;Is it line or dot?
			Color (Rnd(50,200),Rnd(50,200),Rnd(50,200)) ;What color is it?
		
;			Delay 30 ;TRUST ME....its way to fast without this
			Delay 100 ;TRUST ME....its way to fast without this
		
			If linedot=0
				Line (Rnd(0,500),Rnd(0,500),Rnd(0,500),Rnd(0,500)) ;Draw the line if linedot is 0
			Else
				Oval ( Rnd(-100,500), Rnd(-100,500), Rnd(20,80), Rnd(20,80) ) ;Otherwise draw a dot
			EndIf
		
			If KeyDown(19)=True ;clearing the screen (press r)
				Cls
			EndIf
		EndIf
	
	
		If change = 2
		
			Flip
			Color (red,green,blue)
			Print "'glow blah, glow blah, glow blah'"
			Delay 100
			
			blue = blue + Rnd(0,1)
			
			If redthing=True
				red = red + Rnd(0,1)
			Else
				red = red - Rnd(0,1)
			EndIf
			
			If greenthing=True
				green = green + Rnd(0,1)
			Else
				green = green - Rnd(0,1)
			EndIf
			
			If bluething=True
				blue = blue + Rnd(0,1)
			Else
				blue = blue - Rnd(0,1)
			EndIf
			
			If red < 10 Or red > 255
			
				If redthing=True
					redthing=False
				Else
					redthing=True
				EndIf
			EndIf
			If green < 10 Or green > 255
			
				If greenthing = True
					greenthing = False
				Else
					greenthing = True
				EndIf
			EndIf
			If blue < 10 Or blue > 255
			
				If bluething = True
					bluething = False
				Else
					bluething = True
				EndIf
			EndIf
		EndIf


	Wend
	
End ;(end the program)