10 REM ***
20 REM sprite
30 REM ***
40 SCREEN 1
50 KEY OFF
60 REM definimos un caracter
70 A=BASE(9)
80 FOR F=A TO A+7
90 VPOKE F,195
100 NEXT
110 S=BASE(8)
120 FOR I=0 TO 200
130 REM cambiamos la coordenada X
140 VPOKE S,I
150 REM cambiamos la coordenada Y
160 VPOKE S+1,I
170 NEXT
180 GOTO 120