10 CLEAR ALL
20 BITMAP 1 LOAD "SMB.png"
30 TARGET BITMAP 1
40 SWAP PIXELS RGB(8,96,132),0
50 TILESET 1 NEW 16,16,1,1
60 TILEMAP 1 NEW 20,10,1
70 SPRITE 1 BIND TILEMAP 1 SHOW FIT
80 TARGET TILEMAP 1
90 f=0
100 DO
110     FOR x=0 TO 19
120         FOR y=0 TO 9
130             TPOKE y*20+x,f+29*y
140         NEXT y
150     NEXT x
160     f=f+1:IF f=4 THEN f=0
170     PAUSE 100
180 LOOP WHILE INKEY$=""
