SET DECIMAL TO 2 SET FIXED ON STORE 0.00 TO ECOST,MONTH DO WHILE .T. CLEAR SET TALK OFF SET INTENSITY OFF @ 1,0 SAY ' CACULATE LEASE PRICES' @ 2,0 SAY '-------------------------------------------------------------------------------' @ 5,0 SAY 'ENTER EQUIPMENT COST . - ' GET ECOST PICTURE '99999.99' @ 7,0 SAY 'ENTER # MONTHS........ - ' GET MONTH PICTURE '99999.99' READ IF ECOST = 0 QUIT ENDIF STORE MONTH*4 TO WEEKS IF WEEKS >= 4 .AND. WEEKS <= 7 STORE ECOST*.28 TO LPRICE ENDIF IF WEEKS >= 8 .AND. WEEKS <= 11 STORE ECOST*.24 TO LPRICE ENDIF IF WEEKS >= 12 .AND. WEEKS <= 15 STORE ECOST*.20 TO LPRICE ENDIF IF WEEKS >= 16 .AND. WEEKS <= 19 STORE ECOST*.1775 TO LPRICE ENDIF IF WEEKS >= 20 .AND. WEEKS <= 23 STORE ECOST*.165 TO LPRICE ENDIF IF WEEKS >= 24 .AND. WEEKS <= 27 STORE ECOST*.1575 TO LPRICE ENDIF IF WEEKS >= 28 .AND. WEEKS <= 31 STORE ECOST*.15 TO LPRICE ENDIF IF WEEKS >= 32 .AND. WEEKS <= 35 STORE ECOST*.145 TO LPRICE ENDIF IF WEEKS >= 36 .AND. WEEKS <= 39 STORE ECOST*.138 TO LPRICE ENDIF IF WEEKS >= 40 .AND. WEEKS <= 43 STORE ECOST*.132 TO LPRICE ENDIF IF WEEKS >= 44 .AND. WEEKS <= 47 STORE ECOST*.126 TO LPRICE ENDIF IF WEEKS >= 48 .AND. WEEKS <= 52 STORE ECOST*.124 TO LPRICE ENDIF @ 10,0 SAY 'LEASE PAYMENT PER MONTH .................... - ' GET LPRICE STORE ECOST/LPRICE TO SSS STORE LPRICE/4 TO WEE @ 11,0 SAY 'LEASE PAYMENT PER WEEK ..................... - ' GET WEE @ 12,0 SAY 'MONTHS TO (COST) PAYOUT EQUIP .............. - ' GET SSS STORE ECOST*1.4 TO RETAIL STORE RETAIL/LPRICE TO SSS @ 13,0 SAY 'MONTHS TO (RETAIL) PAYOUT EQUIP. ........... - ' GET SSS @ 14,0 SAY 'EQUIP. RETAIL VALUE ........................ - ' GET RETAIL STORE RETAIL - (MONTH*LPRICE) / 2 TO RBUY @ 15,0 SAY 'CUSTOMER PURCHASE BUYOUT AT END OF LEASE ... - ' GET RBUY STORE (MONTH*LPRICE) / 2 TO SSS @ 16,0 SAY 'TOTAL LEASE PAID IN IF EQUIP. IS BOUGHT .... - ' GET SSS STORE MONTH*LPRICE TO SSSS @ 17,0 SAY 'TOTAL LEASE PAID IN IF EQUIP. IS NOT BOUGHT - ' GET SSSS STORE (LPRICE/4) * MONTH TO JSC STORE RETAIL-ECOST+SSS-JSC TO PRO @ 18,0 SAY 'HKC PROFIT AT END IF EQUIP. IS PURCHASED ... - ' GET PRO STORE SSSS-ECOST-JSC TO DEW @ 19,0 SAY 'HKC PROFIT AT END IF EQUIP. IS NOT PURCHASED - ' GET DEW @ 20,0 SAY 'CAS PROFIT ................................. - ' GET JSC CLEAR GETS STORE 'N' TO SEL @ 23,0 SAY 'PRINT OUT (Y/N) - ' GET SEL READ IF SEL = 'Y' STORE 1 TO MONTH SET DEVICE TO PRINT STORE ECOST*1.4 TO RETAIL @ 1,0 SAY 'LEASE PRICE SCHEDULE' @ 2,0 SAY 'RETAIL PRICE ....... - ' @ 2,27 SAY RETAIL @ 3,0 SAY 'OUR COST ........... - ' @ 3,27 SAY ECOST STORE RETAIL-ECOST TO SS @ 4,0 SAY 'STRAIGHT SELL PROFIT - ' @ 4,27 SAY SS @ 6,0 SAY ' PROFIT' @ 7,0 SAY 'MONTH MONTHLY PAYMENT COST PAYOUT BUYOUT NO BUYOUT' @ 8,0 SAY '---------------------------------------------------------------------' STORE 9 TO ROW DO WHILE .T. STORE MONTH*4 TO WEEKS IF WEEKS >= 4 .AND. WEEKS <= 7 STORE ECOST*.28 TO LPRICE ENDIF IF WEEKS >= 8 .AND. WEEKS <= 11 STORE ECOST*.24 TO LPRICE ENDIF IF WEEKS >= 12 .AND. WEEKS <= 15 STORE ECOST*.20 TO LPRICE ENDIF IF WEEKS >= 16 .AND. WEEKS <= 19 STORE ECOST*.1775 TO LPRICE ENDIF IF WEEKS >= 20 .AND. WEEKS <= 23 STORE ECOST*.165 TO LPRICE ENDIF IF WEEKS >= 24 .AND. WEEKS <= 27 STORE ECOST*.1575 TO LPRICE ENDIF IF WEEKS >= 28 .AND. WEEKS <= 31 STORE ECOST*.15 TO LPRICE ENDIF IF WEEKS >= 32 .AND. WEEKS <= 35 STORE ECOST*.145 TO LPRICE ENDIF IF WEEKS >= 36 .AND. WEEKS <= 39 STORE ECOST*.138 TO LPRICE ENDIF IF WEEKS >= 40 .AND. WEEKS <= 43 STORE ECOST*.132 TO LPRICE ENDIF IF WEEKS >= 44 .AND. WEEKS <= 47 STORE ECOST*.126 TO LPRICE ENDIF IF WEEKS >= 48 .AND. WEEKS <= 52 STORE ECOST*.124 TO LPRICE ENDIF *COST PAYOUT STORE ECOST/LPRICE TO CPO *RETAIL STORE ECOST*1.4 TO RETAIL *RETAIL PAYOUT STORE RETAIL/LPRICE TO SSS *CUSTOMER PURCHASE PRICE STORE RETAIL - (MONTH*LPRICE) / 2 TO RBUY *TOTAL LEASE IF BOUGHT STORE (MONTH*LPRICE) / 2 TO SSB *TOTAL LEASE IF NOT BOUGHT STORE MONTH*LPRICE TO SSSS *OUR PROFIT IF BOUGHT STORE (MONTH*LPRICE) / 2 TO SSS STORE RETAIL-ECOST+SSS TO PRO *OUR PROFIT IF NOT BOUGHT STORE SSSS-ECOST TO DEW STORE ECOST/LPRICE TO SSC STORE (MONTH*LPRICE) / 2 TO SSS STORE STR(MONTH,2,0) + ' ' + STR(LPRICE,8,2) + ' ' + STR(CPO,8,2) + ' ' + STR(PRO,8,2) + ' ' + STR(DEW,8,2) TO PLINE @ ROW,0 SAY PLINE IF MONTH = 12 EXIT ENDIF STORE MONTH+1 TO MONTH STORE ROW+1 TO ROW ENDDO STORE ROW+1 TO ROW @ ROW,0 SAY ' ' SET DEVICE TO SCREEN ENDIF WAIT ENDDO TORE (MONTH*LPRICE) / 2 TO SSS STORE RETAIL-ECOST+SSS TO PRO *OUR PROFIT IF NOT BOUGHT STORE SSSS-ECOST TO DEW STORE ECOST/LPRICE TO SSC STORE (MONTH*LPRICE) / 2 TO SSS STORE STR(MONTH,2,0) + ' ' + STR(LPRICE,8,2) + ' ' + STR(CPO,8,2) + ' ' + STR(PRO,8,2) + ' ' + STR(DEW,8,2) TO PLINE @ ROW,0 SAY PLINE IF MONTH = 12