Listing of file='LEASE.BAS;01' on disk='vmedia/chip_75-sector.ccvf'
Unexpected end of program: terminating null byte not seen 80 PLOT 12 90 CLEAR 100 100 PLOT 14:PLOT 19 110 PRINT TAB( 22) 120 PRINT "LEASE-BACK ANALYSIS" 125 PRINT TAB( 19) 130 PRINT "REQUIRED INPUT INFORMATION" 140 PLOT 14:PLOT 10 145 PRINT SPC( 22)"PROSPECT INFORMATION":PRINT :PRINT 150 PLOT 15:PLOT 18 155 INPUT "CUSTOMERS NAME: ";A1$ 157 PRINT 160 INPUT "STREET ADDRESS: ";A2$ 165 PRINT 167 INPUT "CITY: ";A3$ 169 PRINT 171 INPUT "STATE & ZIP: ";A4$ 175 PRINT 180 INPUT "PHONE NO.: ";A5$ 185 PLOT 3,0,30 190 INPUT "IS ALL INFORMATION CORRECT (Y OR N) ";W$ 191 IF W$= "N"GOTO 80 192 IF W$= "Y"THEN 195 195 PLOT 12 200 PLOT 14:PLOT 10 210 PRINT SPC( 22)"AIRCRAFT INFORMATION":PRINT :PRINT 215 PLOT 15:PLOT 18 220 INPUT "AIRCRAFT MODEL: ";B1$ 225 PRINT 230 INPUT "FUEL G.P.H.: ";B1 235 PRINT 240 INPUT "OIL Q.P.H.: ";B2 250 PRINT 260 INPUT "MAINTENANCE PER HOUR: $ ";B3 270 PRINT 280 INPUT "PROP T.B.O.: ";B4 290 PRINT 300 INPUT "PROP OVARHAUL COST: $ ";B5 320 REM B6=PROP RESERVE / HOUR 330 B6= B5/ B4 340 PRINT 350 INPUT "ENGINE T.B.O.: ";B7 360 PRINT 370 INPUT "ENGINE OVERHAUL COST: $ ";B8 390 REM B9=ENGINE RESERVE / HOUR 400 B9= B8/ B7 410 PLOT 3,0,30 415 INPUT "IS ALL INFORMATION CORRECT (Y OR N) ";W$ 420 IF W$= "N"GOTO 195 425 IF W$= "Y"THEN 430 430 PLOT 12 500 PLOT 14 510 PRINT SPC( 22)"FINANCIAL INFORMATION":PRINT :PRINT 515 PLOT 15:PLOT 18:PLOT 10 520 INPUT "PURCHASE PRICE: $ ";C1 530 PRINT 540 INPUT "SALES TAX: % ";C2 560 REM C3= SALES TAX $ 570 C3= (C2* .01)* C1 580 PRINT 590 INPUT "REGISTRATION FEE: $ ";C4 595 PRINT 600 INPUT "FUEL & DELIVERY: $ ";CA 605 PRINT 610 INPUT "DOWN PAYMENT: % ";C5 630 REM C6= DOWN PAYMENT $ 640 C6= (C5* .01)* (C1+ C3+ C4) 660 REM C7= TOTAL PURCHASE PRICE 670 C7= C1+ C3+ C4+ CA 690 REM C8= FINANCED AMOUNT 700 C8= C7- C6 710 PRINT 720 INPUT "INTEREST RATE (APR): % ";E3 730 PRINT 740 INPUT "NUMBER OF MO. FINANCED: ";E1 750 PRINT 760 INPUT "LEASE INCOME PER. HOUR: $ ";E2 770 REM FORMULA FOR MONTHLY PAYMENT 775 C9= E3 780 C9= C9/ 1200 790 C= (1+ C9)^ E1 800 G1= C8* ((C9* C)/ (C- 1)) 810 G1= (G1* 100)+ 1:G1= INT (G1):G1= G1/ 100 870 PLOT 3,0,30 875 INPUT "IS ALL INFORMATION CORRECT (Y OR N) ";W$ 880 IF W$= "N"GOTO 430 885 IF W$= "Y"THEN 890 890 PLOT 12 900 PLOT 14:PLOT 10 1000 PRINT SPC( 23)"TAX INFORMATION" 1100 PLOT 15:PLOT 18 1110 PRINT :PRINT 1140 INPUT "DEPRECIATION RATE: % ";D2 1145 PRINT 1150 INPUT "BONUS DEPRECIATION: $ ";D8 1155 PRINT 1160 INPUT "FEDERAL TAX RATE: % ";D3 1170 PRINT 1180 INPUT "STATE TAX RATE: % ";D4 1200 REM D5= EFFECTIVE TAX RATE 1210 D5= (100- D4)* (D3* .01)+ D4 1220 PRINT 1230 INPUT "DEPRECIATION NO. OF YRS.: ";D6 1235 PRINT 1240 INPUT "PERSONAL PROP.TAX RATE: % ";D7 1245 PLOT 3,0,30 1250 INPUT "IS ALL INFORMATION CORRECT (Y OR N) ";W$ 1260 IF W$= "N"GOTO 890 1270 IF W$= "Y"THEN 1430 1430 PLOT 12 1500 PLOT 14:PLOT 10 1510 PRINT SPC( 22)"OTHER INFORMATION" 1520 PLOT 15:PLOT 18 1530 PRINT :PRINT 1540 INPUT "INSURANCE COST / YEAR: $ ";F1 1560 REM F2= INSURANCE COST / MONTH 1570 F2= F1/ 12 1580 PRINT 1590 INPUT "TIE-DOWN COST / MONTH: $ ";F3 1600 PRINT 1610 INPUT "FUEL COST / GAL.: $ ";F4 1620 PRINT 1630 INPUT "OIL COST / QT.: $ ";F5 1640 PRINT 1650 PRINT "GIVE FIVE CHOICES FOR MONTHLY USE:" 1660 PRINT 1670 INPUT K1:PRINT :INPUT K2:PRINT :INPUT K3:PRINT :INPUT K4:PRINT :INPUT K5 1680 PLOT 3,0,30 1685 INPUT "IS ALL INFORMATION CORRECT (Y OR N) ";W$ 1690 IF W$= "N"GOTO 1430 1700 IF W$= "Y"THEN 1710 1710 PLOT 3,10,21 1720 PRINT "HIT RETURN KEY" 1730 PLOT 3,10,22 1740 PRINT "TO RUN LEASE-" 1750 PLOT 3,10,23 1760 INPUT "BACK PROGRAM";Z 1770 PLOT 12 2000 G2= (G1* 12)* .665:REM 1ST YEAR INTEREST 2010 G3= (G1* 12)* .625:REM 2ND YEAR INTEREST 2020 G4= (G1* 12)* .579:REM 3RD YEAR INTEREST 5000 PLOT 19 5010 PRINT TAB( 22) 5020 PRINT "LEASE-BACK ANALYSIS" 5025 PRINT TAB( 25) 5030 PLOT 19:PRINT "OF A ";B1$ 5035 PRINT TAB( 19) 5040 PRINT "PREPARED ESPECIALLY FOR:" 5050 PRINT :PRINT 5055 PLOT 23:PLOT 15 5060 PRINT TAB( 15)A1$ 5070 PRINT TAB( 15)A2$ 5080 PRINT TAB( 15)A3$", "A4$ 5090 PRINT TAB( 15)A5$ 5100 PLOT 15:PLOT 18 5105 PRINT :PRINT :PRINT :PRINT 5110 PRINT "THIS REPORT IS AN ESTIMATE OF YOUR OPERATING COSTS BASED ON " 5120 PRINT :PRINT "CERTAIN SCHEDULED EXPENSES. WE HAVE TRIED TO PRESENT ACCURATE " 5130 PRINT :PRINT "ADVISORY COMPUTATIONS BUT NO WARRANTY, EXPRESSED OR IMPLIED, " 5140 PRINT :PRINT "IS GIVEN WITH RESPECT TO THE INFORMATION CONTAINED IN