/ 8bitfiles.net/archives / archives.tar / archives / canada-remote-systems / c64 / utils / loan

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 0d 31 30 20 72 65 6d | 20 36 34 2f 31 32 38 20 |..10 rem| 64/128 |
|00000010| 6c 6f 61 6e 20 61 6d 6f | 72 74 69 7a 61 74 69 6f |loan amo|rtizatio|
|00000020| 6e 20 70 72 6f 67 72 61 | 6d 0d 32 30 20 72 65 6d |n progra|m.20 rem|
|00000030| 20 62 79 20 6a 61 61 70 | 20 6b 72 6f 65 73 0d 33 | by jaap| kroes.3|
|00000040| 30 20 72 65 6d 20 30 33 | 2f 38 36 0d 34 30 20 70 |0 rem 03|/86.40 p|
|00000050| 72 69 6e 74 22 00 22 3a | 70 6f 6b 65 35 33 32 38 |rint".":|poke5328|
|00000060| 30 2c 30 3a 70 6f 6b 65 | 35 33 32 38 31 2c 30 3a |0,0:poke|53281,0:|
|00000070| 70 6f 6b 65 36 34 36 2c | 37 0d 35 30 20 61 24 3d |poke646,|7.50 a$=|
|00000080| 22 36 34 2f 31 32 38 20 | 6c 6f 61 6e 20 61 6d 6f |"64/128 |loan amo|
|00000090| 72 74 69 7a 61 74 69 6f | 6e 20 70 72 6f 67 72 61 |rtizatio|n progra|
|000000a0| 6d 22 0d 36 30 20 67 6f | 73 75 62 39 30 3a 61 24 |m".60 go|sub90:a$|
|000000b0| 3d 22 62 79 20 20 6a 61 | 61 70 20 20 6b 72 6f 65 |="by  ja|ap  kroe|
|000000c0| 73 22 0d 37 30 20 67 6f | 73 75 62 39 30 3a 61 24 |s".70 go|sub90:a$|
|000000d0| 3d 22 20 62 6f 78 20 36 | 36 2c 20 20 70 65 6c 6c |=" box 6|6,  pell|
|000000e0| 61 2c 20 69 61 2e 20 35 | 30 32 31 39 22 0d 38 30 |a, ia. 5|0219".80|
|000000f0| 20 67 6f 73 75 62 39 30 | 3a 66 6f 72 74 3d 31 74 | gosub90|:fort=1t|
|00000100| 6f 31 30 30 30 3a 6e 65 | 78 74 74 3a 67 6f 74 6f |o1000:ne|xtt:goto|
|00000110| 31 34 30 0d 38 39 20 70 | 72 69 6e 74 22 00 1d 2a |140.89 p|rint"..*|
|00000120| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000130| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000140| 2a 2a 2a 2a 2a 22 0d 39 | 30 20 61 25 3d 6c 65 6e |*****".9|0 a%=len|
|00000150| 28 61 24 29 3a 79 3d 61 | 25 0d 31 30 30 20 70 72 |(a$):y=a|%.100 pr|
|00000160| 69 6e 74 22 11 11 22 3a | 66 6f 72 78 3d 31 74 6f |int"..":|forx=1to|
|00000170| 61 25 0d 31 31 30 20 70 | 72 69 6e 74 74 61 62 28 |a%.110 p|rinttab(|
|00000180| 28 33 39 2d 61 25 29 2f | 32 29 6d 69 64 24 28 61 |(39-a%)/|2)mid$(a|
|00000190| 24 2c 79 2c 78 29 22 00 | 00 22 0d 31 32 30 20 79 |$,y,x)".|.".120 y|
|000001a0| 3d 79 2d 31 3a 66 6f 72 | 64 3d 31 74 6f 32 35 3a |=y-1:for|d=1to25:|
|000001b0| 6e 65 78 74 64 3a 6e 65 | 78 74 78 3a 72 65 74 75 |nextd:ne|xtx:retu|
|000001c0| 72 6e 0d 31 33 30 20 64 | 61 74 61 30 30 33 2c 31 |rn.130 d|ata003,1|
|000001d0| 36 32 2c 31 30 33 2c 31 | 36 30 2c 30 30 33 2c 31 |62,103,1|60,003,1|
|000001e0| 34 32 2c 30 30 34 2c 30 | 30 33 0d 31 34 30 20 70 |42,004,0|03.140 p|
|000001f0| 72 69 6e 74 22 00 22 0d | 31 35 30 20 70 72 69 6e |rint".".|150 prin|
|00000200| 74 73 70 63 28 31 32 29 | 22 11 11 6c 20 6f 20 61 |tspc(12)|"..l o a|
|00000210| 20 6e 20 20 6d 20 65 20 | 6e 20 75 22 0d 31 36 30 | n  m e |n u".160|
|00000220| 20 70 72 69 6e 74 73 70 | 63 28 31 31 29 22 11 11 | printsp|c(11)"..|
|00000230| 31 29 20 6d 6f 6e 74 68 | 6c 79 20 70 61 79 6d 65 |1) month|ly payme|
|00000240| 6e 74 22 0d 31 37 30 20 | 70 72 69 6e 74 73 70 63 |nt".170 |printspc|
|00000250| 28 31 31 29 22 11 32 29 | 20 6c 6f 61 6e 20 62 61 |(11)".2)| loan ba|
|00000260| 6c 61 6e 63 65 20 28 70 | 61 79 6f 66 66 29 22 0d |lance (p|ayoff)".|
|00000270| 31 38 30 20 70 72 69 6e | 74 73 70 63 28 31 31 29 |180 prin|tspc(11)|
|00000280| 22 11 33 29 20 61 6d 6f | 72 74 69 7a 65 20 61 20 |".3) amo|rtize a |
|00000290| 6c 6f 61 6e 22 3a 70 72 | 69 6e 74 73 70 63 28 31 |loan":pr|intspc(1|
|000002a0| 31 29 22 11 34 29 20 65 | 6e 64 20 70 72 6f 67 72 |1)".4) e|nd progr|
|000002b0| 61 6d 22 0d 31 39 30 20 | 67 65 74 61 24 3a 69 66 |am".190 |geta$:if|
|000002c0| 61 24 3d 22 22 74 68 65 | 6e 31 39 30 0d 32 30 30 |a$=""the|n190.200|
|000002d0| 20 69 66 61 24 3c 22 31 | 22 6f 72 61 24 3e 22 34 | ifa$<"1|"ora$>"4|
|000002e0| 22 74 68 65 6e 31 39 30 | 0d 32 31 30 20 6f 6e 76 |"then190|.210 onv|
|000002f0| 61 6c 28 61 24 29 67 6f | 74 6f 32 32 30 2c 33 35 |al(a$)go|to220,35|
|00000300| 30 2c 35 30 30 2c 38 34 | 30 0d 32 32 30 20 70 72 |0,500,84|0.220 pr|
|00000310| 69 6e 74 22 00 11 11 20 | 20 20 20 20 6d 20 6f 20 |int"... |    m o |
|00000320| 6e 20 74 20 68 20 6c 20 | 79 20 20 70 20 61 20 79 |n t h l |y  p a y|
|00000330| 20 6d 20 65 20 6e 20 74 | 22 3a 70 72 69 6e 74 0d | m e n t|":print.|
|00000340| 32 33 30 20 69 6e 70 75 | 74 22 11 11 20 20 20 20 |230 inpu|t"..    |
|00000350| 20 20 31 29 20 6c 6f 61 | 6e 20 70 72 69 6e 63 69 |  1) loa|n princi|
|00000360| 70 6c 65 20 22 3b 6c 70 | 0d 32 34 30 20 69 6e 70 |ple ";lp|.240 inp|
|00000370| 75 74 22 11 20 20 20 20 | 20 20 32 29 20 6c 6f 61 |ut".    |  2) loa|
|00000380| 6e 20 69 6e 74 65 72 65 | 73 74 20 20 22 3b 6c 69 |n intere|st  ";li|
|00000390| 0d 32 35 30 20 69 72 3d | 6c 69 2f 31 32 0d 32 36 |.250 ir=|li/12.26|
|000003a0| 30 20 69 6e 70 75 74 22 | 11 20 20 20 20 20 20 33 |0 input"|.      3|
|000003b0| 29 20 6c 6f 61 6e 20 64 | 75 72 61 74 69 6f 6e 20 |) loan d|uration |
|000003c0| 28 6d 6f 6e 74 68 73 29 | 22 3b 6c 64 3a 70 72 69 |(months)|";ld:pri|
|000003d0| 6e 74 0d 32 37 30 20 78 | 3d 28 31 2d 28 31 2b 69 |nt.270 x|=(1-(1+i|
|000003e0| 72 2f 31 30 30 29 5e 2d | 6c 64 29 2f 28 69 72 2f |r/100)^-|ld)/(ir/|
|000003f0| 31 30 30 29 0d 32 38 30 | 20 6d 70 3d 6c 70 2f 78 |100).280| mp=lp/x|
|00000400| 3a 6d 72 3d 69 6e 74 28 | 6d 70 2f 30 2e 30 31 29 |:mr=int(|mp/0.01)|
|00000410| 2a 30 2e 30 31 0d 32 39 | 30 20 6d 72 24 3d 73 74 |*0.01.29|0 mr$=st|
|00000420| 72 24 28 6d 72 2b 2e 30 | 30 31 29 3a 6d 72 24 3d |r$(mr+.0|01):mr$=|
|00000430| 6d 69 64 24 28 6d 72 24 | 2c 32 2c 28 6c 65 6e 28 |mid$(mr$|,2,(len(|
|00000440| 6d 72 24 29 2d 32 29 29 | 0d 33 30 30 20 70 72 69 |mr$)-2))|.300 pri|
|00000450| 6e 74 22 11 20 20 20 20 | 20 20 34 29 20 6d 6f 6e |nt".    |  4) mon|
|00000460| 74 68 6c 79 20 70 61 79 | 6d 65 6e 74 20 3d 20 24 |thly pay|ment = $|
|00000470| 22 3b 6d 72 0d 33 31 30 | 20 70 72 69 6e 74 22 11 |";mr.310| print".|
|00000480| 11 20 20 20 20 20 20 20 | 20 20 20 20 12 20 20 20 |.       |    .   |
|00000490| 61 6e 6f 74 68 65 72 20 | 20 20 79 2f 6e 20 20 20 |another |  y/n   |
|000004a0| 00 22 0d 33 32 30 20 67 | 65 74 61 24 3a 69 66 61 |.".320 g|eta$:ifa|
|000004b0| 24 3c 3e 22 79 22 61 6e | 64 61 24 3c 3e 22 6e 22 |$<>"y"an|da$<>"n"|
|000004c0| 74 68 65 6e 33 32 30 0d | 33 33 30 20 69 66 61 24 |then320.|330 ifa$|
|000004d0| 3d 22 6e 22 74 68 65 6e | 72 75 6e 31 34 30 0d 33 |="n"then|run140.3|
|000004e0| 34 30 20 69 66 61 24 3d | 22 79 22 74 68 65 6e 72 |40 ifa$=|"y"thenr|
|000004f0| 75 6e 32 32 30 0d 33 35 | 30 20 70 72 69 6e 74 22 |un220.35|0 print"|
|00000500| 00 11 11 6c 20 6f 20 61 | 20 6e 20 20 62 20 61 20 |...l o a| n  b a |
|00000510| 6c 20 61 20 6e 20 63 20 | 65 20 20 28 20 70 20 61 |l a n c |e  ( p a|
|00000520| 20 79 20 6f 20 66 00 66 | 00 29 22 3a 70 72 69 6e | y o f.f|.)":prin|
|00000530| 74 0d 33 36 30 20 69 6e | 70 75 74 22 11 20 20 20 |t.360 in|put".   |
|00000540| 20 77 68 61 74 20 69 73 | 20 74 68 65 20 6c 6f 61 | what is| the loa|
|00000550| 6e 20 61 6d 6f 75 6e 74 | 22 3b 70 76 0d 33 37 30 |n amount|";pv.370|
|00000560| 20 69 6e 70 75 74 22 11 | 20 20 20 20 77 68 61 74 | input".|    what|
|00000570| 20 69 73 20 74 68 65 20 | 70 61 79 6d 65 6e 74 20 | is the |payment |
|00000580| 61 6d 6f 75 6e 74 22 3b | 70 6d 74 0d 33 38 30 20 |amount";|pmt.380 |
|00000590| 69 6e 70 75 74 22 11 20 | 20 20 20 68 6f 77 20 6d |input". |   how m|
|000005a0| 61 6e 79 20 70 61 79 6d | 65 6e 74 73 20 6d 61 64 |any paym|ents mad|
|000005b0| 65 22 3b 6e 0d 33 39 30 | 20 69 6e 70 75 74 22 11 |e";n.390| input".|
|000005c0| 20 20 20 20 77 68 61 74 | 20 69 73 20 74 68 65 20 |    what| is the |
|000005d0| 69 6e 74 65 72 65 73 74 | 20 72 61 74 65 22 3b 69 |interest| rate";i|
|000005e0| 0d 34 30 30 20 72 69 3d | 69 2f 31 32 0d 34 31 30 |.400 ri=|i/12.410|
|000005f0| 20 78 3d 28 72 69 2f 31 | 30 30 29 2b 31 3a 79 3d | x=(ri/1|00)+1:y=|
|00000600| 78 5e 6e 3a 7a 3d 79 2a | 70 76 0d 34 32 30 20 78 |x^n:z=y*|pv.420 x|
|00000610| 78 3d 78 2a 70 6d 74 3a | 7a 7a 3d 79 2d 31 3a 79 |x=x*pmt:|zz=y-1:y|
|00000620| 79 3d 72 69 2f 31 30 30 | 3a 7a 78 3d 7a 7a 2f 79 |y=ri/100|:zx=zz/y|
|00000630| 79 3a 7a 79 3d 78 78 2a | 7a 78 3a 62 61 3d 7a 2d |y:zy=xx*|zx:ba=z-|
|00000640| 7a 79 0d 34 33 30 20 62 | 6c 3d 69 6e 74 28 62 61 |zy.430 b|l=int(ba|
|00000650| 2f 30 2e 30 31 29 2a 30 | 2e 30 31 0d 34 34 30 20 |/0.01)*0|.01.440 |
|00000660| 62 6c 24 3d 73 74 72 24 | 28 62 6c 2b 2e 30 30 31 |bl$=str$|(bl+.001|
|00000670| 29 3a 62 6c 24 3d 6d 69 | 64 24 28 62 6c 24 2c 32 |):bl$=mi|d$(bl$,2|
|00000680| 2c 28 6c 65 6e 28 62 6c | 24 29 2d 32 29 29 0d 34 |,(len(bl|$)-2)).4|
|00000690| 35 30 20 70 72 69 6e 74 | 22 11 20 20 20 20 72 65 |50 print|".    re|
|000006a0| 6d 61 69 6e 69 6e 67 20 | 62 61 6c 61 6e 63 65 20 |maining |balance |
|000006b0| 69 73 20 22 3b 62 6c 24 | 0d 34 36 30 20 70 72 69 |is ";bl$|.460 pri|
|000006c0| 6e 74 22 11 11 11 20 20 | 20 20 20 20 20 20 20 20 |nt"...  |        |
|000006d0| 20 20 12 20 20 61 6e 6f | 74 68 65 72 20 79 2f 6e |  .  ano|ther y/n|
|000006e0| 20 20 00 22 0d 34 37 30 | 20 67 65 74 61 24 3a 69 |  .".470| geta$:i|
|000006f0| 66 61 24 3c 3e 22 79 22 | 61 6e 64 61 24 3c 3e 22 |fa$<>"y"|anda$<>"|
|00000700| 6e 22 74 68 65 6e 34 37 | 30 0d 34 38 30 20 69 66 |n"then47|0.480 if|
|00000710| 61 24 3d 22 6e 22 74 68 | 65 6e 72 75 6e 31 34 30 |a$="n"th|enrun140|
|00000720| 0d 34 39 30 20 69 66 61 | 24 3d 22 79 22 74 68 65 |.490 ifa|$="y"the|
|00000730| 6e 72 75 6e 33 35 30 0d | 35 30 30 20 70 72 69 6e |nrun350.|500 prin|
|00000740| 74 22 00 22 0d 35 31 30 | 20 70 72 69 6e 74 73 70 |t".".510| printsp|
|00000750| 63 28 33 29 22 11 11 11 | 6c 20 6f 20 61 20 6e 20 |c(3)"...|l o a n |
|00000760| 20 61 20 6d 20 6f 20 72 | 20 74 20 69 20 7a 00 61 | a m o r| t i z.a|
|00000770| 20 74 20 69 20 6f 20 6e | 22 0d 35 32 30 20 69 6e | t i o n|".520 in|
|00000780| 70 75 74 22 11 11 20 20 | 20 20 20 61 6d 6f 75 6e |put"..  |   amoun|
|00000790| 74 20 6f 66 20 6c 6f 61 | 6e 2d 2d 2d 24 22 3b 61 |t of loa|n---$";a|
|000007a0| 3a 69 3d 61 0d 35 33 30 | 20 69 6e 70 75 74 22 11 |:i=a.530| input".|
|000007b0| 20 20 20 20 20 69 6e 74 | 65 72 65 73 74 20 72 61 |     int|erest ra|
|000007c0| 74 65 20 69 6e 20 25 22 | 3b 62 0d 35 34 30 20 69 |te in %"|;b.540 i|
|000007d0| 6e 70 75 74 22 11 20 20 | 20 20 20 64 75 72 61 74 |nput".  |   durat|
|000007e0| 69 6f 6e 20 6f 66 20 6c | 6f 61 6e 20 69 6e 20 6d |ion of l|oan in m|
|000007f0| 6f 6e 74 68 73 22 3b 63 | 0d 35 35 30 20 70 72 69 |onths";c|.550 pri|
|00000800| 6e 74 22 11 11 20 20 20 | 20 64 6f 20 79 6f 75 20 |nt"..   | do you |
|00000810| 77 61 6e 74 20 68 61 72 | 64 20 63 6f 70 79 20 28 |want har|d copy (|
|00000820| 79 2f 6e 29 22 0d 35 36 | 30 20 67 65 74 7a 24 3a |y/n)".56|0 getz$:|
|00000830| 69 66 7a 24 3c 3e 22 79 | 22 61 6e 64 7a 24 3c 3e |ifz$<>"y|"andz$<>|
|00000840| 22 6e 22 74 68 65 6e 35 | 36 30 0d 35 37 30 20 7a |"n"then5|60.570 z|
|00000850| 3d 30 3a 69 66 7a 24 3d | 22 79 22 74 68 65 6e 7a |=0:ifz$=|"y"thenz|
|00000860| 3d 31 3a 67 6f 74 6f 35 | 39 30 0d 35 38 30 20 70 |=1:goto5|90.580 p|
|00000870| 72 69 6e 74 22 00 22 3a | 70 72 69 6e 74 22 20 23 |rint".":|print" #|
|00000880| 20 20 20 20 70 6d 74 20 | 20 20 20 20 20 20 69 6e |    pmt |      in|
|00000890| 74 20 20 20 20 20 70 72 | 69 6e 20 20 20 20 20 20 |t     pr|in      |
|000008a0| 20 62 61 6c 20 20 22 0d | 35 39 30 20 70 72 69 6e | bal  ".|590 prin|
|000008b0| 74 3a 79 3d 31 0d 36 30 | 30 20 64 3d 61 2f 28 28 |t:y=1.60|0 d=a/((|
|000008c0| 28 31 2d 28 31 2b 62 2f | 31 32 30 30 29 5e 2d 63 |(1-(1+b/|1200)^-c|
|000008d0| 29 2f 28 62 2f 31 32 30 | 30 29 29 29 0d 36 31 30 |)/(b/120|0))).610|
|000008e0| 20 65 3d 62 2f 31 32 30 | 30 2a 61 3a 66 3d 64 2d | e=b/120|0*a:f=d-|
|000008f0| 65 3a 67 3d 61 2d 66 3a | 67 6f 73 75 62 36 32 30 |e:g=a-f:|gosub620|
|00000900| 3a 67 6f 74 6f 37 32 30 | 0d 36 32 30 20 64 64 3d |:goto720|.620 dd=|
|00000910| 69 6e 74 28 64 2f 30 2e | 30 31 29 2a 30 2e 30 31 |int(d/0.|01)*0.01|
|00000920| 0d 36 32 35 20 64 64 3d | 28 69 6e 74 28 28 64 64 |.625 dd=|(int((dd|
|00000930| 2b 2e 30 30 35 29 2a 31 | 30 30 29 2f 31 30 30 29 |+.005)*1|00)/100)|
|00000940| 0d 36 33 30 20 65 65 3d | 69 6e 74 28 65 2f 30 2e |.630 ee=|int(e/0.|
|00000950| 30 31 29 2a 30 2e 30 31 | 0d 36 33 35 20 65 65 3d |01)*0.01|.635 ee=|
|00000960| 28 69 6e 74 28 28 65 65 | 2b 2e 30 30 35 29 2a 31 |(int((ee|+.005)*1|
|00000970| 30 30 29 2f 31 30 30 29 | 0d 36 34 30 20 66 66 3d |00)/100)|.640 ff=|
|00000980| 69 6e 74 28 66 2f 30 2e | 30 31 29 2a 30 2e 30 31 |int(f/0.|01)*0.01|
|00000990| 0d 36 34 35 20 66 66 3d | 28 69 6e 74 28 28 66 66 |.645 ff=|(int((ff|
|000009a0| 2b 2e 30 30 35 29 2a 31 | 30 30 29 2f 31 30 30 29 |+.005)*1|00)/100)|
|000009b0| 0d 36 35 30 20 67 67 3d | 69 6e 74 28 67 2f 30 2e |.650 gg=|int(g/0.|
|000009c0| 30 31 29 2a 30 2e 30 31 | 0d 36 35 35 20 67 67 3d |01)*0.01|.655 gg=|
|000009d0| 28 69 6e 74 28 28 67 67 | 2b 2e 30 30 35 29 2a 31 |(int((gg|+.005)*1|
|000009e0| 30 30 29 2f 31 30 30 29 | 0d 36 36 30 20 64 64 24 |00)/100)|.660 dd$|
|000009f0| 3d 73 74 72 24 28 64 64 | 2b 2e 30 30 31 29 3a 64 |=str$(dd|+.001):d|
|00000a00| 64 24 3d 6d 69 64 24 28 | 64 64 24 2c 32 2c 28 6c |d$=mid$(|dd$,2,(l|
|00000a10| 65 6e 28 64 64 24 29 2d | 32 29 29 0d 36 37 30 20 |en(dd$)-|2)).670 |
|00000a20| 65 65 24 3d 73 74 72 24 | 28 65 65 2b 2e 30 30 31 |ee$=str$|(ee+.001|
|00000a30| 29 3a 65 65 24 3d 6d 69 | 64 24 28 65 65 24 2c 32 |):ee$=mi|d$(ee$,2|
|00000a40| 2c 28 6c 65 6e 28 65 65 | 24 29 2d 32 29 29 0d 36 |,(len(ee|$)-2)).6|
|00000a50| 38 30 20 69 66 65 65 3c | 31 74 68 65 6e 65 65 24 |80 ifee<|1thenee$|
|00000a60| 3d 22 30 22 2b 73 74 72 | 24 28 65 65 2b 2e 30 30 |="0"+str|$(ee+.00|
|00000a70| 31 29 3a 65 65 24 3d 6d | 69 64 24 28 65 65 24 2c |1):ee$=m|id$(ee$,|
|00000a80| 32 2c 28 6c 65 6e 28 65 | 65 24 29 2d 32 29 29 0d |2,(len(e|e$)-2)).|
|00000a90| 36 39 30 20 66 66 24 3d | 73 74 72 24 28 66 66 2b |690 ff$=|str$(ff+|
|00000aa0| 2e 30 30 31 29 3a 66 66 | 24 3d 6d 69 64 24 28 66 |.001):ff|$=mid$(f|
|00000ab0| 66 24 2c 32 2c 28 6c 65 | 6e 28 66 66 24 29 2d 32 |f$,2,(le|n(ff$)-2|
|00000ac0| 29 29 0d 37 30 30 20 67 | 67 24 3d 73 74 72 24 28 |)).700 g|g$=str$(|
|00000ad0| 67 67 2b 2e 30 30 31 29 | 3a 67 67 24 3d 6d 69 64 |gg+.001)|:gg$=mid|
|00000ae0| 24 28 67 67 24 2c 32 2c | 28 6c 65 6e 28 67 67 24 |$(gg$,2,|(len(gg$|
|00000af0| 29 2d 32 29 29 3a 69 66 | 67 67 3c 3d 30 74 68 65 |)-2)):if|gg<=0the|
|00000b00| 6e 67 67 24 3d 22 30 2e | 30 30 22 0d 37 31 30 20 |ngg$="0.|00".710 |
|00000b10| 72 65 74 75 72 6e 0d 37 | 32 30 20 69 66 7a 3d 31 |return.7|20 ifz=1|
|00000b20| 74 68 65 6e 70 72 69 6e | 74 22 00 22 3a 70 72 69 |thenprin|t".":pri|
|00000b30| 6e 74 74 61 62 28 31 33 | 29 22 11 11 11 11 11 11 |nttab(13|)"......|
|00000b40| 11 12 20 70 6c 65 61 73 | 65 20 20 77 61 69 74 20 |.. pleas|e  wait |
|00000b50| 00 22 0d 37 32 35 20 69 | 66 7a 3d 31 74 68 65 6e |.".725 i|fz=1then|
|00000b60| 70 72 69 6e 74 74 61 62 | 28 31 33 29 22 12 20 20 |printtab|(13)".  |
|00000b70| 20 70 72 69 6e 74 69 6e | 67 20 20 20 00 22 3a 67 | printin|g   .":g|
|00000b80| 6f 74 6f 38 38 30 0d 37 | 33 30 20 70 72 69 6e 74 |oto880.7|30 print|
|00000b90| 79 3a 70 72 69 6e 74 74 | 61 62 28 31 31 2d 6c 65 |y:printt|ab(11-le|
|00000ba0| 6e 28 64 64 24 29 29 22 | 00 22 64 64 24 3a 70 72 |n(dd$))"|."dd$:pr|
|00000bb0| 69 6e 74 74 61 62 28 32 | 30 2d 6c 65 6e 28 65 65 |inttab(2|0-len(ee|
|00000bc0| 24 29 29 22 00 22 65 65 | 24 0d 37 34 30 20 70 72 |$))"."ee|$.740 pr|
|00000bd0| 69 6e 74 74 61 62 28 32 | 38 2d 6c 65 6e 28 66 66 |inttab(2|8-len(ff|
|00000be0| 24 29 29 22 00 22 66 66 | 24 3a 70 72 69 6e 74 74 |$))"."ff|$:printt|
|00000bf0| 61 62 28 33 39 2d 6c 65 | 6e 28 67 67 24 29 29 22 |ab(39-le|n(gg$))"|
|00000c00| 00 22 67 67 24 0d 37 35 | 30 20 63 3d 63 2d 31 3a |."gg$.75|0 c=c-1:|
|00000c10| 61 3d 67 3a 79 3d 79 2b | 31 0d 37 36 30 20 69 66 |a=g:y=y+|1.760 if|
|00000c20| 63 3e 30 74 68 65 6e 36 | 30 30 0d 37 36 35 20 67 |c>0then6|00.765 g|
|00000c30| 6f 73 75 62 20 37 37 30 | 3a 67 6f 74 6f 38 30 30 |osub 770|:goto800|
|00000c40| 0d 37 37 30 20 74 3d 76 | 61 6c 28 64 64 24 29 3a |.770 t=v|al(dd$):|
|00000c50| 74 74 3d 74 2a 28 79 2d | 31 29 3a 74 63 3d 74 74 |tt=t*(y-|1):tc=tt|
|00000c60| 2d 69 3a 63 74 3d 69 6e | 74 28 74 63 2f 30 2e 30 |-i:ct=in|t(tc/0.0|
|00000c70| 31 29 2a 30 2e 30 31 3a | 74 6c 3d 69 6e 74 28 74 |1)*0.01:|tl=int(t|
|00000c80| 74 2f 30 2e 30 31 29 2a | 30 2e 30 31 0d 37 38 30 |t/0.01)*|0.01.780|
|00000c90| 20 74 74 24 3d 73 74 72 | 24 28 74 6c 2b 2e 30 30 | tt$=str|$(tl+.00|
|00000ca0| 31 29 3a 74 74 24 3d 6d | 69 64 24 28 74 74 24 2c |1):tt$=m|id$(tt$,|
|00000cb0| 32 2c 28 6c 65 6e 28 74 | 74 24 29 2d 32 29 29 0d |2,(len(t|t$)-2)).|
|00000cc0| 37 39 30 20 74 63 24 3d | 73 74 72 24 28 63 74 2b |790 tc$=|str$(ct+|
|00000cd0| 2e 30 30 31 29 3a 74 63 | 24 3d 6d 69 64 24 28 74 |.001):tc|$=mid$(t|
|00000ce0| 63 24 2c 32 2c 28 6c 65 | 6e 28 74 63 24 29 2d 32 |c$,2,(le|n(tc$)-2|
|00000cf0| 29 29 3a 72 65 74 75 72 | 6e 0d 38 30 30 20 70 72 |)):retur|n.800 pr|
|00000d00| 69 6e 74 22 11 74 6f 74 | 61 6c 20 70 61 79 6d 65 |int".tot|al payme|
|00000d10| 6e 74 73 20 3d 20 22 74 | 74 24 3a 70 72 69 6e 74 |nts = "t|t$:print|
|00000d20| 22 11 74 6f 74 61 6c 20 | 63 6f 73 74 20 20 20 20 |".total |cost    |
|00000d30| 20 3d 20 20 22 74 63 24 | 0d 38 31 30 20 69 66 63 | =  "tc$|.810 ifc|
|00000d40| 3d 30 74 68 65 6e 70 72 | 69 6e 74 22 11 20 20 20 |=0thenpr|int".   |
|00000d50| 20 20 20 20 20 20 20 20 | 12 20 20 20 61 6e 6f 74 |        |.   anot|
|00000d60| 68 65 72 20 79 2f 6e 20 | 20 20 00 22 0d 38 32 30 |her y/n |  .".820|
|00000d70| 20 67 65 74 61 24 3a 69 | 66 61 24 3c 3e 22 79 22 | geta$:i|fa$<>"y"|
|00000d80| 61 6e 64 61 24 3c 3e 22 | 6e 22 74 68 65 6e 38 32 |anda$<>"|n"then82|
|00000d90| 30 0d 38 33 30 20 69 66 | 61 24 3d 22 79 22 74 68 |0.830 if|a$="y"th|
|00000da0| 65 6e 72 75 6e 35 30 30 | 0d 38 34 30 20 70 72 69 |enrun500|.840 pri|
|00000db0| 6e 74 22 00 20 20 20 20 | 20 20 20 20 20 20 12 20 |nt".    |      . |
|00000dc0| 20 20 65 6e 64 20 70 72 | 6f 67 72 61 6d 20 79 2f |  end pr|ogram y/|
|00000dd0| 6e 20 20 20 00 20 22 0d | 38 35 30 20 67 65 74 61 |n   . ".|850 geta|
|00000de0| 24 3a 69 66 61 24 3c 3e | 22 79 22 61 6e 64 61 24 |$:ifa$<>|"y"anda$|
|00000df0| 3c 3e 22 6e 22 74 68 65 | 6e 38 35 30 0d 38 36 30 |<>"n"the|n850.860|
|00000e00| 20 69 66 61 24 3d 22 6e | 22 74 68 65 6e 72 75 6e | ifa$="n|"thenrun|
|00000e10| 31 34 30 0d 38 37 30 20 | 69 66 61 24 3d 22 79 22 |140.870 |ifa$="y"|
|00000e20| 74 68 65 6e 61 24 3d 22 | 2a 20 2a 20 2a 20 20 74 |thena$="|* * *  t|
|00000e30| 00 68 00 61 00 6e 20 6b | 20 20 79 20 6f 20 75 00 |.h.a.n k|  y o u.|
|00000e40| 00 2a 20 2a 20 2a 22 3a | 70 72 69 6e 74 22 00 11 |.* * *":|print"..|
|00000e50| 11 11 11 11 11 22 3a 67 | 6f 73 75 62 39 30 0d 38 |.....":g|osub90.8|
|00000e60| 37 35 20 70 72 69 6e 74 | 22 00 22 3a 65 6e 64 0d |75 print|".":end.|
|00000e70| 38 38 30 20 72 65 6d 20 | 2a 2a 2a 20 70 72 69 6e |880 rem |*** prin|
|00000e80| 74 65 72 20 72 6f 75 74 | 69 6e 65 20 2a 2a 2a 0d |ter rout|ine ***.|
|00000e90| 38 39 30 20 65 24 3d 63 | 68 72 24 28 32 37 29 3a |890 e$=c|hr$(27):|
|00000ea0| 68 24 3d 63 68 72 24 28 | 39 29 0d 39 30 30 20 6f |h$=chr$(|9).900 o|
|00000eb0| 70 65 6e 34 2c 34 3a 63 | 6d 64 34 0d 39 31 30 20 |pen4,4:c|md4.910 |
|00000ec0| 70 72 69 6e 74 0d 39 32 | 30 20 70 72 69 6e 74 22 |print.92|0 print"|
|00000ed0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000ee0| 20 20 20 2a 2a 2a 2a 20 | 6c 6f 61 6e 20 61 6d 6f |   **** |loan amo|
|00000ef0| 72 74 69 7a 61 74 69 6f | 6e 20 73 63 68 65 64 75 |rtizatio|n schedu|
|00000f00| 6c 65 20 2a 2a 2a 2a 22 | 0d 39 33 30 20 70 72 69 |le ****"|.930 pri|
|00000f10| 6e 74 0d 39 34 30 20 70 | 72 69 6e 74 22 20 20 20 |nt.940 p|rint"   |
|00000f20| 20 20 20 20 20 20 20 20 | 61 6d 6f 75 6e 74 20 6f |        |amount o|
|00000f30| 66 20 6c 6f 61 6e 20 20 | 20 20 20 3d 20 24 22 61 |f loan  |   = $"a|
|00000f40| 0d 39 35 30 20 70 72 69 | 6e 74 22 20 20 20 20 20 |.950 pri|nt"     |
|00000f50| 20 20 20 20 20 20 69 6e | 74 65 72 65 73 74 20 72 |      in|terest r|
|00000f60| 61 74 65 20 20 20 20 20 | 20 3d 20 20 22 62 22 25 |ate     | =  "b"%|
|00000f70| 22 0d 39 36 30 20 70 72 | 69 6e 74 22 20 20 20 20 |".960 pr|int"    |
|00000f80| 20 20 20 20 20 20 20 6c | 65 6e 67 74 68 20 6f 66 |       l|ength of|
|00000f90| 20 6c 6f 61 6e 20 20 20 | 20 20 3d 20 20 22 63 22 | loan   |  =  "c"|
|00000fa0| 6d 6f 6e 74 68 73 22 0d | 39 37 30 20 70 72 69 6e |months".|970 prin|
|00000fb0| 74 3a 6b 3d 30 3a 70 3d | 31 3a 79 3d 31 0d 39 38 |t:k=0:p=|1:y=1.98|
|00000fc0| 30 20 70 72 69 6e 74 22 | 20 20 70 6d 6e 74 20 23 |0 print"|  pmnt #|
|00000fd0| 20 20 20 20 20 20 20 20 | 70 6d 6e 74 20 20 20 20 |        |pmnt    |
|00000fe0| 20 20 20 20 20 20 69 6e | 74 65 72 65 73 74 20 20 |      in|terest  |
|00000ff0| 20 20 20 20 20 20 70 72 | 69 6e 63 69 70 61 6c 20 |      pr|incipal |
|00001000| 20 20 20 20 20 62 61 6c | 61 6e 63 65 22 0d 39 39 |     bal|ance".99|
|00001010| 30 20 70 72 69 6e 74 0d | 31 30 30 30 20 64 3d 61 |0 print.|1000 d=a|
|00001020| 2f 28 28 28 31 2d 28 31 | 2b 62 2f 31 32 30 30 29 |/(((1-(1|+b/1200)|
|00001030| 5e 2d 63 29 2f 28 62 2f | 31 32 30 30 29 29 29 0d |^-c)/(b/|1200))).|
|00001040| 31 30 31 30 20 65 3d 62 | 2f 31 32 30 30 2a 61 3a |1010 e=b|/1200*a:|
|00001050| 66 3d 64 2d 65 3a 67 3d | 61 2d 66 3a 67 6f 73 75 |f=d-e:g=|a-f:gosu|
|00001060| 62 36 32 30 0d 31 30 32 | 30 20 79 24 3d 73 74 72 |b620.102|0 y$=str|
|00001070| 24 28 79 29 0d 31 30 33 | 30 20 70 72 69 6e 74 23 |$(y).103|0 print#|
|00001080| 34 2c 22 22 74 61 62 28 | 35 2d 6c 65 6e 28 79 24 |4,""tab(|5-len(y$|
|00001090| 29 29 79 24 3b 0d 31 30 | 34 30 20 70 72 69 6e 74 |))y$;.10|40 print|
|000010a0| 23 34 2c 22 22 74 61 62 | 28 31 36 2d 6c 65 6e 28 |#4,""tab|(16-len(|
|000010b0| 64 64 24 29 29 64 64 24 | 3b 0d 31 30 35 30 20 70 |dd$))dd$|;.1050 p|
|000010c0| 72 69 6e 74 23 34 2c 22 | 22 74 61 62 28 31 36 2d |rint#4,"|"tab(16-|
|000010d0| 6c 65 6e 28 65 65 24 29 | 29 65 65 24 3b 0d 31 30 |len(ee$)|)ee$;.10|
|000010e0| 36 30 20 70 72 69 6e 74 | 23 34 2c 22 22 74 61 62 |60 print|#4,""tab|
|000010f0| 28 31 36 2d 6c 65 6e 28 | 66 66 24 29 29 66 66 24 |(16-len(|ff$))ff$|
|00001100| 3b 0d 31 30 37 30 20 70 | 72 69 6e 74 23 34 2c 22 |;.1070 p|rint#4,"|
|00001110| 22 74 61 62 28 31 36 2d | 6c 65 6e 28 67 67 24 29 |"tab(16-|len(gg$)|
|00001120| 29 67 67 24 0d 31 30 38 | 30 20 63 3d 63 2d 31 3a |)gg$.108|0 c=c-1:|
|00001130| 61 3d 67 3a 6b 3d 6b 2b | 31 3a 79 3d 79 2b 31 0d |a=g:k=k+|1:y=y+1.|
|00001140| 31 30 39 30 20 69 66 6b | 3d 34 32 74 68 65 6e 31 |1090 ifk|=42then1|
|00001150| 31 35 30 0d 31 31 30 30 | 20 69 66 63 3e 30 74 68 |150.1100| ifc>0th|
|00001160| 65 6e 31 30 30 30 0d 31 | 31 31 30 20 67 6f 73 75 |en1000.1|110 gosu|
|00001170| 62 37 37 30 3a 63 6d 64 | 34 0d 31 31 32 30 20 70 |b770:cmd|4.1120 p|
|00001180| 72 69 6e 74 3a 70 72 69 | 6e 74 22 20 20 74 6f 74 |rint:pri|nt"  tot|
|00001190| 61 6c 20 70 61 79 6d 65 | 6e 74 73 20 3d 20 22 74 |al payme|nts = "t|
|000011a0| 74 24 0d 31 31 33 30 20 | 70 72 69 6e 74 3a 70 72 |t$.1130 |print:pr|
|000011b0| 69 6e 74 22 20 20 20 20 | 20 20 20 20 20 20 20 20 |int"    |        |
|000011c0| 20 74 6f 74 61 6c 20 63 | 6f 73 74 20 3d 20 22 74 | total c|ost = "t|
|000011d0| 63 24 0d 31 31 34 30 20 | 69 66 63 3d 30 74 68 65 |c$.1140 |ifc=0the|
|000011e0| 6e 70 72 69 6e 74 23 34 | 3a 63 6c 6f 73 65 34 3a |nprint#4|:close4:|
|000011f0| 70 72 69 6e 74 22 00 11 | 11 11 11 11 11 11 11 11 |print"..|........|
|00001200| 11 22 3a 67 6f 74 6f 38 | 31 30 0d 31 31 35 30 20 |.":goto8|10.1150 |
|00001210| 63 6d 64 34 3a 70 3d 70 | 2b 31 3a 70 72 69 6e 74 |cmd4:p=p|+1:print|
|00001220| 3a 70 72 69 6e 74 22 20 | 20 20 20 20 20 20 20 63 |:print" |       c|
|00001230| 6f 6e 74 69 6e 75 65 64 | 20 6f 6e 20 6e 65 78 74 |ontinued| on next|
|00001240| 20 70 61 67 65 22 3a 6b | 3d 30 0d 31 31 35 35 20 | page":k|=0.1155 |
|00001250| 66 6f 72 74 3d 31 74 6f | 38 3a 70 72 69 6e 74 63 |fort=1to|8:printc|
|00001260| 68 72 24 28 31 30 29 3a | 6e 65 78 74 0d 31 31 36 |hr$(10):|next.116|
|00001270| 30 20 70 72 69 6e 74 22 | 20 20 20 20 20 20 20 20 |0 print"|        |
|00001280| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001290| 20 20 20 20 20 20 20 20 | 20 20 20 70 61 67 65 20 |        |   page |
|000012a0| 23 22 70 3a 70 72 69 6e | 74 3a 70 72 69 6e 74 3a |#"p:prin|t:print:|
|000012b0| 70 72 69 6e 74 0d 31 31 | 37 30 20 70 72 69 6e 74 |print.11|70 print|
|000012c0| 22 20 20 70 6d 6e 74 20 | 23 20 20 20 20 20 20 20 |"  pmnt |#       |
|000012d0| 20 70 6d 6e 74 20 20 20 | 20 20 20 20 20 20 20 69 | pmnt   |       i|
|000012e0| 6e 74 65 72 65 73 74 20 | 20 20 20 20 20 20 20 70 |nterest |       p|
|000012f0| 72 69 6e 63 69 70 61 6c | 20 20 20 20 20 62 61 6c |rincipal|     bal|
|00001300| 61 6e 63 65 22 0d 31 31 | 38 30 20 70 72 69 6e 74 |ance".11|80 print|
|00001310| 0d 31 31 39 30 20 67 6f | 74 6f 31 31 30 30 0d 0a |.1190 go|to1100..|
|00001320| 72 65 61 64 79 2e 0d 00 | 00 00 00 00 00 00 00 00 |ready...|........|
|00001330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001340| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001350| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001360| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001370| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+