procedure drawrectangle
    %screen formatting
    setscreen ("graphics:800;400")
    %orange button
    var number : int
    var rangeX, rangeY, button : int
    cls
    drawfillbox (200, 50, 250, 100, 42)
    %keyboard input
    put "Enter your temperature in farenheit from -4 to 68"
    get number
    put "Your temperature in celcius is:", (5 / 9) * (number - 32);
    put "Click on the orange box to repeat"


    %Mouse input
    loop
        mousewhere (rangeX, rangeY, button)
        if (rangeX >= 200 and rangeX <= 250) and (rangeY >= 50 and rangeY <= 100) and button = 1 then
            drawrectangle
        else

        end if
        %Red box
        drawbox (20, 40, 70, 100, 12)
        drawbox (20, 100, 70, 160, 12)
        drawbox (20, 160, 70, 220, 12)
        drawbox (20, 220, 70, 280, 12)
        %Yellow box
        drawbox (70, 40, 120, 100, 43)
        %Blue box
        drawbox (120, 40, 170, 100, 54)
        drawbox (120, 100, 170, 160, 54)
        drawbox (120, 160, 170, 220, 54)
        drawbox (120, 220, 170, 280, 54)
        Text.Locate (1, 5)
       
        for x : 50 .. 100
       
        if number = 41 then
       
        drawfillbox(20,40,70,0+x,12)
        delay(10)
        end if
         
        if number = 35 then
            drawfillbox (120, 40, 170, 0 + x, 54)
            delay (10)

           
end if
        end for
    end loop
end drawrectangle
drawrectangle