CLEAR ALL
TILESET 1 NEW "MSDOS"
TILEMAP 1 NEW 80,25,1
SPRITE 1 BIND TILEMAP 1 SHOW FIT
TARGET TILEMAP 1
i=32
x=0
y=0
DO
    PUT TILE x,y,i
    i=i+1:IF i=256 THEN i=32
    x=x+1:IF x=80 THEN x=0:y=y+1:IF y=25 THEN EXIT DO
LOOP
