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