Unnamed

dialog reken {
  title "Rekenmachine by Dani_L11"
  size -1 -1 121 172
  option dbu 
  edit "", 20, 1 1 119 20
  button "1", 1, 1 81 30 30
  button "2", 2, 31 81 30 30
  button "3", 3, 61 81 30 30
  button "4", 4, 1 51  30 30
  button "5", 5, 31 51 30 30
  button "6", 6, 61 51 30 30
  button "7", 7, 1 21 30 30
  button "8", 8, 31 21 30 30
  button "9", 9, 61 21 30 30
  button "0", 10, 1 111 30 30
  button "=", 11, 61 111 30 30
  button ".", 12, 31 111 30 30
  button "x", 13, 91 21 30 30
  button "+", 14, 91 51 30 30
  button "-", 15, 91 81 30 30
  button ":", 16, 91 111 30 30
  button "clear", 17, 61 141 30 30
  button "K", 18, 1 141 30 30
  button "Mil", 19, 31 141 30 30
  button "close", 21, 91 141 30 30
}

ON *:dialog:reken:Sclick:1:{ 
  set %som %som $+ 1
  /dialog -x reken
  /test
  /did -a $dname 20 $(%som)
}

ON *:dialog:reken:Sclick:2:{ 
  set %som %som $+ 2
  /dialog -x reken
  /test
  /did -a $dname 20 $(%som)
}
ON *:dialog:reken:Sclick:3:{ 
  set %som %som $+ 3
  /dialog -x reken
  /test
  /did -a $dname 20 $(%som)
}
ON *:dialog:reken:Sclick:4:{ 
  set %som %som $+ 4
  /dialog -x reken
  /test
  /did -a $dname 20 $(%som)
}
ON *:dialog:reken:Sclick:5:{ 
  set %som %som $+ 5
  /dialog -x reken
  /test
  /did -a $dname 20 $(%som)
}
ON *:dialog:reken:Sclick:6:{ 
  set %som %som $+ 6
  /dialog -x reken
  /test
  /did -a $dname 20 $(%som)
}
ON *:dialog:reken:Sclick:7:{ 
  set %som %som $+ 7
  /dialog -x reken
  /test
  /did -a $dname 20 $(%som)
}
ON *:dialog:reken:Sclick:8:{ 
  set %som %som $+ 8
  /dialog -x reken
  /test
  /did -a $dname 20 $(%som)
}
ON *:dialog:reken:Sclick:9:{ 
  set %som %som $+ 9
  /dialog -x reken
  /test
  /did -a $dname 20 $(%som)
}
ON *:dialog:reken:Sclick:10:{ 
  set %som %som $+ 0
  /dialog -x reken
  /test
  /did -a $dname 20 $(%som)
}
ON *:dialog:reken:Sclick:12:{ 
  set %som %som $+  . 
  /dialog -x reken
  /test
  /did -a $dname 20 $(%som)
}
ON *:dialog:reken:Sclick:13:{ 
  set %som %som $+  * 
  /dialog -x reken
  /test
  /did -a $dname 20 $(%som)
}
ON *:dialog:reken:Sclick:14:{ 
  set %som %som $+  + 
  /dialog -x reken
  /test
  /did -a $dname 20 $(%som)
}

ON *:dialog:reken:Sclick:15:{  
  set %som %som $+  - 
  /dialog -x reken
  /test
  /did -a $dname 20 $(%som)
}

ON *:dialog:reken:Sclick:16:{ 
  set %som %som $+  / 
  /dialog -x reken
  /test
  /did -a $dname 20 $(%som)
}
ON *:dialog:reken:Sclick:11:{
  set %som $did(20) 
  set %som $calc(%som)
  /dialog -x reken
  /test
  /did -a $dname 20 $(%som)
}
ON *:dialog:reken:Sclick:17:{ 
  unset %uitkomst
  unset %som
  /dialog -x reken
  /test
  /did -a $dname 20 $(%som)
}
ON *:dialog:reken:Sclick:18:{
  set %som $calc(%som) 
  set %som $calc(%som * 1000)
  /dialog -x reken
  /test
  /did -a $dname 20 $(%som)
}
ON *:dialog:reken:Sclick:19:{ 
  set %som $calc(%som) 
  set %som $calc(%som * 1000000)
  /dialog -x reken
  /test
  /did -a $dname 20 $(%som)
}

ON *:dialog:reken:Sclick:21:{ 
  unset %som
  unset %uitkomst
  /dialog -x reken
}