let {var-t} = now
let {var-u} = format {var-t} long date
let {var-u} = left {var-u} 3
let {var-t} = right {var-t} 8
let {var-m} = mid {var-t} 4 2
rem let {var-s} = right {var-t} 2
let {var-h} = left {var-t} 2
if {var-h} <> dim then goto day_ok
if {var-h} = 23 then goto time_ok
exit
:day_ok
if {var-h} = 23 then exit
if {var-h} <> 22 then goto time_ok
if {var-m} < 56 then goto time_ok
exit
:time_ok
