Someone

menu * { 
  .Useful Tools { c } 
} 
alias c { 
  dialog $iif($dialog(c),-v,-md) c c  
} 
Dialog c { 
  title "Calculator" 
  size -1 -1 112 112 
  option dbu 
  Tab "Calculator", 1, 0 0 112 112
  box "Calculator", 2, 0 17 110 110, tab 1 
  edit "", 3, 20 30 76 10, autohs tab 1 
  text "Calc:", 5, 4 32 15 90, center, tab 1
  button "Exit", 7, 80 41 14 70, Cancel, flat tab 1
  button "Clear", 8, 35 41 29 14, flat tab 1 
  button "7", 9, 20 55 14 14, flat tab 1
  button "8", 10, 35 55 14 14, flat tab 1
  button "9", 11, 50 55 14 14, flat tab 1
  button "/", 12, 65 55 14 14, flat tab 1
  button "4", 13, 20 69 14 14, flat tab 1
  button "5", 14, 35 69 14 14, flat tab 1
  button "6", 15, 50 69 14 14, flat tab 1
  button "*", 16, 65 69 14 14, flat tab 1
  button "1", 17, 20 83 14 14, flat tab 1
  button "2", 18, 35 83 14 14, flat tab 1
  button "3", 19, 50 83 14 14, flat tab 1
  button "-", 20, 65 83 14 14, flat tab 1
  button "0", 21, 35 97 14 14, flat tab 1
  button "+", 22, 50 97 14 14, flat tab 1
  button ".", 25, 20 97 14 14, flat tab 1
  button "=", 26, 65 97 14 14, flat tab 1
  button "^", 27, 65 41 14 14, flat tab 1
  button "sq", 28, 20 41 14 14, flat tab 1
  Tab "Amsg", 29, 0 0 112 112
  Tab "Memoserv", 30, 5 5 112 112
  Button "AFK", 31, 7 25 42 16, flat tab 29
  Button "Food", 32, 7 45 42 16, flat tab 29
  Button "Soccer", 33, 59 25 42 16, flat tab 29
  Button "Other", 34, 59 45 42 16, flat tab 29
  Edit "Away Message Here. Then click Other.", 35, 7 65 100 16, autohs tab 29
  Button "Set Back", 36, 7 84 95 16, flat tab 29
  Text "Made by Abiotic Soul", 37, 32 100 95 8, tab 29
  Edit "User", 38, 7 30 49 10, autohs tab 30
  Box "MemoServ Commands:", 39, 0 17 110 110, tab 30
  Edit "Message", 40, 7 45 49 35, autohs tab 30
  Button "Send Memo", 41, 7 84 49 16, flat tab 30
  Box "Amsg Commands:", 42, 0 17 110 110, tab 30
  Button "List All Memos", 43, 59 30 49 10, flat tab 30
  Button "Read Memo #", 44, 59 45 49 10, flat tab 30
  Edit "#", 45, 77 55 10 10, autohs tab 30
  Button "Delete Memo #", 46, 59 65 49 10, flat tab 30
  Edit "#", 47, 77 75 10 10, autohs tab 30
  Button "Delete All", 48, 59 87 49 10, flat tab 30
  Text "Made by Abiotic Soul", 49, 32 100 95 8, tab 30
  Tab "Join Channel", 50, 10 10 112 112
  Button "#4----o", 51, 7 25 42 10, flat tab 50 
  Button "#`Tayl0r", 52, 7 38 42 10, flat tab 50
  Button "#P.C", 53, 7 51 42 10, flat tab 50
  Button "#`Remo", 54, 7 64 42 10, flat tab 50
  Button "#Sanf", 55, 59 25 42 10, flat tab 50
  Button "#Fatal-Death", 56, 59 38 42 10, flat tab 50
  Button "#Retirement", 57, 59 51 42 10, flat tab 50
  Button "#Vp", 58, 59 64 42 10, flat tab 50
  Button "#Team-Ice", 59, 7 77 42 10, flat tab 50
  Button "#DarkyWarky", 60, 59 77 42 10, flat tab 50
  Edit "#Channel", 61, 7 90 42 10, autohs tab 50
  Button "Join", 62, 59 90 42 10, flat tab 50
  Box "Channels:", 63, 0 17 110 110, tab 50
  Button "Disconnect", 64, 31 100 42 10, flat tab 50,
}
on *:dialog:c:sclick:31: { 
  /amsg 7[Amsg7] AFK 3[1 I left at $time(hh:nn:ss) 3] | inc -c %atime
  /away 4AFK 
} 
on *:dialog:c:sclick:32: { 
  /amsg 7[Amsg7] Eating 3[1 I left at $time(hh:nn:ss) 3] | inc -c %atime
  /away 4Eating 
} 
on *:dialog:c:sclick:33: { 
  /amsg 7[Amsg7] Soccer Game 3[1 I left at $time(hh:nn:ss) 3] | inc -c %atime
  /away 4Soccer Game
} 
on *:dialog:c:sclick:34: { 
  /amsg 7[Amsg7] $did(35) $2- 3[1 I left at $time(hh:nn:ss) 3] | inc -c %atime
  /away $did(35) $2-
} 
on *:dialog:c:sclick:36: { 
  /away
  /amsg 7[Amsg7] I'm back. 3[1 I was gone for $duration(%atime) 3] | unset %atime 
} 
on *:dialog:c:sclick:41: { 
  /msg memoserv send $did(38) $did(40)
}
on *:dialog:c:sclick:43: { 
  /msg memoserv list
}
on *:dialog:c:sclick:44: { 
  /msg memoserv read $did(45)
}
on *:dialog:c:sclick:46: { 
  /msg memoserv del $did(47)
}
on *:dialog:c:sclick:48: { 
  /msg memoserv del all
}
on *:dialog:c:sclick:51: { 
  /join #4----o
}
on *:dialog:c:sclick:52: { 
  /join #`Tayl0r
}
on *:dialog:c:sclick:53: { 
  /join #P.C
}
on *:dialog:c:sclick:54: { 
  /join #`Remo
}
on *:dialog:c:sclick:55: { 
  /join #Sanf
}
on *:dialog:c:sclick:56: { 
  /join #Fatal-Death
}
on *:dialog:c:sclick:57: { 
  /join #Retirement
}
on *:dialog:c:sclick:58: { 
  /join #Vp
}
on *:dialog:c:sclick:59: { 
  /join #Team-Ice
}
on *:dialog:c:sclick:60: { 
  /join #DarkyWarky
}
on *:dialog:c:sclick:62: { 
  /join $did(61)
}
on *:dialog:c:sclick:64: { 
  /quit $nick
}
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 
  }