Screenshot in BlitzMax ???

you can probably modify this to make it work. You'll need to take out the date and time functions:

' -----------------------------------------------------------------------------
' ccScreenShot
' -----------------------------------------------------------------------------
Function ccScreenShot()
'		ccFlip() 'don't need to flip to see the current one first!
		Local gfxGrab:TPixmap
		gfxGrab = GrabPixmap(0,0,ScreenWidth, ScreenHeight) 
		Local DateTime:TDateTime = New TDateTime
		DateTime.Set_DateTimeCurrent()
		'Output filename with reverse date and time for sorting
		Local filename$ = TDateTime.Get_String(DateTime,"YYYY-MM-DD HHNNSS screenshot.png")
		SavePixmapPNG(gfxGrab, ccAddSlash(CurrentDir())+filename, 9)
End Function