alias nasa {
  if ($sock(*nasa,0)) echo 4 -agtle Download in progress, please wait!
  else {
    sockopen nasa www.nasa.gov 80
    sockmark nasa /
  }
}
on *:signal:nasa:{
  sockclose *nasa
  unset %ndescript
  noop $input(Error downloading Nasa Image of the Day.,ohu,Error)
}
on *:close:@Nasa: unset %ndescript
menu @Nasa {
  sclick: noop $input(%ndescript,oiu,About the Image)
}
on *:sockopen:*nasa:{
  if ($sockerr) .signal -n nasa
  sockwrite -n $sockname GET $sock($sockname).mark HTTP/1.0
  sockwrite $sockname Host: $sock($sockname).addr $  $str($crlf,2)
  sockmark $sockname $false
}
on *:sockread:nasa:{
  if ($sockerr) .signal -n nasa
  else {
    var %s
    sockread %s
    if ($regex(%s,/<a href="\/multimedia. ALT="(. )". SRC="(\/images\/content\/. )"/U)) {
      set %ndescript $regml(1)
      sockopen _nasa $sock($sockname).addr 80
      sockmark _nasa $regml(2)
      sockclose $sockname
    }
  }
}
on *:sockread:_nasa:{
  if ($sockerr) .signal -n nasa
  else {
    if ($sock($sockname).mark) {
      :i
      sockread &iod
      bwrite iod.jpg -1 -1 &iod
      if ($sock($sockname).rq) goto i
      if ($file(iod.jpg).size >= $sock($sockname).mark) {
        sockclose $sockname
        window -Cpdow0k0  fbnL @Nasa 1 1 $calc($pic(iod.jpg).width  7) $calc($pic(iod.jpg).height  24)
        drawpic @Nasa -1 -1 iod.jpg
        titlebar @Nasa Image of the Day! (Click image for description)
        .timer 1 1 .remove iod.jpg
      }
    }
    else {
      var %s
      :head
      sockread %s
      if (content-len isin %s) sockmark $sockname $gettok(%s,2,32)
      if (%s) goto head
    }
  }
}