Thanks for posting that Hotshot i now get what you mean.I just now need some help to
get this in my rectangles please.This is my sub
DECLARE SUB RECT(BYVAL x1 as integer ,BYVAL Y1 as integer , BYVAL X2 AS INTEGER , BYVAL y2 as integer , BYVAL FILLED, BYVAL COL)
This part of my loop to move the flag and change colour
if dx=0 then x2=x2+.5
IF DX=0 THEN COLOUR=ORAN'
IF X2>78 THEN DX=1'
IF DX=1 THEN COLOUR=RED'
IF DX=1 THEN X2=X2-.5'
IF X2<0 THEN DX=0'