uses gdip

Screen 640,480,1       
sys ts,x

ts= LoadTiles "png/bitmap.png",16,4

While Key(27)=0                 
ClsColor 255,255,0,0            
for x=0 to 15
DrawTiles ts,x*38, 0,x,0
DrawTiles ts,x*38,64,x,1
DrawTiles ts,x*38,128,x,2
DrawTiles ts,x*38,196,x,3
next
Flip       
Wend
Ends       