----------------------------------- 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