EXTERNALROUTINE  DD(STRING (255)S)
EXTERNALINTEGERFNSPEC  DDELAY(INTEGER  N)
INTEGER  J
CONSTSTRINGNAME  TIME = X'80C0004B'
CYCLE 
J = DDELAY(60)
PRINTSTRING(TIME); NEWLINE
REPEAT 
END 
ENDOFFILE