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

Text File | 1994-05-15 | 2KB | 66 lines

@UA" Enter Loan Amount "
> @VN01 := {@UA}         ; Principal
@UA" Enter Annual Interest Rate "
> @VN02 := {@UA}         ; Annual Interest rate
@UN" Enter Number of Years "
> @VN03 := {@UN}         ; Number of years
> @VN04 := {12}          ; Periods per year
@UA" Enter Monthly Payment "
> @VN05 := {@UA}         ; Monthly payment
> @VN06 := {@VN03 * 12}  ; Number of payments

@IF @RD = "SCREEN" THEN
@MH5
─────────┬────────────┬────────────┬────────────────┬────────────┬────────────
         │  Beginning │  Interest  │ Actual amount  │  Principal │ Cumulative
 Payment │  principal │  paid each │ applied toward │   balance  │  interest
  number │   balance  │   period   │   principal    │  remaining │    paid
─────────┼────────────┼────────────┼────────────────┼────────────┼────────────
@LA{@VN06}
> @VN20 := {@VN20+1}
@MA5 @MD00 @VN20     │@MA11 @MD02 @VN01------  │
> @VN21 := {(@VN01 * (@VN02/100)) / 12}
@VN21------  │
> @VN01 := {@VN01 - (@VN05 - @VN21)}
> @VN22 := {@VN05 - @VN21}
    @VN22------  │
@VN01------  │
> @VN23 := {@VN23 + @VN21}
@VN23------ 
@EA
─────────┴────────────┴────────────┴────────────────┴────────────┴────────────
@EL
@PA ;
> @VN82 := {1}

@LA{@VN06}
@IF {@VN82} = {1} THEN
@MI{@RI} ==============================================================================
@MI{@RI}          |  Beginning |  Interest  | Actual amount  |  Principal | Cumulative
@MI{@RI}  Payment |  principal |  paid each | applied toward |   balance  |  interest
@MI{@RI}   number |   balance  |   period   |   principal    |  remaining |    paid
@MI{@RI} ==============================================================================
> @VN50 := {6}
> @VN82 := {0}
@EI
> @VN50 := {@VN50+1}
> @VN20 := {@VN20+1}
@MA5 @MD00 @MI{@RI} @VN20      @MA11 @MD02 @VN01------   ;
> @VN21 := {(@VN01 * (@VN02/100)) / 12}
@VN21------   ;
> @VN01 := {@VN01 - (@VN05 - @VN21)}
> @VN22 := {@VN05 - @VN21}
    @VN22------   ;
@VN01------   ;
> @VN23 := {@VN23 + @VN21}
@VN23------ 
@IF {@VN50} > {@RF} THEN
@PB ;
@UM"Ready to print next page."
> @VN82 := {1}
@EI
@EA
@MI{@RI} ==============================================================================
@EI