summaryrefslogtreecommitdiff
path: root/v1.25/bin/MORTGAGE.BAS
blob: 80c062e5ce5353aff1e3b1ebffb8df0167e1ca3a (plain) (blame)
ofshex dumpascii
0000 ff bb 0c ac 03 8f 20 54 68 65 20 49 42 4d 20 50 65 72 73 6f 6e 61 6c 20 43 6f 6d 70 75 74 65 72 .......The.IBM.Personal.Computer
0020 20 4d 6f 72 74 67 61 67 65 00 ef 0c b6 03 8f 20 56 65 72 73 69 6f 6e 20 31 2e 30 30 20 28 43 29 .Mortgage.......Version.1.00.(C)
0040 43 6f 70 79 72 69 67 68 74 20 49 42 4d 20 43 6f 72 70 20 31 39 38 31 2c 20 31 39 38 32 00 21 0d Copyright.IBM.Corp.1981,.1982.!.
0060 c0 03 8f 20 4c 69 63 65 6e 73 65 64 20 4d 61 74 65 72 69 61 6c 20 2d 20 50 72 6f 67 72 61 6d 20 ....Licensed.Material.-.Program.
0080 50 72 6f 70 65 72 74 79 20 6f 66 20 49 42 4d 00 45 0d ca 03 8f 20 41 75 74 68 6f 72 20 2d 20 47 Property.of.IBM.E.....Author.-.G
00a0 6c 65 6e 6e 20 53 74 75 61 72 74 20 44 61 72 64 69 63 6b 00 57 0d cf 03 97 20 53 45 47 3a 20 98 lenn.Stuart.Dardick.W.....SEG:..
00c0 20 0f 6a 2c 11 00 69 0d d4 03 53 41 4d 50 4c 45 53 24 e7 22 4e 4f 22 00 73 0d de 03 89 20 0e f2 ..j,..i...SAMPLES$."NO".s.......
00e0 03 00 86 0d e8 03 53 41 4d 50 4c 45 53 24 e7 22 59 45 53 22 00 b3 0d f2 03 c9 20 dd 3a c8 20 11 ......SAMPLES$."YES"........:...
0100 2c 12 3a bf 20 0f 0f 2c 11 2c 11 3a a0 20 0f 28 3a c0 3a ca 20 16 2c 0f 13 3a 91 20 22 49 42 4d ,.:....,.,.:...(:.:...,..:.."IBM
0120 22 00 d6 0d fc 03 ca 20 18 2c 0f 0c 2c 11 3a 91 20 22 50 65 72 73 6f 6e 61 6c 20 43 6f 6d 70 75 "........,..,.:.."Personal.Compu
0140 74 65 72 22 00 03 0e 06 04 bf 20 0f 0a 2c 11 3a ca 20 0f 0a 2c 1a 2c 11 3a 91 20 ff 96 28 0f d5 ter".........,.:....,.,.:....(..
0160 29 e9 d6 28 0f 15 2c 0f cd 29 e9 ff 96 28 0f b8 29 00 38 0e 10 04 ca 20 0f 0b 2c 1a 2c 11 3a 91 )..(..,..)...(..).8.......,.,.:.
0180 20 ff 96 28 0f b3 29 e9 22 20 20 20 20 20 20 4d 4f 52 54 47 41 47 45 20 20 20 20 20 20 20 22 e9 ...(..)."......MORTGAGE.......".
01a0 ff 96 28 0f b3 29 00 5e 0e 1a 04 ca 20 0f 0c 2c 1a 2c 11 3a 91 20 ff 96 28 0f b3 29 e9 d6 28 0f ..(..).^.......,.,.:....(..)..(.
01c0 15 2c 0f 20 29 e9 ff 96 28 0f b3 29 00 93 0e 24 04 ca 20 0f 0d 2c 1a 2c 11 3a 91 20 ff 96 28 0f .,..)...(..)...$.....,.,.:....(.
01e0 b3 29 e9 22 20 20 20 20 56 65 72 73 69 6f 6e 20 31 2e 31 30 20 20 20 20 20 22 e9 ff 96 28 0f b3 .)."....Version.1.10....."...(..
0200 29 00 b9 0e 2e 04 ca 20 0f 0e 2c 1a 2c 11 3a 91 20 ff 96 28 0f d4 29 e9 d6 28 0f 15 2c 0f cd 29 ).........,.,.:....(..)..(..,..)
0220 e9 ff 96 28 0f be 29 00 f3 0e 38 04 bf 20 0f 0f 2c 11 3a ca 20 0f 11 2c 15 2c 11 3a 91 20 22 28 ...(..)...8.....,.:....,.,.:.."(
0240 43 29 20 43 6f 70 79 72 69 67 68 74 20 49 42 4d 20 43 6f 72 70 20 31 39 38 31 2c 20 31 39 38 32 C).Copyright.IBM.Corp.1981,.1982
0260 22 00 27 0f 42 04 bf 20 0f 0e 2c 11 3a ca 20 0f 17 2c 18 2c 11 3a 91 20 22 50 72 65 73 73 20 73 ".'.B.....,.:....,.,.:.."Press.s
0280 70 61 63 65 20 62 61 72 20 74 6f 20 63 6f 6e 74 69 6e 75 65 22 00 3d 0f 4c 04 8b 20 de 20 e8 e6 pace.bar.to.continue".=.L.......
02a0 20 22 22 20 cd 20 89 20 0e 4c 04 00 4a 0f 56 04 43 4d 44 24 20 e7 20 de 00 63 0f 60 04 8b 20 43 .""......L..J.V.CMD$.....c.`...C
02c0 4d 44 24 20 e7 20 22 20 22 20 cd 20 89 20 0e 7e 04 00 7e 0f 6a 04 8b 20 43 4d 44 24 20 e7 ff 96 MD$..."."......~..~.j...CMD$....
02e0 28 0f 1b 29 20 cd 20 89 20 0e ba 04 00 88 0f 74 04 89 20 0e 56 04 00 ac 0f 7e 04 bf 20 0f 0f 2c (..)...........t....V....~.....,
0300 11 3a c0 3a af 20 50 3a 86 20 41 4d 4f 52 54 28 1c f4 01 2c 13 29 3a c8 20 11 00 b8 0f 82 04 97 .:.:..P:..AMORT(...,.):.........
0320 20 53 45 47 e7 11 00 e4 0f 83 04 8b 20 28 ff 97 28 0c 10 04 29 20 ee 20 0c 30 00 29 e8 e6 0c 30 .SEG.........(..(...)....0.)...0
0340 00 20 cd 20 43 4f 4c 53 20 e7 20 14 3a 89 20 0e 86 04 00 f4 0f 84 04 a0 20 0f 50 3a 43 4f 4c 53 ....COLS....:.............P:COLS
0360 e7 19 00 fe 0f 86 04 97 20 53 45 47 00 08 10 88 04 8d 20 0e d8 04 00 1e 10 92 04 8b 20 ff 95 28 .........SEG...................(
0380 49 24 29 e7 0f 1b 20 cd 20 0e ba 04 00 3b 10 9c 04 8b 20 ff 83 28 49 24 2c 12 2c 12 29 e7 22 32 I$)..........;.......(I$,.,.)."2
03a0 22 20 cd 20 89 20 0e da 07 00 58 10 a6 04 8b 20 ff 83 28 49 24 2c 12 2c 12 29 e7 22 31 22 20 cd ".........X.......(I$,.,.)."1"..
03c0 20 89 20 0e d2 05 00 62 10 b0 04 89 20 0e 88 04 00 82 10 ba 04 8b 20 53 41 4d 50 4c 45 53 24 20 .......b...............SAMPLES$.
03e0 e8 e6 20 22 59 45 53 22 20 cd 20 89 20 0e c4 04 00 97 10 bf 04 fe 8c 20 22 53 41 4d 50 4c 45 53 ..."YES"................"SAMPLES
0400 22 2c 1c e8 03 00 a1 10 c4 04 8d 20 0e be 05 00 a7 10 ce 04 81 00 c0 10 d8 04 8f 20 2d 20 4d 41 ",..........................-.MA
0420 49 4e 20 4f 50 54 49 4f 4e 20 4d 45 4e 55 00 eb 10 e2 04 bf 20 0f 0f 2c 11 3a c0 3a bf 20 11 2c IN.OPTION.MENU.........,.:.:...,
0440 18 3a 91 20 22 20 4d 4f 52 54 47 41 47 45 20 41 4e 41 4c 59 53 49 53 20 22 00 0b 11 ec 04 bf 20 .:..".MORTGAGE.ANALYSIS.".......
0460 0f 0f 2c 11 3a ca 20 14 2c 12 3a 91 20 22 4f 50 54 49 4f 4e 53 20 2d 20 22 00 35 11 f6 04 91 20 ..,.:...,.:.."OPTIONS.-.".5.....
0480 22 31 20 2d 20 4d 4f 52 54 47 41 47 45 20 50 41 59 4d 45 4e 54 20 43 4f 4d 50 41 52 49 53 4f 4e "1.-.MORTGAGE.PAYMENT.COMPARISON
04a0 53 20 22 00 57 11 00 05 91 20 22 32 20 2d 20 4d 4f 52 54 47 41 47 45 20 41 4d 4f 52 54 49 5a 41 S.".W....."2.-.MORTGAGE.AMORTIZA
04c0 54 49 4f 4e 22 00 6e 11 0a 05 91 20 22 45 53 43 20 4b 45 59 20 2d 20 45 58 49 54 22 00 78 11 14 TION".n....."ESC.KEY.-.EXIT".x..
04e0 05 91 20 22 20 22 00 a3 11 1e 05 91 20 22 4f 50 54 49 4f 4e 20 4e 55 4d 42 45 52 20 28 31 2c 32 ..."."......."OPTION.NUMBER.(1,2
0500 2c 20 4f 52 20 45 53 43 29 20 3d 3d 3d 3d 3d 3e 22 00 cf 11 28 05 91 20 22 4e 4f 54 45 3a 20 50 ,.OR.ESC).=====>"...(..."NOTE:.P
0520 52 45 53 53 20 54 48 45 20 45 4e 54 45 52 20 4b 45 59 20 57 48 45 4e 20 44 4f 4e 45 22 00 d9 11 RESS.THE.ENTER.KEY.WHEN.DONE"...
0540 32 05 91 20 22 20 22 00 e4 11 3c 05 bf 20 0f 0f 2c 11 00 05 12 46 05 91 20 ff 96 28 0f da 29 e9 2..."."...<.....,....F.....(..).
0560 d6 28 0f 25 2c ff 96 28 0f c4 29 29 e9 ff 96 28 0f bf 29 00 41 12 50 05 91 20 ff 96 28 0f b3 29 .(.%,..(..))...(..).A.P.....(..)
0580 e9 22 20 20 4d 4f 52 54 47 41 47 45 20 50 41 59 4d 45 4e 54 20 43 4f 4d 50 41 52 49 53 4f 4e 53 ."..MORTGAGE.PAYMENT.COMPARISONS
05a0 20 20 20 20 20 20 20 22 e9 ff 96 28 0f b3 29 00 7d 12 5a 05 91 20 ff 96 28 0f b3 29 e9 22 20 20 ......."...(..).}.Z.....(..)."..
05c0 20 20 2d 20 55 53 45 20 54 48 49 53 20 4f 50 54 49 4f 4e 20 54 4f 20 43 4f 4d 50 41 52 45 20 20 ..-.USE.THIS.OPTION.TO.COMPARE..
05e0 20 20 20 22 e9 ff 96 28 0f b3 29 00 b9 12 64 05 91 20 ff 96 28 0f b3 29 e9 22 20 20 20 20 20 20 ..."...(..)...d.....(..)."......
0600 54 48 45 20 4d 4f 4e 54 48 4c 59 20 50 41 59 4d 45 4e 54 53 20 4f 46 20 20 20 20 20 20 20 20 22 THE.MONTHLY.PAYMENTS.OF........"
0620 e9 ff 96 28 0f b3 29 00 f5 12 6e 05 91 20 ff 96 28 0f b3 29 e9 22 20 20 20 20 20 20 4d 4f 52 54 ...(..)...n.....(..)."......MORT
0640 47 41 47 45 53 20 41 54 20 56 41 52 49 4f 55 53 20 52 41 54 45 53 20 20 20 20 20 22 e9 ff 96 28 GAGES.AT.VARIOUS.RATES....."...(
0660 0f b3 29 00 31 13 78 05 91 20 ff 96 28 0f b3 29 e9 22 20 20 20 20 20 20 41 4e 44 20 50 52 49 4e ..).1.x.....(..)."......AND.PRIN
0680 43 49 50 41 4c 20 41 4d 4f 55 4e 54 53 2e 20 20 20 20 20 20 20 20 20 22 e9 ff 96 28 0f b3 29 00 CIPAL.AMOUNTS.........."...(..).
06a0 6d 13 82 05 91 20 ff 96 28 0f b3 29 e9 22 20 20 4d 4f 52 54 47 41 47 45 20 41 4d 4f 52 54 49 5a m.......(..)."..MORTGAGE.AMORTIZ
06c0 41 54 49 4f 4e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 e9 ff 96 28 0f b3 29 00 a9 13 8c 05 ATION.............."...(..).....
06e0 91 20 ff 96 28 0f b3 29 e9 22 20 20 20 20 2d 20 55 53 45 20 54 48 49 53 20 4f 50 54 49 4f 4e 20 ....(..)."....-.USE.THIS.OPTION.
0700 54 4f 20 43 41 4c 43 55 4c 41 54 45 20 20 20 22 e9 ff 96 28 0f b3 29 00 e5 13 96 05 91 20 ff 96 TO.CALCULATE..."...(..).........
0720 28 0f b3 29 e9 22 20 20 20 20 20 20 54 48 45 20 50 52 49 4e 43 49 50 41 4c 20 41 4e 44 20 49 4e (..)."......THE.PRINCIPAL.AND.IN
0740 54 45 52 45 53 54 20 20 20 20 20 22 e9 ff 96 28 0f b3 29 00 21 14 a0 05 91 20 ff 96 28 0f b3 29 TEREST....."...(..).!.......(..)
0760 e9 22 20 20 20 20 20 20 50 41 49 44 20 4f 56 45 52 20 41 4e 59 20 31 32 20 4d 4f 4e 54 48 20 50 ."......PAID.OVER.ANY.12.MONTH.P
0780 45 52 49 4f 44 2e 20 22 e9 ff 96 28 0f b3 29 00 42 14 aa 05 91 20 ff 96 28 0f c0 29 e9 d6 28 0f ERIOD.."...(..).B.......(..)..(.
07a0 25 2c ff 96 28 0f c4 29 29 e9 ff 96 28 0f d9 29 00 60 14 b4 05 bf 20 11 2c 18 3a ca 20 19 2c 0f %,..(..))...(..).`......,.:...,.
07c0 25 3a 91 20 22 20 22 3a ca 20 19 2c 0f 25 00 82 14 b5 05 49 24 e7 de 3a 8b 20 49 24 e7 22 22 20 %:..".":...,.%.....I$..:..I$."".
07e0 cd 20 0e b5 05 20 3a a1 20 91 20 49 24 3b 3a 8e 00 91 14 be 05 bf 20 0f 0f 2c 11 3a c0 3a 81 00 ......:....I$;:..........,.:.:..
0800 d0 14 c8 05 50 46 20 e7 20 41 46 eb 28 52 46 ec 28 1f 00 00 00 00 00 00 00 81 ea 28 1f 00 00 00 ....PF...AF.(RF.(..........(....
0820 00 00 00 00 81 ec 28 28 1f 00 00 00 00 00 00 00 81 e9 52 46 29 ed 4e 46 29 29 29 29 3a 8e 00 ed ......((..........RF).NF)))):...
0840 14 d2 05 8f 20 2d 20 6d 6f 72 74 67 61 67 65 20 63 6f 6d 70 61 72 69 73 6f 6e 73 00 2a 15 dc 05 .....-.mortgage.comparisons.*...
0860 bf 20 0f 0f 2c 11 3a c0 3a bf 20 11 2c 18 3a 91 20 22 20 4d 4f 52 54 47 41 47 45 20 50 41 59 4d ....,.:.:...,.:..".MORTGAGE.PAYM
0880 45 4e 54 20 43 4f 4d 50 41 52 49 53 4f 4e 20 50 52 4f 47 52 41 4d 20 22 00 3c 15 e6 05 ca 20 0f ENT.COMPARISON.PROGRAM.".<......
08a0 0a 2c 12 3a bf 20 0f 0f 2c 11 00 5d 15 f0 05 91 20 ff 96 28 0f da 29 e9 d6 28 0f 25 2c ff 96 28 .,.:....,..].......(..)..(.%,..(
08c0 0f c4 29 29 e9 ff 96 28 0f bf 29 00 99 15 fa 05 91 20 ff 96 28 0f b3 29 e9 22 20 20 4d 4f 52 54 ..))...(..).........(..)."..MORT
08e0 47 41 47 45 20 50 41 59 4d 45 4e 54 20 43 4f 4d 50 41 52 49 53 4f 4e 53 20 20 20 20 20 20 20 22 GAGE.PAYMENT.COMPARISONS......."
0900 e9 ff 96 28 0f b3 29 00 d5 15 04 06 91 20 ff 96 28 0f b3 29 e9 22 20 20 20 20 2d 20 55 53 45 20 ...(..).........(..)."....-.USE.
0920 54 48 49 53 20 4f 50 54 49 4f 4e 20 54 4f 20 43 4f 4d 50 41 52 45 20 20 20 20 20 22 e9 ff 96 28 THIS.OPTION.TO.COMPARE....."...(
0940 0f b3 29 00 11 16 0e 06 91 20 ff 96 28 0f b3 29 e9 22 20 20 20 20 20 20 54 48 45 20 4d 4f 4e 54 ..).........(..)."......THE.MONT
0960 48 4c 59 20 50 41 59 4d 45 4e 54 53 20 4f 46 20 20 20 20 20 20 20 20 22 e9 ff 96 28 0f b3 29 00 HLY.PAYMENTS.OF........"...(..).
0980 4d 16 18 06 91 20 ff 96 28 0f b3 29 e9 22 20 20 20 20 20 20 4d 4f 52 54 47 41 47 45 53 20 41 54 M.......(..)."......MORTGAGES.AT
09a0 20 56 41 52 49 4f 55 53 20 52 41 54 45 53 20 20 20 20 20 22 e9 ff 96 28 0f b3 29 00 89 16 22 06 .VARIOUS.RATES....."...(..)...".
09c0 91 20 ff 96 28 0f b3 29 e9 22 20 20 20 20 20 20 41 4e 44 20 50 52 49 4e 43 49 50 41 4c 20 41 4d ....(..)."......AND.PRINCIPAL.AM
09e0 4f 55 4e 54 53 2e 20 20 20 20 20 20 20 20 20 22 e9 ff 96 28 0f b3 29 00 c5 16 2c 06 91 20 ff 96 OUNTS.........."...(..)...,.....
0a00 28 0f b3 29 e9 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 (..)."..........................
0a20 20 20 20 20 20 20 20 20 20 20 20 22 e9 ff 96 28 0f b3 29 00 01 17 36 06 91 20 ff 96 28 0f b3 29 ..........."...(..)...6.....(..)
0a40 e9 22 20 20 4e 4f 54 45 3a 20 54 4f 20 53 45 4c 45 43 54 20 41 20 56 41 4c 55 45 20 4f 52 20 41 ."..NOTE:.TO.SELECT.A.VALUE.OR.A
0a60 4d 4f 55 4e 54 20 20 22 e9 ff 96 28 0f b3 29 00 3d 17 40 06 91 20 ff 96 28 0f b3 29 e9 22 20 20 MOUNT.."...(..).=.@.....(..)."..
0a80 20 20 20 20 45 4e 54 45 52 20 54 48 45 20 41 50 50 52 4f 50 52 49 41 54 45 20 56 41 4c 55 45 20 ....ENTER.THE.APPROPRIATE.VALUE.
0aa0 20 20 20 22 e9 ff 96 28 0f b3 29 00 79 17 4a 06 91 20 ff 96 28 0f b3 29 e9 22 20 20 20 20 20 20 ..."...(..).y.J.....(..)."......
0ac0 41 4e 44 20 50 52 45 53 53 20 54 48 45 20 45 4e 54 45 52 20 4b 45 59 2e 20 20 20 20 20 20 20 22 AND.PRESS.THE.ENTER.KEY........"
0ae0 e9 ff 96 28 0f b3 29 00 9a 17 54 06 91 20 ff 96 28 0f c0 29 e9 d6 28 0f 25 2c ff 96 28 0f c4 29 ...(..)...T.....(..)..(.%,..(..)
0b00 29 e9 ff 96 28 0f d9 29 00 ce 17 5e 06 ca 20 14 2c 12 3a b0 20 85 20 22 45 4e 54 45 52 20 42 41 )...(..)...^....,.:...."ENTER.BA
0b20 53 45 20 4d 4f 52 54 47 41 47 45 20 41 4d 4f 55 4e 54 20 3d 3d 3d 3e 20 22 3b 41 24 00 ee 17 68 SE.MORTGAGE.AMOUNT.===>.";A$...h
0b40 06 41 20 e7 20 ff 94 28 41 24 29 3a 8b 20 41 20 e8 e7 20 11 20 cd 20 89 20 0e 40 06 00 fd 17 72 .A.....(A$):..A...........@....r
0b60 06 41 49 4e 43 20 e7 20 1c d0 07 00 0f 18 7c 06 ca 20 15 2c 12 3a 91 20 d2 0f 26 29 3b 00 30 18 .AINC.........|....,.:....&);.0.
0b80 86 06 ca 20 16 2c 12 3a 91 20 22 28 31 20 54 4f 20 33 35 20 50 45 52 43 45 4e 54 29 22 3b 00 65 .....,.:.."(1.TO.35.PERCENT)";.e
0ba0 18 90 06 ca 20 15 2c 12 3a b0 20 85 20 22 45 4e 54 45 52 20 42 41 53 45 20 49 4e 54 45 52 45 53 ......,.:...."ENTER.BASE.INTERES
0bc0 54 20 52 41 54 45 20 3d 3d 3d 3d 3d 3e 20 22 3b 49 52 24 00 8d 18 9a 06 49 52 20 e7 20 ff 94 28 T.RATE.=====>.";IR$.....IR.....(
0be0 49 52 24 29 3a 8b 20 49 52 e6 0f 23 20 ef 20 49 52 e8 12 20 cd 20 89 20 0e 7c 06 00 ac 18 a4 06 IR$):..IR..#...IR........|......
0c00 52 20 e7 20 49 52 ec 1c b0 04 3a 52 49 4e 43 20 e7 20 1d 0a d7 23 78 ec 0f 0c 00 be 18 ae 06 ca R...IR....:RINC......#x.........
0c20 20 16 2c 12 3a 91 20 d2 0f 26 29 3b 00 dd 18 b8 06 ca 20 17 2c 12 3a 91 20 22 28 31 20 54 4f 20 ..,.:....&);........,.:.."(1.TO.
0c40 33 35 20 59 45 41 52 53 29 22 3b 00 11 19 c2 06 ca 20 16 2c 12 3a b0 20 85 20 22 45 4e 54 45 52 35.YEARS)";........,.:...."ENTER
0c60 20 4e 55 4d 42 45 52 20 4f 46 20 59 45 41 52 53 20 49 4e 20 4d 54 47 20 3d 3e 20 22 3b 59 24 00 .NUMBER.OF.YEARS.IN.MTG.=>.";Y$.
0c80 20 19 cc 06 59 20 e7 20 ff 94 28 59 24 29 00 2f 19 d6 06 4e 20 e7 20 59 20 eb 20 0f 0c 00 3a 19 ....Y.....(Y$)./...N...Y......:.
0ca0 e0 06 4e 46 20 e7 20 4e 00 56 19 ea 06 8b 20 4e 46 e6 1c a4 01 20 ef 20 4e 46 e8 12 20 cd 20 89 ..NF...N.V.....NF.......NF......
0cc0 20 0e ae 06 00 5c 19 f4 06 c0 00 91 19 fe 06 bf 20 11 2c 18 3a 91 20 22 20 4d 4f 4e 54 48 4c 59 .....\............,.:..".MONTHLY
0ce0 20 4d 4f 52 54 47 41 47 45 20 50 41 59 4d 45 4e 54 20 43 4f 4d 50 41 52 49 53 4f 4e 53 20 22 00 .MORTGAGE.PAYMENT.COMPARISONS.".
0d00 c7 19 08 07 bf 20 0f 0f 2c 11 3a ca 20 14 2c 0f 0a 3a 91 20 59 24 e9 22 2d 59 45 41 52 20 4d 4f ........,.:...,..:..Y$."-YEAR.MO
0d20 52 54 47 41 47 45 20 4c 4f 41 4e 20 41 4d 4f 55 4e 54 53 22 3b 00 e2 19 12 07 ca 20 16 2c 13 3a RTGAGE.LOAN.AMOUNTS";........,.:
0d40 91 20 22 52 41 54 45 53 22 3b 3a bf 20 11 2c 18 00 f5 19 1c 07 82 20 49 20 e7 20 11 20 cc 20 43 .."RATES";:...,........I.......C
0d60 4f 4c 53 00 1e 1a 26 07 ca 20 15 2c 1a e9 49 eb 19 3a 91 20 d2 18 29 3a ca 20 15 2c 1a e9 49 eb OLS...&....,..I..:....):...,..I.
0d80 19 3a 91 20 41 e9 49 eb 41 49 4e 43 00 26 1a 30 07 83 20 49 00 37 1a 3a 07 82 20 49 20 e7 20 11 .:..A.I.AINC.&.0...I.7.:...I....
0da0 20 cc 20 0f 0e 00 51 1a 44 07 ca 20 17 e9 49 2c 12 3a 91 20 d2 18 29 3a ca 20 17 e9 49 2c 13 00 ......Q.D.....I,.:....):....I,..
0dc0 83 1a 4e 07 91 20 d7 20 22 23 23 2e 23 23 22 3b ff 85 28 28 28 52 e9 28 49 eb 52 49 4e 43 29 29 ..N....."##.##";..(((R.(I.RINC))
0de0 eb 1d 00 60 6a 91 29 e9 1d 00 00 00 80 29 ec 0f 64 00 8b 1a 58 07 83 20 49 00 96 1a 62 07 bf 20 ...`j.)......)..d...X...I...b...
0e00 0f 0f 2c 11 00 a7 1a 6c 07 82 20 49 20 e7 20 11 20 cc 20 0f 0e 00 c4 1a 76 07 52 46 20 e7 20 52 ..,....l...I............v.RF...R
0e20 e9 49 eb 52 49 4e 43 3a 41 46 e7 12 3a 8d 20 0e c8 05 00 d7 1a 80 07 82 20 4a 20 e7 20 11 20 cc .I.RINC:AF..:............J......
0e40 20 43 4f 4c 53 00 05 1b 8a 07 50 20 e7 20 50 46 eb 28 41 e9 4a eb 41 49 4e 43 29 3a 50 20 e7 20 .COLS.....P...PF.(A.J.AINC):P...
0e60 ff 85 28 28 50 e9 1d 0c d7 23 79 29 eb 0f 64 29 ec 0f 64 00 42 1b 8f 07 8b 20 50 e6 1c 10 27 20 ..((P....#y)..d)..d.B.....P...'.
0e80 cd 20 ca 20 0f 16 2c 12 3a 91 20 22 50 41 59 4d 45 4e 54 53 20 54 4f 4f 20 4c 41 52 47 45 20 54 ......,.:.."PAYMENTS.TOO.LARGE.T
0ea0 4f 20 44 49 53 50 4c 41 59 22 3a 89 20 0e bc 07 00 63 1b 94 07 ca 20 17 e9 49 2c 1a e9 4a eb 19 O.DISPLAY":......c.......I,..J..
0ec0 3a 91 20 d7 20 22 23 23 23 23 2e 23 23 22 3b 50 3b 00 6b 1b 9e 07 83 20 4a 00 73 1b a8 07 83 20 :...."####.##";P;.k.....J.s.....
0ee0 49 00 7d 1b b2 07 91 20 22 20 22 00 a2 1b bc 07 91 20 22 50 52 45 53 53 20 53 50 41 43 45 20 42 I.}....."."......."PRESS.SPACE.B
0f00 41 52 20 54 4f 20 43 4f 4e 54 49 4e 55 45 22 3b 00 b9 1b c6 07 8b 20 de 20 e8 e6 20 22 20 22 20 AR.TO.CONTINUE";............".".
0f20 cd 20 89 20 0e c6 07 00 c3 1b d0 07 89 20 0e 88 04 00 e1 1b da 07 8f 20 2d 20 6d 6f 72 74 67 61 ........................-.mortga
0f40 67 65 20 61 6d 6f 72 74 69 7a 61 74 69 6f 6e 00 eb 1b e4 07 bf 20 18 2c 11 00 f1 1b ee 07 c0 00 ge.amortization........,........
0f60 fb 1b f8 07 bf 20 11 2c 18 00 05 1c 02 08 ca 20 12 2c 12 00 2d 1c 0c 08 91 20 22 20 4d 4f 52 54 .......,.........,..-.....".MORT
0f80 47 41 47 45 20 41 4d 4f 52 54 49 5a 41 54 49 4f 4e 20 50 52 4f 47 52 41 4d 20 22 00 3f 1c 16 08 GAGE.AMORTIZATION.PROGRAM.".?...
0fa0 ca 20 0f 0a 2c 12 3a bf 20 0f 0f 2c 11 00 60 1c 20 08 91 20 ff 96 28 0f da 29 e9 d6 28 0f 25 2c ....,.:....,..`.......(..)..(.%,
0fc0 ff 96 28 0f c4 29 29 e9 ff 96 28 0f bf 29 00 9c 1c 2a 08 91 20 ff 96 28 0f b3 29 e9 22 20 20 4d ..(..))...(..)...*.....(..)."..M
0fe0 4f 52 54 47 41 47 45 20 41 4d 4f 52 54 49 5a 41 54 49 4f 4e 20 20 20 20 20 20 20 20 20 20 20 20 ORTGAGE.AMORTIZATION............
1000 20 20 22 e9 ff 96 28 0f b3 29 00 d8 1c 34 08 91 20 ff 96 28 0f b3 29 e9 22 20 20 20 20 2d 20 55 .."...(..)...4.....(..)."....-.U
1020 53 45 20 54 48 49 53 20 4f 50 54 49 4f 4e 20 54 4f 20 43 41 4c 43 55 4c 41 54 45 20 20 20 22 e9 SE.THIS.OPTION.TO.CALCULATE...".
1040 ff 96 28 0f b3 29 00 14 1d 3e 08 91 20 ff 96 28 0f b3 29 e9 22 20 20 20 20 20 20 54 48 45 20 50 ..(..)...>.....(..)."......THE.P
1060 52 49 4e 43 49 50 41 4c 20 41 4e 44 20 49 4e 54 45 52 45 53 54 20 20 20 20 20 22 e9 ff 96 28 0f RINCIPAL.AND.INTEREST....."...(.
1080 b3 29 00 50 1d 48 08 91 20 ff 96 28 0f b3 29 e9 22 20 20 20 20 20 20 50 41 49 44 20 4f 56 45 52 .).P.H.....(..)."......PAID.OVER
10a0 20 41 4e 59 20 31 32 20 4d 4f 4e 54 48 20 50 45 52 49 4f 44 2e 20 22 e9 ff 96 28 0f b3 29 00 8c .ANY.12.MONTH.PERIOD.."...(..)..
10c0 1d 52 08 91 20 ff 96 28 0f b3 29 e9 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .R.....(..)."...................
10e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 e9 ff 96 28 0f b3 29 00 c8 1d 5c 08 91 .................."...(..)...\..
1100 20 ff 96 28 0f b3 29 e9 22 20 20 4e 4f 54 45 3a 20 54 4f 20 53 45 4c 45 43 54 20 41 20 56 41 4c ...(..)."..NOTE:.TO.SELECT.A.VAL
1120 55 45 20 4f 52 20 41 4d 4f 55 4e 54 20 20 22 e9 ff 96 28 0f b3 29 00 04 1e 66 08 91 20 ff 96 28 UE.OR.AMOUNT.."...(..)...f.....(
1140 0f b3 29 e9 22 20 20 20 20 20 20 45 4e 54 45 52 20 54 48 45 20 41 50 50 52 4f 50 52 49 41 54 45 ..)."......ENTER.THE.APPROPRIATE
1160 20 56 41 4c 55 45 20 20 20 20 22 e9 ff 96 28 0f b3 29 00 40 1e 70 08 91 20 ff 96 28 0f b3 29 e9 .VALUE...."...(..).@.p.....(..).
1180 22 20 20 20 20 20 20 41 4e 44 20 50 52 45 53 53 20 54 48 45 20 45 4e 54 45 52 20 4b 45 59 2e 20 "......AND.PRESS.THE.ENTER.KEY..
11a0 20 20 20 20 20 20 22 e9 ff 96 28 0f b3 29 00 61 1e 7a 08 91 20 ff 96 28 0f c0 29 e9 d6 28 0f 25 ......"...(..).a.z.....(..)..(.%
11c0 2c ff 96 28 0f c4 29 29 e9 ff 96 28 0f d9 29 00 6b 1e 84 08 ca 20 14 2c 12 00 94 1e 8e 08 b0 20 ,..(..))...(..).k......,........
11e0 85 20 22 45 4e 54 45 52 20 4d 4f 52 54 47 41 47 45 20 41 4d 4f 55 4e 54 20 3d 3d 3d 3e 20 22 3b .."ENTER.MORTGAGE.AMOUNT.===>.";
1200 41 24 00 a4 1e 98 08 41 46 20 e7 20 ff 94 28 41 24 29 00 ae 1e a2 08 ca 20 15 2c 12 00 de 1e ac A$.....AF.....(A$)........,.....
1220 08 91 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..."............................
1240 20 20 20 20 20 20 20 20 20 20 22 3b 00 e8 1e b6 08 ca 20 16 2c 12 00 03 1f c0 08 91 20 22 28 31 ..........";........,........"(1
1260 20 54 4f 20 33 35 20 50 45 52 43 45 4e 54 29 22 3b 00 0d 1f ca 08 ca 20 15 2c 12 00 37 1f d4 08 .TO.35.PERCENT)";........,..7...
1280 b0 20 85 20 22 45 4e 54 45 52 20 49 4e 54 45 52 45 53 54 20 52 41 54 45 20 3d 3d 3d 3d 3d 3e 20 ...."ENTER.INTEREST.RATE.=====>.
12a0 22 3b 49 52 24 00 48 1f de 08 49 52 20 e7 20 ff 94 28 49 52 24 29 00 5c 1f e8 08 8b 20 49 52 e6 ";IR$.H...IR.....(IR$).\.....IR.
12c0 0f 23 20 cd 20 89 20 0e a2 08 00 6f 1f f2 08 8b 20 49 52 e8 12 20 cd 20 89 20 0e a2 08 00 7f 1f .#.........o.....IR.............
12e0 fc 08 52 46 20 e7 20 49 52 ec 1c b0 04 00 89 1f 06 09 ca 20 16 2c 12 00 b9 1f 10 09 91 20 22 20 ..RF...IR............,........".
1300 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
1320 20 20 20 20 20 22 3b 00 c3 1f 1a 09 ca 20 17 2c 12 00 dc 1f 24 09 91 20 22 28 31 20 54 4f 20 33 .....";........,....$..."(1.TO.3
1340 35 20 59 45 41 52 53 29 22 3b 00 e6 1f 2e 09 ca 20 16 2c 12 00 0f 20 38 09 b0 20 85 20 22 45 4e 5.YEARS)";........,....8....."EN
1360 54 45 52 20 4e 55 4d 42 45 52 20 4f 46 20 59 45 41 52 53 20 3d 3d 3d 3e 20 22 3b 59 24 00 1e 20 TER.NUMBER.OF.YEARS.===>.";Y$...
1380 42 09 59 20 e7 20 ff 94 28 59 24 29 00 2e 20 4c 09 4e 46 20 e7 20 59 20 eb 20 0f 0c 00 43 20 56 B.Y.....(Y$)...L.NF...Y......C.V
13a0 09 8b 20 4e 46 e6 1c a4 01 20 cd 20 89 20 0e 06 09 00 56 20 60 09 8b 20 4e 46 e8 12 20 cd 20 89 ...NF.............V.`...NF......
13c0 20 0e 06 09 00 60 20 6a 09 8d 20 0e c8 05 00 7e 20 74 09 50 46 20 e7 20 ff 85 28 28 50 46 e9 1d .....`.j.......~.t.PF.....((PF..
13e0 0c d7 23 79 29 eb 0f 64 29 ec 0f 64 00 a4 20 7e 09 91 20 22 4d 4f 4e 54 48 4c 59 20 50 41 59 4d ..#y)..d)..d...~..."MONTHLY.PAYM
1400 45 4e 54 53 20 41 52 45 20 3d 3d 3d 3d 3e 22 3b 50 46 00 af 20 83 09 bf 20 0f 17 2c 11 00 d0 20 ENTS.ARE.====>";PF.........,....
1420 88 09 91 20 22 43 41 4c 43 55 4c 41 54 49 4e 47 20 41 4d 4f 52 54 49 5a 41 54 49 4f 4e 22 00 db ...."CALCULATING.AMORTIZATION"..
1440 20 8d 09 bf 20 0f 0f 2c 11 00 ef 20 92 09 8b 20 4e 46 e6 0f 24 20 cd 20 89 20 0e a6 09 00 05 21 .......,........NF..$..........!
1460 9c 09 82 20 49 20 e7 20 12 20 cc 20 1c e8 03 3a 83 20 49 00 19 21 a6 09 41 4d 4f 52 54 28 11 2c ....I..........:..I..!..AMORT(.,
1480 12 29 20 e7 20 41 46 00 2a 21 b0 09 82 20 49 20 e7 20 12 20 cc 20 4e 46 00 5d 21 ba 09 41 4d 4f .)...AF.*!....I.......NF.]!..AMO
14a0 52 54 28 49 2c 13 29 20 e7 20 ff 85 28 28 41 4d 4f 52 54 28 49 ea 12 2c 12 29 eb 52 46 e9 1d 0c RT(I,.).....((AMORT(I..,.).RF...
14c0 d7 23 79 29 eb 0f 64 29 ec 0f 64 00 89 21 c4 09 41 4d 4f 52 54 28 49 2c 12 29 20 e7 20 41 4d 4f .#y)..d)..d..!..AMORT(I,.)...AMO
14e0 52 54 28 49 ea 12 2c 12 29 ea 50 46 e9 41 4d 4f 52 54 28 49 2c 13 29 00 91 21 ce 09 83 20 49 00 RT(I..,.).PF.AMORT(I,.)..!....I.
1500 b4 21 d8 09 82 20 49 20 e7 20 18 20 cc 20 0f 19 3a ca 20 49 2c 12 3a 91 20 d2 0f 27 29 3b 3a 83 .!....I.........:..I,.:....');:.
1520 20 49 00 be 21 e2 09 ca 20 1a 2c 12 00 d5 21 ec 09 91 20 22 20 2d 20 31 20 54 4f 22 e9 ff 93 28 .I..!.....,...!....".-.1.TO"...(
1540 4e 46 29 00 f7 21 f6 09 91 20 22 20 2d 20 30 20 54 4f 20 45 4e 44 20 41 4d 4f 52 54 49 5a 41 54 NF)..!....".-.0.TO.END.AMORTIZAT
1560 49 4f 4e 22 3b 00 01 22 00 0a ca 20 18 2c 12 00 28 22 0a 0a 91 20 22 45 4e 54 45 52 20 42 45 47 ION";..".....,..("...."ENTER.BEG
1580 49 4e 4e 49 4e 47 20 50 41 59 4d 45 4e 54 20 4e 55 4d 42 45 52 22 00 56 22 14 0a b0 20 85 20 22 INNING.PAYMENT.NUMBER".V"......"
15a0 4f 46 20 31 32 20 4d 4f 4e 54 48 20 50 45 52 49 4f 44 20 3d 3d 3d 3d 3d 3d 3e 20 22 3b 50 45 52 OF.12.MONTH.PERIOD.======>.";PER
15c0 49 4f 44 24 00 6a 22 1e 0a 50 44 e7 20 ff 94 28 50 45 52 49 4f 44 24 29 00 80 22 28 0a 8b 20 50 IOD$.j"..PD....(PERIOD$).."(...P
15e0 44 20 e8 e6 20 11 20 cd 20 89 20 0e 3c 0a 00 9d 22 32 0a 8b 20 50 45 52 49 4f 44 24 20 e8 e6 20 D...........<..."2...PERIOD$....
1600 22 30 22 20 cd 20 89 20 0e 00 0a 00 b0 22 3c 0a 8b 20 50 44 e7 11 20 cd 20 89 20 0e 88 04 00 c4 "0".........."<...PD............
1620 22 46 0a 8b 20 50 44 e6 4e 46 20 cd 20 89 20 0e 00 0a 00 d7 22 50 0a 8b 20 50 44 e8 11 20 cd 20 "F...PD.NF.........."P...PD.....
1640 89 20 0e 00 0a 00 e1 22 5a 0a ca 20 18 2c 12 00 ec 22 64 0a 91 20 d2 0f 27 29 00 f7 22 6e 0a 91 ......."Z....,..."d.....').."n..
1660 20 d2 0f 27 29 00 01 23 78 0a ca 20 1a 2c 12 00 2f 23 82 0a 91 20 22 50 59 4d 4e 54 20 50 52 49 ...')..#x....,../#...."PYMNT.PRI
1680 4e 43 49 50 41 4c 20 20 20 49 4e 54 45 52 45 53 54 20 20 20 20 42 41 4c 41 4e 43 45 22 00 3c 23 NCIPAL...INTEREST....BALANCE".<#
16a0 8c 0a 54 49 4e 54 20 e7 20 11 00 51 23 96 0a 82 20 49 20 e7 20 50 44 20 cc 20 50 44 e9 0f 0b 00 ..TINT.....Q#....I...PD...PD....
16c0 65 23 97 0a 8b 20 49 e6 20 4e 46 20 cd 20 89 20 0e be 0a 00 82 23 a0 0a 54 49 4e 54 20 e7 20 54 e#....I..NF..........#..TINT...T
16e0 49 4e 54 20 e9 20 41 4d 4f 52 54 28 49 2c 13 29 00 94 23 aa 0a 91 20 d7 20 22 23 23 23 20 22 3b INT...AMORT(I,.)..#......"###.";
1700 49 3b 00 ce 23 b4 0a 91 20 d7 20 22 20 20 23 23 23 23 23 23 2e 23 23 22 3b 50 46 ea 41 4d 4f 52 I;..#......"..######.##";PF.AMOR
1720 54 28 49 2c 13 29 3b 41 4d 4f 52 54 28 49 2c 13 29 3b 41 4d 4f 52 54 28 49 2c 12 29 00 d6 23 be T(I,.);AMORT(I,.);AMORT(I,.)..#.
1740 0a 83 20 49 00 e0 23 c8 0a 91 20 22 20 22 00 03 24 d2 0a 91 20 22 49 4e 54 45 52 45 53 54 20 46 ...I..#...."."..$...."INTEREST.F
1760 4f 52 20 31 32 20 50 45 52 49 4f 44 53 20 3d 22 3b 00 1d 24 dc 0a 91 20 d7 20 22 23 23 23 23 23 OR.12.PERIODS.=";..$......"#####
1780 23 2e 23 23 20 22 3b 54 49 4e 54 00 28 24 e6 0a ca 20 0f 19 2c 12 00 4d 24 f0 0a 91 20 22 50 52 #.##.";TINT.($......,..M$...."PR
17a0 45 53 53 20 53 50 41 43 45 20 42 41 52 20 54 4f 20 43 4f 4e 54 49 4e 55 45 22 3b 00 57 24 fa 0a ESS.SPACE.BAR.TO.CONTINUE";.W$..
17c0 ca 20 2c 2c 11 00 6d 24 04 0b 8b 20 de 20 e8 e6 20 22 22 20 cd 20 89 20 0e 04 0b 00 7a 24 0e 0b ..,,..m$........."".........z$..
17e0 43 4d 44 24 20 e7 20 de 00 93 24 18 0b 8b 20 43 4d 44 24 20 e7 20 22 20 22 20 cd 20 89 20 0e d8 CMD$......$....CMD$...".".......
1800 09 00 ae 24 22 0b 8b 20 43 4d 44 24 20 e7 ff 96 28 0f 1b 29 20 cd 20 89 20 0e ba 04 00 b8 24 2c ...$"...CMD$....(..)..........$,
1820 0b 89 20 0e 0e 0b 00 00 00 1a 1a 41 52 20 54 4f 20 43 4f 4e 54 49 4e 55 45 22 3b 00 57 24 fa 0a ...........AR.TO.CONTINUE";.W$..
1840 ca 20 2c 2c 11 00 6d 24 04 0b 8b 20 de 20 e8 e6 20 22 22 20 cd 20 89 20 0e 04 0b 00 7a 24 0e 0b ..,,..m$........."".........z$..
1860 43 4d 44 24 20 e7 20 de 00 93 24 18 0b 8b 20 43 4d 44 24 20 e7 20 22 20 22 20 cd 20 89 20 0e d8 CMD$......$....CMD$...".".......