View.Set ("offscreenonly;nobuttonbar")
var keys : array char of boolean
var x, y, x2, y2, b, pic : int
var select : int := 1
loop
    Input.KeyDown (keys)

    if keys ('1') then
        select := 1
    elsif keys ('2') then
        select := 2
    elsif keys ('3') then
        select := 3
    elsif keys ('4') then
        select := 4
    end if

    if select = 1 then
        %%%%Rectangle Begins%%%%
        mousewhere (x, y, b)
        if b = 1 then
            pic := Pic.New (0, 0, maxx, maxy)
            loop
                mousewhere (x2, y2, b)
                Pic.Draw (pic, 0, 0, picCopy)
                drawbox (x, y, x2, y2, black)
                exit when b not= 1
                View.Update
            end loop
            Pic.Free (pic)
        end if
        View.Update

    elsif select = 2 then
        %%%%Line Begins%%%%
        mousewhere (x, y, b)
        if b = 1 then
            pic := Pic.New (0, 0, maxx, maxy)
            loop
                mousewhere (x2, y2, b)
                Pic.Draw (pic, 0, 0, picCopy)
                drawline (x, y, x2, y2, black)
                exit when b not= 1
                View.Update
            end loop
            Pic.Free (pic)
        end if
        View.Update

    elsif select = 3 then
        %%%%Cicle Begins%%%%
        mousewhere (x, y, b)
        if b = 1 then
            pic := Pic.New (0, 0, maxx, maxy)
            loop
                mousewhere (x2, y2, b)
                Pic.Draw (pic, 0, 0, picCopy)
                drawoval (x, y, x2, y2, black)
                exit when b not= 1
                View.Update
            end loop
            Pic.Free (pic)
        end if
        View.Update

    elsif select = 4 then
        %%%%Pencil Begins%%%%
        Mouse.Where (x2, y2, b)
        if b = 1 then
            drawdot (x, y, black)
            drawline (x, y, x2, y2, black)
        end if
        x := x2
        y := y2
    end if
end loop