AMORT TABLE
FILE INFORMATION
FILENAME(S): AMORT TABLE
FILE TYPE(S): PRG
FILE SIZE: 9.6K
FIRST SEEN: 2025-11-30 19:36:52
APPEARS ON: 1 disk(s)
FILE HASH
22a23fbe8cc3f6d6e6303eced88cbea4d4f86fa5f0743801fc1336f7da53aad5
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 STARTER KIT | AMORT TABLE | PRG | Curtcool, Bo | 29 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0A 08 01 00 89 39 31 30 00 2A 08 02 00 8F |.......910.*....|
00000010: 20 2A 2A 20 4D 4C 20 53 54 4F 50 20 4B 45 59 20 | ** ML STOP KEY |
00000020: 44 49 53 41 42 4C 45 20 2A 2A 00 55 08 03 00 99 |DISABLE **.U....|
00000030: 22 78 A9 3D 8D 14 03 A9 08 8D 15 03 58 60 20 EA |"x.=........X` .|
00000040: FF A9 FF 85 91 4C 34 EA 78 A9 31 8D 14 03 A9 EA |.....L4.x.1.....|
00000050: 8D 15 03 58 60 00 74 08 04 00 99 22 78 68 68 68 |...X`.t...."xhhh|
00000060: AA 68 A8 68 68 68 68 68 68 68 98 48 8A 48 58 60 |.h.hhhhhhh.H.HX`|
00000070: 31 31 31 22 00 85 08 05 00 99 22 68 68 68 68 68 |111"......"hhhhh|
00000080: 68 68 60 31 22 00 A7 08 06 00 8F 20 2A 2A 20 34 |hh`1"...... ** 4|
00000090: 20 2D 20 50 4F 50 20 4D 4C 20 53 55 42 52 4F 55 | - POP ML SUBROU|
000000A0: 54 49 4E 45 20 2A 2A 00 C8 08 0A 00 8F 20 2A 2A |TINE **...... **|
000000B0: 47 45 4E 45 52 41 4C 20 49 4E 50 55 54 20 52 4F |GENERAL INPUT RO|
000000C0: 55 54 49 4E 45 20 2A 2A 00 CE 08 0F 00 3A 00 D4 |UTINE **.....:..|
000000D0: 08 1E 00 3A 00 F0 08 23 00 8F 20 2B 2B 2B 20 49 |...:...#.. +++ I|
000000E0: 4E 50 55 54 20 53 45 43 54 49 4F 4E 20 2B 2B 2B |NPUT SECTION +++|
000000F0: 00 08 09 28 00 97 55 4F 2C 30 3A 55 52 24 B2 22 |...(..UO,0:UR$."|
00000100: 22 3A 55 49 24 B2 22 22 00 18 09 2A 00 8B 55 4C |":UI$.""...*..UL|
00000110: B2 30 A7 55 4C B2 38 30 00 22 09 2D 00 97 55 43 |.0.UL.80.".-..UC|
00000120: 2C 30 00 36 09 32 00 A1 55 49 24 3A 8B 55 49 24 |,0.6.2..UI$:.UI$|
00000130: B2 22 22 A7 35 30 00 60 09 37 00 8B 55 49 24 B2 |."".50.`.7..UI$.|
00000140: C7 28 31 33 29 AF C3 28 55 52 24 29 B1 B2 31 A7 |.(13)..(UR$)..1.|
00000150: 97 55 43 2C 31 3A 99 22 20 9D 22 3B 3A 89 38 35 |.UC,1:." .";:.85|
00000160: 00 73 09 3C 00 8B 55 49 24 B2 C7 28 32 30 29 A7 |.s.<..UI$..(20).|
00000170: 31 30 35 00 87 09 3E 00 8B 20 C3 28 55 52 24 29 |105...>.. .(UR$)|
00000180: B2 B1 55 4C A7 35 30 00 AC 09 41 00 8D 31 32 30 |..UL.50...A..120|
00000190: 3A 8F 20 43 48 45 43 4B 20 46 4F 52 20 56 41 4C |:. CHECK FOR VAL|
000001A0: 49 44 20 43 48 41 52 41 43 54 45 52 00 BC 09 46 |ID CHARACTER...F|
000001B0: 00 55 52 24 B2 55 52 24 AA 55 49 24 00 C6 09 4B |.UR$.UR$.UI$...K|
000001C0: 00 99 55 49 24 3B 00 CE 09 50 00 89 35 30 00 F3 |..UI$;...P..50..|
000001D0: 09 55 00 8F 20 2B 2B 2B 20 43 48 45 43 4B 20 46 |.U.. +++ CHECK F|
000001E0: 4F 52 20 48 45 4C 50 20 52 45 51 55 45 53 54 20 |OR HELP REQUEST |
000001F0: 2B 2B 2B 00 1B 0A 5A 00 8B 55 52 24 B2 55 58 24 |+++...Z..UR$.UX$|
00000200: A7 31 39 35 3A 8F 20 45 58 49 54 20 54 4F 20 48 |.195:. EXIT TO H|
00000210: 45 4C 50 20 52 4F 55 54 49 4E 45 00 2A 0A 5F 00 |ELP ROUTINE.*._.|
00000220: 8B 55 46 B2 31 A7 8D 32 34 30 00 37 0A 64 00 55 |.UF.1..240.7.d.U|
00000230: 46 B2 30 3A 99 3A 8E 00 50 0A 66 00 8F 20 2B 2B |F.0:.:..P.f.. ++|
00000240: 20 43 48 45 43 4B 20 44 45 4C 45 54 45 20 2B 2B | CHECK DELETE ++|
00000250: 00 61 0A 69 00 8B C3 28 55 52 24 29 B3 31 A7 35 |.a.i...(UR$).1.5|
00000260: 30 00 79 0A 6E 00 55 52 24 B2 C8 28 55 52 24 2C |0.y.n.UR$..(UR$,|
00000270: C3 28 55 52 24 29 AB 31 29 00 8B 0A 73 00 99 22 |.(UR$).1)...s.."|
00000280: 9D 20 20 9D 9D 22 3B 3A 89 35 30 00 B2 0A 78 00 |. ..";:.50...x.|
00000290: 8F 20 2B 2B 20 43 48 45 43 4B 20 46 4F 52 20 56 |. ++ CHECK FOR V|
000002A0: 41 4C 49 44 20 43 48 41 52 41 43 54 45 52 53 20 |ALID CHARACTERS |
000002B0: 2B 2B 00 C4 0A 7D 00 8B C3 28 55 53 24 29 B2 30 |++...}...(US$).0|
000002C0: A7 31 35 30 00 D5 0A 82 00 81 55 53 B2 31 A4 C3 |.150......US.1..|
000002D0: 28 55 53 24 29 00 EC 0A 87 00 8B 55 49 24 B2 CA |(US$)......UI$..|
000002E0: 28 55 53 24 2C 55 53 2C 31 29 A7 8E 00 F2 0A 8C |(US$,US,1)......|
000002F0: 00 82 00 FF 0A 91 00 55 49 24 B2 22 22 3A 8E 00 |.......UI$."":..|
00000300: 1A 0B 96 00 8F 20 2A 2A 20 53 54 41 4E 44 41 52 |..... ** STANDAR|
00000310: 44 20 49 4E 50 55 54 20 2A 2A 00 2B 0B 98 00 8B |D INPUT **.+....|
00000320: C6 28 55 49 24 29 B2 34 36 A7 8E 00 3C 0B 9B 00 |.(UI$).46...<...|
00000330: 8B 55 49 24 B2 C7 28 33 32 29 A7 8E 00 59 0B A0 |.UI$..(32)...Y..|
00000340: 00 8B C6 28 55 49 24 29 B3 34 38 B0 C6 28 55 49 |...(UI$).48..(UI|
00000350: 24 29 B1 35 37 A7 31 37 30 00 5F 0B A5 00 8E 00 |$).57.170._.....|
00000360: 7C 0B AA 00 8B C6 28 55 49 24 29 B3 36 35 B0 C6 ||.....(UI$).65..|
00000370: 28 55 49 24 29 B1 39 30 A7 31 38 30 00 82 0B AF |(UI$).90.180....|
00000380: 00 8E 00 A6 0B B4 00 8B C6 28 55 49 24 29 B3 31 |.........(UI$).1|
00000390: 39 33 B0 C6 28 55 49 24 29 B1 32 31 38 A7 55 49 |93..(UI$).218.UI|
000003A0: 24 B2 22 22 3A 8E 00 C9 0B B9 00 8B C2 28 55 54 |$."":........(UT|
000003B0: 29 B2 55 55 25 A7 55 49 24 B2 C7 28 C6 28 55 49 |).UU%.UI$..(.(UI|
000003C0: 24 29 AB 31 32 38 29 3A 8E 00 CF 0B BB 00 8E 00 |$).128):........|
000003D0: DC 0B BE 00 55 49 24 B2 22 22 3A 8E 00 01 0C C3 |....UI$."":.....|
000003E0: 00 55 46 B2 31 3A 8F 20 2B 2B 2B 20 48 45 4C 50 |.UF.1:. +++ HELP|
000003F0: 20 52 4F 55 54 49 4E 45 20 45 58 49 54 20 2B 2B | ROUTINE EXIT ++|
00000400: 2B 00 0A 0C C5 00 8D 32 35 30 00 13 0C C8 00 8D |+......250......|
00000410: 32 34 35 00 32 0C CD 00 81 55 51 B2 55 42 A4 28 |245.2....UQ.UB.(|
00000420: 55 32 25 AC 32 35 36 AA 55 31 25 AA 55 33 25 AB |U2%.256.U1%.U3%.|
00000430: 32 29 00 4E 0C D2 00 55 51 25 28 55 51 AB 55 42 |2).N...UQ%(UQ.UB|
00000440: 29 B2 C2 28 55 51 29 3A 82 3A 99 22 93 22 00 61 |)..(UQ):.:.".".a|
00000450: 0C D7 00 55 5A B2 31 3A 55 56 25 B2 C2 28 55 54 |...UZ.1:UV%..(UT|
00000460: 29 00 6A 0C D8 00 89 33 30 30 00 AE 0C D9 00 55 |).j....300.....U|
00000470: 5A B2 30 3A 55 53 24 B2 55 4A 24 3A 55 47 24 B2 |Z.0:US$.UJ$:UG$.|
00000480: 55 4B 24 3A 55 50 B2 55 4A 3A 55 4C B2 55 4B 3A |UK$:UP.UJ:UL.UK:|
00000490: 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 |..(50003).0..532|
000004A0: 38 31 2C 36 3A 97 35 33 32 38 30 2C 31 34 00 E3 |81,6:.53280,14..|
000004B0: 0C DC 00 55 54 24 B2 55 4C 24 3A 99 22 93 22 3B |...UT$.UL$:.".";|
000004C0: 3A 97 55 54 2C 55 56 25 3A 81 55 51 B2 55 42 A4 |:.UT,UV%:.UQ.UB.|
000004D0: 28 55 32 25 AC 32 35 36 AA 55 31 25 AA 55 33 25 |(U2%.256.U1%.U3%|
000004E0: AB 33 29 00 F8 0C E1 00 97 55 51 2C 55 51 25 28 |.3)......UQ,UQ%(|
000004F0: 55 51 AB 55 42 29 3A 82 00 04 0D E6 00 97 55 31 |UQ.UB):.......U1|
00000500: 2C 55 31 25 00 10 0D E8 00 97 55 32 2C 55 32 25 |,U1%......U2,U2%|
00000510: 00 1C 0D E9 00 97 55 34 2C 55 34 25 00 2A 0D EA |......U4,U4%.*..|
00000520: 00 97 55 33 2C 55 33 25 AB 31 00 32 0D EB 00 89 |..U3,U3%.1.2....|
00000530: 33 35 00 64 0D F0 00 55 44 25 B2 28 28 55 32 25 |35.d...UD%.((U2%|
00000540: AC 32 35 36 AA 55 31 25 AA 55 33 25 29 AB 55 42 |.256.U1%.U3%).UB|
00000550: 29 AD 34 30 3A 99 C8 28 55 44 24 2C 55 44 25 AA |).40:..(UD$,UD%.|
00000560: 31 29 3A 8E 00 9F 0D F5 00 99 C8 28 55 44 24 2C |1):........(UD$,|
00000570: 32 34 29 3B 22 20 20 20 20 20 20 20 20 20 20 20 |24);" |
00000580: 20 20 20 20 20 20 20 20 20 20 20 12 20 48 45 4C | . HEL|
00000590: 50 20 43 4F 4D 49 4E 47 20 92 20 20 22 3A 8E 00 |P COMING . ":..|
000005A0: CB 0D FA 00 55 31 25 B2 C2 28 55 31 29 3A 55 32 |....U1%..(U1):U2|
000005B0: 25 B2 C2 28 55 32 29 3A 55 33 25 B2 C2 28 55 33 |%..(U2):U3%..(U3|
000005C0: 29 3A 55 34 25 B2 C2 28 55 34 29 00 F3 0D FB 00 |):U4%..(U4).....|
000005D0: 55 4A 24 B2 55 53 24 3A 55 4B 24 B2 55 47 24 3A |UJ$.US$:UK$.UG$:|
000005E0: 55 4C 24 B2 55 54 24 3A 55 4A B2 55 50 3A 55 4B |UL$.UT$:UJ.UP:UK|
000005F0: B2 55 4C 00 F9 0D FF 00 8E 00 0A 0E 2C 01 8F 20 |.UL.........,.. |
00000600: 2A 2A 20 4D 45 4E 55 20 2A 2A 00 10 0E 2D 01 3A |** MENU **...-.:|
00000610: 00 3F 0E 2E 01 99 22 93 22 3A 97 55 54 2C 55 55 |.?....".":.UT,UU|
00000620: 25 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 |%:..(50003).0..5|
00000630: 33 32 38 31 2C 39 3A 97 35 33 32 38 30 2C 38 00 |3281,9:.53280,8.|
00000640: 45 0E 2F 01 3A 00 62 0E 31 01 99 22 13 20 20 20 |E./.:.b.1..". |
00000650: 20 20 20 20 20 20 20 20 20 20 20 20 20 4D 45 4E | MEN|
00000660: 55 22 00 91 0E 36 01 99 22 20 2D 2D 2D 2D 2D 2D |U"...6.." ------|
00000670: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000680: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000690: 22 00 B9 0E 3B 01 99 22 11 11 20 20 20 20 20 20 |"...;..".. |
000006A0: 20 31 2E 20 20 20 42 45 47 49 4E 20 41 4D 4F 52 | 1. BEGIN AMOR|
000006B0: 54 49 5A 41 54 49 4F 4E 22 00 E3 0E 40 01 99 22 |TIZATION"...@.."|
000006C0: 11 11 20 20 20 20 20 20 20 32 2E 20 20 20 53 54 |.. 2. ST|
000006D0: 55 44 45 4E 54 20 49 4E 53 54 52 55 43 54 49 4F |UDENT INSTRUCTIO|
000006E0: 4E 53 22 00 0D 0F 45 01 99 22 11 11 20 20 20 20 |NS"...E..".. |
000006F0: 20 20 20 33 2E 20 20 20 54 45 41 43 48 45 52 20 | 3. TEACHER |
00000700: 49 4E 53 54 52 55 43 54 49 4F 4E 53 22 00 29 0F |INSTRUCTIONS".).|
00000710: 4F 01 99 22 11 11 20 20 20 20 20 20 20 34 2E 20 |O..".. 4. |
00000720: 20 20 51 55 49 54 11 11 22 00 58 0F 54 01 99 22 | QUIT..".X.T.."|
00000730: 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D | ---------------|
00000740: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000750: 2D 2D 2D 2D 2D 2D 2D 22 00 83 0F 59 01 99 22 11 |-------"...Y..".|
00000760: 11 20 20 20 20 20 20 20 50 52 45 53 53 20 41 20 |. PRESS A |
00000770: 4E 55 4D 42 45 52 20 4B 45 59 20 28 31 2D 34 29 |NUMBER KEY (1-4)|
00000780: 20 22 3B 00 AB 0F 5E 01 55 4C B2 31 3A 55 53 24 | ";...^.UL.1:US$|
00000790: B2 22 31 32 33 34 22 3A 8D 33 35 3A 8F 20 49 4E |."1234":.35:. IN|
000007A0: 50 55 54 20 52 4F 55 54 49 4E 45 00 B6 0F 60 01 |PUT ROUTINE...`.|
000007B0: 55 53 24 B2 22 22 00 D3 0F 63 01 91 C5 28 55 52 |US$.""...c...(UR|
000007C0: 24 29 8D 31 30 30 30 2C 34 30 30 2C 35 30 30 2C |$).1000,400,500,|
000007D0: 33 39 36 00 DC 0F 68 01 89 33 30 30 00 03 10 8B |396...h..300....|
000007E0: 01 8F 20 2A 2A 20 52 45 2D 45 4E 41 42 4C 45 20 |.. ** RE-ENABLE |
000007F0: 53 54 4F 50 20 4B 45 59 20 41 4E 44 20 45 4E 44 |STOP KEY AND END|
00000800: 20 2A 2A 00 32 10 8C 01 8B C2 28 35 30 30 30 33 | **.2.....(50003|
00000810: 29 B3 B1 31 AF C2 28 35 30 30 30 33 29 B3 B1 31 |)..1..(50003)..1|
00000820: 36 30 AF C2 28 35 30 30 30 33 29 B3 B1 30 A7 33 |60..(50003)..0.3|
00000830: 39 39 00 5C 10 8D 01 9E 55 55 AA 37 31 3A 8B C2 |99.\....UU.71:..|
00000840: 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 |(50003).0..53281|
00000850: 2C 36 3A 97 35 33 32 38 30 2C 31 34 00 68 10 8E |,6:.53280,14.h..|
00000860: 01 99 22 9A 93 22 3A 80 00 73 10 8F 01 8D 38 37 |.."..":..s....87|
00000870: 35 3A 8E 00 94 10 90 01 8F 20 2A 2A 20 53 54 55 |5:....... ** STU|
00000880: 44 45 4E 54 20 49 4E 53 54 52 55 43 54 49 4F 4E |DENT INSTRUCTION|
00000890: 53 20 2A 2A 00 C3 10 95 01 99 22 93 22 3A 97 55 |S **......".":.U|
000008A0: 54 2C 55 4C 25 3A 8B C2 28 35 30 30 30 33 29 B2 |T,UL%:..(50003).|
000008B0: 30 A7 97 35 33 32 38 31 2C 30 3A 97 35 33 32 38 |0..53281,0:.5328|
000008C0: 30 2C 30 00 F8 10 9A 01 55 54 24 B2 22 20 C1 4D |0,0.....UT$." .M|
000008D0: 4F 52 54 49 5A 41 54 49 4F 4E 22 3A 55 50 B2 30 |ORTIZATION":UP.0|
000008E0: 3A 55 47 24 B2 22 D3 54 55 44 45 4E 54 20 C9 4E |:UG$.".TUDENT .N|
000008F0: 53 54 22 3A 8D 38 35 30 00 27 11 9F 01 99 22 11 |ST":.850.'....".|
00000900: 20 20 20 20 20 D4 48 49 53 20 50 52 4F 47 52 41 | .HIS PROGRA|
00000910: 4D 20 57 49 4C 4C 20 41 4D 4F 52 54 49 5A 45 20 |M WILL AMORTIZE |
00000920: 41 20 4C 4F 41 4E 22 00 55 11 A4 01 99 22 11 1D |A LOAN".U...."..|
00000930: 42 41 53 45 44 20 4F 4E 20 49 4E 46 4F 52 4D 41 |BASED ON INFORMA|
00000940: 54 49 4F 4E 20 45 4E 54 45 52 45 44 20 42 59 20 |TION ENTERED BY |
00000950: 54 48 45 20 22 00 64 11 A9 01 99 22 11 20 55 53 |THE ".d....". US|
00000960: 45 52 2E 22 00 93 11 AE 01 99 22 11 20 20 20 20 |ER."......". |
00000970: 20 D4 4F 20 52 55 4E 20 54 48 49 53 20 50 52 4F | .O RUN THIS PRO|
00000980: 47 52 41 4D 2C 20 53 49 4D 50 4C 59 20 45 4E 54 |GRAM, SIMPLY ENT|
00000990: 45 52 22 00 C7 11 B8 01 99 22 11 20 41 4C 4C 20 |ER"......". ALL |
000009A0: 52 45 51 55 45 53 54 45 44 20 44 41 54 41 20 41 |REQUESTED DATA A|
000009B0: 4E 44 20 50 52 45 53 53 20 54 48 45 20 12 D2 C5 |ND PRESS THE ...|
000009C0: D4 D5 D2 CE 92 22 3B 00 E0 11 C2 01 99 22 11 20 |.....";......". |
000009D0: 4B 45 59 20 57 48 45 4E 20 44 4F 4E 45 2E 20 22 |KEY WHEN DONE. "|
000009E0: 00 10 12 C7 01 99 22 11 20 20 20 20 20 D4 48 45 |......". .HE|
000009F0: 52 45 20 41 52 45 20 35 20 44 41 54 41 20 49 54 |RE ARE 5 DATA IT|
00000A00: 45 4D 53 20 49 4E 20 54 4F 54 41 4C 20 54 4F 22 |EMS IN TOTAL TO"|
00000A10: 00 25 12 C8 01 99 22 11 20 42 45 20 45 4E 54 45 |.%....". BE ENTE|
00000A20: 52 45 44 2E 22 00 2E 12 E5 01 8D 38 33 35 00 42 |RED."......835.B|
00000A30: 12 EA 01 8B 55 5A B2 31 A7 9E 55 50 25 3A 89 32 |....UZ.1..UP%:.2|
00000A40: 31 37 00 48 12 F3 01 8E 00 69 12 F4 01 8F 20 2A |17.H.....i.... *|
00000A50: 2A 20 54 45 41 43 48 45 52 20 49 4E 53 54 52 55 |* TEACHER INSTRU|
00000A60: 43 54 49 4F 4E 53 20 2A 2A 00 99 12 F5 01 99 22 |CTIONS **......"|
00000A70: 93 22 3A 97 55 54 2C 55 4C 25 3A 8B C2 28 35 30 |.":.UT,UL%:..(50|
00000A80: 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 32 3A |003).0..53281,2:|
00000A90: 97 35 33 32 38 30 2C 31 30 00 CE 12 F6 01 55 54 |.53280,10.....UT|
00000AA0: 24 B2 22 20 C1 4D 4F 52 54 49 5A 41 54 49 4F 4E |$." .MORTIZATION|
00000AB0: 22 3A 55 50 B2 30 3A 55 47 24 B2 22 D4 45 41 43 |":UP.0:UG$.".EAC|
00000AC0: 48 45 52 20 C9 4E 53 54 22 3A 8D 38 35 30 00 FC |HER .NST":.850..|
00000AD0: 12 F7 01 99 22 11 11 20 20 20 20 20 20 D4 4F 20 |....".. .O |
00000AE0: 54 48 45 20 42 45 53 54 20 4F 46 20 4F 55 52 20 |THE BEST OF OUR |
00000AF0: 4B 4E 4F 57 4C 45 44 47 45 2C 11 22 00 25 13 F8 |KNOWLEDGE,.".%..|
00000B00: 01 99 22 20 20 20 54 48 49 53 20 50 52 4F 47 52 |.." THIS PROGR|
00000B10: 41 4D 20 49 53 20 49 4E 20 54 48 45 20 50 55 42 |AM IS IN THE PUB|
00000B20: 4C 49 43 11 22 00 51 13 F9 01 99 22 20 20 20 44 |LIC.".Q...." D|
00000B30: 4F 4D 41 49 4E 2E 20 20 C9 46 20 54 48 49 53 20 |OMAIN. .F THIS |
00000B40: 49 53 20 4E 4F 54 20 54 48 45 20 43 41 53 45 11 |IS NOT THE CASE.|
00000B50: 22 00 6E 13 FA 01 99 22 20 20 20 50 4C 45 41 53 |".n...." PLEAS|
00000B60: 45 20 43 4F 4E 54 41 43 54 3A 11 11 11 22 00 98 |E CONTACT:..."..|
00000B70: 13 FB 01 99 22 20 20 20 20 20 20 C3 4F 4D 4D 4F |...." .OMMO|
00000B80: 44 4F 52 45 20 C2 55 53 49 4E 45 53 53 20 CD 41 |DORE .USINESS .A|
00000B90: 43 48 49 4E 45 53 11 22 00 BB 13 FC 01 99 22 20 |CHINES."......" |
00000BA0: 20 20 20 20 20 20 20 20 20 33 33 37 30 20 D0 48 | 3370 .H|
00000BB0: 41 52 4D 41 43 59 20 C1 56 45 2E 00 DF 13 FD 01 |ARMACY .VE......|
00000BC0: 99 22 20 20 20 20 20 20 20 20 20 20 C1 47 49 4E |." .GIN|
00000BD0: 43 4F 55 52 54 2C 20 CF 4E 54 41 52 49 4F 22 00 |COURT, .NTARIO".|
00000BE0: 01 14 FE 01 99 22 20 20 20 20 20 20 20 20 20 20 |....." |
00000BF0: C3 41 4E 41 44 41 20 20 20 CD 31 D7 20 32 CB 34 |.ANADA .1. 2.4|
00000C00: 22 00 21 14 FF 01 99 22 20 20 20 20 20 20 20 20 |".!...." |
00000C10: 20 20 28 34 31 36 29 20 34 39 39 2D 34 32 39 32 | (416) 499-4292|
00000C20: 22 00 37 14 00 02 55 50 B2 31 3A 8D 20 38 33 35 |".7...UP.1:. 835|
00000C30: 3A 8D 20 38 35 30 3A 00 60 14 01 02 99 22 20 20 |:. 850:.`...." |
00000C40: 20 20 20 11 11 D0 52 4F 47 52 41 4D 20 CE 41 4D | ...ROGRAM .AM|
00000C50: 45 3A 20 C1 4D 4F 52 54 49 5A 41 54 49 4F 4E 11 |E: .MORTIZATION.|
00000C60: 00 82 14 02 02 99 22 20 20 20 20 20 D7 52 49 54 |......" .RIT|
00000C70: 54 45 4E 20 C2 59 20 20 3A 20 D5 4E 4B 4E 4F 57 |TEN .Y : .NKNOW|
00000C80: 4E 11 00 A6 14 03 02 99 22 20 20 20 20 20 D5 50 |N......." .P|
00000C90: 47 52 41 44 45 44 20 C2 59 20 3A 20 20 20 20 20 |GRADED .Y : |
00000CA0: 20 20 20 20 20 11 00 D1 14 04 02 99 22 20 20 20 | ......." |
00000CB0: 20 20 11 D4 48 49 53 20 50 52 4F 47 52 41 4D 20 | ..HIS PROGRAM |
00000CC0: 57 49 4C 4C 20 52 55 4E 20 4F 4E 20 41 4E 59 11 |WILL RUN ON ANY.|
00000CD0: 11 00 F8 14 05 02 99 22 20 20 20 20 20 20 20 20 |......." |
00000CE0: 20 C2 C1 D3 C9 C3 A0 32 2E 30 20 D0 C5 D4 20 C3 | ......2.0 ... .|
00000CF0: CF CD D0 D5 D4 C5 D2 11 00 1F 15 06 02 99 22 20 |.............." |
00000D00: 20 20 20 20 20 20 20 20 C2 C1 D3 C9 C3 20 34 2E | ..... 4.|
00000D10: 30 20 D0 C5 D4 A0 C3 CF CD D0 D5 D4 C5 D2 11 00 |0 ..............|
00000D20: 41 15 07 02 99 22 20 20 20 20 20 20 20 20 20 38 |A...." 8|
00000D30: 30 33 32 20 C3 C2 CD 20 C3 CF CD D0 D5 D4 C5 D2 |032 ... ........|
00000D40: 11 00 66 15 08 02 99 22 20 20 20 20 20 20 20 20 |..f...." |
00000D50: 20 C3 CF CD CD CF C4 CF D2 C5 20 36 34 20 C3 CF | ......... 64 ..|
00000D60: CD D0 D5 D4 C5 D2 00 6F 15 09 02 8D 38 33 35 00 |.......o....835.|
00000D70: 83 15 4E 02 8B 55 5A B2 31 A7 9E 55 50 25 3A 89 |..N..UZ.1..UP%:.|
00000D80: 32 31 37 00 89 15 57 02 8E 00 AF 15 58 02 8F 20 |217...W.....X.. |
00000D90: 2A 2A 20 50 52 4F 47 52 41 4D 20 4D 4F 44 49 46 |** PROGRAM MODIF|
00000DA0: 49 43 41 54 49 4F 4E 20 49 4E 53 54 20 2A 2A 00 |ICATION INST **.|
00000DB0: C0 15 59 02 99 22 93 22 3A 97 55 54 2C 55 4C 25 |..Y..".":.UT,UL%|
00000DC0: 00 E0 15 5D 02 55 50 B2 30 3A 55 47 24 B2 22 D0 |...].UP.0:UG$.".|
00000DD0: 52 4F 47 52 41 4D 20 CD 4F 44 22 3A 8D 38 35 30 |ROGRAM .OD":.850|
00000DE0: 00 E9 15 94 02 8D 38 33 35 00 FD 15 B2 02 8B 55 |......835......U|
00000DF0: 5A B2 31 A7 9E 55 50 25 3A 89 32 31 37 00 03 16 |Z.1..UP%:.217...|
00000E00: BB 02 8E 00 28 16 BC 02 8F 20 2A 2A 20 54 4F 20 |....(.... ** TO |
00000E10: 55 53 45 20 38 30 33 32 20 4C 4F 41 44 20 43 42 |USE 8032 LOAD CB|
00000E20: 4D 34 30 33 32 20 2A 2A 00 5E 16 C6 02 99 22 93 |M4032 **.^....".|
00000E30: 11 11 11 05 42 45 46 4F 52 45 20 52 55 4E 4E 49 |....BEFORE RUNNI|
00000E40: 4E 47 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 |NG THIS PROGRAM |
00000E50: 4F 4E 20 41 4E 20 38 30 33 32 20 20 11 11 00 94 |ON AN 8032 ....|
00000E60: 16 D0 02 99 22 20 20 20 20 20 20 4C 4F 41 44 20 |...." LOAD |
00000E70: 54 48 45 20 27 43 42 4D 20 34 30 33 32 27 20 50 |THE 'CBM 4032' P|
00000E80: 52 4F 47 52 41 4D 11 11 11 11 11 11 11 11 11 11 |ROGRAM..........|
00000E90: 11 11 11 22 00 9F 16 DA 02 9E 55 55 AA 37 31 00 |..."......UU.71.|
00000EA0: A5 16 E4 02 80 00 C5 16 20 03 8F 20 2A 2A 20 54 |........ .. ** T|
00000EB0: 20 49 20 54 20 4C 20 45 20 20 20 50 20 41 20 47 | I T L E P A G|
00000EC0: 20 45 20 2A 2A 00 F9 16 22 03 99 22 93 11 1D 05 | E **...".."....|
00000ED0: 22 3B 3A 97 55 54 2C 55 55 25 3A 8B C2 28 35 30 |";:.UT,UU%:..(50|
00000EE0: 30 30 33 29 B2 30 A7 97 35 33 32 38 30 2C 31 34 |003).0..53280,14|
00000EF0: 3A 97 35 33 32 38 31 2C 36 00 0F 17 24 03 81 49 |:.53281,6...$..I|
00000F00: B2 31 A4 33 38 3A 99 22 12 A6 92 22 3B 3A 82 00 |.1.38:."...";:..|
00000F10: 27 17 26 03 81 49 B2 31 A4 32 32 3A 99 22 11 9D |'.&..I.1.22:."..|
00000F20: 12 A6 92 22 3B 3A 82 00 3F 17 28 03 81 49 B2 31 |...";:..?.(..I.1|
00000F30: A4 33 37 3A 99 22 9D 9D 12 A6 92 22 3B 3A 82 00 |.37:.".....";:..|
00000F40: 57 17 2A 03 81 49 B2 31 A4 32 32 3A 99 22 91 9D |W.*..I.1.22:."..|
00000F50: 12 A6 92 22 3B 3A 82 00 7C 17 2C 03 99 22 13 11 |...";:..|.,.."..|
00000F60: 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000F70: 1D 1D 1D 1D 1D 1D 1D 12 A9 20 20 92 00 9E 17 2E |......... .....|
00000F80: 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..".............|
00000F90: 1D 1D 1D 1D 1D 12 20 92 20 20 12 20 92 A9 00 BF |...... . . ....|
00000FA0: 17 30 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |.0.."...........|
00000FB0: 1D 1D 1D 1D 1D 1D 1D 12 20 92 20 20 12 A3 DF 00 |........ . ....|
00000FC0: DD 17 32 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..2.."..........|
00000FD0: 1D 1D 1D 1D 1D 1D 1D 1D DF 12 20 20 92 00 05 18 |.......... ....|
00000FE0: 34 03 99 22 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |4.."............|
00000FF0: 1D 1D 43 20 4F 20 4D 20 4D 20 4F 20 44 20 4F 20 |..C O M M O D O |
00001000: 52 20 45 11 11 00 28 18 36 03 99 22 1D 1D 1D 1D |R E...(.6.."....|
00001010: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 45 44 55 43 41 |...........EDUCA|
00001020: 54 49 4F 4E 41 4C 11 11 00 47 18 38 03 99 22 1D |TIONAL...G.8..".|
00001030: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 53 |...............S|
00001040: 4F 46 54 57 41 52 45 00 62 18 3A 03 8F 20 2A 2A |OFTWARE.b.:.. **|
00001050: 20 43 4F 4D 4D 4F 44 4F 52 45 20 4C 4F 47 4F 20 | COMMODORE LOGO |
00001060: 2A 2A 00 9A 18 3B 03 99 C8 28 55 44 24 2C 32 34 |**...;...(UD$,24|
00001070: 29 3B 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 50 52 45 |);"..........PRE|
00001080: 53 53 20 53 50 41 43 45 20 42 41 52 20 4F 52 20 |SS SPACE BAR OR |
00001090: 57 41 49 54 92 22 3A 49 B2 30 00 BC 18 3C 03 A1 |WAIT.":I.0...<..|
000010A0: 41 24 3A 8B 41 24 B3 B1 22 20 22 A7 49 B2 49 AA |A$:.A$.." ".I.I.|
000010B0: 31 3A 8B 49 B3 32 35 30 A7 38 32 38 00 E0 18 3E |1:.I.250.828...>|
000010C0: 03 54 31 24 B2 22 22 3A 54 32 24 B2 22 22 3A 54 |.T1$."":T2$."":T|
000010D0: 33 24 B2 22 22 3A 54 34 24 B2 22 22 3A 49 B2 30 |3$."":T4$."":I.0|
000010E0: 00 E9 18 40 03 89 33 30 30 00 05 19 43 03 8F 20 |...@..300...C.. |
000010F0: 2A 2A 20 53 50 41 43 45 20 42 41 52 20 50 52 45 |** SPACE BAR PRE|
00001100: 53 53 20 2A 2A 00 40 19 48 03 97 55 4F 2C 30 3A |SS **.@.H..UO,0:|
00001110: 99 C8 28 55 44 24 2C 32 34 29 3B 22 1D 1D 1D 1D |..(UD$,24);"....|
00001120: 1D 1D 12 50 52 45 53 53 20 53 50 41 43 45 20 42 |...PRESS SPACE B|
00001130: 41 52 20 54 4F 20 43 4F 4E 54 49 4E 55 45 92 22 |AR TO CONTINUE."|
00001140: 00 57 19 4C 03 A1 55 49 24 3A 8B 55 49 24 B3 B1 |.W.L..UI$:.UI$..|
00001150: 22 20 22 A7 38 34 34 00 5D 19 4E 03 8E 00 7D 19 |" ".844.].N...}.|
00001160: 52 03 8F 20 2A 2A 20 50 41 47 45 20 44 45 53 49 |R.. ** PAGE DESI|
00001170: 47 4E 20 52 4F 55 54 49 4E 45 20 2A 2A 00 89 19 |GN ROUTINE **...|
00001180: 54 03 55 50 B2 55 50 AA 31 00 B3 19 57 03 99 22 |T.UP.UP.1...W.."|
00001190: 93 22 C8 28 55 54 24 AA 55 50 24 2C 32 31 29 3B |.".(UT$.UP$,21);|
000011A0: C9 28 55 50 24 AA 55 47 24 AA C4 28 55 50 29 2C |.(UP$.UG$..(UP),|
000011B0: 31 38 29 00 E2 19 5C 03 99 22 20 2D 2D 2D 2D 2D |18)...\.." -----|
000011C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000011D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000011E0: 2D 22 00 F1 19 60 03 8B 55 48 B3 B1 30 A7 38 37 |-"...`..UH..0.87|
000011F0: 30 00 33 1A 61 03 8F 20 50 52 49 4E 54 4C 45 46 |0.3.a.. PRINTLEF|
00001200: 54 24 28 55 44 24 2C 32 34 29 3B 4C 45 46 54 24 |T$(UD$,24);LEFT$|
00001210: 28 55 50 24 2C 37 29 3B 22 48 45 4C 50 20 2D 20 |(UP$,7);"HELP - |
00001220: 50 52 45 53 53 20 20 20 48 20 3C 52 45 54 55 52 |PRESS H <RETUR|
00001230: 4E 3E 22 00 44 1A 66 03 55 48 B2 30 3A 99 22 13 |N>".D.f.UH.0:.".|
00001240: 11 22 3A 8E 00 63 1A 6B 03 8F 20 2A 2A 20 50 4C |.":..c.k.. ** PL|
00001250: 45 41 53 45 20 57 41 49 54 20 52 45 4D 41 52 4B |EASE WAIT REMARK|
00001260: 20 2A 2A 00 99 1A 70 03 99 C8 28 55 44 24 2C 32 | **...p...(UD$,2|
00001270: 34 29 3B 22 20 20 20 20 20 20 20 20 20 20 20 4F |4);" O|
00001280: 4E 45 20 4D 4F 4D 45 4E 54 20 50 4C 45 41 53 45 |NE MOMENT PLEASE|
00001290: 2E 2E 2E 20 20 20 20 20 22 00 9F 1A 75 03 8E 00 |... "...u...|
000012A0: BC 1A 84 03 8F 20 2A 2A 20 53 45 54 20 55 50 20 |..... ** SET UP |
000012B0: 56 41 52 49 41 42 4C 45 53 20 2A 2A 00 07 1B 85 |VARIABLES **....|
000012C0: 03 55 58 24 B2 22 48 22 3A 86 55 51 25 28 31 30 |.UX$."H":.UQ%(10|
000012D0: 30 30 29 3A 55 42 B2 33 32 37 36 38 3A 55 31 B2 |00):UB.32768:U1.|
000012E0: 31 39 36 3A 55 32 B2 31 39 37 3A 55 33 B2 31 39 |196:U2.197:U3.19|
000012F0: 38 3A 55 34 B2 32 31 36 3A 55 43 B2 31 36 37 3A |8:U4.216:UC.167:|
00001300: 55 55 B2 31 30 32 34 00 45 1B 86 03 55 54 B2 35 |UU.1024.E...UT.5|
00001310: 39 34 36 38 3A 55 55 25 B2 31 32 3A 55 4C 25 B2 |9468:UU%.12:UL%.|
00001320: 31 34 3A 55 50 25 B2 31 31 34 36 3A 55 4D B2 33 |14:UP%.1146:UM.3|
00001330: 32 37 36 38 3A 55 4F B2 31 35 38 3A 97 20 35 30 |2768:UO.158:. 50|
00001340: 30 30 33 2C 30 00 88 1B 87 03 8B C2 28 35 30 30 |003,0.......(500|
00001350: 30 33 29 B2 30 A7 55 42 B2 31 30 32 34 3A 55 31 |03).0.UB.1024:U1|
00001360: B2 32 30 39 3A 55 32 B2 32 31 30 3A 55 33 B2 32 |.209:U2.210:U3.2|
00001370: 31 31 3A 55 34 B2 32 31 34 3A 55 43 B2 32 30 34 |11:U4.214:UC.204|
00001380: 3A 55 55 B2 32 30 34 38 00 C7 1B 88 03 8B C2 28 |:UU.2048.......(|
00001390: 35 30 30 30 33 29 B2 30 A7 55 54 B2 35 33 32 37 |50003).0.UT.5327|
000013A0: 32 3A 55 55 25 B2 32 31 3A 55 4C 25 B2 32 33 3A |2:UU%.21:UL%.23:|
000013B0: 55 50 25 B2 32 31 33 39 3A 55 4D B2 31 30 32 34 |UP%.2139:UM.1024|
000013C0: 3A 55 4F B2 31 39 38 00 EB 1B 89 03 55 44 24 B2 |:UO.198.....UD$.|
000013D0: 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |"...............|
000013E0: 11 11 11 11 11 11 11 11 11 11 22 00 1D 1C 8A 03 |..........".....|
000013F0: 55 50 24 B2 22 20 20 20 20 20 20 20 20 20 20 20 |UP$." |
00001400: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001410: 20 20 20 20 20 20 20 20 20 20 20 20 22 00 6B 1C | ".k.|
00001420: 8B 03 55 54 24 B2 22 20 C1 4D 4F 52 54 49 5A 41 |..UT$." .MORTIZA|
00001430: 54 49 4F 4E 20 A0 A0 A0 A0 A0 22 3A 8F 20 50 4C |TION .....":. PL|
00001440: 41 43 45 20 50 52 4F 47 52 41 4D 20 54 49 54 4C |ACE PROGRAM TITL|
00001450: 45 20 48 45 52 45 20 21 21 21 21 21 21 21 21 21 |E HERE !!!!!!!!!|
00001460: 21 21 21 21 21 21 21 21 2A 2A 2A 00 71 1C 8C 03 |!!!!!!!!***.q...|
00001470: 8E 00 8B 1C 8E 03 8F 20 2A 2A 20 53 45 54 20 56 |....... ** SET V|
00001480: 41 52 49 41 42 4C 45 53 20 2A 2A 00 94 1C 93 03 |ARIABLES **.....|
00001490: 8D 39 30 30 00 AF 1C 98 03 8F 20 2A 2A 20 43 48 |.900...... ** CH|
000014A0: 45 43 4B 20 46 4F 52 20 38 30 33 32 20 2A 2A 00 |ECK FOR 8032 **.|
000014B0: CD 1C 9D 03 99 22 93 22 3A 99 22 A0 22 3A 8F 20 |.....".":.".":. |
000014C0: 53 48 49 46 54 45 44 20 53 50 41 43 45 00 E4 1C |SHIFTED SPACE...|
000014D0: A2 03 8B C2 28 55 42 AA 34 30 29 B3 B1 39 36 A7 |....(UB.40)..96.|
000014E0: 8D 37 30 30 00 FD 1C A3 03 8F 20 2A 2A 20 4D 45 |.700...... ** ME|
000014F0: 4D 4F 52 59 20 43 48 45 43 4B 20 2A 2A 00 11 1D |MORY CHECK **...|
00001500: A4 03 8B 20 B8 28 30 29 B1 32 30 30 30 A7 39 33 |... .(0).2000.93|
00001510: 37 00 3F 1D A5 03 99 22 93 11 11 05 54 48 49 53 |7.?...."....THIS|
00001520: 20 4D 41 43 48 49 4E 45 20 44 4F 45 53 20 4E 4F | MACHINE DOES NO|
00001530: 54 20 48 41 56 45 20 45 4E 4F 55 47 48 11 22 00 |T HAVE ENOUGH.".|
00001540: 63 1D A6 03 99 22 4D 45 4D 4F 52 59 20 54 4F 20 |c...."MEMORY TO |
00001550: 52 55 4E 20 54 48 49 53 20 50 52 4F 47 52 41 4D |RUN THIS PROGRAM|
00001560: 20 21 22 00 6E 1D A7 03 9E 55 55 AA 37 31 00 74 | !".n....UU.71.t|
00001570: 1D A8 03 80 00 8E 1D A9 03 99 22 93 05 22 3A 8B |.........."..":.|
00001580: C2 28 35 30 30 30 33 29 B2 30 A7 39 36 32 00 BD |.(50003).0.962..|
00001590: 1D AC 03 8F 20 2A 2A 20 42 41 53 49 43 20 32 2E |.... ** BASIC 2.|
000015A0: 30 20 20 4F 52 20 20 34 2E 30 20 20 4F 52 20 20 |0 OR 4.0 OR |
000015B0: 43 2D 36 34 20 53 45 54 55 50 20 2A 2A 00 FB 1D |C-64 SETUP **...|
000015C0: AD 03 97 31 30 37 35 2C 31 33 33 3A 97 31 30 37 |...1075,133:.107|
000015D0: 36 2C 31 34 34 3A 97 31 30 37 37 2C 32 33 34 3A |6,144:.1077,234:|
000015E0: 97 31 30 37 39 2C 34 3A 97 31 30 38 30 2C 31 33 |.1079,4:.1080,13|
000015F0: 33 3A 97 31 30 38 31 2C 31 34 35 00 31 1E AE 03 |3:.1081,145.1...|
00001600: 97 31 30 39 31 2C 31 35 35 3A 97 31 30 39 38 2C |.1091,155:.1098,|
00001610: 31 33 33 3A 97 31 30 39 39 2C 31 34 34 3A 97 31 |133:.1099,144:.1|
00001620: 31 30 30 2C 32 33 34 3A 97 31 31 30 33 2C 31 33 |100,234:.1103,13|
00001630: 33 00 53 1E AF 03 97 31 31 30 34 2C 31 34 35 3A |3.S....1104,145:|
00001640: 97 31 31 30 35 2C 32 33 34 3A 97 31 30 38 32 2C |.1105,234:.1082,|
00001650: 32 33 34 00 6A 1E B1 03 8B C2 28 35 30 30 30 33 |234.j.....(50003|
00001660: 29 B3 B1 31 36 30 A7 39 35 35 00 99 1E B6 03 97 |)..160.955......|
00001670: 31 30 39 33 2C 38 38 3A 97 31 30 39 34 2C 32 32 |1093,88:.1094,22|
00001680: 38 3A 97 31 30 39 37 2C 38 35 3A 97 31 31 30 32 |8:.1097,85:.1102|
00001690: 2C 32 32 38 3A 89 39 36 35 00 AE 1E BB 03 8B C2 |,228:.965.......|
000016A0: 28 35 30 30 30 33 29 B3 B1 31 A7 39 39 30 00 DD |(50003)..1.990..|
000016B0: 1E C0 03 97 31 30 39 33 2C 34 39 3A 97 31 30 39 |....1093,49:.109|
000016C0: 34 2C 32 33 30 3A 97 31 30 39 37 2C 34 36 3A 97 |4,230:.1097,46:.|
000016D0: 31 31 30 32 2C 32 33 30 3A 89 39 36 35 00 17 1F |1102,230:.965...|
000016E0: C2 03 97 32 30 39 39 2C 31 34 31 3A 97 32 31 30 |...2099,141:.210|
000016F0: 30 2C 32 30 3A 97 32 31 30 31 2C 33 3A 97 32 31 |0,20:.2101,3:.21|
00001700: 30 33 2C 38 3A 97 32 31 30 34 2C 31 34 31 3A 97 |03,8:.2104,141:.|
00001710: 32 31 30 35 2C 32 31 00 53 1F C3 03 97 32 31 30 |2105,21.S....210|
00001720: 36 2C 33 3A 97 32 31 31 35 2C 31 34 35 3A 97 32 |6,3:.2115,145:.2|
00001730: 31 31 37 2C 35 32 3A 97 32 31 31 38 2C 32 33 34 |117,52:.2118,234|
00001740: 3A 97 32 31 32 31 2C 34 39 3A 97 32 31 32 32 2C |:.2121,49:.2122,|
00001750: 31 34 31 00 8D 1F C4 03 97 32 31 32 33 2C 32 30 |141......2123,20|
00001760: 3A 97 32 31 32 34 2C 33 3A 97 32 31 32 36 2C 32 |:.2124,3:.2126,2|
00001770: 33 34 3A 97 32 31 32 37 2C 31 34 31 3A 97 32 31 |34:.2127,141:.21|
00001780: 32 38 2C 32 31 3A 97 32 31 32 39 2C 33 00 AB 1F |28,21:.2129,3...|
00001790: C5 03 9E 55 55 AA 34 38 3A 8F 20 44 49 53 41 42 |...UU.48:. DISAB|
000017A0: 4C 45 20 53 54 4F 50 20 4B 45 59 00 BC 1F CA 03 |LE STOP KEY.....|
000017B0: 8D 38 30 30 3A 8F 20 54 49 54 4C 45 00 CC 1F D4 |.800:. TITLE....|
000017C0: 03 89 33 30 30 3A 8F 20 4D 45 4E 55 00 FD 1F DE |..300:. MENU....|
000017D0: 03 99 22 93 54 48 45 20 50 47 4D 20 57 49 4C 4C |..".THE PGM WILL|
000017E0: 20 4E 4F 54 20 57 4F 52 4B 20 4F 4E 20 54 48 49 | NOT WORK ON THI|
000017F0: 53 20 4D 41 43 48 49 4E 45 21 22 3A 80 00 32 20 |S MACHINE!":..2 |
00001800: E8 03 8B 55 5A B2 31 A7 9E 55 50 25 3A 9E 55 50 |...UZ.1..UP%:.UP|
00001810: 25 3A 55 5A B2 30 3A 8F 20 2A 2A 20 50 52 4F 47 |%:UZ.0:. ** PROG|
00001820: 52 41 4D 20 53 54 41 52 54 53 20 48 45 52 45 20 |RAM STARTS HERE |
00001830: 2A 2A 00 5E 20 E9 03 99 22 93 05 22 3B 3A 8C 3A |**.^ ..."..";:.:|
00001840: 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 |..(50003).0..532|
00001850: 38 31 2C 36 3A 97 35 33 32 38 30 2C 31 34 00 69 |81,6:.53280,14.i|
00001860: 20 EA 03 55 47 24 B2 22 22 00 81 20 F2 03 55 54 | ..UG$."".. ..UT|
00001870: 24 B2 22 20 41 4D 4F 52 54 49 5A 41 54 49 4F 4E |$." AMORTIZATION|
00001880: 22 00 A4 20 24 04 44 32 24 B2 22 13 11 11 11 11 |".. $.D2$.".....|
00001890: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
000018A0: 11 11 11 22 00 D6 20 56 04 42 31 24 B2 22 20 20 |...".. V.B1$." |
000018B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000018C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000018D0: 20 20 20 20 20 22 00 F5 20 5B 04 42 4C 24 B2 22 | ".. [.BL$."|
000018E0: 20 20 20 20 20 20 20 20 20 20 9D 9D 9D 9D 9D 9D | ......|
000018F0: 9D 9D 9D 9D 22 00 14 21 60 04 55 50 B2 30 3A 55 |...."..!`.UP.0:U|
00001900: 47 24 B2 22 44 41 54 41 20 45 4E 54 52 59 22 3A |G$."DATA ENTRY":|
00001910: 8D 38 35 30 00 44 21 88 04 99 22 11 20 12 31 92 |.850.D!...". .1.|
00001920: 2E 20 57 48 41 54 20 49 53 20 54 48 45 20 4E 4F |. WHAT IS THE NO|
00001930: 4D 49 4E 41 4C 20 49 4E 54 45 52 45 53 54 20 52 |MINAL INTEREST R|
00001940: 41 54 45 22 00 78 21 BA 04 99 22 11 20 20 20 20 |ATE".x!...". |
00001950: 50 45 52 20 41 4E 4E 55 4D 3F 20 28 25 29 20 22 |PER ANNUM? (%) "|
00001960: 42 4C 24 3B 3A 8D 31 30 30 30 30 3A 49 B2 C5 28 |BL$;:.10000:I..(|
00001970: 55 52 24 29 AD 31 30 30 00 8F 21 C4 04 8B 46 4C |UR$).100..!...FL|
00001980: A7 99 22 91 91 91 91 91 22 3A 89 31 31 36 30 00 |..".....":.1160.|
00001990: A8 21 CE 04 8B 49 B1 33 30 A7 99 22 91 91 91 91 |.!...I.30.."....|
000019A0: 91 22 3A 89 31 31 36 30 00 D5 21 EC 04 99 22 11 |.":.1160..!...".|
000019B0: 20 12 32 92 2E 20 57 48 41 54 20 49 53 20 54 48 | .2.. WHAT IS TH|
000019C0: 45 20 4E 55 4D 42 45 52 20 4F 46 20 49 4E 54 45 |E NUMBER OF INTE|
000019D0: 52 45 53 54 22 00 09 22 1E 05 99 22 11 20 20 20 |REST".."...". |
000019E0: 20 50 45 52 49 4F 44 53 20 50 45 52 20 41 4E 4E | PERIODS PER ANN|
000019F0: 55 4D 3F 20 22 42 4C 24 3B 3A 8D 31 30 30 30 30 |UM? "BL$;:.10000|
00001A00: 3A 4E B2 C5 28 55 52 24 29 00 20 22 28 05 8B 46 |:N..(UR$). "(..F|
00001A10: 4C A7 99 22 91 91 91 91 91 22 3A 89 31 32 36 30 |L..".....":.1260|
00001A20: 00 3A 22 32 05 8B 4E B1 33 36 36 A7 99 22 91 91 |.:"2..N.366.."..|
00001A30: 91 91 91 22 3A 89 31 32 36 30 00 67 22 50 05 99 |...":.1260.g"P..|
00001A40: 22 11 20 12 33 92 2E 20 57 48 41 54 20 49 53 20 |". .3.. WHAT IS |
00001A50: 54 48 45 20 4E 55 4D 42 45 52 20 4F 46 20 50 41 |THE NUMBER OF PA|
00001A60: 59 4D 45 4E 54 53 22 00 94 22 82 05 99 22 11 20 |YMENTS".."...". |
00001A70: 20 20 20 50 45 52 20 41 4E 4E 55 4D 3F 20 22 3B | PER ANNUM? ";|
00001A80: 42 4C 24 3B 3A 8D 31 30 30 30 30 3A 50 B2 C5 28 |BL$;:.10000:P..(|
00001A90: 55 52 24 29 00 AB 22 8C 05 8B 46 4C A7 99 22 91 |UR$).."...FL..".|
00001AA0: 91 91 91 91 22 3A 89 31 33 36 30 00 C5 22 96 05 |....":.1360.."..|
00001AB0: 8B 50 B1 31 30 30 A7 99 22 91 91 91 91 91 22 3A |.P.100..".....":|
00001AC0: 89 31 33 36 30 00 E6 22 B4 05 99 22 11 20 12 34 |.1360.."...". .4|
00001AD0: 92 2E 20 57 48 41 54 20 49 53 20 54 48 45 20 41 |.. WHAT IS THE A|
00001AE0: 4D 4F 55 4E 54 22 00 1B 23 E6 05 99 22 11 20 20 |MOUNT"..#...". |
00001AF0: 20 20 4F 46 20 54 48 45 20 4C 4F 41 4E 3F 20 28 | OF THE LOAN? (|
00001B00: 24 29 20 22 3B 42 4C 24 3B 3A 8D 31 30 30 30 30 |$) ";BL$;:.10000|
00001B10: 20 20 3A 4C B2 C5 28 55 52 24 29 00 32 23 F0 05 | :L..(UR$).2#..|
00001B20: 8B 46 4C A7 99 22 91 91 91 91 91 22 3A 89 31 34 |.FL..".....":.14|
00001B30: 36 30 00 51 23 FA 05 8B 4C B1 39 39 39 39 39 39 |60.Q#...L.999999|
00001B40: 39 20 A7 99 22 91 91 91 91 91 22 3A 89 31 34 36 |9 ..".....":.146|
00001B50: 30 00 70 23 FF 05 55 50 B2 31 3A 55 47 24 B2 22 |0.p#..UP.1:UG$."|
00001B60: 44 41 54 41 20 45 4E 54 52 59 22 3A 8D 38 35 30 |DATA ENTRY":.850|
00001B70: 00 9A 23 18 06 99 22 11 20 12 35 92 2E 20 48 4F |..#...". .5.. HO|
00001B80: 57 20 4D 41 4E 59 20 59 45 41 52 53 20 41 52 45 |W MANY YEARS ARE|
00001B90: 20 54 48 45 52 45 20 54 4F 22 00 CF 23 4A 06 99 | THERE TO"..#J..|
00001BA0: 22 11 20 20 20 20 54 4F 20 52 45 50 41 59 20 54 |". TO REPAY T|
00001BB0: 48 45 20 4C 4F 41 4E 3F 20 22 3B 42 4C 24 3B 3A |HE LOAN? ";BL$;:|
00001BC0: 8D 31 30 30 30 30 3A 4B B2 C5 28 55 52 24 29 00 |.10000:K..(UR$).|
00001BD0: E6 23 54 06 8B 46 4C A7 99 22 91 91 91 91 91 22 |.#T..FL.."....."|
00001BE0: 3A 89 31 35 36 30 00 00 24 59 06 8B 4B B1 31 30 |:.1560..$Y..K.10|
00001BF0: 30 A7 99 22 91 91 91 91 91 22 3A 89 31 35 36 30 |0..".....":.1560|
00001C00: 00 09 24 5E 06 8D 33 39 39 00 1F 24 7C 06 45 B2 |..$^..399..$|.E.|
00001C10: 28 31 AA 49 AD 4E 29 AE 28 4E AD 50 29 AB 31 00 |(1.I.N).(N.P).1.|
00001C20: 3F 24 AE 06 58 B2 28 28 31 AB 28 31 AA 45 29 AE |?$..X.((1.(1.E).|
00001C30: 28 AB 50 AC 4B 29 29 AE AB 31 29 AC 45 AC 4C 00 |(.P.K))..1).E.L.|
00001C40: 55 24 E0 06 4E 31 B2 58 3A 8D 35 35 36 30 3A 58 |U$..N1.X:.5560:X|
00001C50: 24 B2 4E 31 24 00 6B 24 12 07 4E 31 B2 4C 3A 8D |$.N1$.k$..N1.L:.|
00001C60: 35 35 36 30 3A 4C 24 B2 4E 31 24 00 75 24 44 07 |5560:L$.N1$.u$D.|
00001C70: 8D 35 32 36 30 00 B0 24 76 07 99 22 13 B0 C0 C0 |.5260..$v.."....|
00001C80: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00001C90: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00001CA0: C0 C0 C0 C0 22 3A 97 55 4D AA 33 39 2C 31 31 30 |....":.UM.39,110|
00001CB0: 00 D2 24 A8 07 81 49 B2 31 A4 32 31 3A 99 22 DD |..$...I.1.21:.".|
00001CC0: 22 3A 97 55 4D AA 33 39 AA 34 30 AC 49 2C 39 33 |":.UM.39.40.I,93|
00001CD0: 3A 82 00 0E 25 DA 07 99 22 AD C0 C0 C0 B1 C0 C0 |:...%...".......|
00001CE0: C0 C0 C0 C0 C0 C0 C0 C0 B1 C0 C0 C0 C0 C0 C0 C0 |................|
00001CF0: C0 C0 C0 B1 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00001D00: 13 22 3A 97 55 4D AA 39 31 39 2C 31 32 35 00 2D |.":.UM.919,125.-|
00001D10: 25 0C 08 99 A3 31 30 29 22 41 4D 4F 52 54 49 5A |%....10)"AMORTIZ|
00001D20: 41 54 49 4F 4E 20 54 41 42 4C 45 11 22 00 4A 25 |ATION TABLE.".J%|
00001D30: 3E 08 99 A3 20 38 29 22 49 4E 53 54 41 4C 4D 45 |>... 8)"INSTALME|
00001D40: 4E 54 20 4F 46 20 22 3B 58 24 00 7A 25 70 08 99 |NT OF ";X$.z%p..|
00001D50: A3 32 29 22 50 41 49 44 22 3B 50 3B 22 54 49 4D |.2)"PAID";P;"TIM|
00001D60: 45 53 20 50 45 52 20 59 45 41 52 20 46 4F 52 22 |ES PER YEAR FOR"|
00001D70: 3B 4B 3B 22 59 45 41 52 53 22 00 93 25 A2 08 99 |;K;"YEARS"..%...|
00001D80: A3 31 32 29 20 50 AC 4B 3B 22 50 41 59 4D 45 4E |.12) P.K;"PAYMEN|
00001D90: 54 53 22 00 CE 25 D4 08 99 22 AB C0 C0 C0 B2 C0 |TS"..%..."......|
00001DA0: C0 C0 C0 C0 C0 C0 C0 C0 C0 B2 C0 C0 C0 C0 C0 C0 |................|
00001DB0: C0 C0 C0 C0 B2 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00001DC0: C0 22 3A 97 55 4D AA 32 37 39 2C 31 31 35 00 FE |.":.UM.279,115..|
00001DD0: 25 06 09 99 A3 31 29 22 50 41 59 DD 20 49 4E 54 |%....1)"PAY. INT|
00001DE0: 45 52 45 53 54 20 DD 20 50 41 59 4D 45 4E 54 20 |EREST . PAYMENT |
00001DF0: 20 DD 4F 55 54 53 54 41 4E 44 49 4E 47 22 00 2B | .OUTSTANDING".+|
00001E00: 26 38 09 99 A3 31 29 22 4E 4F 2E DD 20 4F 4E 20 |&8...1)"NO.. ON |
00001E10: 44 45 42 54 20 20 DD 4F 4E 20 50 52 49 4E 43 2E |DEBT .ON PRINC.|
00001E20: 20 DD 20 20 44 45 42 54 20 20 22 00 69 26 6A 09 | . DEBT ".i&j.|
00001E30: 99 A3 30 29 22 AB C0 C0 C0 DB C0 C0 C0 C0 C0 C0 |..0)"...........|
00001E40: C0 C0 C0 C0 DB C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 DB |................|
00001E50: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 22 3A 97 55 |............":.U|
00001E60: 4D AA 33 39 39 2C 31 31 35 00 8E 26 9C 09 81 49 |M.399,115..&...I|
00001E70: B2 31 A4 31 32 3A 99 A3 34 29 22 DD 22 A6 31 30 |.1.12:..4)".".10|
00001E80: 29 22 DD 22 A6 31 30 29 22 DD 22 20 3A 82 00 B1 |)".".10)"." :...|
00001E90: 26 CE 09 99 A3 32 29 22 91 91 91 91 91 91 91 91 |&....2)"........|
00001EA0: 91 91 91 91 1D 20 22 A6 32 35 29 20 20 20 20 4C |..... ".25) L|
00001EB0: 24 00 EF 26 00 0A 99 A3 30 29 22 AB C0 C0 C0 DB |$..&....0)".....|
00001EC0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 DB C0 C0 C0 C0 C0 |................|
00001ED0: C0 C0 C0 C0 C0 DB C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00001EE0: C0 C0 22 3A 97 55 4D AA 34 37 39 2C 31 31 35 00 |..":.UM.479,115.|
00001EF0: FD 26 32 0A 4F 53 B2 4C 3A 43 43 B2 30 00 13 27 |.&2.OS.L:CC.0..'|
00001F00: 64 0A 81 4A B2 28 43 43 AA 31 29 A4 28 43 43 AA |d..J.(CC.1).(CC.|
00001F10: 31 30 29 00 1F 27 96 0A 49 4E B2 4F 53 AC 45 00 |10)..'..IN.OS.E.|
00001F20: 37 27 C8 0A 4E 31 B2 49 4E 3A 8D 35 35 36 30 3A |7'..N1.IN:.5560:|
00001F30: 49 4E 24 B2 4E 31 24 00 43 27 FA 0A 50 59 B2 58 |IN$.N1$.C'..PY.X|
00001F40: AB 49 4E 00 5B 27 2C 0B 4E 31 B2 50 59 3A 8D 35 |.IN.[',.N1.PY:.5|
00001F50: 35 36 30 3A 50 59 24 B2 4E 31 24 00 68 27 5E 0B |560:PY$.N1$.h'^.|
00001F60: 4E 53 B2 4F 53 AB 50 59 00 80 27 90 0B 4E 31 B2 |NS.OS.PY..'..N1.|
00001F70: 4E 53 3A 8D 35 35 36 30 3A 4E 53 24 B2 4E 31 24 |NS:.5560:NS$.N1$|
00001F80: 00 99 27 C2 0B 4E 31 B2 4A 3A 8D 36 33 31 30 3A |..'..N1.J:.6310:|
00001F90: 20 99 A3 31 29 4E 31 24 3B 00 A7 27 F4 0B 99 A3 | ..1)N1$;..'....|
00001FA0: 20 35 29 49 4E 24 3B 00 B5 27 26 0C 99 A3 31 36 | 5)IN$;..'&...16|
00001FB0: 29 50 59 24 3B 00 C2 27 58 0C 99 A3 32 39 29 4E |)PY$;..'X...29)N|
00001FC0: 53 24 00 D2 27 8A 0C 8B 4E 53 B1 B2 58 A7 33 37 |S$..'...NS..X.37|
00001FD0: 36 30 00 E5 27 BC 0C 4A B2 4A AA 31 20 3A 49 4E |60..'..J.J.1 :IN|
00001FE0: B2 4E 53 AC 45 00 FD 27 EE 0C 4E 31 B2 49 4E 3A |.NS.E..'..N1.IN:|
00001FF0: 8D 35 35 36 30 3A 49 4E 24 B2 4E 31 24 00 0A 28 |.5560:IN$.N1$..(|
00002000: 20 0D 50 59 B2 4E 53 AB 49 4E 00 23 28 52 0D 4E | .PY.NS.IN.#(R.N|
00002010: 31 B2 4A 3A 8D 36 33 31 30 3A 20 99 A3 31 29 4E |1.J:.6310: ..1)N|
00002020: 31 24 3B 00 3D 28 84 0D 4E 31 B2 49 4E 3A 8D 35 |1$;.=(..N1.IN:.5|
00002030: 35 36 30 3A 99 A3 20 35 29 4E 31 24 3B 00 57 28 |560:.. 5)N1$;.W(|
00002040: B6 0D 4E 31 B2 4E 53 3A 8D 35 35 36 30 3A 99 A3 |..N1.NS:.5560:..|
00002050: 31 36 29 4E 31 24 3B 00 66 28 E8 0D 99 A3 33 33 |16)N1$;.f(....33|
00002060: 29 22 4E 49 4C 22 00 79 28 1A 0E 4E 31 B2 49 4E |)"NIL".y(..N1.IN|
00002070: AA 4E 53 3A 8D 35 35 36 30 00 A6 28 4C 0E 8B 58 |.NS:.5560..(L..X|
00002080: 24 B3 B1 4E 31 24 A7 99 22 13 11 11 11 11 22 3A |$..N1$..".....":|
00002090: 99 A3 31 37 29 22 4C 41 53 54 20 50 41 59 27 54 |..17)"LAST PAY'T|
000020A0: 3A 22 3B 4E 31 24 00 B0 28 7E 0E 89 34 33 36 30 |:";N1$..(~..4360|
000020B0: 00 BA 28 B0 0E 4F 53 B2 4E 53 00 C1 28 E2 0E 82 |..(..OS.NS..(...|
000020C0: 4A 00 D1 28 14 0F 8B 50 AC 4B B1 4A A7 33 39 36 |J..(...P.K.J.396|
000020D0: 30 00 DB 28 46 0F 89 34 33 36 30 00 E8 28 78 0F |0..(F..4360..(x.|
000020E0: 43 43 B2 43 43 AA 31 30 00 F3 28 E6 0F 8D 31 32 |CC.CC.10..(...12|
000020F0: 30 30 30 00 09 29 72 10 8D 35 34 31 30 3A 99 A3 |000..)r..5410:..|
00002100: 30 29 22 11 22 3B 42 31 24 00 1D 29 A4 10 99 22 |0)".";B1$..)..."|
00002110: 13 11 11 11 11 11 11 11 11 11 11 11 22 00 27 29 |............".')|
00002120: D6 10 89 32 36 36 30 00 2D 29 08 11 3A 00 38 29 |...2660.-)..:.8)|
00002130: 3A 11 8D 38 33 35 3A 8E 00 5D 29 66 12 46 31 24 |:..835:..])f.F1$|
00002140: B2 22 12 A6 A0 A6 A0 A6 A0 A6 A0 A6 A0 A6 A0 A6 |."..............|
00002150: A0 A6 A0 A6 A0 A6 A0 A6 A0 A6 A0 A6 22 00 82 29 |............"..)|
00002160: 98 12 46 32 24 B2 22 12 20 20 20 20 20 20 20 20 |..F2$.". |
00002170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002180: 20 22 00 A7 29 CA 12 46 33 24 B2 22 12 A6 20 20 | "..)..F3$.".. |
00002190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000021A0: 20 20 20 20 20 A6 22 00 B7 29 FC 12 44 31 24 B2 | ."..)..D1$.|
000021B0: 22 13 11 11 11 11 22 00 CD 29 2E 13 99 22 93 22 |"....."..)..."."|
000021C0: 3B 44 31 24 3B 3A 99 A3 38 29 46 31 24 00 EA 29 |;D1$;:..8)F1$..)|
000021D0: 60 13 81 53 B2 31 A4 35 3A 99 A3 38 29 46 32 24 |`..S.1.5:..8)F2$|
000021E0: 3A 99 A3 38 29 46 33 24 3A 82 00 0B 2A 92 13 99 |:..8)F3$:...*...|
000021F0: A3 38 29 46 32 24 3A 99 A3 38 29 46 31 24 3A 99 |.8)F2$:..8)F1$:.|
00002200: 44 31 24 AA 22 11 11 11 11 22 3B 00 26 2A C4 13 |D1$."....";.&*..|
00002210: 99 A3 31 34 29 22 12 41 4D 4F 52 54 49 5A 41 54 |..14)".AMORTIZAT|
00002220: 49 4F 4E 11 11 22 00 39 2A F6 13 99 A3 31 37 29 |ION..".9*....17)|
00002230: 22 12 54 41 42 4C 45 53 22 00 46 2A 28 14 8D 38 |".TABLES".F*(..8|
00002240: 33 35 3A 20 20 8E 00 58 2A 5A 14 81 53 B2 31 A4 |35: ..X*Z..S.1.|
00002250: 32 30 30 30 3A 82 3A 8E 00 62 2A 8C 14 89 35 33 |2000:.:..b*...53|
00002260: 36 30 00 84 2A BE 14 81 53 B2 30 A4 32 34 3A 99 |60..*...S.0.24:.|
00002270: 42 31 24 3A 97 33 32 38 30 37 AA 34 30 AC 53 2C |B1$:.32807.40.S,|
00002280: 33 32 3A 82 00 8F 2A F0 14 99 22 93 22 3A 8E 00 |32:...*...".":..|
00002290: C0 2A 22 15 43 31 24 B2 22 20 20 20 1D 20 20 20 |.*".C1$." . |
000022A0: 20 20 20 20 20 20 20 1D 20 20 20 20 20 20 20 20 | . |
000022B0: 20 20 1D 20 20 20 20 20 20 20 20 20 20 20 20 22 | . "|
000022C0: 00 E8 2A 54 15 99 22 13 11 11 11 11 11 11 11 11 |..*T..".........|
000022D0: 11 11 11 11 22 3B 3A 81 53 B2 31 A4 31 30 3A 99 |....";:.S.1.10:.|
000022E0: A3 31 29 43 31 24 3A 82 00 EE 2A 86 15 8E 00 06 |.1)C1$:...*.....|
000022F0: 2B B8 15 4E 32 B2 B5 28 31 30 30 AC 4E 31 AA 2E |+..N2..(100.N1..|
00002300: 35 29 AD 31 30 30 00 39 2B EA 15 8B 4E 32 B1 30 |5).100.9+...N2.0|
00002310: AF 4E 32 B3 31 A7 4E 31 24 B2 22 20 20 20 20 20 |.N2.1.N1$." |
00002320: 24 22 AA C4 28 C5 28 CA 28 C4 28 4E 32 29 2C 32 |$"..(.(.(.(N2),2|
00002330: 29 29 29 3A 89 36 30 31 30 00 62 2B 1C 16 8B 4E |))):.6010.b+...N|
00002340: 32 B3 31 30 A7 4E 31 24 B2 22 20 20 20 20 20 24 |2.10.N1$." $|
00002350: 22 AA CA 28 C4 28 4E 32 29 2C 32 29 3A 89 36 30 |"..(.(N2),2):.60|
00002360: 31 30 00 8C 2B 4E 16 8B 4E 32 B3 31 30 30 A7 4E |10..+N..N2.100.N|
00002370: 31 24 B2 22 20 20 20 20 24 22 AA 20 CA 28 C4 28 |1$." $". .(.(|
00002380: 4E 32 29 2C 32 29 3A 89 36 30 31 30 00 B6 2B 80 |N2),2):.6010..+.|
00002390: 16 8B 4E 32 B3 31 30 30 30 A7 4E 31 24 B2 22 20 |..N2.1000.N1$." |
000023A0: 20 20 24 22 AA 20 CA 28 C4 28 4E 32 29 2C 32 29 | $". .(.(N2),2)|
000023B0: 3A 89 36 30 31 30 00 E0 2B B2 16 8B 4E 32 B3 31 |:.6010..+...N2.1|
000023C0: 30 30 30 30 A7 4E 31 24 B2 22 20 20 24 22 AA 20 |0000.N1$." $". |
000023D0: CA 28 C4 28 4E 32 29 2C 32 29 3A 89 36 30 31 30 |.(.(N2),2):.6010|
000023E0: 00 0A 2C E4 16 8B 4E 32 B3 31 30 30 30 30 30 A7 |..,...N2.100000.|
000023F0: 4E 31 24 B2 22 20 24 22 AA 20 CA 28 C4 28 4E 32 |N1$." $". .(.(N2|
00002400: 29 2C 32 29 3A 89 36 30 31 30 00 34 2C 16 17 8B |),2):.6010.4,...|
00002410: 4E 32 B3 31 30 30 30 30 30 30 A7 4E 31 24 B2 22 |N2.1000000.N1$."|
00002420: 24 22 AA 20 CA 28 C4 28 4E 32 29 2C 32 29 3A 89 |$". .(.(N2),2):.|
00002430: 36 30 31 30 00 47 2C 48 17 4E 31 24 B2 CA 28 C4 |6010.G,H.N1$..(.|
00002440: 28 4E 32 29 2C 32 29 00 75 2C 7A 17 8B 4E 32 B2 |(N2),2).u,z..N2.|
00002450: B5 28 4E 32 29 A7 4E 31 24 B2 4E 31 24 AA 22 2E |.(N2).N1$.N1$.".|
00002460: 30 30 22 20 20 20 20 20 20 20 20 20 20 20 20 3A |00" :|
00002470: 89 36 32 36 30 00 A0 2C AC 17 8B 4E 32 B1 31 30 |.6260..,...N2.10|
00002480: A7 52 B2 4E 32 AB B5 28 4E 32 AD 31 30 29 AC 31 |.R.N2..(N2.10).1|
00002490: 30 20 20 20 20 20 20 20 20 20 3A 89 36 31 36 30 |0 :.6160|
000024A0: 00 A9 2C DE 17 52 B2 4E 32 00 C7 2C 10 18 4E 25 |..,..R.N2..,..N%|
000024B0: B2 31 30 AC 52 20 3A 4E 4E 25 B2 31 30 30 AC 28 |.10.R :NN%.100.(|
000024C0: 52 AA 2E 30 30 35 29 00 E2 2C 42 18 8B 31 30 AC |R..005)..,B..10.|
000024D0: 4E 25 B2 4E 4E 25 A7 4E 31 24 B2 4E 31 24 AA 22 |N%.NN%.N1$.N1$."|
000024E0: 30 22 00 E8 2C 74 18 8E 00 0D 2D A6 18 8B 4E 31 |0"..,t....-...N1|
000024F0: B3 31 30 A7 4E 31 24 B2 22 20 20 22 AA CA 28 C4 |.10.N1$." "..(.|
00002500: 28 4E 31 29 2C 32 29 3A 89 36 34 36 30 00 32 2D |(N1),2):.6460.2-|
00002510: D8 18 8B 4E 31 B3 31 30 30 A7 4E 31 24 B2 22 20 |...N1.100.N1$." |
00002520: 22 AA CA 28 C4 28 4E 31 29 2C 32 29 3A 89 36 34 |"..(.(N1),2):.64|
00002530: 36 30 00 45 2D 0A 19 4E 31 24 B2 CA 28 C4 28 4E |60.E-..N1$..(.(N|
00002540: 31 29 2C 32 29 00 4B 2D 3C 19 8E 00 71 2D 6E 19 |1),2).K-<...q-n.|
00002550: 4E 31 B2 20 38 31 32 37 34 2E 36 39 35 34 20 20 |N1. 81274.6954 |
00002560: 20 20 3A 4E 31 24 B2 CA 28 C4 28 4E 32 29 2C 32 | :N1$..(.(N2),2|
00002570: 29 00 7B 2D A0 19 8D 35 35 36 30 00 BE 2D D2 19 |).{-...5560..-..|
00002580: 99 22 93 4E 31 3A 22 3B 4E 31 3A 99 22 4E 32 3A |.".N1:";N1:."N2:|
00002590: 22 3B 4E 32 3A 99 22 52 3A 22 3B 52 3A 99 22 4E |";N2:."R:";R:."N|
000025A0: 25 3A 22 3B 4E 25 3A 99 22 4E 4E 25 3A 22 3B 4E |%:";N%:."NN%:";N|
000025B0: 4E 25 3A 99 22 4E 31 24 3A 22 3B 4E 31 24 00 F2 |N%:."N1$:";N1$..|
000025C0: 2D 10 27 46 4C B2 30 3A 55 53 24 B2 22 30 31 32 |-.'FL.0:US$."012|
000025D0: 33 34 35 36 37 38 39 2E 22 3A 55 4C B2 31 30 3A |3456789.":UL.10:|
000025E0: 8D 33 35 3A 8B C5 28 55 52 24 29 B3 31 A7 46 4C |.35:..(UR$).1.FL|
000025F0: B2 31 00 F8 2D 1A 27 8E 00 39 2E E0 2E 99 C8 28 |.1..-.'..9.....(|
00002600: 55 44 24 2C 32 34 29 22 20 50 52 45 53 53 20 12 |UD$,24)" PRESS .|
00002610: 53 50 41 43 45 92 20 54 4F 20 43 4F 4E 54 49 4E |SPACE. TO CONTIN|
00002620: 55 45 2C 20 12 45 92 20 54 4F 20 45 58 49 54 20 |UE, .E. TO EXIT |
00002630: 20 20 22 3A 97 55 4F 2C 30 00 4B 2E EF 2E A1 41 | ":.UO,0.K....A|
00002640: 24 3A 8B 41 24 B2 22 20 22 A7 8E 00 5E 2E F0 2E |$:.A$." "...^...|
00002650: 8B 41 24 B2 22 45 22 A7 9E 55 50 25 3A 8E 00 69 |.A$."E"..UP%:..i|
00002660: 2E F1 2E 89 31 32 30 31 35 00 00 00 |....12015... |
.......910.*.... ** ML STOP KEY DISABLE
**.U...."X.=........X` ......L4.X.1.....
...X`.T...."XHHH.H.HHHHHHH.H.HX`111"....
.."HHHHHHH`1"...... ** 4 - POP ML SUBROU
TINE **.H.... **GENERAL INPUT ROUTINE **
.N...:.T...:...#.. +++ INPUT SECTION +++
...(..UO,0:UR$."":UI$.""...*..UL.0.UL.80
.".-..UC,0.6.2..UI$:.UI$."".50.`.7..UI$.
G(13).C(UR$)..1..UC,1:." .";:.85.S.<..UI
$.G(20).105...>.. C(UR$)..UL.50...A..120
:. CHECK FOR VALID CHARACTER...F.UR$.UR$
.UI$.F.K..UI$;.N.P..50...U.. +++ CHECK F
OR HELP REQUEST +++...Z..UR$.UX$.195:. E
XIT TO HELP ROUTINE.*._..UF.1..240.7.D.U
F.0:.:..P.F.. ++ CHECK DELETE ++.A.I..C(
UR$).1.50.Y.N.UR$.H(UR$,C(UR$).1)...S.."
. ..";:.50...X.. ++ CHECK FOR VALID CHA
RACTERS ++.D.}..C(US$).0.150.U....US.1.C
(US$)......UI$.J(US$,US,1).............U
I$."":....... ** STANDARD INPUT **.+....
F(UI$).46...<....UI$.G(32)...Y. ..F(UI$)
.48.F(UI$).57.170._.....|....F(UI$).65.F
(UI$).90.180............F(UI$).193.F(UI$
).218.UI$."":..I....B(UT).UU%.UI$.G(F(UI
$).128):..O.........UI$."":....C.UF.1:.
+++ HELP ROUTINE EXIT +++...E..250...H..
245.2.M..UQ.UB.(U2%.256.U1%.U3%.2).N.R.U
Q%(UQ.UB).B(UQ):.:.".".A.W.UZ.1:UV%.B(UT
).J.X..300...Y.UZ.0:US$.UJ$:UG$.UK$:UP.U
J:UL.UK:.B(50003).0..53281,6:.53280,14..
...UT$.UL$:.".";:.UT,UV%:.UQ.UB.(U2%.256
.U1%.U3%.3)......UQ,UQ%(UQ.UB):.......U1
,U1%......U2,U2%......U4,U4%.*....U3,U3%
.1.2....35.D...UD%.((U2%.256.U1%.U3%).UB
).40:.H(UD$,UD%.1):.......H(UD$,24);"
. HELP COMING . ":..
K...U1%.B(U1):U2%.B(U2):U3%.B(U3):U4%.B(
U4).....UJ$.US$:UK$.UG$:UL$.UT$:UJ.UP:UK
.UL.........,.. ** MENU **...-.:.?....".
":.UT,UU%:.B(50003).0..53281,9:.53280,8.
E./.:.B.1..". MENU"...6..
" --------------------------------------
"...;..".. 1. BEGIN AMORTIZATION
"...@..".. 2. STUDENT INSTRUCTIO
NS"...E..".. 3. TEACHER INSTRUCT
IONS".).O..".. 4. QUIT..".X.T.."
--------------------------------------"
...Y..".. PRESS A NUMBER KEY (1-4)
";...^.UL.1:US$."1234":.35:. INPUT ROUT
INE...`.US$."".S.C..E(UR$).1000,400,500,
396...H..300...... ** RE-ENABLE STOP KEY
AND END **.2....B(50003)..1.B(50003)..1
60.B(50003)..0.399.\....UU.71:.B(50003).
0..53281,6:.53280,14.H...."..":..S....87
5:....... ** STUDENT INSTRUCTIONS **.C..
..".":.UT,UL%:.B(50003).0..53281,0:.5328
0,0.....UT$." AMORTIZATION":UP.0:UG$."ST
UDENT INST":.850.'....". THIS PROGRA
M WILL AMORTIZE A LOAN".U...."..BASED ON
INFORMATION ENTERED BY THE ".D....". US
ER."......". TO RUN THIS PROGRAM, SI
MPLY ENTER".G....". ALL REQUESTED DATA A
ND PRESS THE .RETURN.";...B..". KEY WHEN
DONE. "...G..". THERE ARE 5 DATA IT
EMS IN TOTAL TO".%.H..". BE ENTERED."...
...835.B....UZ.1..UP%:.217.H.....I.... *
* TEACHER INSTRUCTIONS **......".":.UT,U
L%:.B(50003).0..53281,2:.53280,10.N...UT
$." AMORTIZATION":UP.0:UG$."TEACHER INST
":.850......".. TO THE BEST OF OUR
KNOWLEDGE,.".%...." THIS PROGRAM IS IN
THE PUBLIC.".Q...." DOMAIN. IF THIS
IS NOT THE CASE.".N...." PLEASE CONTAC
T:..."......" COMMODORE BUSINESS MA
CHINES."......" 3370 PHARMACY A
VE......." AGINCOURT, ONTARIO".
....." CANADA M1W 2K4".!...."
(416) 499-4292".7...UP.1:. 835
:. 850:.`...." ..PROGRAM NAME: AMORT
IZATION......." WRITTEN BY : UNKNOW
N......." UPGRADED BY : ..Q
...." .THIS PROGRAM WILL RUN ON ANY.
......." BASIC 2.0 PET COMPUTER.
......" BASIC 4.0 PET COMPUTER..
A...." 8032 CBM COMPUTER..F...."
COMMODORE 64 COMPUTER.O....835.
..N..UZ.1..UP%:.217...W.....X.. ** PROGR
AM MODIFICATION INST **...Y..".":.UT,UL%
...].UP.0:UG$."PROGRAM MOD":.850......83
5......UZ.1..UP%:.217.......(.... ** TO
USE 8032 LOAD CBM4032 **.^.F..".....BEFO
RE RUNNING THIS PROGRAM ON AN 8032 ....
.P.." LOAD THE 'CBM 4032' PROGRAM..
..........."...Z..UU.71.......E. .. ** T
I T L E P A G E **...".."....";:.UT,U
U%:.B(50003).0..53280,14:.53281,6...$..I
.1.38:."...";:..'.&..I.1.22:.".....";:..
?.(..I.1.37:.".....";:..W.*..I.1.22:."..
...";:..|.,.."..........................
. ......."................... . . ....
.0.."................... . ......2.."..
.................. ....4.."............
..C O M M O D O R E...(.6.."............
...EDUCATIONAL...G.8.."................S
OFTWARE.B.:.. ** COMMODORE LOGO **...;..
H(UD$,24);"..........PRESS SPACE BAR OR
WAIT.":I.0...<..A$:.A$.." ".I.I.1:.I.250
.828...>.T1$."":T2$."":T3$."":T4$."":I.0
...@..300...C.. ** SPACE BAR PRESS **.@.
H..UO,0:.H(UD$,24);".......PRESS SPACE B
AR TO CONTINUE.".W.L..UI$:.UI$.." ".844.
].N...}.R.. ** PAGE DESIGN ROUTINE **...
T.UP.UP.1...W.."."H(UT$.UP$,21);I(UP$.UG
$.D(UP),18)...\.." ---------------------
-----------------"...`..UH..0.870.3.A..
PRINTLEFT$(UD$,24);LEFT$(UP$,7);"HELP -
PRESS H <RETURN>".D.F.UH.0:."..":..C.K
.. ** PLEASE WAIT REMARK **...P..H(UD$,2
4);" ONE MOMENT PLEASE...
"...U........ ** SET UP VARIABLES **....
.UX$."H":.UQ%(1000):UB.32768:U1.196:U2.1
97:U3.198:U4.216:UC.167:UU.1024.E...UT.5
9468:UU%.12:UL%.14:UP%.1146:UM.32768:UO.
158:. 50003,0......B(50003).0.UB.1024:U1
.209:U2.210:U3.211:U4.214:UC.204:UU.2048
.G....B(50003).0.UT.53272:UU%.21:UL%.23:
UP%.2139:UM.1024:UO.198.....UD$.".......
..................".....UP$."
".K...UT$."
AMORTIZATION ":. PLACE PROGRAM TITL
E HERE !!!!!!!!!!!!!!!!!***.Q..........
** SET VARIABLES **......900...... ** CH
ECK FOR 8032 **.M....".":." ":. SHIFTED
SPACE......B(UB.40)..96..700...... ** ME
MORY CHECK **...... .(0).2000.937.?...."
....THIS MACHINE DOES NOT HAVE ENOUGH.".
C...."MEMORY TO RUN THIS PROGRAM !".N...
.UU.71.T.........."..":.B(50003).0.962..
.... ** BASIC 2.0 OR 4.0 OR C-64 SET
UP **......1075,133:.1076,144:.1077,234:
.1079,4:.1080,133:.1081,145.1....1091,15
5:.1098,133:.1099,144:.1100,234:.1103,13
3.S....1104,145:.1105,234:.1082,234.J...
.B(50003)..160.955......1093,88:.1094,22
8:.1097,85:.1102,228:.965......B(50003).
.1.990......1093,49:.1094,230:.1097,46:.
1102,230:.965...B..2099,141:.2100,20:.21
01,3:.2103,8:.2104,141:.2105,21.S.C..210
6,3:.2115,145:.2117,52:.2118,234:.2121,4
9:.2122,141...D..2123,20:.2124,3:.2126,2
34:.2127,141:.2128,21:.2129,3...E..UU.48
:. DISABLE STOP KEY...J..800:. TITLE.L.T
..300:. MENU......".THE PGM WILL NOT WOR
K ON THIS MACHINE!":..2 ...UZ.1..UP%:.UP
%:UZ.0:. ** PROGRAM STARTS HERE **.^ ...
"..";:.:.B(50003).0..53281,6:.53280,14.I
..UG$."".. ..UT$." AMORTIZATION".. $.D2
$."........................".V V.B1$."
"..
[.BL$." .........."..!`.UP.0:U
G$."DATA ENTRY":.850.D!...". .1.. WHAT I
S THE NOMINAL INTEREST RATE".X!...".
PER ANNUM? (%) "BL$;:.10000:I.E(UR$).100
..!D..FL..".....":.1160..!N..I.30.."....
.":.1160.U!...". .2.. WHAT IS THE NUMBER
OF INTEREST".."...". PERIODS PER ANN
UM? "BL$;:.10000:N.E(UR$). "(..FL.."....
.":.1260.:"2..N.366..".....":.1260.G"P..
". .3.. WHAT IS THE NUMBER OF PAYMENTS".
."...". PER ANNUM? ";BL$;:.10000:P.E(
UR$).."...FL..".....":.1360.E"...P.100..
".....":.1360.."...". .4.. WHAT IS THE A
MOUNT"..#...". OF THE LOAN? ($) ";BL$
;:.10000 :L.E(UR$).2#...FL..".....":.14
60.Q#...L.9999999 ..".....":.1460.P#..UP
.1:UG$."DATA ENTRY":.850..#...". .5.. HO
W MANY YEARS ARE THERE TO".O#J..". TO
REPAY THE LOAN? ";BL$;:.10000:K.E(UR$).
.#T..FL..".....":.1560..$Y..K.100.."....
.":.1560..$^..399..$|.E.(1.I.N).(N.P).1.
?$..X.((1.(1.E).(.P.K))..1).E.L.U$..N1.X
:.5560:X$.N1$.K$..N1.L:.5560:L$.N1$.U$D.
.5260..$V.."............................
............":.UM.39,110.R$...I.1.21:.".
":.UM.39.40.I,93:...%Z.."...............
.........................":.UM.919,125.-
%....10)"AMORTIZATION TABLE.".J%>... 8)"
INSTALMENT OF ";X$.Z%P...2)"PAID";P;"TIM
ES PER YEAR FOR";K;"YEARS"..%....12) P.K
;"PAYMENTS".N%T.."......................
.................":.UM.279,115..%....1)"
PAY. INTEREST . PAYMENT .OUTSTANDING".+
&8...1)"NO.. ON DEBT .ON PRINC. . DEBT
".I&J...0)"...........................
............":.UM.399,115..&...I.1.12:..
4)".".10)".".10)"." :...&N...2)"........
..... ".25) L$..&....0)".............
..........................":.UM.479,115.
.&2.OS.L:CC.0..'D..J.(CC.1).(CC.10)..'..
IN.OS.E.7'H.N1.IN:.5560:IN$.N1$.C'..PY.X
.IN.[',.N1.PY:.5560:PY$.N1$.H'^.NS.OS.PY
..'..N1.NS:.5560:NS$.N1$..'B.N1.J:.6310:
..1)N1$;..'.... 5)IN$;..'&...16)PY$;.B'
X...29)NS$.R'...NS..X.3760..'..J.J.1 :IN
.NS.E..'..N1.IN:.5560:IN$.N1$..( .PY.NS.
IN.#(R.N1.J:.6310: ..1)N1$;.=(..N1.IN:.5
560:.. 5)N1$;.W(..N1.NS:.5560:..16)N1$;.
F(....33)"NIL".Y(..N1.IN.NS:.5560..(L..X
$..N1$..".....":..17)"LAST PAY'T:";N1$..
(~..4360..(..OS.NS.A(...J.Q(...P.K.J.396
0..(F..4360..(X.CC.CC.10..(...12000..)R.
.5410:..0)".";B1$..)..."............".')
V..2660.-)..:.8):..835:..])F.F1$.".. . .
. . . . . . . . . ."..)..F2$.".
"..)J.F3$."..
."..)..D1$.".....".M)..."."
;D1$;:..8)F1$..)`..S.1.5:..8)F2$:..8)F3$
:...*....8)F2$:..8)F1$:.D1$."....";.&*D.
..14)".AMORTIZATION..".9*....17)".TABLES
".F*(..835: ..X*Z..S.1.2000:.:..B*...53
60..*...S.0.24:.B1$:.32807.40.S,32:...*.
..".":...*".C1$." . .
. "..*T..".............";:.
S.1.10:..1)C1$:...*.....+..N2..(100.N1..
5).100.9+...N2.0.N2.1.N1$." $".D(E(J
(D(N2),2))):.6010.B+...N2.10.N1$." $
".J(D(N2),2):.6010..+N..N2.100.N1$."
$". J(D(N2),2):.6010..+...N2.1000.N1$."
$". J(D(N2),2):.6010..+...N2.10000.N1$
." $". J(D(N2),2):.6010..,...N2.100000.
N1$." $". J(D(N2),2):.6010.4,...N2.10000
00.N1$."$". J(D(N2),2):.6010.G,H.N1$.J(D
(N2),2).U,Z..N2..(N2).N1$.N1$.".00"
:.6260. ,...N2.10.R.N2..(N2.10).1
0 :.6160..,..R.N2.G,..N%.10.R :N
N%.100.(R..005)..,B..10.N%.NN%.N1$.N1$."
0"..,T....-...N1.10.N1$." ".J(D(N1),2):
.6460.2-X..N1.100.N1$." ".J(D(N1),2):.64
60.E-..N1$.J(D(N1),2).K-<...Q-N.N1. 8127
4.6954 :N1$.J(D(N2),2).{- ..5560..-R.
.".N1:";N1:."N2:";N2:."R:";R:."N%:";N%:.
"NN%:";NN%:."N1$:";N1$..-.'FL.0:US$."012
3456789.":UL.10:.35:.E(UR$).1.FL.1..-.'.
.9....H(UD$,24)" PRESS .SPACE. TO CONTIN
UE, .E. TO EXIT ":.UO,0.K....A$:.A$."
"...^....A$."E"..UP%:..I....12015...
> CLICK IMAGE PREVIEW FOR FULL MODAL