var WinMain : int := Window.Open ("graphics:781;541")
%stage
drawbox (200, 0, 600, 60, 12)
%platform
drawbox (500, 80, 300, 60, 12)
%Feet
drawline (320, 80, 340, 90, 12)
drawline (480, 80, 460, 90, 12)
%legs
drawline (440, 220, 460, 90, 12)
drawline (340, 90, 360, 220, 12)
drawline (440, 220, 420, 240, 12)
drawline (360, 220, 380, 240, 12)
%pants
drawbox (380, 220, 400, 260, 12)
drawbox (400, 220, 420, 260, 12)
%spine
drawline (400, 400, 400, 260, 12)
%vest
drawbox (380, 320, 420, 360, 12)
%head
drawoval (400, 430, 30, 30, 12)
%left arm
drawline (360, 340, 380, 340, 12)
drawline (360, 340, 280, 280, 12)
drawline (280, 280, 320, 280, 12)
drawline (320, 280, 350, 260, 12)
%right arm
drawline (420, 340, 440, 340, 12)
drawline (440, 340, 480, 280, 12)
drawline (480, 280, 440, 320, 12)
%guitar
drawarc (350,245,30,25,90,360,12)
drawarc (420,245,40,20,90,180,12)
drawarc (350,300,30,30,270,360,12)
drawarc (420,290,10,25,270,360,12)
drawarc (410,300,30,10,90,180,12)
drawarc (430,310,20,20,180,270,12)