CLEAR ALL
BITMAP 1 TEXTURE "cellmachine","1234,99"
TARGET BITMAP 1
SPRITE 1 BIND BITMAP 1 SHOW XYSIZE 2,2
CLS:PRINT "Cell Machine"
GETKEY a$
FILTER BITMAP "tile"
CLS:PRINT "Filter Tile"
GETKEY a$
FILTER BITMAP "blur"
CLS:PRINT "Filter Blur"
GETKEY a$
FILTER BITMAP "sharpen"
CLS:PRINT "Filter Sharpen"
GETKEY a$
FILTER BITMAP "sharpen"
CLS:PRINT "Filter Sharpen"
GETKEY a$
FILTER BITMAP "sharpen"
CLS:PRINT "Filter Sharpen"
GETKEY a$
FILTER BITMAP "sharpen"
CLS:PRINT "Filter Sharpen"
GETKEY a$
FILTER BITMAP "maketileable","64"
CLS:PRINT "Filter Make Tileable"
GETKEY a$
SPRITE 1 TILE
CLS:PRINT "Tile"
