subroutine crash(ret_message) c c NU PRIME TIME FACILITY V 2.0 c Northeastern University Academic Computer Services c 360 Huntington Avenue c Boston, Mass 02115 c c David Bernardo, Author c c This routine is called in response to a properly requested command c to terminate the monitor, thereby stopping PRIME TIME. A response c is written to the communications mailbox ( unit 7 ) and a message c is written to the operator console. c character ret_message*5 c ret_message='OK' write(7,5,err=10)ret_message 5 format(a5) 10 call send_oper_mess(5) return end