Miscellany

dialog calc {
  size -1 -1 250 250 
  title "calculator" 
  edit "" 4, 10 20 230 30, disable center
  button "7" 5, 10 60 30 30, center
  button "8" 6, 40 60 30 30, center
  button "9" 7, 70 60 30 30, center
  button "4" 8, 10 90 30 30, center
  button "5" 9, 40 90 30 30, center
  button "6" 10, 70 90 30 30, center
  button "1" 11, 10 120 30 30, center
  button "2" 12, 40 120 30 30, center
  button "3" 13, 70 120 30 30, center
  button "0" 14, 10 150 30 30, center
  button "k" 23, 10 190 30 30, center
  button "m" 24, 40 190 30 30, center
  button "b" 25, 70 190 30 30, center
  button "(" 15, 40 150 30 30, center
  button ")" 16, 70 150 30 30, center
  button "X" 17, 150 60 30 30, center
  button ":" 18, 180 60 30 30, center
  button "+" 19, 150 90 30 30, center
  button "-" 20, 180 90 30 30, center
  button "%" 21, 150 120 30 30, center
  button "M" 22, 180 120 30 30, center
  button "=" 26, 180 150 30 30, center
  button "Clear" 27, 150 150 30 30, center
}
on *:dialog:calc:sclick:*:{
  if (%answerd != on) {
    if ($did == 5) { /did -a calc 4 7 }
    if ($did == 6) { /did -a calc 4 8 }
    if ($did == 7) { /did -a calc 4 9 }
    if ($did == 8) { /did -a calc 4 4 }
    if ($did == 9) { /did -a calc 4 5 }
    if ($did == 10) { /did -a calc 4 6 }
    if ($did == 11) { /did -a calc 4 1 }
    if ($did == 12) { /did -a calc 4 2 }
    if ($did == 13) { /did -a calc 4 3 }
    if ($did == 14) { /did -a calc 4 0 }
    if ($did == 15) { /did -a calc 4 ( }
    if ($did == 16) { /did -a calc 4 ) }
    if ($did == 17) { /did -a calc 4 X }
    if ($did == 18) { /did -a calc 4 : }
    if ($did == 19) { /did -a calc 4 + }
    if ($did == 20) { /did -a calc 4 - }
    if ($did == 21) { /did -a calc 4 % }
    if ($did == 22) { /did -a calc 4 M }
    if ($did == 23) { /did -a calc 4 k }
    if ($did == 24) { /did -a calc 4 m }
    if ($did == 25) { /did -a calc 4 b }
    if ($did == 27) { /did -r calc 4 }
    if ($did == 26) { 
      /set %answord $calc($replace($did(4),X,*,:,/,k,000,$lower(m),000000,b,000000000,$upper(M),^))
      /set %answerd on
      /did -ra calc 4 %answord
    halt }
  }
  if (%answerd == on) {
    if ($did == 5) { /did -ra calc 4 7 | set %answerd off }
    if ($did == 6) { /did -ra calc 4 8 | set %answerd off }
    if ($did == 7) { /did -ra calc 4 9 | set %answerd off }
    if ($did == 8) { /did -ra calc 4 4 | set %answerd off }
    if ($did == 9) { /did -ra calc 4 5 | set %answerd off }
    if ($did == 10) { /did -ra calc 4 6 | set %answerd off }
    if ($did == 11) { /did -ra calc 4 1 | set %answerd off }
    if ($did == 12) { /did -ra calc 4 2 | set %answerd off }
    if ($did == 13) { /did -ra calc 4 3 | set %answerd off }
    if ($did == 14) { /did -ra calc 4 0 | set %answerd off }
    if ($did == 15) { /did -ra calc 4 ( | set %answerd off }
    if ($did == 16) { /did -ra calc 4 ) | set %answerd off }
    if ($did == 17) { /did -ra calc 4 X | set %answerd off }
    if ($did == 18) { /did -ra calc 4 : | set %answerd off }
    if ($did == 19) { /did -ra calc 4 + | set %answerd off }
    if ($did == 20) { /did -ra calc 4 - | set %answerd off }
    if ($did == 21) { /did -ra calc 4 % | set %answerd off }
    if ($did == 22) { /did -ra calc 4 M | set %answerd off }
    if ($did == 23) { /did -ra calc 4 k | set %answerd off }
    if ($did == 24) { /did -ra calc 4 m | set %answerd off }
    if ($did == 25) { /did -ar calc 4 b | set %answerd off }
    if ($did == 27) { /did -ra calc 4 }
    if ($did == 26) { 
      /set %answord $calc($replace($did(4),X,*,:,/,k,000,$lower(m),000000,b,000000000,$upper(M),^))
      /set %answerd off
    /did -ra calc 4 %answord }
  }
}