%Broken Arrow
%Adrian Todorov
%Created on April 7,2004
%Modified on April 14,2004
%An arrow moving left to right changing directions
%Question #5
setscreen ("graphics")
View.Set ("offscreenonly")
loop %Loop to keep repeating each For loop
for x : 1 .. maxx+40 %Counted loop for the movement of left-to-right
cls
delay(5)
drawline (x+20, 50, x+40, 30, black)
drawline (x, 30, x+40, 30, black)
drawline (x+40, 30, x+20, 10, black)
View.Update
end for
delay(5)
for decreasing x : maxx .. 1-40 %Counted loop for the movement of right-to-left
cls
delay(5)
drawline (x-20, 50, x-40, 30, black)
drawline (x, 30, x-40, 30, black)
drawline (x-40, 30, x-20, 10, black)
View.Update
end for
end loop
|