try this. CLS X=23 @LOOP GLINE 23,42,X,180 X=X+2 VSYNC 1 GOTO @LOOP