% Mr. M

% December 14, 2000

% Traffic light simulator

setscreen("graphics:vga")

locate (2,30)

put "Traffic light simulator"

drawbox(280,80,360,400,1)

loop

drawfilloval(320,120,30,30,2)

delay(2000)

drawfilloval(320,120,30,30,0)

drawfilloval(320,240,30,30,14)

delay(1000)

drawfilloval(320,240,30,30,0)

drawfilloval(320,360,30,30,4)

delay(2000)

drawfilloval(320,360,30,30,0)

end loop