alias hdisk {
  if ($1 == -m || $1 == -e) && (!$2) {
    var %a = 1, %b = $disk(0)
    while (%a <= %b) {
      if ($disk(%a) == $true) {
        inc %disk.size $disk(%a).size
        inc %disk.free $disk(%a).free
        .timer 1 %a $iif($1 == -m,say,echo -ag [4HDisk]) 4Disk: $disk(%a).path $+ ; (4Label: $iif($disk(%a).label,$disk(%a).label,None) $+ ) 4Type: $disk(%a).type $+ ; 4Size: $bytes($disk(%a).size,b3).suf $+ ; 4Free: $bytes($disk(%a).free,b3).suf 12( $+ $round($calc(($disk(%a).free / $disk(%a).size) * 100),2) $+ % $+ 12)
      }
      if ($disk(%a) == $false) {
        inc %disk.size $disk(%a).size
        inc %disk.free $disk(%a).free
        .timer 1 %a $iif($1 == -m,say,echo -ag [4HDisk]) 4Disk: $disk(%a).path $+ ; (4Label: $iif($disk(%a).label,$disk(%a).label,None) $+ ) 4Type: $replace($disk(%a).type,removable,floppy) $+ .
      }
      if (%a == %b) { .timer 1 $calc(%b + 1) $iif($1 == -m,say,echo -ag [4HDisk]) 4Total disk space: $bytes(%disk.size,b3).suf $+ ; 4Total amount free: $bytes(%disk.free,b3).suf 12( $+ $round($calc((%disk.free / %disk.size) * 100),2) $+ % $+ 12) | unset %disk.* }
      inc %a
    }
  }
  elseif ($1 && $disk($1) == $true) {
    $iif($2 == -m,say,echo -ag [4HDisk]) 4Disk: $disk($1).path $+ ; (4Label: $iif($disk($1).label,$disk($1).label,None) $+ ) 4Type: $disk($1).type $+ ; 4Size: $bytes($disk($1).size,b3).suf $+ ; 4Free: $bytes($disk($1).free,b3).suf 12( $+ $round($calc(($disk($1).free / $disk($1).size) * 100),2) $+ % $+ 12)
  }
}