title Warn of no time

a=:1
t=:5
tt=:6
ttyo=:7

define syscal op args
	.call [setz ? sixbit /op/ ? args((setz))]
termin

define type &string
	move t,[440700,,[asciz string]]
	movei tt,<.length string>
	syscal SIOT,[%climm,,ttyo ? t ? tt]
termin

go:	syscal RQDATE,[%clout,,a]
	  jrst tell
	came a,[-1]		   ;is the time known?
	  .logout 1,		   ;  yes, no problem
tell:	syscal OPEN,[%clbit,,.uao ? %climm,,ttyo ? [sixbit /T00/]]
	  .logout 1,
	type /

--------------------------------------------
The system does not know the time.
Please tell it using the :PDSET command.
Do ":PDSET ?" for info on how to use PDSET.
You may do ":TIMES" to find out the time
from other hosts on the ARPAnet.
--------------------------------------------

/
	.close ttyo,
	.logout 1,

end go