how to stop flicker?

[atzero]

Whenever Im doing a program that has movement, it always flickers a lot. The computer its running on is a 30MHz 386, and the "wait &H3DA, 8" command only helps on some programs. Most of the time it doesnt work. What is a good way to do movement? For example, this is how I usually do it:

x=1
y=1
DO
WAIT &H3DA, 8
PSET(x,y), 0 'erases previous point (black)
x=x+1
y=y+1
PSET(x,y), 15 'draws new point (white)
LOOP UNTIL y=100

Can someone help me out?

[Elias]

Play around with this:

SCREEN 7,,1,0
x=1
y=1
DO
PCOPY 2,1
WAIT &H3DA, 8
PSET(x,y), 0 'erases previous point (black)
x=x+1
y=y+1
PSET(x,y), 15 'draws new point (white)
PCOPY 1,0
LOOP UNTIL y=100

I hope this helps. :) :)