dc. DO DELBLA c. Deletes blanks, col 72,71... in file ,c. c. c. This program reads an input file, deletes the trailing blanks Xc. and then writes the output. c. c. Input: Input file c. Output file c. Lc. Output: Result Output file c. # Records processed c. xc.-end.of.info- c. @c. Feb 02, 1980 -- Mike Liveright -- SCI c. C. l CHARACTER*72 LINE C. 49010 FORMAT( 10A ) C. 100 CONTINUE ` WRITE( 6, 9010 ) ' Delete Training Blanks ' C. ( WRITE( 6, 9010 ) '$Input file: ' READ ( 5, 9010 ) LINE OPEN( UNIT=1, NAME=LINE, TYPE='OLD' ) T C. WRITE( 6, 9010 ) '$Output file: '  READ ( 6, 9010 ) LINE OPEN( UNIT=2, NAME=LINE, CARRIAGECONTROL='LIST' ) C. H 200 CONTINUE READ( 1,9010, ERR=9000 ) LINE  IREC = IREC+1 tC.  DO 220 I=72,1,-1 < LAST = I  IF( LINE(I:I).NE.' ' ) GOTO 225 220 CONTINUE hC. 225 CONTINUE 0 WRITE( 2, 9010 ) LINE(1:LAST)  GOTO 200 C. \9000 CONTINUE  TYPE *, IREC, ' Records processed' $ END