Basic - Como creo una animacion en basic

Intente hacer una animacion con el pset pero la imagen parpadea, como hago para hacer una animacion de calidad (que no parpade)(yo no use CLS).

Tengo que buscar en mi archivo pero tengo unas pruebas de sprites y animaciones que las recopilo y te las mando.

Pedro.

Yo use FOR

cls
TURBO BASIC
for x=1 to 75
locate 10,x:print " XX"
delay 1
next x

QUICK BASIC
for x=1 to 75
locate 10,x:print " XX"
delay 1

next x

cls
TURBO BASIC
for x=1 to 75
locate 10,x:print " XX"
delay 1
next x

QUICK BASIC
for x=1 to 75
locate 10,x:print " XX"
delay 1

next x

cls
TURBO BASIC
for x=1 to 75
locate 10,x:print " XX"
delay 1
next x

QUICK BASIC
for x=1 to 75
locate 10,x:print " XX"
FOR Y=1 TO 15000:NEXT Y
next x

LO MEJOR ES USAR UN PROGRAMA PARA HACER LAS IMAGENES USA EL RGA-DIB, AQUI ESTA EL URL: http://www.geocities.com/rga_world/Downloads/Zips/RGADib.zip
y con el haces una imagen y luego la guardas y el programa automaticamente lo convierte en un archivo .bas con las instrucciones de dibujo.
O por medio del DosDraw, y cuando quieras agregar las imagenes al archivo *.bas usa esto:
CLS
OPEN "filename.SSF" FOR INPUT AS #1
DO WHILE NOT EOF(1)
INPUT #1 ,X ,Y ,K
PSET (X,Y),K
LOOP
CLOSE #1
Aqui esta el URL:
http://www.petesqbsite.com/downloads/dosartd.zip
Y animaciones aqui:
http://es.geocities.com/jm00092/progqb/anima.htm