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 
  }