% Mr. M

% December 15, 2000

% Winking happy face

setscreen("graphics:vga")

drawfilloval(320,240,100,100,14)

drawfilloval(360,280,10,10,0)

drawarc(320,240,50,50,180,360,0)

loop

drawfilloval(280,280,10,10,0)

delay(1000)

drawfilloval(280,280,10,10,14)

drawline(270,280,290,280,0)

delay(1000)

end loop