Graphic doesn't seem to work

BlitzPlus Forums/BlitzPlus Beginners Area/Graphic doesn't seem to work

Try this:
Include "CCfunc.bb"
Include "CCSelect.bb" ;GetStr is Good
Bitmap$="StarMap3.bmp"

Graphics 1024,768,16,1
SetBuffer BackBuffer()
Dayt$=CurrentDate$()
Logo = LoadAnimImage("StarMap3.bmp",1024,768,0,1)
DrawImage Logo,0,0
Text 100,100,"Press key to continue"
Flip
Waitkey

EndGraphics()

Graphics 1024, 768, 16, 0
AppTitle " Check Chum Command Center Today's Date: "+Date$(1)
FlushKeys()
Waitkey