Trailing-Edge
-
PDP-10 Archives
-
decus_20tap5_198111
-
decus/20-0141/dahelp.for
There are 2 other files named dahelp.for in the archive. Click here to see a list.
SUBROUTINE DAHELP(IBUFFR,MAXBFR,LOWBFR,IQUERY)
C RENBR(/DETERMINE NUMBER OF LEADING QUESTION MARKS)
C
C DONALD BARTH, HARVARD BUSINESS SCHOOL
C
C IBUFFR = ARRAY CONTAINING CHARACTERS READ BY MULTIPLE
C OF A1 FORMAT.
C MAXBFR = SUBSCRIPT OF IBUFFR ARRAY LOCATION
C CONTAINING RIGHTMOST CHARACTER.
C LOWBFR = SUBSCRIPT OF FIRST LOCATION IN IBUFFR ARRAY
C TO BE TESTED. LOWBFR IS RETURNED POINTING
C TO THE FIRST NON-QUESTION MARK PRINTING
C CHARACTER IN BUFFER OR BEYOND END OF BUFFER
C IF NO OTHER PRINTING CHARACTERS APPEAR IN
C BUFFER.
C IQUERY = 0, RETURNED IF NO QUESTION MARKS APPEAR AT
C START OF TEXT IN IBUFFR ARRAY.
C = GREATER THAN ZERO, IQUERY IS NUMBER OF
C QUESTION MARKS FOUND AT START OF TEXT IN
C IBUFFR ARRAY.
C
DIMENSION IBUFFR(MAXBFR)
DATA IQUEST,ISPACE,ITAB/1H?,1H ,1H /
IQUERY=0
1 IF(LOWBFR.GT.MAXBFR)GO TO 3
LETTER=IBUFFR(LOWBFR)
IF(LETTER.EQ.ISPACE)GO TO 2
IF(LETTER.EQ.ITAB)GO TO 2
IF(LETTER.NE.IQUEST)GO TO 3
IQUERY=IQUERY+1
2 LOWBFR=LOWBFR+1
GO TO 1
3 RETURN
C098245027474?
END