-----------------------------------

icedesi

Sun Jan 04, 2004 5:32 pm


Hi, Im Building a GUI turing Calculator, I need Help.

-----------------------------------

setscreen ("graphics:800;600")

%Calculator Physical Shape

var a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,x,y,z:int

procedure physical

    drawbox (100, 200, 450, 470, 1)

    drawline (100, 430, 450, 430, 1)

    drawbox (107, 435, 443, 465, 1)

    drawline (370, 200, 370, 430, 1)

end physical

physical


procedure button1 (var x,y,b :int)

drawbox (107, 205, 187, 285, 1)

loop

mousewhere (x,y,b)

exit when b = 1 and 107