nolist
#include "ion.inc"
#include "keyval.inc"
.list
#ifdef TI83P
 .org progstart-2
       .db $BB,$6D

#else
  .org progstart

#endif
    ret
 jr nc,Start
  .db "Sprite cursor",0

start:
	ld	b,8
	ld	a,5
	ld	l,5
	
putsprite:
	ld	ix,Sprite
	call	ionputsprite
	call	ionfastcopy
getkey:
	;compare all of the keys

up:
	inc	a
	jp	putsprite
down:
	dec	a
	jp	putsprite
right:
	inc	l
	jp	putsprite
left:
	dec	l
	jp	putsprite
sprite:
	.db %01111110
	.db %00000001
	.db %10000001
	.db %10011001
	.db %10011001
	.db %10000001
	.db %10000001
	.db %01111110

	
quit:
	RET

.end
END