menu * {
.Calc { c }
}
alias c {
dialog $iif($dialog(c),-v,-md) c c
}
Dialog c {
title "Calculator"
size -1 -1 112 112
option dbu
text "Made by Abiotic Soul" 1, 20 24 60 10
box "Calculator", 2, 1 1 112 112
edit "", 3, 20 11 76 10
text "Calc:", 5, 4 12 15 90, center
button "Exit", 7, 80 41 14 70, Cancel
button "Clear", 8, 35 41 29 14,
button "7", 9, 20 55 14 14
button "8", 10, 35 55 14 14
button "9", 11, 50 55 14 14
button "/", 12, 65 55 14 14
button "4", 13, 20 69 14 14
button "5", 14, 35 69 14 14
button "6", 15, 50 69 14 14
button "*", 16, 65 69 14 14
button "1", 17, 20 83 14 14
button "2", 18, 35 83 14 14
button "3", 19, 50 83 14 14
button "-", 20, 65 83 14 14
button "0", 21, 35 97 14 14
button "+", 22, 50 97 14 14
box "", 23, 5 28 100 100
button ".", 25, 20 97 14 14
button "=", 26, 65 97 14 14
button "^", 27, 65 41 14 14
button "sq", 28, 20 41 14 14
}
on *:DIALOG:c:sclick:*: {
if ($did == 26) { set %sum $calc( $did(3) ) | did -r c 3 | did -a c 3 %sum }
if ($did == 8) { did -r c 3 | unset %sum }
if ($did == 9) { did -a c 3 7 }
if ($did == 10) { did -a c 3 8 }
if ($did == 11) { did -a c 3 9 }
if ($did == 12) { did -a c 3 / }
if ($did == 13) { did -a c 3 4 }
if ($did == 14) { did -a c 3 5 }
if ($did == 15) { did -a c 3 6 }
if ($did == 16) { did -a c 3 * }
if ($did == 17) { did -a c 3 1 }
if ($did == 18) { did -a c 3 2 }
if ($did == 19) { did -a c 3 3 }
if ($did == 20) { did -a c 3 - }
if ($did == 21) { did -a c 3 0 }
if ($did == 22) { did -a c 3 + }
if ($did == 25) { did -a c 3 . }
if ($did == 27) { did -a c 3 ^ }
if ($did == 28) { set %sum $sqrt( $did(3) ) | did -r c 3 | did -a c 3 %sum
}