var colo : int := 0
var d : int := 50
var x, y : int
x := 300
y := 220
var boxx1 : int := 230
var boxy1 : int := 50
var boxx2 : int := 370
var boxy2 : int := 385
drawfilloval (x, y, d, d, colo)
drawbox (boxx1, boxy1, boxx2, boxy2, red)
loop
for count : 1 .. 3
if count = 1 then
colo := green
drawfilloval (x, y + 100, d, d, colo)
delay (1000)
cls
drawbox (boxx1, boxy1, boxx2, boxy2, red)
end if
if count = 2 then
colo := yellow
drawfilloval (x, y, d, d, colo)
delay (1000)
cls
drawbox (boxx1, boxy1, boxx2, boxy2, red)
end if
if count = 3 then
colo := red
drawfilloval (x, y - 100, d, d, colo)
delay (1000)
cls
drawbox (boxx1, boxy1, boxx2, boxy2, red)
end if
delay (10)
end for
end loop
|