Someone

dialog mic {
  title "Microphone Recorder"
  size -1 -1 244 80
  option dbu
  box "Record", 100, 4 1 236 62
  button "Close and Save", 101, 75 66 42 12, ok cancel
  button "Close", 102, 121 66 42 12, cancel
  radio "Radio Button", 1, 10 12 7 7
  radio "Radio Button", 2, 19 12 7 7
  radio "Radio Button", 3, 28 12 7 7
  radio "Radio Button", 4, 37 12 7 7
  radio "Radio Button", 8, 73 12 7 7
  radio "Radio Button", 7, 64 12 7 7
  radio "Radio Button", 6, 55 12 7 7
  radio "Radio Button", 5, 46 12 7 7
  radio "Radio Button", 16, 145 12 7 7
  radio "Radio Button", 15, 136 12 7 7
  radio "Radio Button", 14, 127 12 7 7
  radio "Radio Button", 13, 118 12 7 7
  radio "Radio Button", 12, 109 12 7 7
  radio "Radio Button", 11, 100 12 7 7
  radio "Radio Button", 10, 91 12 7 7
  radio "Radio Button", 9, 82 12 7 7
  radio "Radio Button", 25, 226 12 7 7
  radio "Radio Button", 24, 217 12 7 7
  radio "Radio Button", 23, 208 12 7 7
  radio "Radio Button", 22, 190 12 7 7
  radio "Radio Button", 21, 199 12 7 7
  radio "Radio Button", 20, 181 12 7 7
  radio "Radio Button", 19, 172 12 7 7
  radio "Radio Button", 18, 163 12 7 7
  radio "Radio Button", 17, 154 12 7 7
  radio "Radio Button", 46, 190 21 7 7
  radio "Radio Button", 45, 181 21 7 7
  radio "Radio Button", 44, 172 21 7 7
  radio "Radio Button", 43, 163 21 7 7
  radio "Radio Button", 42, 154 21 7 7
  radio "Radio Button", 41, 145 21 7 7
  radio "Radio Button", 40, 136 21 7 7
  radio "Radio Button", 39, 127 21 7 7
  radio "Radio Button", 38, 118 21 7 7
  radio "Radio Button", 37, 109 21 7 7
  radio "Radio Button", 36, 100 21 7 7
  radio "Radio Button", 35, 91 21 7 7
  radio "Radio Button", 34, 82 21 7 7
  radio "Radio Button", 33, 73 21 7 7
  radio "Radio Button", 32, 64 21 7 7
  radio "Radio Button", 31, 55 21 7 7
  radio "Radio Button", 30, 46 21 7 7
  radio "Radio Button", 29, 37 21 7 7
  radio "Radio Button", 28, 28 21 7 7
  radio "Radio Button", 27, 19 21 7 7
  radio "Radio Button", 26, 10 21 7 7
  radio "Radio Button", 49, 217 21 7 7
  radio "Radio Button", 48, 208 21 7 7
  radio "Radio Button", 47, 199 21 7 7
  radio "Radio Button", 50, 226 21 7 7
  button "Play", 103, 121 36 42 22
  button "Start", 104, 75 36 42 22
  text "Length", 105, 35 42 31 8, center
  edit "Name.wav", 106, 168 42 37 10
  box "", 107, 8 8 226 22
}
on *:dialog:mic:sclick:*: {
  if ($did == 104) {
    set %flash 1
    set %flash2 26
    set %flash3 50
    set %flash4 25
    .timerflash 0 0.9 flash
    .timerflash2 0 0.9 flashdec
  }
  elseif ($did == 103) {
    .timerflash off
    .timerflash2 off
  }
}
on *:dialog:mic:close:*:{
  .timerflash off
  .timerflash2 off
}
alias flash {
  did -u mic %flash
  did -u mic %flash2
  if (%flash >= 25) {
    set %flash 1
  }
  else {
    inc %flash
  }
  if (%flash2 >= 50) {
    set %flash2 26
  }
  else {
    inc %flash2
  }
  did -c mic %flash
  did -c mic %flash2
}
alias flashdec {
  did -u mic %flash3
  did -u mic %flash4
  if (%flash4 == 1) {
    set %flash4 25
  }
  else {
    dec %flash4
  }
  if (%flash3 == 26) {
    set %flash3 50
  }
  else {
    dec %flash3
  }
  did -c mic %flash3
  did -c mic %flash4
}