Unnamed

Dialog Calc { 
  title "Calculator" 
  size -1 -1 170 98
  option dbu
  edit " ", 13, 10 6 100 11, 
  edit "0", 16, 118 6 50 11, read
  text "=", 17, 112 6 6 13
  button "0", 100, 10 20 16 16
  button "1", 1, 10 37 16 16
  button "2", 2, 10 54 16 16
  button "3", 3, 10 71 16 16
  button "4", 4, 27 20 16 16
  button "5", 5, 27 37 16 16 
  button "6", 6, 27 54 16 16 
  button "7", 7, 27 71 16 16 
  button "8", 8, 44 37 16 16 
  button "9", 9, 44 54 16 16 
  button "100", 101, 44 20 16 16
  button "1000", 102, 44 71 16 16
  button ":", 10, 65 23 20 20 
  button "X", 11, 65 44 20 20
  button "+", 12, 65 65 20 20
  button "Clear", 14, 90 20 50 15  
  button "Calc", 20, 90 38 50 15
  button "Backspace", 65, 90 56 50 15
  button "Close", 66, 90 74 50 15
  link "Edie Scripts", 15, 3 90 38 8 
}
ON *:dialog:calc:sclick:65:{ 
  set %calccer $left($did(calc,13),-1)
  /pinda
}
alias pinda { 
  did -ra Calc 13 %calccer
}
ON *:dialog:calc:sclick:66:{ 
  /dialog -x calc
}
ON *:dialog:calc:sclick:100:{ 
  did -a calc 13 0
}
ON *:dialog:calc:sclick:101:{ 
  did -a calc 13 100 
}
ON *:dialog:calc:sclick:102:{ 
  did -a calc 13 1000
}
ON *:dialog:calc:sclick:1:{ 
  did -a Calc 13 1 
}
ON *:dialog:calc:sclick:2:{ 
  did -a Calc 13 2 
}
ON *:dialog:calc:sclick:3:{ 
  did -a Calc 13 3 
}
ON *:dialog:calc:sclick:4:{ 
  did -a Calc 13 4
}
ON *:dialog:calc:sclick:5:{ 
  did -a Calc 13 5
}
ON *:dialog:calc:sclick:6:{ 
  did -a Calc 13 6
}
ON *:dialog:calc:sclick:7:{ 
  did -a Calc 13 7 
}
ON *:dialog:calc:sclick:8:{ 
  did -a Calc 13 8
}
ON *:dialog:calc:sclick:9:{ 
  did -a Calc 13 9
}
ON *:dialog:calc:sclick:14:{ 
  /dialog -x Calc 
  /dialog -m calc Calc
}
ON *:dialog:calc:sclick:10:{ 
  did -a Calc 13 /
}
ON *:dialog:calc:sclick:11:{ 
  did -a Calc 13 *
}
ON *:dialog:calc:sclick:12:{ 
  did -a calc 13 +
}
ON *:dialog:calc:sclick:20:{ 
  did -ra calc 16 $calc($did(calc,13))
}