_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

AMORTIZATION

FILE INFORMATION

FILENAME(S): AMORTIZATION

FILE TYPE(S): PRG

FILE SIZE: 6.2K

FIRST SEEN: 2025-11-30 18:12:42

APPEARS ON: 1 disk(s)

FILE HASH

8972dfc5a72fde9fda0c3813aba80377d128fac757be927a46c7ae830bdbcb20

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
AMORTIZATION AMORTIZATION PRG Sailor, Ganheden 17 0 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 09 08 0A 00 89 39  30 00 1C 08 0F 00 44 4C  |.......90.....DL|
00000010: 24 B2 22 22 3A 44 42 24  B2 22 14 22 00 55 08 14  |$."":DB$.".".U..|
00000020: 00 48 54 B2 C3 28 44 4C  24 29 AA 44 57 3A 54 24  |.HT..(DL$).DW:T$|
00000030: B2 22 22 3A 8D 36 31 30  30 30 3A 20 20 20 20 20  |."":.61000:     |
00000040: 20 20 20 97 31 39 38 2C  30 3A 92 31 39 38 2C 31  |   .198,0:.198,1|
00000050: 3A A1 44 4B 24 00 71 08  19 00 8B 44 4B 24 B2 C7  |:.DK$.q....DK$..|
00000060: 28 31 33 29 AF C3 28 44  4C 24 29 B1 B2 31 A7 36  |(13)..(DL$)..1.6|
00000070: 35 00 8D 08 1E 00 8B C3  28 44 4C 24 29 B2 31 30  |5.......(DL$).10|
00000080: A7 8B 44 4B 24 B3 B1 44  42 24 A7 32 30 00 A2 08  |..DK$..DB$.20...|
00000090: 23 00 8B 44 4B 24 B2 44  42 24 A7 8D 37 30 3A 89  |#..DK$.DB$..70:.|
000000A0: 36 30 00 BF 08 28 00 8B  44 4B 24 B2 22 2B 22 A7  |60...(..DK$."+".|
000000B0: 8B 44 4C 24 B2 22 22 A7  44 4C 24 B2 44 4B 24 00  |.DL$."".DL$.DK$.|
000000C0: DC 08 2D 00 8B 44 4B 24  B2 22 2D 22 A7 8B 44 4C  |..-..DK$."-"..DL|
000000D0: 24 B2 22 22 A7 44 4C 24  B2 44 4B 24 00 F5 08 32  |$."".DL$.DK$...2|
000000E0: 00 8B 44 4B 24 B2 22 2E  22 A7 44 4C 24 B2 44 4C  |..DK$.".".DL$.DL|
000000F0: 24 AA 44 4B 24 00 11 09  37 00 8B 44 4B 24 B3 22  |$.DK$...7..DK$."|
00000100: 30 22 B0 44 4B 24 B1 22  39 22 A7 44 4B 24 B2 22  |0".DK$."9".DK$."|
00000110: 22 00 3D 09 3C 00 44 4C  24 B2 44 4C 24 AA 44 4B  |".=.<.DL$.DL$.DK|
00000120: 24 3A 48 54 B2 44 57 3A  54 24 B2 44 4C 24 3A 8D  |$:HT.DW:T$.DL$:.|
00000130: 36 31 30 30 30 3A 20 20  20 20 89 32 30 00 43 09  |61000:    .20.C.|
00000140: 41 00 8E 00 5C 09 46 00  8B C3 28 44 4C 24 29 B3  |A...\.F...(DL$).|
00000150: 32 A7 44 4C 24 B2 22 22  3A 89 38 30 00 74 09 4B  |2.DL$."":.80.t.K|
00000160: 00 44 4C 24 B2 C8 28 44  4C 24 2C C3 28 44 4C 24  |.DL$..(DL$,.(DL$|
00000170: 29 AB 31 29 00 94 09 50  00 48 54 B2 44 57 3A 54  |).1)...P.HT.DW:T|
00000180: 24 B2 44 4C 24 AA 22 20  22 AA 44 42 24 3A 8D 36  |$.DL$." ".DB$:.6|
00000190: 31 30 30 30 00 9F 09 55  00 44 4B 24 B2 22 22 00  |1000...U.DK$."".|
000001A0: A5 09 57 00 8E 00 B0 09  5A 00 8D 33 30 30 30 30  |..W.....Z..30000|
000001B0: 00 BC 09 64 00 8F 0A 4D  41 49 4E 0A 00 C6 09 82  |...d...MAIN.....|
000001C0: 00 8D 32 30 30 30 00 EA  09 8C 00 91 C5 28 52 24  |..2000.......(R$|
000001D0: 29 8D 35 30 30 30 2C 36  30 30 30 2C 37 30 30 30  |).5000,6000,7000|
000001E0: 2C 38 30 30 30 2C 39 30  30 30 00 F5 09 96 00 8D  |,8000,9000......|
000001F0: 31 30 30 30 30 00 08 0A  A0 00 8B 52 24 B2 22 59  |10000......R$."Y|
00000200: 22 A7 8D 31 31 30 30 30  00 11 0A C8 00 89 31 30  |"..11000......10|
00000210: 30 00 1D 0A D0 07 8F 0A  4D 45 4E 55 0A 00 26 0A  |0.......MENU..&.|
00000220: DA 07 99 22 93 22 00 35  0A DF 07 4F 56 45 52 46  |...".".5...OVERF|
00000230: 4C 4F 57 B2 30 00 68 0A  E4 07 48 54 B2 31 31 3A  |LOW.0.h...HT.11:|
00000240: 56 54 B2 32 3A 54 24 B2  22 41 4D 4F 52 54 49 5A  |VT.2:T$."AMORTIZ|
00000250: 41 54 49 4F 4E 20 4D 45  4E 55 22 3A 20 20 20 20  |ATION MENU":    |
00000260: 20 20 8D 36 31 30 30 30  00 9F 0A EE 07 48 54 B2  |  .61000.....HT.|
00000270: 33 3A 56 54 B2 35 3A 54  24 B2 22 31 20 3D 20 46  |3:VT.5:T$."1 = F|
00000280: 49 47 55 52 45 20 41 4D  4F 55 4E 54 20 4F 46 20  |IGURE AMOUNT OF |
00000290: 50 41 59 4D 45 4E 54 22  3A 8D 36 31 30 30 30 00  |PAYMENT":.61000.|
000002A0: D3 0A F8 07 48 54 B2 33  3A 56 54 B2 37 3A 54 24  |....HT.3:VT.7:T$|
000002B0: B2 22 32 20 3D 20 46 49  47 55 52 45 20 41 4D 4F  |."2 = FIGURE AMO|
000002C0: 55 4E 54 20 4F 46 20 4C  4F 41 4E 22 3A 8D 36 31  |UNT OF LOAN":.61|
000002D0: 30 30 30 00 0C 0B 02 08  48 54 B2 33 3A 56 54 B2  |000.....HT.3:VT.|
000002E0: 39 3A 54 24 B2 22 33 20  3D 20 46 49 47 55 52 45  |9:T$."3 = FIGURE|
000002F0: 20 49 4E 54 45 52 45 53  54 20 52 41 54 45 20 28  | INTEREST RATE (|
00000300: 41 50 52 29 22 3A 8D 36  31 30 30 30 00 45 0B 0C  |APR)":.61000.E..|
00000310: 08 48 54 B2 33 3A 56 54  B2 31 31 3A 54 24 B2 22  |.HT.3:VT.11:T$."|
00000320: 34 20 3D 20 46 49 47 55  52 45 20 4E 55 4D 42 45  |4 = FIGURE NUMBE|
00000330: 52 20 4F 46 20 50 41 59  4D 45 4E 54 53 22 3A 8D  |R OF PAYMENTS":.|
00000340: 36 31 30 30 30 00 69 0B  16 08 48 54 B2 33 3A 56  |61000.i...HT.3:V|
00000350: 54 B2 31 33 3A 54 24 B2  22 35 20 3D 20 51 55 49  |T.13:T$."5 = QUI|
00000360: 54 22 3A 8D 36 31 30 30  30 00 A5 0B 2A 08 48 54  |T":.61000...*.HT|
00000370: B2 33 3A 56 54 B2 31 36  3A 54 24 B2 22 59 4F 55  |.3:VT.16:T$."YOU|
00000380: 52 20 43 48 4F 49 43 45  20 22 3A 8D 36 31 30 30  |R CHOICE ":.6100|
00000390: 30 3A 97 31 39 38 2C 30  3A 92 31 39 38 2C 31 3A  |0:.198,0:.198,1:|
000003A0: A1 52 24 3A 99 00 BD 0B  34 08 8B 52 24 B3 22 31  |.R$:....4..R$."1|
000003B0: 22 B0 52 24 B1 22 35 22  A7 32 30 39 30 00 C3 0B  |".R$."5".2090...|
000003C0: 3E 08 8E 00 DA 0B 88 13  8F 0A 41 4D 4F 55 4E 54  |>.........AMOUNT|
000003D0: 4F 46 50 41 59 4D 45 4E  54 0A 00 E3 0B 92 13 99  |OFPAYMENT.......|
000003E0: 22 93 22 00 16 0C 97 13  56 54 B2 31 3A 48 54 B2  |".".....VT.1:HT.|
000003F0: 31 31 3A 54 24 B2 22 41  4D 4F 55 4E 54 20 4F 46  |11:T$."AMOUNT OF|
00000400: 20 50 41 59 4D 45 4E 54  22 3A 20 20 20 20 20 20  | PAYMENT":      |
00000410: 8D 36 31 30 30 30 00 5B  0C 9C 13 56 54 B2 34 3A  |.61000.[...VT.4:|
00000420: 48 54 B2 31 3A 54 24 B2  22 41 4D 4F 55 4E 54 20  |HT.1:T$."AMOUNT |
00000430: 4F 46 20 4C 4F 41 4E 2E  2E 2E 2E 2E 2E 2E 2E 24  |OF LOAN........$|
00000440: 22 3A 8D 36 31 30 30 30  3A 44 57 B2 32 35 3A 8D  |":.61000:DW.25:.|
00000450: 31 35 3A 4C B2 C5 28 44  4C 24 29 00 9F 0C A6 13  |15:L..(DL$).....|
00000460: 56 54 B2 36 3A 48 54 B2  31 3A 54 24 B2 22 4E 55  |VT.6:HT.1:T$."NU|
00000470: 4D 42 45 52 20 4F 46 20  50 41 59 4D 45 4E 54 53  |MBER OF PAYMENTS|
00000480: 2E 2E 2E 2E 22 3A 8D 36  31 30 30 30 3A 44 57 B2  |....":.61000:DW.|
00000490: 32 35 3A 8D 31 35 3A 4E  B2 C5 28 44 4C 24 29 00  |25:.15:N..(DL$).|
000004A0: D7 0C B0 13 56 54 B2 38  3A 48 54 B2 31 3A 54 24  |....VT.8:HT.1:T$|
000004B0: B2 22 41 4E 4E 55 41 4C  20 50 45 52 43 45 4E 54  |."ANNUAL PERCENT|
000004C0: 41 47 45 20 52 41 54 45  22 3A 8D 36 31 30 30 30  |AGE RATE":.61000|
000004D0: 3A 99 3A 56 54 B2 39 00  13 0D B1 13 54 24 B2 22  |:.:VT.9.....T$."|
000004E0: 28 45 4E 54 45 52 20 2E  30 38 20 46 4F 52 20 38  |(ENTER .08 FOR 8|
000004F0: 25 29 2E 2E 2E 2E 22 3A  8D 36 31 30 30 30 3A 44  |%)....":.61000:D|
00000500: 57 B2 32 35 3A 8D 31 35  3A 49 B2 C5 28 44 4C 24  |W.25:.15:I..(DL$|
00000510: 29 3A 99 00 5D 0D BA 13  56 54 B2 31 31 3A 48 54  |):..]...VT.11:HT|
00000520: B2 31 3A 54 24 B2 22 4E  55 4D 42 45 52 20 4F 46  |.1:T$."NUMBER OF|
00000530: 20 50 41 59 4D 45 4E 54  53 22 3A 8D 36 31 30 30  | PAYMENTS":.6100|
00000540: 30 3A 54 24 B2 22 50 45  52 20 59 45 41 52 2E 2E  |0:T$."PER YEAR..|
00000550: 2E 2E 2E 2E 2E 2E 2E 2E  2E 2E 2E 2E 22 00 81 0D  |............"...|
00000560: BB 13 56 54 B2 31 32 3A  8D 36 31 30 30 30 3A 44  |..VT.12:.61000:D|
00000570: 57 B2 32 35 3A 8D 31 35  3A 4D B2 C5 28 44 4C 24  |W.25:.15:M..(DL$|
00000580: 29 00 8C 0D C4 13 50 52  B2 49 AD 4D 00 9B 0D CE  |).....PR.I.M....|
00000590: 13 41 B2 28 31 AA 50 52  29 AE 4E 00 AE 0D D8 13  |.A.(1.PR).N.....|
000005A0: 52 B2 4C AC 50 52 AD 28  31 AB 31 AD 41 29 00 C4  |R.L.PR.(1.1.A)..|
000005B0: 0D E2 13 52 B2 B5 28 52  AC 31 30 30 AA 2E 35 29  |...R..(R.100..5)|
000005C0: AD 31 30 30 00 CA 0D EC  13 8E 00 DE 0D 70 17 8F  |.100.........p..|
000005D0: 0A 41 4D 4F 55 4E 54 4F  46 4C 4F 41 4E 0A 00 E7  |.AMOUNTOFLOAN...|
000005E0: 0D 7A 17 99 22 93 22 00  1A 0E 84 17 48 54 B2 38  |.z..".".....HT.8|
000005F0: 3A 56 54 B2 31 3A 54 24  B2 22 50 52 45 53 45 4E  |:VT.1:T$."PRESEN|
00000600: 54 20 56 41 4C 55 45 20  4F 46 20 41 4E 4E 55 49  |T VALUE OF ANNUI|
00000610: 54 59 22 3A 8D 36 31 30  30 30 00 5F 0E 8E 17 56  |TY":.61000._...V|
00000620: 54 B2 34 3A 48 54 B2 31  3A 54 24 B2 22 41 4D 4F  |T.4:HT.1:T$."AMO|
00000630: 55 4E 54 20 4F 46 20 50  41 59 4D 45 4E 54 2E 2E  |UNT OF PAYMENT..|
00000640: 2E 2E 2E 24 22 3A 8D 36  31 30 30 30 3A 44 57 B2  |...$":.61000:DW.|
00000650: 32 35 3A 8D 31 35 3A 52  B2 C5 28 44 4C 24 29 00  |25:.15:R..(DL$).|
00000660: A4 0E 98 17 56 54 B2 36  3A 48 54 B2 31 3A 54 24  |....VT.6:HT.1:T$|
00000670: B2 22 4E 55 4D 42 45 52  20 4F 46 20 50 41 59 4D  |."NUMBER OF PAYM|
00000680: 45 4E 54 53 2E 2E 2E 2E  20 22 3A 8D 36 31 30 30  |ENTS.... ":.6100|
00000690: 30 3A 44 57 B2 32 35 3A  8D 31 35 3A 4E B2 C5 28  |0:DW.25:.15:N..(|
000006A0: 44 4C 24 29 00 DC 0E A2  17 56 54 B2 38 3A 48 54  |DL$).....VT.8:HT|
000006B0: B2 31 3A 54 24 B2 22 41  4E 4E 55 41 4C 20 50 45  |.1:T$."ANNUAL PE|
000006C0: 52 43 45 4E 54 41 47 45  20 52 41 54 45 22 3A 8D  |RCENTAGE RATE":.|
000006D0: 36 31 30 30 30 3A 99 3A  56 54 B2 39 00 18 0F A3  |61000:.:VT.9....|
000006E0: 17 54 24 B2 22 28 45 4E  54 45 52 20 2E 30 38 20  |.T$."(ENTER .08 |
000006F0: 46 4F 52 20 38 25 29 2E  2E 2E 2E 22 3A 8D 36 31  |FOR 8%)....":.61|
00000700: 30 30 30 3A 44 57 B2 32  35 3A 8D 31 35 3A 49 B2  |000:DW.25:.15:I.|
00000710: C5 28 44 4C 24 29 3A 99  00 62 0F AC 17 56 54 B2  |.(DL$):..b...VT.|
00000720: 31 31 3A 48 54 B2 31 3A  54 24 B2 22 4E 55 4D 42  |11:HT.1:T$."NUMB|
00000730: 45 52 20 4F 46 20 50 41  59 4D 45 4E 54 53 22 3A  |ER OF PAYMENTS":|
00000740: 8D 36 31 30 30 30 3A 54  24 B2 22 50 45 52 20 59  |.61000:T$."PER Y|
00000750: 45 41 52 2E 2E 2E 2E 2E  2E 2E 2E 2E 2E 2E 2E 2E  |EAR.............|
00000760: 2E 22 00 86 0F AD 17 56  54 B2 31 32 3A 8D 36 31  |.".....VT.12:.61|
00000770: 30 30 30 3A 44 57 B2 32  35 3A 8D 31 35 3A 4D B2  |000:DW.25:.15:M.|
00000780: C5 28 44 4C 24 29 00 91  0F B6 17 50 52 B2 49 AD  |.(DL$).....PR.I.|
00000790: 4D 00 A0 0F C0 17 41 B2  28 31 AA 50 52 29 AE 4E  |M.....A.(1.PR).N|
000007A0: 00 B5 0F CA 17 4C B2 52  AC 28 41 AB 31 29 AD 28  |.....L.R.(A.1).(|
000007B0: 41 AC 50 52 29 00 CB 0F  D4 17 4C B2 B5 28 4C AC  |A.PR).....L..(L.|
000007C0: 31 30 30 AA 2E 35 29 AD  31 30 30 00 D1 0F DE 17  |100..5).100.....|
000007D0: 8E 00 E4 0F 58 1B 8F 0A  49 4E 54 45 52 45 53 54  |....X...INTEREST|
000007E0: 52 41 54 45 00 EE 0F 5D  1B 58 B2 31 2E 31 00 F7  |RATE...].X.1.1..|
000007F0: 0F 62 1B 99 22 93 22 00  20 10 6C 1B 56 54 B2 31  |.b..".". .l.VT.1|
00000800: 3A 48 54 B2 31 33 3A 54  24 B2 22 49 4E 54 45 52  |:HT.13:T$."INTER|
00000810: 45 53 54 20 52 41 54 45  22 3A 8D 36 31 30 30 30  |EST RATE":.61000|
00000820: 00 65 10 76 1B 56 54 B2  34 3A 48 54 B2 31 3A 54  |.e.v.VT.4:HT.1:T|
00000830: 24 B2 22 41 4D 4F 55 4E  54 20 4F 46 20 4C 4F 41  |$."AMOUNT OF LOA|
00000840: 4E 2E 2E 2E 2E 2E 2E 2E  2E 24 22 3A 8D 36 31 30  |N........$":.610|
00000850: 30 30 3A 44 57 B2 32 35  3A 8D 31 35 3A 4C B2 C5  |00:DW.25:.15:L..|
00000860: 28 44 4C 24 29 00 AA 10  80 1B 56 54 B2 36 3A 48  |(DL$).....VT.6:H|
00000870: 54 B2 31 3A 54 24 B2 22  41 4D 4F 55 4E 54 20 4F  |T.1:T$."AMOUNT O|
00000880: 46 20 50 41 59 4D 45 4E  54 2E 2E 2E 2E 2E 24 22  |F PAYMENT.....$"|
00000890: 3A 8D 36 31 30 30 30 3A  44 57 B2 32 35 3A 8D 31  |:.61000:DW.25:.1|
000008A0: 35 3A 52 B2 C5 28 44 4C  24 29 00 EF 10 8A 1B 56  |5:R..(DL$).....V|
000008B0: 54 B2 38 3A 48 54 B2 31  3A 54 24 B2 22 4E 55 4D  |T.8:HT.1:T$."NUM|
000008C0: 42 45 52 20 4F 46 20 50  41 59 4D 45 4E 54 53 2E  |BER OF PAYMENTS.|
000008D0: 2E 2E 2E 20 22 3A 8D 36  31 30 30 30 3A 44 57 B2  |... ":.61000:DW.|
000008E0: 32 35 3A 8D 31 35 3A 4E  B2 C5 28 44 4C 24 29 00  |25:.15:N..(DL$).|
000008F0: 39 11 94 1B 56 54 B2 31  30 3A 48 54 B2 31 3A 54  |9...VT.10:HT.1:T|
00000900: 24 B2 22 4E 55 4D 42 45  52 20 4F 46 20 50 41 59  |$."NUMBER OF PAY|
00000910: 4D 45 4E 54 53 22 3A 8D  36 31 30 30 30 3A 54 24  |MENTS":.61000:T$|
00000920: B2 22 50 45 52 20 59 45  41 52 2E 2E 2E 2E 2E 2E  |."PER YEAR......|
00000930: 2E 2E 2E 2E 2E 2E 2E 2E  22 00 5D 11 95 1B 56 54  |........".]...VT|
00000940: B2 31 31 3A 8D 36 31 30  30 30 3A 44 57 B2 32 35  |.11:.61000:DW.25|
00000950: 3A 8D 31 35 3A 4D B2 C5  28 44 4C 24 29 00 6D 11  |:.15:M..(DL$).m.|
00000960: A8 1B 8B 4E AC 52 B3 4C  A7 37 31 35 30 00 8F 11  |...N.R.L.7150...|
00000970: B2 1B 46 B2 28 28 58 AE  4E 29 AB 31 29 AD 28 28  |..F.((X.N).1).((|
00000980: 58 AE 4E 29 AC 28 58 AB  31 29 29 AB 4C AD 52 00  |X.N).(X.1)).L.R.|
00000990: CF 11 BC 1B 41 31 B2 58  AE 4E 3A 46 50 52 49 4D  |....A1.X.N:FPRIM|
000009A0: 45 B2 28 4E AC 28 58 AB  31 29 29 AD 28 41 31 AC  |E.(N.(X.1)).(A1.|
000009B0: 58 29 AB 31 AA 31 AD 41  31 3A 46 50 52 49 4D 45  |X).1.1.A1:FPRIME|
000009C0: B2 46 50 52 49 4D 45 AD  28 58 AB 31 29 AE 32 00  |.FPRIME.(X.1).2.|
000009D0: E3 11 C6 1B 58 31 B2 58  AB 28 46 AD 46 50 52 49  |....X1.X.(F.FPRI|
000009E0: 4D 45 29 00 F7 11 CB 1B  8B 58 31 B3 31 A7 58 31  |ME)......X1.1.X1|
000009F0: B2 31 2E 30 30 30 31 00  11 12 D0 1B 8B B6 28 46  |.1.0001.......(F|
00000A00: 29 B1 2E 30 30 31 A7 58  B2 58 31 3A 89 37 30 39  |)..001.X.X1:.709|
00000A10: 30 00 1D 12 DA 1B 99 22  58 3D 22 58 31 00 43 12  |0......"X="X1.C.|
00000A20: E4 1B 50 52 B2 58 AB 31  3A 49 B2 50 52 AC 4D 3A  |..PR.X.1:I.PR.M:|
00000A30: 49 B2 B5 28 49 AC 31 30  30 30 AA 2E 35 29 AD 31  |I..(I.1000..5).1|
00000A40: 30 30 30 00 49 12 EE 1B  8E 00 61 12 40 1F 8F 0A  |000.I.....a.@...|
00000A50: 4E 55 4D 42 45 52 4F 46  50 41 59 4D 45 4E 54 53  |NUMBEROFPAYMENTS|
00000A60: 0A 00 6A 12 4A 1F 99 22  93 22 00 9D 12 54 1F 48  |..j.J.."."...T.H|
00000A70: 54 B2 31 31 3A 56 54 B2  31 3A 54 24 B2 22 4E 55  |T.11:VT.1:T$."NU|
00000A80: 4D 42 45 52 20 4F 46 20  50 41 59 4D 45 4E 54 53  |MBER OF PAYMENTS|
00000A90: 22 3A 20 20 20 20 20 8D  36 31 30 30 30 00 E2 12  |":     .61000...|
00000AA0: 5E 1F 56 54 B2 34 3A 48  54 B2 31 3A 54 24 B2 22  |^.VT.4:HT.1:T$."|
00000AB0: 41 4D 4F 55 4E 54 20 4F  46 20 4C 4F 41 4E 2E 2E  |AMOUNT OF LOAN..|
00000AC0: 2E 2E 2E 2E 2E 2E 24 22  3A 8D 36 31 30 30 30 3A  |......$":.61000:|
00000AD0: 44 57 B2 32 35 3A 8D 31  35 3A 4C B2 C5 28 44 4C  |DW.25:.15:L..(DL|
00000AE0: 24 29 00 27 13 68 1F 56  54 B2 36 3A 48 54 B2 31  |$).'.h.VT.6:HT.1|
00000AF0: 3A 54 24 B2 22 41 4D 4F  55 4E 54 20 4F 46 20 50  |:T$."AMOUNT OF P|
00000B00: 41 59 4D 45 4E 54 2E 2E  2E 2E 2E 24 22 3A 8D 36  |AYMENT.....$":.6|
00000B10: 31 30 30 30 3A 44 57 B2  32 35 3A 8D 31 35 3A 52  |1000:DW.25:.15:R|
00000B20: B2 C5 28 44 4C 24 29 00  62 13 72 1F 56 54 B2 38  |..(DL$).b.r.VT.8|
00000B30: 3A 48 54 B2 31 3A 54 24  B2 22 41 4E 4E 55 41 4C  |:HT.1:T$."ANNUAL|
00000B40: 20 50 45 52 43 45 4E 54  41 47 45 20 52 41 54 45  | PERCENTAGE RATE|
00000B50: 22 3A 8D 36 31 30 30 30  3A 56 54 B2 39 3A 48 54  |":.61000:VT.9:HT|
00000B60: B2 31 00 9C 13 73 1F 54  24 B2 22 28 45 4E 54 45  |.1...s.T$."(ENTE|
00000B70: 52 20 2E 30 38 20 46 4F  52 20 38 25 29 2E 2E 2E  |R .08 FOR 8%)...|
00000B80: 2E 22 3A 8D 36 31 30 30  30 3A 44 57 B2 32 35 3A  |.":.61000:DW.25:|
00000B90: 8D 31 35 3A 49 B2 C5 28  44 4C 24 29 00 E6 13 7C  |.15:I..(DL$)...||
00000BA0: 1F 56 54 B2 31 31 3A 48  54 B2 31 3A 54 24 B2 22  |.VT.11:HT.1:T$."|
00000BB0: 4E 55 4D 42 45 52 20 4F  46 20 50 41 59 4D 45 4E  |NUMBER OF PAYMEN|
00000BC0: 54 53 22 3A 8D 36 31 30  30 30 3A 54 24 B2 22 50  |TS":.61000:T$."P|
00000BD0: 45 52 20 59 45 41 52 2E  2E 2E 2E 2E 2E 2E 2E 2E  |ER YEAR.........|
00000BE0: 2E 2E 2E 2E 2E 22 00 0A  14 7D 1F 56 54 B2 31 32  |....."...}.VT.12|
00000BF0: 3A 8D 36 31 30 30 30 3A  44 57 B2 32 35 3A 8D 31  |:.61000:DW.25:.1|
00000C00: 35 3A 4D B2 C5 28 44 4C  24 29 00 16 14 81 1F 4E  |5:M..(DL$).....N|
00000C10: B2 31 30 AE 33 33 00 21  14 86 1F 50 52 B2 49 AD  |.10.33.!...PR.I.|
00000C20: 4D 00 35 14 8B 1F 8B 4C  AC 50 52 AD 52 B1 B2 31  |M.5....L.PR.R..1|
00000C30: A7 38 30 39 30 00 54 14  90 1F 4E B2 AB 28 BC 28  |.8090.T...N..(.(|
00000C40: 31 AB 28 4C AC 50 52 AD  52 29 29 29 AD BC 28 31  |1.(L.PR.R)))..(1|
00000C50: AA 50 52 29 00 5A 14 9A  1F 8E 00 65 14 28 23 8F  |.PR).Z.....e.(#.|
00000C60: 20 20 45 4E 44 00 70 14  3C 23 89 36 33 30 30 30  |  END.p.<#.63000|
00000C70: 00 76 14 46 23 3A 00 8A  14 10 27 8F 0A 50 52 49  |.v.F#:....'..PRI|
00000C80: 4E 54 52 45 53 55 4C 54  53 0A 00 93 14 1A 27 99  |NTRESULTS.....'.|
00000C90: 22 93 22 00 C6 14 24 27  48 54 B2 31 31 3A 56 54  |"."...$'HT.11:VT|
00000CA0: B2 32 3A 54 24 B2 22 4C  4F 41 4E 20 41 4D 4F 52  |.2:T$."LOAN AMOR|
00000CB0: 54 49 5A 41 54 49 4F 4E  22 3A 20 20 20 20 20 20  |TIZATION":      |
00000CC0: 8D 36 31 30 30 30 00 E2  14 29 27 4E 42 B2 4C 3A  |.61000...)'NB.L:|
00000CD0: 8D 32 30 30 30 30 3A 4E  42 24 B2 22 24 22 AA 4E  |.20000:NB$."$".N|
00000CE0: 42 24 00 16 15 2E 27 48  54 B2 31 3A 56 54 B2 35  |B$....'HT.1:VT.5|
00000CF0: 3A 54 24 B2 22 41 4D 4F  55 4E 54 20 4F 46 20 4C  |:T$."AMOUNT OF L|
00000D00: 4F 41 4E 2E 2E 2E 2E 2E  2E 2E 22 AA 4E 42 24 3A  |OAN.......".NB$:|
00000D10: 8D 36 31 30 30 30 00 32  15 33 27 4E 42 B2 52 3A  |.61000.2.3'NB.R:|
00000D20: 8D 32 30 30 30 30 3A 4E  42 24 B2 22 24 22 AA 4E  |.20000:NB$."$".N|
00000D30: 42 24 00 66 15 38 27 48  54 B2 31 3A 56 54 B2 37  |B$.f.8'HT.1:VT.7|
00000D40: 3A 54 24 B2 22 41 4D 4F  55 4E 54 20 4F 46 20 50  |:T$."AMOUNT OF P|
00000D50: 41 59 4D 45 4E 54 2E 2E  2E 2E 22 AA 4E 42 24 3A  |AYMENT....".NB$:|
00000D60: 8D 36 31 30 30 30 00 86  15 3D 27 4E 42 B2 49 AC  |.61000...='NB.I.|
00000D70: 31 30 30 3A 8D 32 30 30  30 30 3A 4E 42 24 B2 4E  |100:.20000:NB$.N|
00000D80: 42 24 AA 22 25 22 00 AE  15 3F 27 8B 4E AC 52 B3  |B$."%"...?'.N.R.|
00000D90: 4C A7 4E 42 24 B2 22 20  49 4D 50 4F 53 53 49 42  |L.NB$." IMPOSSIB|
00000DA0: 4C 45 22 3A 4F 56 45 52  46 4C 4F 57 B2 31 00 E3  |LE":OVERFLOW.1..|
00000DB0: 15 42 27 48 54 B2 31 3A  56 54 B2 39 3A 54 24 B2  |.B'HT.1:VT.9:T$.|
00000DC0: 22 41 4E 4E 55 41 4C 20  50 45 52 43 45 4E 54 41  |"ANNUAL PERCENTA|
00000DD0: 47 45 20 52 41 54 45 22  AA 4E 42 24 3A 8D 36 31  |GE RATE".NB$:.61|
00000DE0: 30 30 30 00 13 16 47 27  46 4C 41 47 B2 30 3A 8B  |000...G'FLAG.0:.|
00000DF0: 4C AC 50 52 AD 52 20 B1  B2 31 A7 46 4C 41 47 B2  |L.PR.R ..1.FLAG.|
00000E00: 31 3A 48 54 B2 32 3A 56  54 B2 31 31 3A 9E 36 35  |1:HT.2:VT.11:.65|
00000E10: 35 32 30 00 54 16 48 27  8B 46 4C 41 47 B2 31 A7  |520.T.H'.FLAG.1.|
00000E20: 99 3A 99 22 91 49 4D 50  4F 53 53 49 42 4C 45 20  |.:.".IMPOSSIBLE |
00000E30: 54 4F 20 50 41 59 20 4F  46 46 2E 2E 49 4E 43 52  |TO PAY OFF..INCR|
00000E40: 45 41 53 45 20 50 41 59  4D 45 4E 54 22 3A 89 31  |EASE PAYMENT":.1|
00000E50: 30 30 37 32 00 68 16 49  27 8B 4E B3 B1 B5 28 4E  |0072.h.I'.N...(N|
00000E60: 29 A7 4E B2 B5 28 4E 29  00 A5 16 4C 27 48 54 B2  |).N..(N)...L'HT.|
00000E70: 31 3A 56 54 B2 31 31 3A  54 24 B2 22 4E 55 4D 42  |1:VT.11:T$."NUMB|
00000E80: 45 52 20 4F 46 20 50 41  59 4D 45 4E 54 53 2E 2E  |ER OF PAYMENTS..|
00000E90: 2E 2E 20 20 20 20 20 20  22 AA C4 28 4E 29 3A 8D  |..      "..(N):.|
00000EA0: 36 31 30 30 30 00 BB 16  51 27 8B 4F 56 45 52 46  |61000...Q'.OVERF|
00000EB0: 4C 4F 57 B2 31 A7 31 30  30 37 32 00 F0 16 56 27  |LOW.1.10072...V'|
00000EC0: 56 54 B2 31 36 3A 48 54  B2 31 3A 54 24 B2 22 44  |VT.16:HT.1:T$."D|
00000ED0: 4F 20 59 4F 55 20 57 41  4E 54 20 54 4F 20 50 52  |O YOU WANT TO PR|
00000EE0: 49 4E 54 20 41 4E 22 3A  8D 36 31 30 30 30 3A 99  |INT AN":.61000:.|
00000EF0: 00 23 17 57 27 56 54 B2  31 37 3A 54 24 B2 22 41  |.#.W'VT.17:T$."A|
00000F00: 4D 4F 52 54 49 5A 41 54  49 4F 4E 20 53 43 48 45  |MORTIZATION SCHE|
00000F10: 44 55 4C 45 20 28 59 2F  4E 29 20 22 3A 8D 36 31  |DULE (Y/N) ":.61|
00000F20: 30 30 30 00 3B 17 58 27  97 31 39 38 2C 30 3A 92  |000.;.X'.198,0:.|
00000F30: 31 39 38 2C 31 3A A1 52  24 3A 99 00 41 17 74 27  |198,1:.R$:..A.t'|
00000F40: 8E 00 5D 17 F8 2A 8F 0A  41 4D 4F 52 54 49 5A 41  |..]..*..AMORTIZA|
00000F50: 54 49 4F 4E 53 43 48 45  44 55 4C 45 0A 00 68 17  |TIONSCHEDULE..h.|
00000F60: 02 2B 99 22 93 11 11 22  00 90 17 0C 2B 99 22 54  |.+."..."....+."T|
00000F70: 55 52 4E 20 4F 4E 20 50  52 49 4E 54 45 52 2E 20  |URN ON PRINTER. |
00000F80: 53 45 54 20 54 4F 50 20  4F 46 20 46 4F 52 4D 22  |SET TOP OF FORM"|
00000F90: 00 C4 17 11 2B 99 3A 99  22 50 52 45 53 53 20 52  |....+.:."PRESS R|
00000FA0: 45 54 55 52 4E 20 54 4F  20 43 4F 4E 54 49 4E 55  |ETURN TO CONTINU|
00000FB0: 45 2E 22 3B 3A 97 31 39  38 2C 30 3A 92 31 39 38  |E.";:.198,0:.198|
00000FC0: 2C 31 3A 99 00 D2 17 16  2B 9F 34 2C 34 2C 37 3A  |,1:.....+.4,4,7:|
00000FD0: 9D 34 00 F7 17 20 2B 99  22 4C 4F 41 44 53 54 41  |.4... +."LOADSTA|
00000FE0: 52 20 41 4D 4F 52 54 49  5A 41 54 49 4F 4E 20 50  |R AMORTIZATION P|
00000FF0: 52 4F 47 52 41 4D 22 00  1D 18 2A 2B 99 3A 99 22  |ROGRAM"...*+.:."|
00001000: 41 4D 4F 55 4E 54 20 4F  46 20 4C 4F 41 4E 20 20  |AMOUNT OF LOAN  |
00001010: 20 20 20 20 20 20 20 3A  20 24 22 3B 4C 00 40 18  |       : $";L.@.|
00001020: 34 2B 99 22 41 4E 4E 55  41 4C 20 50 45 52 43 45  |4+."ANNUAL PERCE|
00001030: 4E 54 41 47 45 20 52 41  54 45 20 3A 20 22 3B 49  |NTAGE RATE : ";I|
00001040: 00 68 18 3E 2B 99 22 4E  55 4D 42 45 52 20 4F 46  |.h.>+."NUMBER OF|
00001050: 20 50 41 59 4D 45 4E 54  53 20 20 20 20 20 3A 20  | PAYMENTS     : |
00001060: 22 3B B5 28 4E 29 AA 31  00 72 18 48 2B 99 3A 99  |";.(N).1.r.H+.:.|
00001070: 3A 99 00 B9 18 49 2B 41  24 B2 22 4E 4F 2E 20 20  |:....I+A$."NO.  |
00001080: 20 20 20 50 41 59 4D 45  4E 54 20 20 20 20 20 20  |   PAYMENT      |
00001090: 20 50 52 49 4E 43 49 50  41 4C 20 20 20 20 20 20  | PRINCIPAL      |
000010A0: 20 49 4E 54 45 52 45 53  54 20 20 20 20 20 54 4F  | INTEREST     TO|
000010B0: 54 41 4C 20 49 4E 54 2E  22 00 D8 18 4A 2B 41 24  |TAL INT."...J+A$|
000010C0: B2 41 24 AA 22 20 20 20  20 20 20 20 42 41 4C 41  |.A$."       BALA|
000010D0: 4E 43 45 22 3A 99 41 24  00 DE 18 4D 2B 99 00 EF  |NCE":.A$...M+...|
000010E0: 18 52 2B 50 B2 4C 3A 53  49 B2 30 3A 4A B2 31 00  |.R+P.L:SI.0:J.1.|
000010F0: 11 19 5C 2B 44 49 B2 50  52 AC 50 3A 44 B2 52 AB  |..\+DI.PR.P:D.R.|
00001100: 44 49 3A 53 49 B2 53 49  AA 44 49 3A 50 B2 50 AB  |DI:SI.SI.DI:P.P.|
00001110: 44 00 4F 19 61 2B 44 49  B2 B5 28 44 49 AC 31 30  |D.O.a+DI..(DI.10|
00001120: 30 AA 2E 30 35 29 AD 31  30 30 3A 20 20 20 20 20  |0..05).100:     |
00001130: 20 20 20 20 20 20 20 20  20 20 20 20 44 B2 20 B5  |            D. .|
00001140: 28 44 AC 31 30 30 AA 2E  30 35 29 AD 31 30 30 00  |(D.100..05).100.|
00001150: 8D 19 62 2B 53 49 B2 B5  28 53 49 AC 31 30 30 AA  |..b+SI..(SI.100.|
00001160: 2E 30 35 29 AD 31 30 30  3A 20 20 20 20 20 20 20  |.05).100:       |
00001170: 20 20 20 20 20 20 20 20  20 20 50 B2 20 B5 28 50  |          P. .(P|
00001180: AC 31 30 30 AA 2E 30 35  29 AD 31 30 30 00 9A 19  |.100..05).100...|
00001190: 63 2B 8B 50 B3 30 A7 50  B2 30 00 B9 19 66 2B 4E  |c+.P.0.P.0...f+N|
000011A0: 42 24 B2 C8 28 C4 28 4A  29 AA 22 20 20 20 20 22  |B$..(.(J)."    "|
000011B0: 2C 33 29 3A 99 4E 42 24  3B 00 D3 19 70 2B 4E 42  |,3):.NB$;...p+NB|
000011C0: B2 52 3A 8D 32 30 30 30  30 3A 99 4E 42 24 3B A6  |.R:.20000:.NB$;.|
000011D0: 32 29 3B 00 ED 19 7A 2B  4E 42 B2 44 3A 8D 32 30  |2);...z+NB.D:.20|
000011E0: 30 30 30 3A 99 4E 42 24  3B A6 32 29 3B 00 08 1A  |000:.NB$;.2);...|
000011F0: 84 2B 4E 42 B2 44 49 3A  8D 32 30 30 30 30 3A 99  |.+NB.DI:.20000:.|
00001200: 4E 42 24 3B A6 32 29 3B  00 23 1A 8E 2B 4E 42 B2  |NB$;.2);.#..+NB.|
00001210: 53 49 3A 8D 32 30 30 30  30 3A 99 4E 42 24 3B A6  |SI:.20000:.NB$;.|
00001220: 32 29 3B 00 38 1A 98 2B  4E 42 B2 50 3A 8D 32 30  |2);.8..+NB.P:.20|
00001230: 30 30 30 3A 99 4E 42 24  00 42 1A A2 2B 4A B2 4A  |000:.NB$.B..+J.J|
00001240: AA 31 00 52 1A AC 2B 8B  4A B3 B2 4E A7 31 31 31  |.1.R..+.J..N.111|
00001250: 30 30 00 63 1A B6 2B 98  34 3A 98 34 2C 22 0C 22  |00.c..+.4:.4,"."|
00001260: 3A A0 34 00 69 1A C0 2B  8E 00 82 1A 20 4E 8F 0A  |:.4.i..+.... N..|
00001270: 53 4F 46 54 59 27 53 50  52 49 4E 54 55 53 49 4E  |SOFTY'SPRINTUSIN|
00001280: 47 0A 00 9A 1A 2A 4E 8F  49 4D 49 54 41 54 45 53  |G....*N.IMITATES|
00001290: 50 52 49 4E 54 55 53 49  4E 47 00 B1 1A 3E 4E 8F  |PRINTUSING...>N.|
000012A0: 50 41 53 53 49 54 34 50  41 52 41 4D 45 54 45 52  |PASSIT4PARAMETER|
000012B0: 53 00 CB 1A 48 4E 8F 4E  44 3D 4D 41 58 4E 55 4D  |S...HN.ND=MAXNUM|
000012C0: 42 45 52 4F 46 44 49 47  49 54 53 00 E4 1A 52 4E  |BEROFDIGITS...RN|
000012D0: 8F 44 50 3D 4E 55 4D 42  45 52 4F 46 44 49 47 49  |.DP=NUMBEROFDIGI|
000012E0: 54 53 54 4F 00 F7 1A 5C  4E 8F 54 48 45 52 49 47  |TSTO...\N.THERIG|
000012F0: 48 54 4F 46 54 48 45 00  09 1B 66 4E 8F 44 45 43  |HTOFTHE...fN.DEC|
00001300: 49 4D 41 4C 50 4F 49 4E  54 00 1C 1B 70 4E 8F 43  |IMALPOINT...pN.C|
00001310: 4D 3D 31 49 46 59 4F 55  57 41 4E 54 00 28 1B 7A  |M=1IFYOUWANT.(.z|
00001320: 4E 8F 43 4F 4D 4D 41 53  00 3A 1B 84 4E 8F 3D 30  |N.COMMAS.:..N.=0|
00001330: 49 46 59 4F 55 44 4F 4E  27 54 00 4A 1B 8E 4E 8F  |IFYOUDON'T.J..N.|
00001340: 57 41 4E 54 43 4F 4D 4D  41 53 00 63 1B 98 4E 8F  |WANTCOMMAS.c..N.|
00001350: 4E 42 3D 4E 55 4D 42 45  52 54 4F 42 45 45 44 49  |NB=NUMBERTOBEEDI|
00001360: 54 45 44 00 69 1B A2 4E  8F 00 85 1B AC 4E 8F 45  |TED.i..N.....N.E|
00001370: 44 49 54 45 44 4E 55 4D  42 45 52 49 53 52 45 54  |DITEDNUMBERISRET|
00001380: 55 52 4E 45 44 00 99 1B  B6 4E 8F 49 4E 54 48 45  |URNED....N.INTHE|
00001390: 53 54 52 49 4E 47 4E 42  24 00 B7 1B C0 4E 8F 2D  |STRINGNB$....N.-|
000013A0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
000013B0: 2D 2D 2D 2D 2D 2D 2D 00  C0 1B D4 4E 4E 44 B2 39  |-------....NND.9|
000013C0: 00 C9 1B DE 4E 44 50 B2  32 00 D2 1B E8 4E 43 4D  |....NDP.2....NCM|
000013D0: B2 31 00 F0 1B 24 4F 8F  3D 3D 3D 3D 3D 3D 3D 3D  |.1...$O.========|
000013E0: 3D 3D 3D 3D 3D 3D 3D 3D  3D 3D 3D 3D 3D 3D 3D 3D  |================|
000013F0: 00 05 1C 2E 4F 8F 55 53  49 4E 47 53 55 42 52 4F  |....O.USINGSUBRO|
00001400: 55 54 49 4E 45 00 3E 1C  38 4F 53 50 24 B2 22 20  |UTINE.>.8OSP$." |
00001410: 20 20 20 20 20 20 20 22  3A 5A 53 24 B2 22 30 30  |       ":ZS$."00|
00001420: 30 30 30 30 30 30 22 3A  41 53 24 B2 22 2A 2A 2A  |000000":AS$."***|
00001430: 2A 2A 2A 2A 2A 22 3A 5A  B2 30 3A 57 B2 31 00 65  |*****":Z.0:W.1.e|
00001440: 1C 42 4F 4E 42 24 B2 C4  28 B5 28 28 4E 42 AA 28  |.BONB$..(.((NB.(|
00001450: 35 AD 31 30 AE 28 44 50  AA 57 29 29 29 AC 31 30  |5.10.(DP.W))).10|
00001460: AE 44 50 29 29 00 8B 1C  4C 4F 8B C8 28 4E 42 24  |.DP))...LO..(NB$|
00001470: 2C 57 29 B2 22 2D 22 A7  4E 42 24 B2 C9 28 4E 42  |,W)."-".NB$..(NB|
00001480: 24 2C C3 28 4E 42 24 29  AB 57 29 00 A8 1C 56 4F  |$,.(NB$).W)...VO|
00001490: 8B C3 28 4E 42 24 29 B1  4E 44 A7 4E 42 24 B2 C8  |..(NB$).ND.NB$..|
000014A0: 28 41 53 24 2C 4E 44 29  00 D3 1C 60 4F 4E 4E B2  |(AS$,ND)...`ONN.|
000014B0: 44 50 AA 57 AB C3 28 4E  42 24 29 3A 8B 4E 4E B1  |DP.W..(NB$):.NN.|
000014C0: 5A A7 4E 42 24 B2 C8 28  5A 53 24 2C 4E 4E 29 AA  |Z.NB$..(ZS$,NN).|
000014D0: 4E 42 24 00 FC 1C 6A 4F  4E 4E B2 4E 44 AB C3 28  |NB$...jONN.ND..(|
000014E0: 4E 42 24 29 3A 8B 4E 4E  B1 5A A7 4E 42 24 B2 C8  |NB$):.NN.Z.NB$..|
000014F0: 28 53 50 24 2C 4E 4E 29  AA 4E 42 24 00 25 1D 74  |(SP$,NN).NB$.%.t|
00001500: 4F 8B 44 50 B1 5A A7 4E  42 24 B2 C8 28 4E 42 24  |O.DP.Z.NB$..(NB$|
00001510: 2C 4E 44 AB 44 50 29 AA  22 2E 22 AA C9 28 4E 42  |,ND.DP)."."..(NB|
00001520: 24 2C 44 50 29 00 35 1D  7E 4F 8B 43 4D B2 5A 89  |$,DP).5.~O.CM.Z.|
00001530: 32 30 34 30 30 00 4F 1D  88 4F 4E 4E B2 4E 44 3A  |20400.O..ONN.ND:|
00001540: 8B 44 50 B3 B1 5A A7 4E  4E B2 4E 44 AB 44 50 00  |.DP..Z.NN.ND.DP.|
00001550: 67 1D 92 4F 4E 4E B2 4E  4E AB 33 3A 8B 4E 4E B3  |g..ONN.NN.3:.NN.|
00001560: 57 89 32 30 34 30 30 00  8C 1D 9C 4F 53 4E 24 B2  |W.20400....OSN$.|
00001570: 22 2C 22 3A 8B CA 28 4E  42 24 2C 4E 4E 2C 57 29  |",":..(NB$,NN,W)|
00001580: B2 22 20 22 A7 53 4E 24  B2 22 20 22 00 BA 1D A6  |." ".SN$." "....|
00001590: 4F 4E 42 24 B2 C8 28 4E  42 24 2C 4E 4E 29 AA 53  |ONB$..(NB$,NN).S|
000015A0: 4E 24 AA C9 28 4E 42 24  2C C3 28 4E 42 24 29 AB  |N$..(NB$,.(NB$).|
000015B0: 4E 4E 29 3A 89 32 30 33  37 30 00 D4 1D B0 4F 53  |NN):.20370....OS|
000015C0: 4E 24 B2 22 20 22 3A 8B  4E 42 B3 5A A7 53 4E 24  |N$." ":.NB.Z.SN$|
000015D0: B2 22 2D 22 00 E6 1D BA  4F 4E 42 24 B2 4E 42 24  |."-"....ONB$.NB$|
000015E0: AA 53 4E 24 3A 8E 00 25  1E 30 75 54 24 B2 22 20  |.SN$:..%.0uT$." |
000015F0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001600: 20 20 20 20 20 20 20 20  22 3A 43 B2 30 3A 43 24  |        ":C.0:C$|
00001610: B2 22 1C 05 22 3A 99 22  93 05 0E 22 3A 97 35 33  |."..":."...":.53|
00001620: 32 38 31 2C 30 00 55 1E  4E 75 99 A6 37 29 22 12  |281,0.U.Nu..7)".|
00001630: 22 54 24 3A 99 A6 37 29  22 12 20 20 CC CF C1 C4  |"T$:..7)".  ....|
00001640: D3 D4 C1 D2 20 C1 CD CF  D2 D4 C9 DA C1 D4 C9 CF  |.... ...........|
00001650: CE 20 20 92 22 00 6F 1E  63 75 99 A6 37 29 22 12  |.  .".o.cu..7)".|
00001660: 22 54 24 3A 99 3A 99 A3  31 38 29 22 42 59 22 00  |"T$:.:..18)"BY".|
00001670: 89 1E 6C 75 99 3A 99 A6  31 33 29 22 C1 4C 20 D6  |..lu.:..13)".L .|
00001680: 45 4B 4F 56 49 4F 55 53  22 00 B9 1E 71 75 99 3A  |EKOVIOUS"...qu.:|
00001690: 99 22 20 C3 4F 4E 56 45  52 54 45 44 20 54 4F 20  |." .ONVERTED TO |
000016A0: 54 48 45 20 C3 2D 36 34  20 42 59 20 C1 4C 41 4E  |THE .-64 BY .LAN|
000016B0: 20 C7 41 52 44 4E 45 52  22 00 D5 1E 76 75 99 3A  | .ARDNER"...vu.:|
000016C0: 99 A6 31 32 29 22 C3 4F  50 59 52 49 47 48 54 20  |..12)".OPYRIGHT |
000016D0: 31 39 38 35 22 00 06 1F  80 75 99 3A 99 3A 99 3A  |1985"....u.:.:.:|
000016E0: 99 22 20 20 20 20 20 CC  CF C1 C4 D3 D4 C1 D2 20  |."     ........ |
000016F0: 49 53 20 4E 4F 54 20 50  55 42 4C 49 43 20 44 4F  |IS NOT PUBLIC DO|
00001700: 4D 41 49 4E 2E 22 00 35  1F 8A 75 99 3A 99 22 20  |MAIN.".5..u.:." |
00001710: 20 D0 4C 45 41 53 45 20  52 45 53 50 45 43 54 20  | .LEASE RESPECT |
00001720: 54 48 45 20 41 55 54 48  4F 52 27 53 20 52 49 47  |THE AUTHOR'S RIG|
00001730: 48 54 53 2E 22 00 61 1F  94 75 99 3A 99 22 20 20  |HTS.".a..u.:."  |
00001740: 20 20 20 20 D0 52 45 53  53 20 53 50 41 43 45 20  |    .RESS SPACE |
00001750: 42 41 52 20 54 4F 20 43  4F 4E 54 49 4E 55 45 2E  |BAR TO CONTINUE.|
00001760: 22 00 80 1F 9E 75 81 43  43 B2 31 A4 34 38 3A A1  |"....u.CC.1.48:.|
00001770: 4B 24 3A 8B 4B 24 B2 22  20 22 A7 33 30 31 33 30  |K$:.K$." ".30130|
00001780: 00 A3 1F A8 75 8B 43 43  B2 31 A7 99 CA 28 43 24  |....u.CC.1...(C$|
00001790: 2C 43 AA 32 2C 31 29 22  91 91 22 3B 3A 43 B2 A8  |,C.2,1)"..";:C..|
000017A0: 28 43 29 00 B0 1F AD 75  82 3A 89 33 30 31 30 30  |(C)....u.:.30100|
000017B0: 00 C0 1F B2 75 99 43 24  C7 28 31 34 32 29 3A 8E  |....u.C$.(142):.|
000017C0: 00 C6 1F DC 9B 8E 00 D0  1F 60 EA 99 22 93 11 22  |.........`..".."|
000017D0: 00 F9 1F 6A EA 99 22 50  4C 45 41 53 45 20 55 53  |...j.."PLEASE US|
000017E0: 45 20 4D 4F 52 45 20 52  45 41 4C 49 53 54 49 43  |E MORE REALISTIC|
000017F0: 20 56 41 4C 55 45 53 2E  22 00 1B 20 74 EA 99 3A  | VALUES.".. t..:|
00001800: 99 22 50 52 45 53 53 20  53 50 41 43 45 20 54 4F  |."PRESS SPACE TO|
00001810: 20 43 4F 4E 54 49 4E 55  45 2E 22 00 32 20 7E EA  | CONTINUE.".2 ~.|
00001820: A1 4B 24 3A 8B 4B 24 B3  B1 22 20 22 A7 36 30 30  |.K$:.K$.." ".600|
00001830: 33 30 00 38 20 88 EA 8A  00 4C 20 48 EE 97 37 38  |30.8 ....L H..78|
00001840: 33 2C C2 28 37 38 33 29  AF 32 35 34 00 76 20 52  |3,.(783).254.v R|
00001850: EE 97 37 38 32 2C 48 54  3A 97 37 38 31 2C 56 54  |..782,HT:.781,VT|
00001860: 3A 9E 36 35 35 32 30 20  20 20 20 20 20 20 20 20  |:.65520         |
00001870: 20 3A 99 54 24 3B 00 7C  20 5C EE 8E 00 94 20 18  | :.T$;.| \.... .|
00001880: F6 8F 20 20 20 43 4F 4E  4E 45 43 54 20 54 4F 20  |..   CONNECT TO |
00001890: 4C 2E 53 2E 00 C5 20 22  F6 99 22 93 11 11 11 4C  |L.S... ".."....L|
000018A0: 4F 41 44 22 C7 28 33 34  29 22 48 45 4C 4C 4F 22  |OAD".(34)"HELLO"|
000018B0: C7 28 33 34 29 22 2C 38  22 3A 99 22 11 11 11 11  |.(34)",8":."....|
000018C0: 52 55 4E 13 22 00 EA 20  2C F6 97 36 33 31 2C 31  |RUN.".. ,..631,1|
000018D0: 33 3A 97 36 33 32 2C 31  33 3A 97 31 39 38 2C 32  |3:.632,13:.198,2|
000018E0: 3A 20 20 20 20 20 20 20  20 80 00 00 00           |:        ....   |
.......90.....DL$."":DB$.".".U...HT.C(DL
$).DW:T$."":.61000:        .198,0:.198,1
:.DK$.Q....DK$.G(13).C(DL$)..1.65......C
(DL$).10..DK$..DB$.20...#..DK$.DB$..70:.
60...(..DK$."+"..DL$."".DL$.DK$...-..DK$
."-"..DL$."".DL$.DK$...2..DK$.".".DL$.DL
$.DK$...7..DK$."0".DK$."9".DK$."".=.<.DL
$.DL$.DK$:HT.DW:T$.DL$:.61000:    .20.C.
A...\.F..C(DL$).2.DL$."":.80.T.K.DL$.H(D
L$,C(DL$).1)...P.HT.DW:T$.DL$." ".DB$:.6
1000...U.DK$.""...W.....Z..30000...D...M
AIN..F....2000......E(R$).5000,6000,7000
,8000,9000......10000... ..R$."Y"..11000
...H..100...P...MENU..&.Z..".".5...OVERF
LOW.0.H...HT.11:VT.2:T$."AMORTIZATION ME
NU":      .61000.....HT.3:VT.5:T$."1 = F
IGURE AMOUNT OF PAYMENT":.61000.S...HT.3
:VT.7:T$."2 = FIGURE AMOUNT OF LOAN":.61
000.....HT.3:VT.9:T$."3 = FIGURE INTERES
T RATE (APR)":.61000.E...HT.3:VT.11:T$."
4 = FIGURE NUMBER OF PAYMENTS":.61000.I.
..HT.3:VT.13:T$."5 = QUIT":.61000...*.HT
.3:VT.16:T$."YOUR CHOICE ":.61000:.198,0
:.198,1:.R$:....4..R$."1".R$."5".2090.C.
>...Z.....AMOUNTOFPAYMENT.......".".....
VT.1:HT.11:T$."AMOUNT OF PAYMENT":      
.61000.[...VT.4:HT.1:T$."AMOUNT OF LOAN.
.......$":.61000:DW.25:.15:L.E(DL$).....
VT.6:HT.1:T$."NUMBER OF PAYMENTS....":.6
1000:DW.25:.15:N.E(DL$).W...VT.8:HT.1:T$
."ANNUAL PERCENTAGE RATE":.61000:.:VT.9.
....T$."(ENTER .08 FOR 8%)....":.61000:D
W.25:.15:I.E(DL$):..]...VT.11:HT.1:T$."N
UMBER OF PAYMENTS":.61000:T$."PER YEAR..
............".....VT.12:.61000:DW.25:.15
:M.E(DL$)...D.PR.I.M...N.A.(1.PR).N...X.
R.L.PR.(1.1.A).D...R..(R.100..5).100.J..
.....P...AMOUNTOFLOAN....Z..".".....HT.8
:VT.1:T$."PRESENT VALUE OF ANNUITY":.610
00._...VT.4:HT.1:T$."AMOUNT OF PAYMENT..
...$":.61000:DW.25:.15:R.E(DL$).....VT.6
:HT.1:T$."NUMBER OF PAYMENTS.... ":.6100
0:DW.25:.15:N.E(DL$).....VT.8:HT.1:T$."A
NNUAL PERCENTAGE RATE":.61000:.:VT.9....
.T$."(ENTER .08 FOR 8%)....":.61000:DW.2
5:.15:I.E(DL$):..B...VT.11:HT.1:T$."NUMB
ER OF PAYMENTS":.61000:T$."PER YEAR.....
.........".....VT.12:.61000:DW.25:.15:M.
E(DL$).....PR.I.M. ...A.(1.PR).N...J.L.R
.(A.1).(A.PR).K.T.L..(L.100..5).100.Q...
....X...INTERESTRATE...].X.1.1...B..".".
 .L.VT.1:HT.13:T$."INTEREST RATE":.61000
.E.V.VT.4:HT.1:T$."AMOUNT OF LOAN.......
.$":.61000:DW.25:.15:L.E(DL$).....VT.6:H
T.1:T$."AMOUNT OF PAYMENT.....$":.61000:
DW.25:.15:R.E(DL$).....VT.8:HT.1:T$."NUM
BER OF PAYMENTS.... ":.61000:DW.25:.15:N
.E(DL$).9...VT.10:HT.1:T$."NUMBER OF PAY
MENTS":.61000:T$."PER YEAR..............
".]...VT.11:.61000:DW.25:.15:M.E(DL$).M.
...N.R.L.7150.....F.((X.N).1).((X.N).(X.
1)).L.R.O...A1.X.N:FPRIME.(N.(X.1)).(A1.
X).1.1.A1:FPRIME.FPRIME.(X.1).2...F.X1.X
.(F.FPRIME)...K..X1.1.X1.1.0001...P...(F
)..001.X.X1:.7090...Z.."X="X1.C...PR.X.1
:I.PR.M:I..(I.1000..5).1000.I.....A.@...
NUMBEROFPAYMENTS..J.J.."."...T.HT.11:VT.
1:T$."NUMBER OF PAYMENTS":     .61000...
^.VT.4:HT.1:T$."AMOUNT OF LOAN........$"
:.61000:DW.25:.15:L.E(DL$).'.H.VT.6:HT.1
:T$."AMOUNT OF PAYMENT.....$":.61000:DW.
25:.15:R.E(DL$).B.R.VT.8:HT.1:T$."ANNUAL
 PERCENTAGE RATE":.61000:VT.9:HT.1...S.T
$."(ENTER .08 FOR 8%)....":.61000:DW.25:
.15:I.E(DL$)...|.VT.11:HT.1:T$."NUMBER O
F PAYMENTS":.61000:T$."PER YEAR.........
....."...}.VT.12:.61000:DW.25:.15:M.E(DL
$).....N.10.33.!...PR.I.M.5....L.PR.R..1
.8090.T...N..(.(1.(L.PR.R)))..(1.PR).Z..
...E.(#.  END.P.<#.63000.V.F#:....'..PRI
NTRESULTS.....'.".".F.$'HT.11:VT.2:T$."L
OAN AMORTIZATION":      .61000...)'NB.L:
.20000:NB$."$".NB$....'HT.1:VT.5:T$."AMO
UNT OF LOAN.......".NB$:.61000.2.3'NB.R:
.20000:NB$."$".NB$.F.8'HT.1:VT.7:T$."AMO
UNT OF PAYMENT....".NB$:.61000...='NB.I.
100:.20000:NB$.NB$."%"...?'.N.R.L.NB$." 
IMPOSSIBLE":OVERFLOW.1...B'HT.1:VT.9:T$.
"ANNUAL PERCENTAGE RATE".NB$:.61000...G'
FLAG.0:.L.PR.R ..1.FLAG.1:HT.2:VT.11:.65
520.T.H'.FLAG.1..:.".IMPOSSIBLE TO PAY O
FF..INCREASE PAYMENT":.10072.H.I'.N...(N
).N..(N)...L'HT.1:VT.11:T$."NUMBER OF PA
YMENTS....      ".D(N):.61000...Q'.OVERF
LOW.1.10072...V'VT.16:HT.1:T$."DO YOU WA
NT TO PRINT AN":.61000:..#.W'VT.17:T$."A
MORTIZATION SCHEDULE (Y/N) ":.61000.;.X'
.198,0:.198,1:.R$:..A.T'..]..*..AMORTIZA
TIONSCHEDULE..H..+."..."....+."TURN ON P
RINTER. SET TOP OF FORM".D..+.:."PRESS R
ETURN TO CONTINUE.";:.198,0:.198,1:..R..
+.4,4,7:.4... +."LOADSTAR AMORTIZATION P
ROGRAM"...*+.:."AMOUNT OF LOAN         :
 $";L.@.4+."ANNUAL PERCENTAGE RATE : ";I
.H.>+."NUMBER OF PAYMENTS     : ";.(N).1
.R.H+.:.:....I+A$."NO.     PAYMENT      
 PRINCIPAL       INTEREST     TOTAL INT.
".X.J+A$.A$."       BALANCE":.A$...M+...
.R+P.L:SI.0:J.1...\+DI.PR.P:D.R.DI:SI.SI
.DI:P.P.D.O.A+DI..(DI.100..05).100:     
            D. .(D.100..05).100...B+SI..
(SI.100..05).100:                 P. .(P
.100..05).100...C+.P.0.P.0...F+NB$.H(D(J
)."    ",3):.NB$;.S.P+NB.R:.20000:.NB$;.
2);...Z+NB.D:.20000:.NB$;.2);....+NB.DI:
.20000:.NB$;.2);.#..+NB.SI:.20000:.NB$;.
2);.8..+NB.P:.20000:.NB$.B..+J.J.1.R..+.
J..N.11100.C..+.4:.4,".": 4.I..+.... N..
SOFTY'SPRINTUSING....*N.IMITATESPRINTUSI
NG...>N.PASSIT4PARAMETERS.K.HN.ND=MAXNUM
BEROFDIGITS...RN.DP=NUMBEROFDIGITSTO...\
N.THERIGHTOFTHE...FN.DECIMALPOINT...PN.C
M=1IFYOUWANT.(.ZN.COMMAS.:..N.=0IFYOUDON
'T.J..N.WANTCOMMAS.C..N.NB=NUMBERTOBEEDI
TED.I..N.....N.EDITEDNUMBERISRETURNED...
.N.INTHESTRINGNB$....N.-----------------
-------...TNND.9.I..NDP.2.R..NCM.1...$O.
========================....O.USINGSUBRO
UTINE.>.8OSP$."        ":ZS$."00000000":
AS$."********":Z.0:W.1.E.BONB$.D(.((NB.(
5.10.(DP.W))).10.DP))...LO.H(NB$,W)."-".
NB$.I(NB$,C(NB$).W)...VO.C(NB$).ND.NB$.H
(AS$,ND).S.`ONN.DP.W.C(NB$):.NN.Z.NB$.H(
ZS$,NN).NB$...JONN.ND.C(NB$):.NN.Z.NB$.H
(SP$,NN).NB$.%.TO.DP.Z.NB$.H(NB$,ND.DP).
".".I(NB$,DP).5.~O.CM.Z.20400.O..ONN.ND:
.DP..Z.NN.ND.DP.G..ONN.NN.3:.NN.W.20400.
...OSN$.",":.J(NB$,NN,W)." ".SN$." "....
ONB$.H(NB$,NN).SN$.I(NB$,C(NB$).NN):.203
70.T..OSN$." ":.NB.Z.SN$."-"....ONB$.NB$
.SN$:..%.0UT$."                         
":C.0:C$."..":."...":.53281,0.U.NU..7)".
"T$:..7)".  LOADSTAR AMORTIZATION  .".O.
CU..7)"."T$:.:..18)"BY"...LU.:..13)"AL V
EKOVIOUS"...QU.:." CONVERTED TO THE C-64
 BY ALAN GARDNER".U.VU.:..12)"COPYRIGHT 
1985"....U.:.:.:."     LOADSTAR IS NOT P
UBLIC DOMAIN.".5..U.:."  PLEASE RESPECT 
THE AUTHOR'S RIGHTS.".A..U.:."      PRES
S SPACE BAR TO CONTINUE."....U.CC.1.48:.
K$:.K$." ".30130....U.CC.1..J(C$,C.2,1)"
..";:C..(C)....U.:.30100....U.C$G(142):.
.F.....P.`..".."...J.."PLEASE USE MORE R
EALISTIC VALUES.".. T..:."PRESS SPACE TO
 CONTINUE.".2 ~..K$:.K$.." ".60030.8 ...
.L H..783,B(783).254.V R..782,HT:.781,VT
:.65520          :.T$;.| \.... ...   CON
NECT TO L.S..E ".."....LOAD"G(34)"HELLO"
G(34)",8":."....RUN.".. ,..631,13:.632,1
3:.198,2:        ....
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL