Columns . . . :                     Edit                         GOLFP/SRCFILE 
 SEU==>_______________________________________________________           PGM06 
 FMT H  HKeywords++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
        *************** Beginning of data ************************************* 
     H
     F*-----------------------------------------------------------------------
     F*- This is program 6 Trial Balance Preparation  ©                  ---
     F*-                  Author:  Browning, 9/15/98                       ---
     F*-                                                                   ---
     F*-                 PURPOSE:                                          ---
     F*-                                                                   ---
     F*-              INDICATORS:  90-- READ  PROG6 (LF)                   ---
     F*-                                                                   ---
     F*-        Associated Files:  PGML06 -- LOGICAL FILE                  ---
     F*-                           PGMP06 -- PRINTER FILE FOR PROGRAM 6    ---
     F*-                                                                   ---
     F*ILENAME++IPEASFRlen+LKlen+AIDevice+.Keywords+++++++++++++++++++++++++--
     FPGML06    IF   E           K DISK
     FPGMP06    O    E             PRINTER OFLIND(*IN70)
     D*AME+++++++++++ETDsFrom+++To/L+++IDc.keywords+++++++++++++++++++++++++
     D CNEG            S              9  2
     D DPOS            S              9  2
     D VHEAD           S             20
     D GTNEG           S              9  2
     D GTPOS           S              9  2
     D VDATE           S             20
     D HOLD            S             20
     D MATCH           S              9  2
     D BAL1            S              9  2
     D BAL2            S              9  2
     C*0N01FACTOR1+++++++OPCODE(E)+FACTOR2+++++++RESULT++++++++LEN++D+HILOEQ
     C     'Subtitle ?'  DSPLY                   VHED
     C     'Rep. Date'   DSPLY                   VDATE
     C*0N01FACTOR1+++++++OPCODE(E)+FACTOR2Extended-FACTOR2++++++++++++++++++
     C                   EXSR      PREP
     C                   DOW       *IN90 = *OFF
     C                   IF        HOLD <> NAME
     C                   EXSR      TSTEOF
     C                   ENDIF
     C                   EXSR      CALCUL
     C                   READ      PROG6                                  90
     C                   ENDDO
     C                   EXSR      FINISH
     C                   EVAL      *INLR = *ON
     C                   RETURN
     C*-----------------------------------------------------------------------
     C     PREP          BEGSR
     C                   READ      PROG6                                  90
     C                   EVAL      HOLD = NAME
     C                   WRITE     TITLE
     C                   WRITE     HEAD
     C                   ENDSR
     C*0N01FACTOR1+++++++OPCODE(E)+FACTOR2Extended-FACTOR2++++++++++++++++++
     C     TSTEOF        BEGSR
     C                   IF        *IN70 = *ON
     C                   WRITE     HEAD
     C                   EVAL      *IN70 = *OFF
     C                   ENDIF
     C                   ENDSR
     C*-----------------------------------------------------------------------
     C     CALCUL        BEGSR
     C                   EVAL      BAL1 = *ZEROS
     C                   EVAL      BAL2 = *ZEROS
     C                   IF        BAL < 0
     C                   EVAL      BAL2 = BAL
     C                   EVAL      BAL1 = 0
     C                   ENDIF
     C*-----------------------------------------
     C                   IF        BAL > 0
     C                   EVAL      BAL1 = BAL
     C                   EVAL      BAL2 = 0
     C                   ENDIF
     C                   EVAL      CNEG = 0
     C                   EVAL      DPOS = 0
     C                   EVAL      CNEG = CNEG + BAL2
     C                   EVAL      DPOS = DPOS + BAL1
     C                   EVAL      GTNEG = GTNEG + CNEG
     C                   EVAL      GTPOS = GTPOS + DPOS
     C                   WRITE     DETLINE
     C                   EVAL      HOLD = NAME
     C                   ENDSR
     C*-----------------------------------------------------------------------
     C     FINISH        BEGSR
     C                   EXSR      COMPRE
     C                   WRITE     GTOTAL
     C                   ENDSR
     C*-----------------------------------------------------------------------
     C     COMPRE        BEGSR
     C                   EVAL      MATCH = 0 - GTPOS
     C                   IF        MATCH <> GTNEG
     C                   WRITE     ERROR
     C                   ENDIF
     C                   ENDSR