home *** CD-ROM | disk | FTP | other *** search
/ Fatal Distractions! / fataldistractions.bin / chap01 / adventur / shiftc.for < prev    next >
Text File  |  1990-11-18  |  651b  |  25 lines

  1.       SUBROUTINE SHIFTC(DIRECT,LINE)
  2. C
  3. C  SHIFTS BLANK CHARACTERS OFF FROM THE LEFT OR FROM THE RIGHT IN A CHARACTER
  4. C  VARIABLE.  IF DIRECT .NE. 'RIGHT', LEFT IS ASSUMED.
  5. C
  6.       CHARACTER DIRECT * (*), LINE * (*)
  7.       INTEGER*4 FCHAR,LCHAR
  8.       EXTERNAL FCHAR,LCHAR
  9.       
  10.       IF(DIRECT.NE.'RIGHT') THEN
  11.          LINE=LINE(FCHAR(LINE):LCHAR(LINE))
  12.       ELSE
  13.          IF(LCHAR(LINE).LT.LEN(LINE)) THEN
  14.             I=LEN(LINE)
  15.             J=LCHAR(LINE)
  16.             DO 1 K=J,1,-1
  17.             LINE(I:I)=LINE(K:K)
  18.     1       I=I-1
  19.             LINE(1:LEN(LINE)-J)=' '
  20.          ENDIF
  21.       ENDIF
  22.       RETURN
  23.       END
  24.       
  25.