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

icedesi

Sun Jan 04, 2004 6:59 pm


Sorry, Again, I need help, Im Such A newb at turing!

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



setscreen ("graphics:800;600") 

var xx, yy, bb, aa, cc, dd, ee, ff, gg, hh, ii, jj, kk, ll, mm: int 

%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 



% Calculator Numbers

procedure button1 

    drawbox (107, 205, 187, 285, 1) 
    
    Text.LocateXY (147,245)
    put "1"
    
    loop 
    
    mousewhere (xx, yy, bb) 
    
        exit when bb = 1 and 107