Trailing-Edge
-
PDP-10 Archives
-
decuslib20-01
-
decus/20-0001/slend.for
There is 1 other file named slend.for in the archive. Click here to see a list.
C
C
C
C COPYRIGHT (c) 1977 BY
C DIGITAL EQUIPMENT CORPORTATION, MAYNARD, MASS.
C
C THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
C ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE
C INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER
C COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
C OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY
C TRANSFERRED.
C
C THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE
C AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
C CORPORATION.
C
C DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
C SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.
C
C
C
C
C
C
C
C
C ++++++++++++++++++++++++++++++++++++++++++++++++++
C + +
C + CALC VERSION X01-01 +
C + +
C + PETER BAUM 1-SEP-77 +
C + DIGITAL EQUIPMENT CORPORATION +
C + 146 MAIN STREET +
C + MAYNARD, MASSACHUSETTS 01754 +
C + +
C ++++++++++++++++++++++++++++++++++++++++++++++++++
C
C
C
C
C
C **************************************************
C * *
C * SUBROUTINE SLEND(RETCD) *
C * *
C **************************************************
C
C
C
C SETS VALUE OF LEND, POINTER TO LAST NON-BLANK CHARACTER
C IN LINE(80)
C
C
C
C
C RETCD VALUE MEANING
C
C 1 NORMAL RETURN
C 2 ALL BLANKS
C
C
C
C SLEND IS CALLED BY CALC
C
C
C MODIFY CLASSES: M2
C
C
C VARIABLE USE
C
C BLANK ' '
C I INDEXES CHARACTERS IN LINE(80).
C LEND UPON EXIT, POINTS TO THE LAST NON-
C BLANK IN LINE(80).
C LINE(80) HOLDS COMMAND LINE.
C RETCD RETURN CODE. 1=NORMAL, 2=ALL BLANKS
C
C
C
SUBROUTINE SLEND(RETCD)
INTEGER*2 LEVEL,NONBLK,LEND
INTEGER*2 VIEWSW,BASED,RETCD
C
LOGICAL*1 ALPHA(27),COMMA,BLANK,RPAR,LPAR,EQ
LOGICAL*1 LINE(80)
C
COMMON LEVEL,LINE,NONBLK,LEND,VIEWSW,BASED
COMMON /CONS/ ALPHA,COMMA,BLANK,RPAR,LPAR,EQ
C
C
C
C
RETCD=1
DO 100 I=1,80
IF(LINE(81-I).NE.BLANK)GO TO 200
100 CONTINUE
RETCD=2
RETURN
200 LEND=81-I
RETURN
END