Untitled

;;;;;;;;;;;;; Run with /downt

alias downt {
  dialog -m downt downt
}

dialog downt {
  title "Download Time Calculator"
  size -1 -1 95 71
  option dbu
  text " Download/Upload Time Calculator", 1, 3 1 90 8
  text " File Size", 2, 4 11 25 8
  edit "", 3, 33 9 59 10
  text " Speed kb/s", 4, 3 36 29 8
  edit "", 5, 33 34 59 10
  button "Calculate", 6, 4 46 89 12
  edit "", 7, 4 59 88 10
  radio "mb", 8, 18 21 24 10
  radio "gb", 9, 44 21 24 10
}

on *:dialog:downt:sclick:6: {
  if (($did(downt,3) isnum) && ($did(downt,5) isnum)) {
    if (($did(downt,8).state == 1) || ($did(downt,9).state == 1)) {
      if ($did(downt,8).state == 1) {
        var %down.inkb = $calc($did(downt,3) * 1024)
        var %down.insecs = $calc(%down.inkb / $did(downt,5))
        var %down.inmins = $calc(%down.insecs / 60)
        var %down.mins = $left(%down.inmins,$calc($pos(%down.inmins,.,1) - 1))
        var %down.leftsecs = $calc(%down.insecs - (%down.mins * 60))
        did -r downt 7
        did -a downt 7 %down.mins mins $round(%down.leftsecs,0) secs
      }

      if ($did(downt,9).state == 1) {
        var %down.inkb = $calc($did(downt,3) * 1024 * 1024)
        var %down.insecs = $calc(%down.inkb / $did(downt,5))
        var %down.inmins = $calc(%down.insecs / 60)
        var %down.mins = $left(%down.inmins,$calc($pos(%down.inmins,.,1) - 1))
        var %down.leftsecs = $calc(%down.insecs - (%down.mins * 60))
        did -r downt 7
        did -a downt 7 %down.mins mins $round(%down.leftsecs,0) secs 

      }
    }
    else { echo -a GB or MB? }
  }
  else { echo -a File size and speed must be numbers }
}