DP Tool Club 15/CD_ASCQ_15_070894.iso/vrac/cs4_b.zip/SUMMARY2.STY

Text File | 1994-05-15 | 5KB | 155 lines

@IF @SA > {13} THEN
 @UE
@EI
@MA7 @MD00 @MC+ @MS- @ME10
> @VS01 := "FIRST_TIME"
@IF @RD = "SCREEN" THEN
@MK8 @MV22 @MH2
@IF @RG = "PAYEE" THEN
Payees/Payors;
@EI
@IF @RG = "MEMO" THEN
Memos        ;
@EI
         @SI01--  @SI02--  @SI03--  @SI04--  @SI05--  @SI06--  @SI07--  @SI08--  @SI09--  @SI10--  @SI11--  @SI12--  @MB{(12-@SA)*8}    Total
@IF @RT  "NONE" THEN
    Avg
@EI

═════════════════════ ═══════ ═══════ ═══════ ═══════ ═══════ ═══════ ═══════ ═══════ ═══════ ═══════ ═══════ ═══════ @MB{(12-@SA)*8} ════════
@IF @RT  "NONE" THEN
 ══════
@EI

> @VN82 := {0}
@EL
> @VN82 := {1}
@PA ;
@IF @SA > {4} THEN
@PD ;
@EI
@EI

@LA12345
@IF {@VN82} = {1} THEN
> @VN81 := {5}  ; adjust form feed counter for heading
> @VN82 := {0}
@MI{@RI} @HC------                           @MT+ @HN------------------------------------------------------------ @MT- 
@MI{@RI} @HA-----                            @MT+ @HS------   through   @HE------                                 @MT- 
 
@MI{@RI}
@IF @RG = "PAYEE" THEN
Payees/Payors;
@EL
Memos        ;
@EI
         @SI01--  @SI02--  @SI03--  @SI04--  @SI05--  @SI06--  @SI07--  @SI08--  @SI09--  @SI10--  @SI11--  @SI12--  @MB{(12-@SA)*8}    Total
@IF @RT  "NONE" THEN
    Avg
@EI

@MI{@RI} ===================== ======= ======= ======= ======= ======= ======= ======= ======= ======= ======= ======= ======= @MB{(12-@SA)*8} ========
@IF @RT  "NONE" THEN
 ======
@EI

@EI
> @VN01 := {@VN01+@SH01}
> @VN02 := {@VN02+@SH02}
> @VN03 := {@VN03+@SH03}
> @VN04 := {@VN04+@SH04}
> @VN05 := {@VN05+@SH05}
> @VN06 := {@VN06+@SH06}
> @VN07 := {@VN07+@SH07}
> @VN08 := {@VN08+@SH08}
> @VN09 := {@VN09+@SH09}
> @VN10 := {@VN10+@SH10}
> @VN11 := {@VN11+@SH11}
> @VN12 := {@VN12+@SH12}
> @VS99 := "      -"
@IF {@SH00}  {0} THEN
@IF {@SH00} > {0} THEN
> @VN90 := {1}                ; Check for any income payee
> @VN83 := {@VN83+@SH00}      ; Total income
@EL
> @VN84 := {@VN84+@SH00}      ; Total expense
@EI
@IF @RD = "SCREEN" THEN
@SN------------------  @SH01--  @SH02--  @SH03--  @SH04--  @SH05--  @SH06--  @SH07--  @SH08--  @SH09--  @SH10--  @SH11--  @SH12-- @MB{(12-@SA)*8} @MA8  @SH00---
@EL
@MI{@RI} @SN------------------  @SH01--  @SH02--  @SH03--  @SH04--  @SH05--  @SH06--  @SH07--  @SH08--  @SH09--  @SH10--  @SH11--  @SH12-- @MB{(12-@SA)*8} @MA8  @SH00---
@EI
@IF @RT  "NONE" THEN
> @VN80 := {@SH00/@SA}
> @VS99 := "      -"
@MA6  @VN80- @MA7
@EI

@EI
> @VN81 := {@VN81+1}          ; increase form feed counter
@A+1
@IF {@SH00} < {0} THEN
@IF {@VN90} = {1} THEN
@IF @VS01 = "FIRST_TIME" THEN
> @VS01 := ""
@IF @RD = "SCREEN" THEN
                      ─────── ─────── ─────── ─────── ─────── ─────── ─────── ─────── ─────── ─────── ─────── ─────── @MB{(12-@SA)*8} ────────
@EL
@MI{@RI}                       ------- ------- ------- ------- ------- ------- ------- ------- ------- ------- ------- ------- @MB{(12-@SA)*8} --------
@EI
@IF @RD  "SCREEN" THEN
@MI{@RI}
@EI
TOTAL INCOME......... @VN01--  @VN02--  @VN03--  @VN04--  @VN05--  @VN06--  @VN07--  @VN08--  @VN09--  @VN10--  @VN11--  @VN12-- @MB{(12-@SA)*8}  @MA8 @VN83--- @MA7
 
 
> @VN01 := {0}
> @VN02 := {0}
> @VN03 := {0}
> @VN04 := {0}
> @VN05 := {0}
> @VN06 := {0}
> @VN07 := {0}
> @VN08 := {0}
> @VN09 := {0}
> @VN10 := {0}
> @VN11 := {0}
> @VN12 := {0}
> @VN81 := {@VN81+3}  ; adjust form feed counter
@EI  ; end of "FIRST_TIME" condition
@EI  ; end of {@VN90} = {1}
@EI  ; end of {@SH00} = {0} condition
@IF @RD  "SCREEN" THEN
@IF {@VN81} ≥ {@RF} THEN
@PB 
@UM"Ready to print next page."
> @VN82 := {1}
@EI
@EI
@EA
@IF @RD = "SCREEN" THEN
                      ─────── ─────── ─────── ─────── ─────── ─────── ─────── ─────── ─────── ─────── ─────── ─────── @MB{(12-@SA)*8} ────────
@EL
@MI{@RI}                       ------- ------- ------- ------- ------- ------- ------- ------- ------- ------- ------- ------- @MB{(12-@SA)*8} --------
@EI
@IF @RD  "SCREEN" THEN
@MI{@RI}
@EI
TOTAL EXPENSE........ @VN01--  @VN02--  @VN03--  @VN04--  @VN05--  @VN06--  @VN07--  @VN08--  @VN09--  @VN10--  @VN11--  @VN12-- @MB{(12-@SA)*8} @MA8  @VN84--- @MA7 
@IF @RD = "SCREEN" THEN
                      ─────── ─────── ─────── ─────── ─────── ─────── ─────── ─────── ─────── ─────── ─────── ─────── @MB{(12-@SA)*8} ────────
@EL
@MI{@RI}                       ------- ------- ------- ------- ------- ------- ------- ------- ------- ------- ------- ------- @MB{(12-@SA)*8} --------
@EI
@IF @RD  "SCREEN" THEN
@MI{@RI}
@EI
> @VN80:={@VN83 + @VN84}
@MS+ GRAND TOTAL (Inc-Exp) @SV01--  @SV02--  @SV03--  @SV04--  @SV05--  @SV06--  @SV07--  @SV08--  @SV09--  @SV10--  @SV11--  @SV12-- @MB{(12-@SA)*8}  @MA8 @VN80--- 
@IF @RD = "SCREEN" THEN
                      ═══════ ═══════ ═══════ ═══════ ═══════ ═══════ ═══════ ═══════ ═══════ ═══════ ═══════ ═══════ @MB{(12-@SA)*8} ════════

@EL
@MI{@RI}                       ======= ======= ======= ======= ======= ======= ======= ======= ======= ======= ======= ======= @MB{(12-@SA)*8} ========
@EI