Function LPutST( String, RtnCod ) C C Aleda Subroutine to List a String at the Console. C Assumes that the string is terminated with a zero byte (null) or C backslash (\) . If terminated with a backslash, LPutSTring will C add a carriage return and a line feed after the message. C The maximum length of the string is currently 256 characters. If a null C or backslash it not found by then, error code -34 is returned. If C no STRING parameter is provided, error code -1 is returned. C C LPutLN is used to do the output to logical unit 1. C***************************************************************************** C Last Modified 26-Jul-84 DVJensen. C 19-Jul-85 DVJ - Fix the backslash to do the New Line thing. C***************************************************************************** C Integer*2 RtnCod, LPutSt, Error, Count Byte String(1), Terms(3), CrLf(2) Data Terms / 2, 0, '\' / ! Two Valid String Terminators. Data CrLf / "15, "12 / ! Carriage return, line feed. C If (Lexist(String)) GOTO 100 LPutST = -1 ! Error in Parameter #1 (Code = -1) If ( LExist( RtnCod ) ) RtnCod = -1 Return 100 Error = LPutLN ( 1, String, 256, Count, 1, Terms) LPutST = Error 150 If ( LExist( RtnCod ) ) RtnCod = Error If ( Error ) Return If ( String(Count+1) .EQ. Terms(3) ) Call LputLN( 1, CrLf, 2 ) Return End