; Glow! :
; 	Smoothly changing text colors.
;
; Copywrite Frances, January 2006
; Minor modifications by Mark Dow, February 2006

	AppTitle "Glow!"
	
	Graphics( 800, 600, 16, 2 )

	; Use double buffering.
	; NOTE: This line is not neccessary with BlitzPlus, because double buffering is always used.
	SetBuffer BackBuffer()

	Global red   = Rand( 0, 255 )
	Global green = Rand( 0, 255 )
	Global blue  = Rand( 0, 255 )
		
	While Not KeyDown(1)
	
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; BlitzPlus handler for exit application message
; Don't use, and not needed, with BlitzBasic

		; Check for a message.
		EventID = WaitEvent(0)
		 
		; Decide what to do with this event.
		Select EventID
		
			Case $803 			; exit program
				End				
			Default				; other event
											; do nothing
		End Select
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

		Cls
		
		Color( red, green, blue )
		
		Text 0,  0, "GGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGG"
		Text 0, 20, "LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
		Text 0, 40, "OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO"
		Text 0, 60, "WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW"
		Text 0, 80, "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
			
		Delay 40
	
		red   = red   - 5
		green = green - 5
		blue  = blue  + 2
	
		Flip
		
	Wend
	
	End