Basic - como hace una animacion en basic?

alguien me puede decir o enviar un par de ejemplos de animaciones en basic?

Primero tienes que utilizar pset para dibujar las imagenes de la animacion. Luego utiliza la funcion get para guardar la imagen en una matriz.Despues las pones en la pantalla con put, para que la animacion no parpade vas a nesesitar el pcopy.
Ej:
DIM sprite(0 TO 25) AS INTEGER
SCREEN 7, 0, 1, 0
DATA 1,0,0,0,1
DATA 0,1,0,1,0
DATA 0,0,1,0,0
DATA 0,1,0,1,0
DATA 1,0,0,0,1
FOR py = 1 TO 5
FOR px = 1 TO 5
READ colr
PSET (px, py), colr
NEXT px
NEXT py
GET (0, 0)-(5, 5), sprite
REM repeti esto las imagenes de la animacion
CLS
FOR px = 0 TO 310
PCOPY 1, 0
PUT (px, 10), sprite, PSET
NEXT px