home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1985 July / Ahoy_Magazine_85-07_1985_Double_L.d64 / autos (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  5KB  |  168 lines
  1. 10 printchr$(147),chr$(144):poke53281,14
  2. 20 printtab(9)"auto: leasing vs buying"
  3. 25 printtab(9):for j=1to23:print chr$(183);:next:print:print
  4. 30 printtab(13)"cost of buying":print:print
  5. 35 printtab(3)"please enter data as requested":print:print
  6. 40 input" enter the purchase price $ ";pp:print
  7. 50 input" will you need financing? y/n";f$:print:if f$="n" then 190
  8. 60 print" downpayment including trade-in"
  9. 70 input "  allowance $ ";dp:print :la=pp-dp
  10. 80 print"   you will need to borrow $";la:print
  11. 90 print" will you need to borrow more to"
  12. 95 print"  cover sales tax, license, etc.?"
  13. 100 input"    y/n";h$:print
  14. 105 if h$="n" then la=pp-dp: goto 140
  15. 110 print"   enter additional amount borrowed"
  16. 120 input "$ ";ab: la=la+ab :print
  17. 140 print" annual percentage interest rate?"
  18. 150 input "     % ";r :print
  19. 160 if r>1 then r=r/100
  20. 170 print" length of loan in months."
  21. 180 input "     months";m:print
  22. 185 if m>60 then print"sorry,60 month limit, please re-enter":print:goto 170
  23. 190 input" sales tax rate % ";sx:print
  24. 200 if sx>1 then sx=sx/100
  25. 210 input" annual license fee $ ";lc:print
  26. 220 print" what type of car are you buying?":print
  27. 230 print"   1. standard"
  28. 240 print"   2. compact"
  29. 250 print"   3. subcompact?":print
  30. 260 input"please enter number";n:print
  31. 270 print" do you itemize your deductions for"
  32. 280 input"  income tax purposes? y/n";y$:print
  33. 290 if y$="n" then 320
  34. 300 print" enter your tax bracket rate"
  35. 310 input"%";tx:print
  36. 320 if tx>1 then tx=tx/100
  37. 370 printchr$(147)
  38. 380 printtab(12)"cost of leasing"
  39. 390 printtab(12):fork=1to15:printchr$(183);:next:print:print
  40. 400 printtab(3)"please enter data as requested":print:print
  41. 410 print" enter security deposit required"
  42. 415 input"     $";sd:print
  43. 420 print" enter monthly lease payment"
  44. 425 input"     $";ml:print
  45. 430 print" for how many months?"
  46. 435 input"     months";np:print:if f$="n" then m=np
  47. 440 print" downpayment or additional payment"
  48. 450 input"     $";ap:print
  49. 460 input" annual license fee $";lf:print
  50. 470 gosub 1000
  51. 480 gosub 1300
  52. 510 gosub 1500:print:print
  53. 520 input"press 'c' to continue";c$
  54. 530 gosub 1800:print:print
  55. 540 input"press 'c' to continue";c$
  56. 550 printchr$(147):poke 53280,2
  57. 560 printtab(5)"comparison: leasing vs. buying"
  58. 570 printtab(5):fork=1to30:printchr$(183);:next:print:print
  59. 590 mp=int(mp*100+.5)/100:x$=str$(mp):gosub 3000
  60. 600 print"your monthly loan payments would be:":print
  61. 610 printtab(10)"$";x$:print
  62. 620 print"your monthly lease payment would be:":print
  63. 630 printtab(10)"$";ml:print:print
  64. 640 x$=str$(tt):gosub 3000
  65. 650 print"the net cost of buying is  $";spc(sp)x$:print
  66. 660 x$=str$(lt):gosub 3000
  67. 670 print"the net cost of leasing is $";spc(sp)x$
  68. 675 printtab(28);:for k=1to9:printchr$(183);:next:print:print
  69. 680 df=lt-tt:x$=str$(df):gosub 3000
  70. 690 if df>0 then print"     buying is cheaper by  $";spc(sp)x$
  71. 700 if df<0 then print"     leasing is cheaper by $";spc(sp)val(x$)*-1
  72. 900 end
  73. 1000 rem cost of buying calculations
  74. 1010 yr=m/12:mr=r/12:t=int(yr) :tt=0:td=0
  75. 1015 xl=(pp*(1+.055)^yr)-pp
  76. 1020 li=(dp*(1+.055)^yr)-dp
  77. 1025 if la=0 then 1070
  78. 1030 f=(mr*(1+mr)^m)/((1+mr)^m-1)
  79. 1040 mp=f*la
  80. 1050 ix=(mp*m)-la
  81. 1060 is=ix*tx
  82. 1070 ss=(sx*pp)*tx
  83. 1075 if t>5 then print"sorry, 60 month limit":end
  84. 1080 if n=1 then gosub 2000
  85. 1090 if n=2 then gosub 2100
  86. 1100 if n=3 then gosub 2200
  87. 1110 lc=lc*yr
  88. 1120 return
  89. 1300 rem compute cost of leasing
  90. 1310 tl=ml*np
  91. 1320 t1=int(np/12)
  92. 1330 il=(sd*(1+.055)^t1)-sd
  93. 1340 ia=(ap*(1+.055)^t1)-ap
  94. 1350 lf=lf*t1
  95. 1360 return
  96. 1500 rem display buying results
  97. 1505 printchr$(147)
  98. 1510 printtab(13)"cost of buying"
  99. 1515 printtab(13);:for k=1to14:printchr$(183);:next:print:print
  100. 1520 if f$="n" then 2500
  101. 1525 dp=int(dp):x$=str$(dp):gosub 3000:tt=tt+dp
  102. 1530 print"downpayment..................$";spc(sp)x$
  103. 1540 li=int(li):x$=str$(li):gosub 3000:tt=tt+li
  104. 1550 print"interest lost on downpayment..";spc(sp)x$
  105. 1560 tp=(m*mp)-ab:tp=int(tp):x$=str$(tp):gosub 3000 :tt=tt+tp
  106. 1570 print"total payments on loan........";spc(sp)x$
  107. 1575 print"[160][160](auto portion only)
  108. 1580 sa[178]sx[172]pp:sa[178][181](sa):x$[178][196](sa):[141] 3000: tt[178]tt[170]sa
  109. 1590 [153]"sales tax on purchase.........";[166]sp)x$
  110. 1593 lc[178][181](lc):x$[178][196](lc):[141] 3000:tt[178]tt[170]lc
  111. 1595 [153]"license fees for ";[181](yr);"years.....";[166]sp)x$
  112. 1600 [153][163]29);:[129] k[178]1[164]10:[153] [199](183);:[130]
  113. 1610 x$[178][196](tt):[141] 3000
  114. 1620 [153]:[153][163]5)"total";[166]19)"$";[166]sp);x$
  115. 1630 [153]:[153]"less:":[153]
  116. 1640 z[178]pp[172](1[171]td):z[178][181](z):x$[178][196](z):[141] 3000:tt[178]tt[171]z
  117. 1650 [153]"estimated residual value"
  118. 1660 [153]"     of the car..............$";[166]sp)x$
  119. 1665 [139] y$[178]"n" [167] 1720
  120. 1670 is[178][181](is):x$[178][196](is):[141] 3000:tt[178]tt[171]is
  121. 1680 [153]"tax savings on interest.......";[166]sp)x$
  122. 1700 ss[178][181](ss):x$[178][196](ss):[141] 3000:tt[178]tt[171]ss
  123. 1710 [153]"tax savings on sales tax......";[166]sp)x$
  124. 1720 [153][163]29):[129]k[178]1[164]10:[153][199](183);:[130]:[153]
  125. 1730 x$[178][196](tt):[141] 3000
  126. 1740 [153][163]5)"net cost of buying";[166]6)"$";[166]sp)x$
  127. 1750 [142]
  128. 1800 [143] display leasing results
  129. 1810 [153][199](147)
  130. 1820 [153][163]12)"cost of leasing"
  131. 1830 [153][163]12):[129]k[178]1[164]15:[153][199](183);:[130]:[153]:[153]
  132. 1840 sd[178][181](sd):x$[178][196](sd):[141] 3000:lt[178]lt[170]sd
  133. 1850 [153]"security deposit.............$"[166]sp)x$
  134. 1860 tl[178][181](tl):x$[178][196](tl):[141] 3000:lt[178]lt[170]tl
  135. 1870 [153]"total of lease payments.......";[166]sp)x$
  136. 1880 il[178][181](il):x$[178][196](il):[141] 3000:lt[178]lt[170]il
  137. 1890 [153]"interest lost on security dep.";[166]sp)x$
  138. 1891 [139] ap[178]0 [167]1906
  139. 1895 ap[178][181](ap):x$[178][196](ap):[141] 3000:lt[178]lt[170]ap
  140. 1898 [153]"additional required payment...";[166]sp)x$
  141. 1900 ia[178][181](ia):x$[178][196](ia):[141] 3000:lt[178]lt[170]ia
  142. 1903 [153]"lost interest on add'l payment";[166]sp)x$
  143. 1906 lf[178][181](lf):x$[178][196](lf):[141] 3000:lt[178]lt[170]lf
  144. 1907 [153]"license fee for ";t1;"years......";[166]sp)x$
  145. 1909 [153][163]29):[129]k[178]1[164]10:[153][199](183);:[130]:[153]
  146. 1910 lt[178][181](lt):x$[178][196](lt):[141] 3000
  147. 1920 [153] [163]5)"total";[166]19)"$";[166]sp)x$
  148. 1930 [153]:[153]"less:":[153]
  149. 1940 x$[178][196](sd):[141] 3000:lt[178]lt[171]sd
  150. 1950 [153]"return of security deposit...$";[166]sp)x$
  151. 1955 [153][163]29):[129]k[178]1[164]10:[153][199](183);:[130]:[153]
  152. 1960 lt[178][181](lt):x$[178][196](lt):[141] 3000
  153. 1970 [153][163]5)"net cost of leasing";[166]5)"$";[166]sp)x$
  154. 1990 [142]
  155. 2000 a(1)[178].279:a(2)[178].146:a(3)[178].111:a(4)[178].099:a(5)[178].084
  156. 2010 [129] k[178]1[164]t:td[178]td[170]a(k):[130]:[142]
  157. 2100 b(1)[178].167:b(2)[178].126:b(3)[178].106:b(4)[178].099:b(5)[178].095
  158. 2110 [129] k[178]1[164]t:td[178]td[170]b(k):[130]:[142]
  159. 2200 c(1)[178].123:c(2)[178].115: c(3)[178].114:c(4)[178].107:c(5)[178].106
  160. 2220 [129] k[178]1[164]t:td[178]td[170]c(k):[130]:[142]
  161. 2500 [143] display cash purchase results
  162. 2510 pp[178][181](pp):x$[178][196](pp):[141] 3000:tt[178]tt[170]pp
  163. 2520 [153]"purchase price...............$";[166]sp)x$
  164. 2530 xl[178][181](xl):x$[178][196](xl):[141] 3000:tt[178]tt[170]xl
  165. 2540 [153]"interest lost on pur. price...";[166]sp)x$
  166. 2550 [137] 1580
  167. 3000 sp[178]9[171][195](x$):[142]
  168.