var y : int
for i : 0 .. maxx
y := maxy - i
drawfillbox (i - 30, 250, i + 80, 200, 5)
drawfilloval (i, 200, 15, 15, 255)
drawfilloval (i + 50, 200, 15, 15, 255)
delay (15)
drawfillbox (i - 30, 250, i + 80, 200, 0)
drawfilloval (i, 200, 15, 15, 0)
drawfilloval (i + 50, 200, 15, 15, 0)
drawfillbox (y - 30, 250, y + 80, 200, 5)
drawfilloval (y, 200, 15, 15, 255)
drawfilloval (y + 50, 200, 15, 15, 255)
delay (5)
drawfillbox (y - 30, 250, y + 80, 200, 0)
drawfilloval (y, 200, 15, 15, 0)
drawfilloval (y + 50, 200, 15, 15, 0)
end for |