C C C   WINSTON LIU C C   FORTRAN WATFIV CODE C      CHARACTER*1 Slash(133)      CHARACTER*133 Store(1), Prety(1), Fm(1)      EQUIVALENCE (Slash, Prety) C      Fm(1)='(A132)' C C   PREPARE EXECUTION TIME FORMAT C   DEPEND ON VALUE OF NB, NLEFT AT EXECUTION C      Nleft = 8 - Nb      Write(Store,5) Nb, Nleft 5   Format('(7x,A7,4x,7A4,1x,',I1,'I5,',I1,'(5x),2x,I3,      1H-,F5.2)') C C   SET CONTENTS OF 2 ARRAYS SLASH AND PRETY EQUIVALENT TO C   EACH OTHER TO FACILITATE EDITING. HERE, ALL ZEROS (0) C   ON A LINE WILL BE REPLACED BY A DASH ('-') AFTER WE C   EXIT DO LOOP. C      Write (Prety,Store) A,B,(C(K),K=1,Nb),D,E      Do 10 IJ=1,133        IF (Slash(IJ) .EQ. '0' .AND. Slash(IJ-1) .EQ. ' ')        Slash(IJ) = '-' 10  Continue      Write (6, Fm) Prety C      Write (6,20) Combin, Comtot 20  Format('+',100x,I3,'-',F5.2/'+',103x,'>') C C   Email: [email protected]   C   Back | CICS /Cobol code C C