C+ ; #.#.# ; ; ; Write system message to system message devi;e (SYSMSG) ; ; ; FUN;TION: ; This subroutine is a utility that allows ; date, time, text and variables to be output to the system terminal ; (ST0:) without FORTRAN i/o. ; ; ; ;ALLING SEQUENCE:; C CALL SYSMSG( sysmsg [,ERRNUM] [,ERRNUM] ) C C WHERE: C ARGUMENT = DESCRIPTION ACCESS C C SYSMSG = Error message to be printed PA C on the system terminal. C C ERRNUM = Error number to follow error message PA C (optional). C -9999 <= NUMBER <= 32767 C C Note that a variable number of ERRNUM C arguments can be passed to this subroutine C for printing in integer format. C C C SUBROUTINES REFERENCED: C C ASNLUN GETLUN BUGMSG C C C DESCRIPTION: C SYSMSG saves the current assignment of lun 4 then assigns it C to the system terminal device (ST0:). SYSMSG then calls C BUGMSG to print the message. C SYSMSG then returns lun 4's assignment to what it was before C calling SYSMSG. C C SPECIAL CONSIDERATIONS: C 1. This subroutine requires lun 4. C C- SUBROUTINE SYSMSG