Graphics 800,600,16,2

AutoMidHandle True

Global tmrSparks,frmSparks,player

Global playerimage = LoadImage("player.bmp")
Global enemyimage = LoadImage("enemy.bmp")
Global enemybullet = LoadImage("enemybullet.bmp")
Global playerbullet = LoadAnimImage("playerbullet.bmp",8,15,0,2)

Type player
	Field x,y ; Player x and y coordinates
End Type

InitializeLevel()

While Not KeyHit(1) 
Cls ; Standard clear screen 

DrawImage playerimage,player\x,player\y

Flip ; show the buffer 
Wend 

Function InitializeLevel()
player\x = 400
player\y = 400
End Function