alias cancalc { dialog -m cancalc cancalc } 
dialog cancalc { 
title "..::| Coded BY CaN |::.." 
size -1 -1 105 108 
option dbu 
button "1", 1, 27 31 10 10 
button "2", 2, 37 31 10 10 
button "3", 3, 47 31 10 10 
button "4", 4, 27 41 10 10 
button "5", 5, 37 41 10 10 
button "6", 6, 47 41 10 10 
button "7", 7, 27 51 10 10 
button "8", 8, 37 51 10 10 
button "9", 9, 47 51 10 10 
button "0", 10, 27 61 30 10 
button "+", 11, 62 31 10 10 
button "-", 12, 62 41 10 10 
button "*", 13, 62 51 10 10 
button "/", 14, 62 61 10 10 
button "=", 15, 27 75 46 10 
edit "", 222, 58 7 38 10, read autohs 
box "", 17, 3 0 95 30 
box "", 18, 25 26 35 48 
box "", 19, 59 26 17 48 
box "", 20, 25 70 51 18 
edit " Coder By CaN", 21, 25 88 51 10, read 
edit "", 111, 5 7 39 10, read autohs 
edit "", 16, 5 17 91 10, read autohs 
link "www.mircdb.com", 23, 61 98 42 8 
link "www.ircrehberi.net", 22, 1 98 50 8 
edit "", 333, 44 7 14 10, read 
button "SiL", 24, 3 30 20 60 
button "Kapat", 25, 78 30 20 60, cancel 
} 
on 1:dialog:cancalc:init:*:{ 
set %sc 111 
did -a cancalc 111,222,16 
} 
On 1:dialog:cancalc:close:*:{ unset %cancalcsonuc | unset %sc | unset %sx } 
on 1:dialog:cancalc:sclick:*:{ 
if ($did == 1) { did -a cancalc %sc 1 } 
if ($did == 2) { did -a cancalc %sc 2 } 
if ($did == 3) { did -a cancalc %sc 3 } 
if ($did == 4) { did -a cancalc %sc 4 } 
if ($did == 5) { did -a cancalc %sc 5 } 
if ($did == 6) { did -a cancalc %sc 6 } 
if ($did == 7) { did -a cancalc %sc 7 } 
if ($did == 8) { did -a cancalc %sc 8 } 
if ($did == 9) { did -a cancalc %sc 9 } 
if ($did == 10) { did -a cancalc %sc 0 } 
if ($did == 11) { did -a cancalc 333 + | set %sc 222 | set %sx + } 
if ($did == 12) { did -a cancalc 333 - | set %sc 222 | set %sx - } 
if ($did == 13) { did -a cancalc 333 * | set %sc 222 | set %sx * } 
if ($did == 14) { did -a cancalc 333 / | set %sc 222 | set %sx / } 
if ($did == 15) { 
set %cancalcsonuc $calc($did(111) %sx $did(222)) 
did -a cancalc 16 %cancalcsonuc 
} 
if ($did == 23) { run www.mircdb.com } 
if ($did == 22) { run www.ircrehberi.net } 
if ($did == 24) { did -r cancalc 111,222,333,16 | set %sc 111 } 
}