Someone

dialog sosol {
  title "Soduko solver"
  size -1 -1 308 413
  option pixels
  edit "", 1, 15 19 30 30, limit 1 center
  edit "", 2, 45 19 30 30, limit 1 center
  edit "", 3, 75 19 30 30, limit 1 center
  edit "", 4, 15 49 30 30, limit 1 center
  edit "", 5, 45 49 30 30, limit 1 center
  edit "", 6, 75 49 30 30, limit 1 center
  edit "", 7, 15 79 30 30, limit 1 center
  edit "", 8, 45 79 30 30, limit 1 center
  edit "", 9, 75 79 30 30, limit 1 center
  edit "", 10, 110 19 30 30, limit 1 center
  edit "", 11, 140 19 30 30, limit 1 center
  edit "", 12, 170 19 30 30, limit 1 center
  edit "", 13, 110 49 30 30, limit 1 center
  edit "", 14, 140 49 30 30, limit 1 center
  edit "", 15, 170 49 30 30, limit 1 center
  edit "", 16, 110 79 30 30, limit 1 center
  edit "", 17, 140 79 30 30, limit 1 center
  edit "", 18, 170 79 30 30, limit 1 center
  edit "", 19, 205 19 30 30, limit 1 center
  edit "", 20, 235 19 30 30, limit 1 center
  edit "", 21, 265 19 30 30, limit 1 center
  edit "", 22, 205 49 30 30, limit 1 center
  edit "", 23, 235 49 30 30, limit 1 center
  edit "", 24, 265 49 30 30, limit 1 center
  edit "", 25, 205 79 30 30, limit 1 center
  edit "", 26, 235 79 30 30, limit 1 center
  edit "", 27, 265 79 30 30, limit 1 center
  edit "", 28, 15 114 30 30, limit 1 center
  edit "", 29, 45 114 30 30, limit 1 center
  edit "", 30, 75 114 30 30, limit 1 center
  edit "", 31, 15 144 30 30, limit 1 center
  edit "", 32, 45 144 30 30, limit 1 center
  edit "", 33, 75 144 30 30, limit 1 center
  edit "", 34, 15 174 30 30, limit 1 center
  edit "", 35, 45 174 30 30, limit 1 center
  edit "", 36, 75 174 30 30, limit 1 center
  edit "", 37, 110 114 30 30, limit 1 center
  edit "", 38, 140 114 30 30, limit 1 center
  edit "", 39, 170 114 30 30, limit 1 center
  edit "", 40, 110 144 30 30, limit 1 center
  edit "", 41, 140 144 30 30, limit 1 center
  edit "", 42, 170 144 30 30, limit 1 center
  edit "", 43, 110 174 30 30, limit 1 center
  edit "", 44, 140 174 30 30, limit 1 center
  edit "", 45, 170 174 30 30, limit 1 center
  edit "", 46, 205 114 30 30, limit 1 center
  edit "", 47, 235 114 30 30, limit 1 center
  edit "", 48, 265 114 30 30, limit 1 center
  edit "", 49, 205 144 30 30, limit 1 center
  edit "", 50, 235 144 30 30, limit 1 center
  edit "", 51, 265 144 30 30, limit 1 center
  edit "", 52, 205 174 30 30, limit 1 center
  edit "", 53, 235 174 30 30, limit 1 center
  edit "", 54, 265 174 30 30, limit 1 center
  edit "", 55, 15 209 30 30, limit 1 center
  edit "", 56, 45 209 30 30, limit 1 center
  edit "", 57, 75 209 30 30, limit 1 center
  edit "", 58, 15 239 30 30, limit 1 center
  edit "", 59, 45 239 30 30, limit 1 center
  edit "", 60, 75 239 30 30, limit 1 center
  edit "", 61, 15 269 30 30, limit 1 center
  edit "", 62, 45 269 30 30, limit 1 center
  edit "", 63, 75 269 30 30, limit 1 center
  edit "", 64, 110 209 30 30, limit 1 center
  edit "", 65, 140 209 30 30, limit 1 center
  edit "", 66, 171 209 30 30, limit 1 center
  edit "", 67, 110 239 30 30, limit 1 center
  edit "", 68, 140 239 30 30, limit 1 center
  edit "", 69, 170 239 30 30, limit 1 center
  edit "", 70, 110 269 30 30, limit 1 center
  edit "", 71, 140 269 30 30, limit 1 center
  edit "", 72, 170 269 30 30, limit 1 center
  edit "", 73, 205 209 30 30, limit 1 center
  edit "", 74, 235 209 30 30, limit 1 center
  edit "", 75, 265 209 30 30, limit 1 center
  edit "", 76, 205 239 30 30, limit 1 center
  edit "", 77, 235 239 30 30, limit 1 center
  edit "", 78, 265 239 30 30, limit 1 center
  edit "", 79, 205 269 30 30, limit 1 center
  edit "", 80, 235 269 30 30, limit 1 center
  edit "", 81, 265 269 30 30, limit 1 center
  button "Solve", 82, 122 370 75 25
  button "Clear", 83, 20 370 75 25
  button "Ok", 84, 218 370 75 25, ok cancel
  box "Soduko", 85, 4 4 300 303
  box "Options", 86, 4 309 300 99
  edit "", 87, 24 336 260 21, read
}
alias sosol { dialog -md sosol sosol }
on *:dialog:sosol:*:*: {
  if $devent = sclick {
    if $did = 83 {
      did -r $dname 1-81
    }
  }
}