Something

menu * {
  .Picwin Clock { 
    window -opd +dL @clock 800 80 80 80
    var %x = 0 
    while (%x <= 15) { 
      drawreplace @clock $iif(%x < 10,0 $+ %x,%x) 15
      inc %x 
    }
    //timersec 0 1 /drawline @clock 04 1 40 40 $x(ss) $y(ss)
    drawrect -e @clock 0 1 1 2 76 76
  }
}
alias x {
  return $calc(40 + 38 * $cos($calc($time($1) * 6)).deg)
}
alias y {
  return $calc(40 + 38 * $sin($calc($time($1) * 6)).deg)
}
on *:APPACTIVE: {
  if ($window(clock)) {
    if (!$appactive) {
      window -n2 @clock
    }
    else {
      window -r @clock
    }
  }
}
on *:KEYDOWN:@clock:*: {
  if ($keyval == 40) { window -s @clock $window(@clock).x $calc($window(@clock).y + 2) }
  elseif ($keyval == 39) { window -s @clock $calc($window(@clock).x + 2) $window(@clock).y }
  elseif ($keyval == 38) { window -s @clock $window(@clock).x $calc($window(@clock).y - 2) }
  elseif ($keyval == 37) { window -s @clock $calc($window(@clock).x - 2) $window(@clock).y }
}
on *:CLOSE:@clock: {
  .timersec off
  .timermin off
  .timerhr off
}