Minesweeper clone - demo added

[Phydaux]

Okay here is a sampler/demo.

http://www.phanta.co.nz/downloads/Metalsweeperb.zip

Things I still have to do

New levels
Mine duds
Help
Gain life
Highscore/saving.

extras

plus anything you recommend.

Please keep in miond I'm just a begginer at this really.

On the original minesweeper you can't hit a mine on your first turn. It gives you a chance.
Also if the source in the zip is the same as the compiled code, you should remove the sprite loading from the buttonpress sub you only need to load the sprite once to use it. And to use the sprites in subs you should change the
REDIM set1data (1 TO 1)
REDIM set1index (1 TO 1)
statements to
REDIM SHARED set1data (1 TO 1)
REDIM SHARED set1index (1 TO 1)

HTH