show a smiley sprite with Commander X16

smiley.bas

10 REM ADDRESS 12:5
20 VPOKE 4, $800, 0
30 REM ADDRESS 16:13 (STARTING AT $10000) AND 8 BPP MODE
40 VPOKE 4, $801, $88
50 REM X COORDINATE 7:0
60 VPOKE 4, $802, 220
70 REM X COORDINATE 9:8
80 VPOKE 4, $803, 0
90 REM Y COORDINATE 7:0
100 VPOKE 4, $804, 55
110 REM Y COORDINATE 9:8
120 VPOKE 4, $805, 0
130 REM  Z-DEPTH: IN FRONT OF LAYER 2
140 VPOKE 4, $806, $0C
150 REM 16 PIXELS FOR WIDTH AND HEIGHT
160 VPOKE 4, $807, $50
170 REM COPY SMILEY SPRITE DATA TO VIDEO RAM
180 FOR I=0 TO 255
190 READ A
200 VPOKE 1, I, A
210 NEXT
220 REM ENABLE SPRITES
230 VPOKE 4, $20, 1
10000 DATA 0,0,0,0,0,0,16,16,16,16,0,0,0,0,0,0
10001 DATA 0,0,0,0,16,16,80,80,80,80,16,16,0,0,0,0
10002 DATA 0,0,0,16,80,80,80,80,80,80,80,80,16,0,0,0
10003 DATA 0,0,16,80,80,80,80,80,80,80,80,80,80,16,0,0
10004 DATA 0,16,80,80,80,16,16,80,80,16,16,80,80,80,16,0
10005 DATA 0,16,80,80,80,16,16,80,80,16,16,80,80,80,16,0
10006 DATA 16,80,80,80,80,80,80,80,80,80,80,80,80,80,80,16
10007 DATA 16,80,80,80,80,80,80,80,80,80,80,80,80,80,80,16
10008 DATA 16,80,80,80,80,80,80,80,80,80,80,80,80,80,80,16
10009 DATA 16,80,80,80,80,80,80,80,80,80,80,80,80,80,80,16
10010 DATA 0,16,80,80,16,80,80,80,80,80,80,16,80,80,16,0
10011 DATA 0,16,80,80,80,16,80,80,80,80,16,80,80,80,16,0
10012 DATA 0,0,16,80,80,80,16,16,16,16,80,80,80,16,0,0
10013 DATA 0,0,0,16,80,80,80,80,80,80,80,80,16,0,0,0
10014 DATA 0,0,0,0,16,16,80,80,80,80,16,16,0,0,0,0
10015 DATA 0,0,0,0,0,0,16,16,16,16,0,0,0,0,0,0