Cute explosive fun, nothing more, nothing less.

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    `	-------------------------------------------------------------------------
`	Bomb!                                                 DarkForge 20/2/2001
`	-------------------------------------------------------------------------
`	Cute fun, nothing more, nothing less.

sync rate 60
sync on
hide mouse

cls

load image "bomb.bmp",1
paste image 1,297,257

ink 0,0

repeat

	read x
	read y

	dot 297+x,257+y
	wait 10

	sync

until x=99

get image 1,297,257,343,292

for a=255 to 0 step -3

	cls rgb(a,0,0)
	paste image 1,297,257,1
	sync

next a

for a=255 to 0 step -20
	set gamma a,a,a
	sync
next a

cls 0
set text font "Courier"
ink rgb(255,255,255),0

for a=0 to 255 step 20
	center text 320,268,"www.darkforge.co.uk"
	center text 320,288,"Exploding popular DB myths"
	set gamma a,a,a
	sync
next a

wait key
end

data 38,27,37,26,36,25,35,24,35,23,34,22,34,21,34,20,35,19,35,18,36,17
data 37,16,38,15,39,14,39,13,40,12,40,11,40,10,39,9,39,8,38,7,37,6,36,5
data 35,5,34,4,33,4,32,4,31,5,30,5,29,6,28,7,99,99