var shape : string
var font, x, y, x2, y2, button, clr : int

font := Font.New ("Times New Roman:16")
Font.Draw ("Surgeon's General Warning:", 0, 350, font, red)
Font.Draw ("Using this program may cause headaches and/or seizures.", 0, 325, font, red)
Font.Draw ("If any symptoms appear, discontinue use immideately.", 0, 300, font, red)
delay(1750)
cls
put "What shape would you like to use? Circle or Rectangle?"
get shape
cls

loop
randint (x2, 1, 250)
randint (y2, 1, 250)
randint (clr, 1, 255)   
mousewhere (x, y, button)
    if button = 1 then
        if shape = "rectangle" or shape = "Rectangle" then
            drawfillbox (x - x2, y - y2, x + x2, y + y2, clr)
            delay(100)
            cls
        elsif shape = "circle" or shape = "Cirlce" then
            drawfilloval (x , y, x2, y2, clr)
            delay(100)
            cls
        end if
    end if
end loop