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 11-Feb-86 DJ - F77 mods. Expecting STRING to be a Character variable. C***************************************************************************** C Integer*2 RtnCod, LPutSt, Error, Count Byte Terms(3), CrLf(2) Character*255 String Character*1 BackSL Data BackSL / '\' / 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:Count+1) .EQ. BackSL) Call LputLN(1,CrLf,2) Return End