255
@verb #119:"old_yaut" this none this rxdo #9682
@program #119:"old_yaut" this none this
{time, ?zone = "GMT"} = args
ctime = ctime(time)
i = $list_utils:iassoc(ctime[$ - 2..$], zones = $time_utils.timezones, 1)
g = $list_utils:iassoc(zone, zones, 1)
asctime = ctime(time + 3600 * abs(zones[i][2] - zones[g][2]))
words = $string_utils:explode(asctime)
{day, mon, DD, hms, YYYY, tz} = words
MM = $string_utils:right(tostr(mon in $time_utils.monthabbrs), 2, "0")
DD = $string_utils:right(DD, 2, "0")
hhmmss = tostr(@$string_utils:explode(hms, ":"))
return tostr(YYYY, MM, DD, hhmmss)
.

0