MORTGAGE
FILE INFORMATION
FILENAME(S): MORTGAGE
FILE TYPE(S): PRG
FILE SIZE: 11.1K
FIRST SEEN: 2025-11-30 21:23:54
APPEARS ON: 1 disk(s)
FILE HASH
126b1361464cb31a441427a0030c0a600d018b1f1effdc7b113ec696445c2c27
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 HULP 33 1 | MORTGAGE | PRG | DuncanTwain | 5 | 2 | 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 55 52 24 B2 22 22 3A 55 49 24 B2 |...(.UR$."":UI$.| 00000100: 22 22 3A 97 55 4F 2C 30 00 18 09 2A 00 8B 55 4C |"":.UO,0...*..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 D2 |81,6:.53280,14..| 000004B0: 0C DC 00 55 54 24 B2 55 4C 24 3A 97 35 33 32 38 |...UT$.UL$:.5328| 000004C0: 31 2C 31 3A 99 22 93 22 3B 3A 97 35 33 32 38 31 |1,1:.".";:.53281| 000004D0: 2C 36 00 F9 0C DD 00 97 55 54 2C 55 56 25 3A 81 |,6......UT,UV%:.| 000004E0: 55 51 B2 55 42 A4 28 55 32 25 AC 32 35 36 AA 55 |UQ.UB.(U2%.256.U| 000004F0: 31 25 AA 55 33 25 AB 33 29 00 0E 0D E1 00 97 55 |1%.U3%.3)......U| 00000500: 51 2C 55 51 25 28 55 51 AB 55 42 29 3A 82 00 1A |Q,UQ%(UQ.UB):...| 00000510: 0D E6 00 97 55 31 2C 55 31 25 00 26 0D E8 00 97 |....U1,U1%.&....| 00000520: 55 32 2C 55 32 25 00 32 0D E9 00 97 55 34 2C 55 |U2,U2%.2....U4,U| 00000530: 34 25 00 40 0D EA 00 97 55 33 2C 55 33 25 AB 31 |4%.@....U3,U3%.1| 00000540: 00 48 0D EB 00 89 33 35 00 7A 0D F0 00 55 44 25 |.H....35.z...UD%| 00000550: B2 28 28 55 32 25 AC 32 35 36 AA 55 31 25 AA 55 |.((U2%.256.U1%.U| 00000560: 33 25 29 AB 55 42 29 AD 34 30 3A 99 C8 28 55 44 |3%).UB).40:..(UD| 00000570: 24 2C 55 44 25 AA 31 29 3A 8E 00 B5 0D F5 00 99 |$,UD%.1):.......| 00000580: C8 28 55 44 24 2C 32 34 29 3B 22 20 20 20 20 20 |.(UD$,24);" | 00000590: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000005A0: 20 12 20 48 45 4C 50 20 43 4F 4D 49 4E 47 20 92 | . HELP COMING .| 000005B0: 20 20 22 3A 8E 00 E1 0D FA 00 55 31 25 B2 C2 28 | ":......U1%..(| 000005C0: 55 31 29 3A 55 32 25 B2 C2 28 55 32 29 3A 55 33 |U1):U2%..(U2):U3| 000005D0: 25 B2 C2 28 55 33 29 3A 55 34 25 B2 C2 28 55 34 |%..(U3):U4%..(U4| 000005E0: 29 00 09 0E FB 00 55 4A 24 B2 55 53 24 3A 55 4B |).....UJ$.US$:UK| 000005F0: 24 B2 55 47 24 3A 55 4C 24 B2 55 54 24 3A 55 4A |$.UG$:UL$.UT$:UJ| 00000600: B2 55 50 3A 55 4B B2 55 4C 00 0F 0E FF 00 8E 00 |.UP:UK.UL.......| 00000610: 20 0E 2C 01 8F 20 2A 2A 20 4D 45 4E 55 20 2A 2A | .,.. ** MENU **| 00000620: 00 26 0E 2D 01 3A 00 55 0E 2E 01 99 22 93 22 3A |.&.-.:.U....".":| 00000630: 97 55 54 2C 55 55 25 3A 8B C2 28 35 30 30 30 33 |.UT,UU%:..(50003| 00000640: 29 B2 30 A7 97 35 33 32 38 31 2C 39 3A 97 35 33 |).0..53281,9:.53| 00000650: 32 38 30 2C 38 00 5B 0E 2F 01 3A 00 78 0E 31 01 |280,8.[./.:.x.1.| 00000660: 99 22 13 20 20 20 20 20 20 20 20 20 20 20 20 20 |.". | 00000670: 20 20 20 4D 45 4E 55 22 00 A7 0E 36 01 99 22 20 | MENU"...6.." | 00000680: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000690: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000006A0: 2D 2D 2D 2D 2D 2D 22 00 CB 0E 3B 01 99 22 11 11 |------"...;.."..| 000006B0: 20 20 20 20 20 20 20 31 2E 20 20 20 42 45 47 49 | 1. BEGI| 000006C0: 4E 20 4D 4F 52 54 47 41 47 45 22 00 ED 0E 40 01 |N MORTGAGE"...@.| 000006D0: 99 22 11 11 20 20 20 20 20 20 20 32 2E 20 20 20 |.".. 2. | 000006E0: 49 4E 53 54 52 55 43 54 49 4F 4E 53 22 00 17 0F |INSTRUCTIONS"...| 000006F0: 45 01 99 22 11 11 20 20 20 20 20 20 20 33 2E 20 |E..".. 3. | 00000700: 20 20 54 45 41 43 48 45 52 20 49 4E 53 54 52 55 | TEACHER INSTRU| 00000710: 43 54 49 4F 4E 53 22 00 44 0F 4A 01 99 22 11 11 |CTIONS".D.J.."..| 00000720: 20 20 20 20 20 20 20 34 2E 20 20 20 4D 4F 44 49 | 4. MODI| 00000730: 46 49 43 41 54 49 4F 4E 20 4F 46 20 50 52 4F 47 |FICATION OF PROG| 00000740: 52 41 4D 22 00 60 0F 4F 01 99 22 11 11 20 20 20 |RAM".`.O..".. | 00000750: 20 20 20 20 35 2E 20 20 20 51 55 49 54 11 11 22 | 5. QUIT.."| 00000760: 00 8F 0F 54 01 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D |...T.." --------| 00000770: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000780: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 |--------------".| 00000790: BA 0F 59 01 99 22 11 11 20 20 20 20 20 20 20 50 |..Y..".. P| 000007A0: 52 45 53 53 20 41 20 4E 55 4D 42 45 52 20 4B 45 |RESS A NUMBER KE| 000007B0: 59 20 28 31 2D 35 29 20 22 3B 00 E3 0F 5E 01 55 |Y (1-5) ";...^.U| 000007C0: 4C B2 31 3A 55 53 24 B2 22 31 32 33 34 35 22 3A |L.1:US$."12345":| 000007D0: 8D 33 35 3A 8F 20 49 4E 50 55 54 20 52 4F 55 54 |.35:. INPUT ROUT| 000007E0: 49 4E 45 00 F5 0F 5F 01 8B C3 28 55 52 24 29 B1 |INE..._...(UR$).| 000007F0: 31 A7 33 30 30 00 00 10 60 01 55 53 24 B2 22 22 |1.300...`.US$.""| 00000800: 00 21 10 63 01 91 C5 28 55 52 24 29 8D 31 30 30 |.!.c...(UR$).100| 00000810: 30 2C 34 30 30 2C 35 30 30 2C 36 30 30 2C 33 39 |0,400,500,600,39| 00000820: 36 00 2A 10 68 01 89 33 30 30 00 51 10 8B 01 8F |6.*.h..300.Q....| 00000830: 20 2A 2A 20 52 45 2D 45 4E 41 42 4C 45 20 53 54 | ** RE-ENABLE ST| 00000840: 4F 50 20 4B 45 59 20 41 4E 44 20 45 4E 44 20 2A |OP KEY AND END *| 00000850: 2A 00 80 10 8C 01 8B C2 28 35 30 30 30 33 29 B3 |*.......(50003).| 00000860: B1 31 AF C2 28 35 30 30 30 33 29 B3 B1 31 36 30 |.1..(50003)..160| 00000870: AF C2 28 35 30 30 30 33 29 B3 B1 30 A7 33 39 39 |..(50003)..0.399| 00000880: 00 AA 10 8D 01 9E 55 55 AA 37 31 3A 8B C2 28 35 |......UU.71:..(5| 00000890: 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 36 |0003).0..53281,6| 000008A0: 3A 97 35 33 32 38 30 2C 31 34 00 B6 10 8E 01 99 |:.53280,14......| 000008B0: 22 9A 93 22 3A 80 00 C1 10 8F 01 8D 38 37 35 3A |"..":.......875:| 000008C0: 8E 00 E2 10 90 01 8F 20 2A 2A 20 53 54 55 44 45 |....... ** STUDE| 000008D0: 4E 54 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 20 |NT INSTRUCTIONS | 000008E0: 2A 2A 00 11 11 95 01 99 22 93 22 3A 97 55 54 2C |**......".":.UT,| 000008F0: 55 4C 25 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 |UL%:..(50003).0.| 00000900: 97 35 33 32 38 31 2C 30 3A 97 35 33 32 38 30 2C |.53281,0:.53280,| 00000910: 30 00 32 11 9A 01 55 50 B2 30 3A 55 47 24 B2 22 |0.2...UP.0:UG$."| 00000920: C9 4E 53 54 52 55 43 54 49 4F 4E 53 22 3A 8D 38 |.NSTRUCTIONS":.8| 00000930: 35 30 00 5D 11 9F 01 99 22 11 11 11 11 20 20 20 |50.]....".... | 00000940: 20 20 D4 48 49 53 20 50 52 4F 47 52 41 4D 20 4D | .HIS PROGRAM M| 00000950: 41 59 20 42 45 20 55 53 45 44 20 54 4F 00 89 11 |AY BE USED TO...| 00000960: A4 01 99 22 11 1D 43 41 4C 43 55 4C 41 54 45 20 |..."..CALCULATE | 00000970: 56 41 52 49 4F 55 53 20 49 4E 46 4F 52 4D 41 54 |VARIOUS INFORMAT| 00000980: 49 4F 4E 20 41 42 4F 55 54 00 C4 11 A9 01 99 22 |ION ABOUT......"| 00000990: 11 1D 4D 4F 52 54 47 41 47 45 20 41 4D 4F 52 54 |..MORTGAGE AMORT| 000009A0: 49 5A 41 54 49 4F 4E 2C 20 50 41 59 4D 45 4E 54 |IZATION, PAYMENT| 000009B0: 2C 20 45 54 43 2E 22 3A 8D 31 30 30 30 30 3A 8D |, ETC.":.10000:.| 000009C0: 38 33 35 3A 00 F5 11 AA 01 8D 38 35 30 3A 99 22 |835:......850:."| 000009D0: 11 20 20 20 20 20 D4 48 45 20 55 53 45 52 20 49 |. .HE USER I| 000009E0: 53 20 46 49 52 53 54 20 52 45 51 55 49 52 45 44 |S FIRST REQUIRED| 000009F0: 20 54 4F 20 22 00 21 12 AB 01 99 22 11 1D 45 4E | TO ".!...."..EN| 00000A00: 54 45 52 20 43 45 52 54 41 49 4E 20 4E 45 43 45 |TER CERTAIN NECE| 00000A10: 53 53 41 52 59 20 44 41 54 41 2C 20 57 48 49 43 |SSARY DATA, WHIC| 00000A20: 48 00 51 12 AC 01 99 22 11 1D 53 45 52 56 45 53 |H.Q...."..SERVES| 00000A30: 20 41 53 20 54 48 45 20 42 41 53 49 53 20 4F 46 | AS THE BASIS OF| 00000A40: 20 54 48 45 20 43 41 4C 43 55 4C 41 54 49 4F 4E | THE CALCULATION| 00000A50: 53 00 7A 12 AE 01 99 22 1D D7 48 45 4E 20 45 4E |S.z...."..HEN EN| 00000A60: 54 45 52 49 4E 47 20 54 48 49 53 20 44 41 54 41 |TERING THIS DATA| 00000A70: 2C 20 54 48 45 20 55 53 45 52 00 A7 12 B3 01 99 |, THE USER......| 00000A80: 22 11 1D 57 49 4C 4C 20 42 45 20 47 55 49 44 45 |"..WILL BE GUIDE| 00000A90: 44 20 42 59 20 54 48 45 20 43 4F 4D 50 55 54 45 |D BY THE COMPUTE| 00000AA0: 52 20 41 53 20 54 4F 00 D7 12 B4 01 99 22 11 1D |R AS TO......"..| 00000AB0: 45 58 41 43 54 4C 59 20 57 48 41 54 20 49 53 20 |EXACTLY WHAT IS | 00000AC0: 52 45 51 55 49 52 45 44 20 54 4F 20 42 45 20 45 |REQUIRED TO BE E| 00000AD0: 4E 54 45 52 45 44 2E 00 05 13 B5 01 99 22 1D D7 |NTERED......."..| 00000AE0: 48 45 4E 20 45 4E 54 45 52 49 4E 47 20 4E 55 4D |HEN ENTERING NUM| 00000AF0: 42 45 52 53 20 44 4F 20 4E 4F 54 20 49 4E 43 4C |BERS DO NOT INCL| 00000B00: 55 44 45 20 22 00 2F 13 B6 01 99 22 11 1D 44 4F |UDE "./...."..DO| 00000B10: 4C 4C 41 52 20 28 24 29 20 4F 52 20 50 45 52 43 |LLAR ($) OR PERC| 00000B20: 45 4E 54 20 28 25 29 20 53 49 47 4E 53 2E 22 00 |ENT (%) SIGNS.".| 00000B30: 72 13 B7 01 99 22 20 20 20 20 20 11 C1 46 54 45 |r...." ..FTE| 00000B40: 52 20 45 4E 54 45 52 49 4E 47 20 54 48 45 20 44 |R ENTERING THE D| 00000B50: 41 54 41 2C 20 50 52 45 53 53 20 20 20 20 11 1D |ATA, PRESS ..| 00000B60: 20 54 48 45 20 12 D2 C5 D4 D5 D2 CE 92 20 4B 45 | THE ........ KE| 00000B70: 59 2E 00 80 13 B8 01 8D 38 33 35 3A 8D 38 35 30 |Y.......835:.850| 00000B80: 00 B0 13 BD 01 99 22 11 20 20 20 20 20 C9 46 20 |......". .F | 00000B90: 44 45 53 49 52 45 44 2C 20 54 48 45 20 43 4F 4D |DESIRED, THE COM| 00000BA0: 50 55 54 45 52 20 57 49 4C 4C 20 54 48 45 4E 22 |PUTER WILL THEN"| 00000BB0: 00 DC 13 C2 01 99 22 11 1D 44 49 53 50 4C 41 59 |......"..DISPLAY| 00000BC0: 20 54 41 42 4C 45 53 20 46 4F 52 20 54 48 45 20 | TABLES FOR THE | 00000BD0: 41 4D 4F 52 54 49 5A 41 54 49 4F 4E 00 0A 14 C7 |AMORTIZATION....| 00000BE0: 01 99 22 11 1D 4F 46 20 54 48 45 20 4C 4F 41 4E |.."..OF THE LOAN| 00000BF0: 2C 20 42 41 53 45 44 20 4F 4E 20 54 48 45 20 49 |, BASED ON THE I| 00000C00: 4E 46 4F 52 4D 41 54 49 4F 4E 00 29 14 CC 01 99 |NFORMATION.)....| 00000C10: 22 11 1D 54 48 41 54 20 59 4F 55 20 48 41 56 45 |"..THAT YOU HAVE| 00000C20: 20 45 4E 54 45 52 45 44 2E 00 58 14 D1 01 99 22 | ENTERED..X...."| 00000C30: 11 20 20 20 20 20 D4 48 49 53 20 50 52 4F 43 45 |. .HIS PROCE| 00000C40: 53 53 20 4D 41 59 20 54 41 4B 45 20 51 55 49 54 |SS MAY TAKE QUIT| 00000C50: 45 20 53 4F 4D 45 20 22 00 81 14 D6 01 99 22 11 |E SOME "......".| 00000C60: 1D 54 49 4D 45 20 54 4F 20 43 4F 4D 50 4C 45 54 |.TIME TO COMPLET| 00000C70: 45 2E 20 C9 46 20 41 54 20 41 4E 59 20 54 49 4D |E. .F AT ANY TIM| 00000C80: 45 00 AF 14 D7 01 99 22 11 1D 44 55 52 49 4E 47 |E......"..DURING| 00000C90: 20 54 48 49 53 20 50 52 4F 43 45 53 53 20 59 4F | THIS PROCESS YO| 00000CA0: 55 20 57 49 53 48 20 54 4F 20 53 54 4F 50 2C 00 |U WISH TO STOP,.| 00000CB0: D8 14 D8 01 99 22 11 1D 53 49 4D 50 4C 59 20 50 |....."..SIMPLY P| 00000CC0: 52 45 53 53 20 54 48 45 20 12 C5 92 20 4B 45 59 |RESS THE ... KEY| 00000CD0: 20 54 4F 20 45 58 49 54 00 ED 14 D9 01 99 22 11 | TO EXIT......".| 00000CE0: 1D 54 4F 20 54 48 45 20 CD C5 CE D5 2E 00 FB 14 |.TO THE ........| 00000CF0: DA 01 8D 38 33 35 3A 8D 38 35 30 00 2B 15 DB 01 |...835:.850.+...| 00000D00: 99 22 11 11 11 11 11 20 20 20 20 20 C6 55 52 54 |."..... .URT| 00000D10: 48 45 52 4D 4F 52 45 2C 20 49 46 20 57 48 49 4C |HERMORE, IF WHIL| 00000D20: 45 20 45 4E 54 45 52 49 4E 47 22 00 58 15 DC 01 |E ENTERING".X...| 00000D30: 99 22 11 11 1D 54 48 45 20 44 41 54 41 20 59 4F |."...THE DATA YO| 00000D40: 55 20 57 49 53 48 20 54 4F 20 52 45 54 55 52 4E |U WISH TO RETURN| 00000D50: 20 54 4F 20 54 48 45 22 00 78 15 E0 01 99 22 11 | TO THE".x....".| 00000D60: 11 1D 4D 45 4E 55 2C 20 50 52 45 53 53 20 C8 20 |..MENU, PRESS . | 00000D70: D2 C5 D4 D5 D2 CE 2E 22 00 81 15 E5 01 8D 38 33 |......."......83| 00000D80: 35 00 95 15 EA 01 8B 55 5A B2 31 A7 9E 55 50 25 |5......UZ.1..UP%| 00000D90: 3A 89 32 31 37 00 9B 15 F3 01 8E 00 BC 15 F4 01 |:.217...........| 00000DA0: 8F 20 2A 2A 20 54 45 41 43 48 45 52 20 49 4E 53 |. ** TEACHER INS| 00000DB0: 54 52 55 43 54 49 4F 4E 53 20 2A 2A 00 EC 15 F5 |TRUCTIONS **....| 00000DC0: 01 99 22 93 22 3A 97 55 54 2C 55 4C 25 3A 8B C2 |..".":.UT,UL%:..| 00000DD0: 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 |(50003).0..53281| 00000DE0: 2C 32 3A 97 35 33 32 38 30 2C 31 30 00 0D 16 F6 |,2:.53280,10....| 00000DF0: 01 55 50 B2 30 3A 55 47 24 B2 22 D4 45 41 43 48 |.UP.0:UG$.".EACH| 00000E00: 45 52 20 C9 4E 53 54 22 3A 8D 38 35 30 00 3B 16 |ER .NST":.850.;.| 00000E10: F7 01 99 22 11 11 20 20 20 20 20 20 D4 4F 20 54 |...".. .O T| 00000E20: 48 45 20 42 45 53 54 20 4F 46 20 4F 55 52 20 4B |HE BEST OF OUR K| 00000E30: 4E 4F 57 4C 45 44 47 45 2C 11 22 00 64 16 F8 01 |NOWLEDGE,.".d...| 00000E40: 99 22 20 20 20 54 48 49 53 20 50 52 4F 47 52 41 |." THIS PROGRA| 00000E50: 4D 20 49 53 20 49 4E 20 54 48 45 20 50 55 42 4C |M IS IN THE PUBL| 00000E60: 49 43 11 22 00 90 16 F9 01 99 22 20 20 20 44 4F |IC."......" DO| 00000E70: 4D 41 49 4E 2E 20 20 C9 46 20 54 48 49 53 20 49 |MAIN. .F THIS I| 00000E80: 53 20 4E 4F 54 20 54 48 45 20 43 41 53 45 11 22 |S NOT THE CASE."| 00000E90: 00 AD 16 FA 01 99 22 20 20 20 50 4C 45 41 53 45 |......" PLEASE| 00000EA0: 20 43 4F 4E 54 41 43 54 3A 11 11 11 22 00 D7 16 | CONTACT:..."...| 00000EB0: FB 01 99 22 20 20 20 20 20 20 C3 4F 4D 4D 4F 44 |..." .OMMOD| 00000EC0: 4F 52 45 20 C2 55 53 49 4E 45 53 53 20 CD 41 43 |ORE .USINESS .AC| 00000ED0: 48 49 4E 45 53 11 22 00 FA 16 FC 01 99 22 20 20 |HINES."......" | 00000EE0: 20 20 20 20 20 20 20 20 33 33 37 30 20 D0 48 41 | 3370 .HA| 00000EF0: 52 4D 41 43 59 20 C1 56 45 2E 00 1E 17 FD 01 99 |RMACY .VE.......| 00000F00: 22 20 20 20 20 20 20 20 20 20 20 C1 47 49 4E 43 |" .GINC| 00000F10: 4F 55 52 54 2C 20 CF 4E 54 41 52 49 4F 22 00 40 |OURT, .NTARIO".@| 00000F20: 17 FE 01 99 22 20 20 20 20 20 20 20 20 20 20 C3 |...." .| 00000F30: 41 4E 41 44 41 20 20 20 CD 31 D7 20 32 CB 34 22 |ANADA .1. 2.4"| 00000F40: 00 60 17 FF 01 99 22 20 20 20 20 20 20 20 20 20 |.`...." | 00000F50: 20 28 34 31 36 29 20 34 39 39 2D 34 32 39 32 22 | (416) 499-4292"| 00000F60: 00 76 17 00 02 55 50 B2 31 3A 8D 20 38 33 35 3A |.v...UP.1:. 835:| 00000F70: 8D 20 38 35 30 3A 00 9B 17 01 02 99 22 20 20 20 |. 850:......" | 00000F80: 20 20 11 11 D0 52 4F 47 52 41 4D 20 CE 41 4D 45 | ...ROGRAM .AME| 00000F90: 3A 20 CD 4F 52 54 47 41 47 45 11 00 C5 17 02 02 |: .ORTGAGE......| 00000FA0: 99 22 20 20 20 20 20 D7 52 49 54 54 45 4E 20 C2 |." .RITTEN .| 00000FB0: 59 20 20 3A 20 CA 49 4D 20 C2 55 54 54 45 52 46 |Y : .IM .UTTERF| 00000FC0: 49 45 4C 44 11 00 ED 17 03 02 99 22 20 20 20 20 |IELD......." | 00000FD0: 20 D5 50 47 52 41 44 45 44 20 C2 59 20 3A 20 CA | .PGRADED .Y : .| 00000FE0: 4F 48 4E 20 C7 4F 53 53 4C 49 4E 47 11 00 18 18 |OHN .OSSLING....| 00000FF0: 04 02 99 22 20 20 20 20 20 11 D4 48 49 53 20 50 |..." ..HIS P| 00001000: 52 4F 47 52 41 4D 20 57 49 4C 4C 20 52 55 4E 20 |ROGRAM WILL RUN | 00001010: 4F 4E 20 41 4E 59 11 11 00 3F 18 05 02 99 22 20 |ON ANY...?...." | 00001020: 20 20 20 20 20 20 20 20 C2 C1 D3 C9 C3 A0 32 2E | ......2.| 00001030: 30 20 D0 C5 D4 20 C3 CF CD D0 D5 D4 C5 D2 11 00 |0 ... ..........| 00001040: 66 18 06 02 99 22 20 20 20 20 20 20 20 20 20 C2 |f...." .| 00001050: C1 D3 C9 C3 20 34 2E 30 20 D0 C5 D4 A0 C3 CF CD |.... 4.0 .......| 00001060: D0 D5 D4 C5 D2 11 00 88 18 07 02 99 22 20 20 20 |............" | 00001070: 20 20 20 20 20 20 38 30 33 32 20 C3 C2 CD 20 C3 | 8032 ... .| 00001080: CF CD D0 D5 D4 C5 D2 11 00 AD 18 08 02 99 22 20 |.............." | 00001090: 20 20 20 20 20 20 20 20 C3 CF CD CD CF C4 CF D2 | ........| 000010A0: C5 20 36 34 20 C3 CF CD D0 D5 D4 C5 D2 00 B6 18 |. 64 ...........| 000010B0: 44 02 8D 38 33 35 00 CA 18 4E 02 8B 55 5A B2 31 |D..835...N..UZ.1| 000010C0: A7 9E 55 50 25 3A 89 32 31 37 00 D0 18 57 02 8E |..UP%:.217...W..| 000010D0: 00 F6 18 58 02 8F 20 2A 2A 20 50 52 4F 47 52 41 |...X.. ** PROGRA| 000010E0: 4D 20 4D 4F 44 49 46 49 43 41 54 49 4F 4E 20 49 |M MODIFICATION I| 000010F0: 4E 53 54 20 2A 2A 00 07 19 59 02 99 22 93 22 3A |NST **...Y..".":| 00001100: 97 55 54 2C 55 4C 25 00 27 19 5D 02 55 50 B2 30 |.UT,UL%.'.].UP.0| 00001110: 3A 55 47 24 B2 22 D0 52 4F 47 52 41 4D 20 CD 4F |:UG$.".ROGRAM .O| 00001120: 44 22 3A 8D 38 35 30 00 56 19 62 02 8F 22 27 49 |D":.850.V.b.."'I| 00001130: 3D 28 31 2B 49 31 2F 32 30 30 29 5E 28 31 2F 36 |=(1+I1/200)^(1/6| 00001140: 29 2D 31 27 28 43 41 4E 41 44 41 20 53 54 41 4E |)-1'(CANADA STAN| 00001150: 44 41 52 44 29 22 00 89 19 65 02 99 22 11 11 11 |DARD)"...e.."...| 00001160: 11 11 20 20 20 20 20 D4 48 49 53 20 50 52 4F 47 |.. .HIS PROG| 00001170: 52 41 4D 20 49 53 20 53 45 54 20 55 50 20 54 4F |RAM IS SET UP TO| 00001180: 20 50 45 52 46 4F 52 4D 22 00 B6 19 68 02 99 22 | PERFORM"...h.."| 00001190: 11 1D 49 4E 54 45 52 45 53 54 20 43 41 4C 43 55 |..INTEREST CALCU| 000011A0: 4C 41 54 49 4F 4E 53 20 42 41 53 45 44 20 4F 4E |LATIONS BASED ON| 000011B0: 20 53 45 4D 49 2D 00 E6 19 6B 02 99 22 11 1D 41 | SEMI-...k.."..A| 000011C0: 4E 4E 55 41 4C 20 43 4F 4D 50 4F 55 4E 44 49 4E |NNUAL COMPOUNDIN| 000011D0: 47 20 41 4E 44 20 4D 4F 4E 54 48 4C 59 20 50 41 |G AND MONTHLY PA| 000011E0: 59 4D 45 4E 54 53 00 16 1A 6E 02 99 22 1D D4 48 |YMENTS...n.."..H| 000011F0: 49 53 20 49 53 20 54 48 45 20 53 54 41 4E 44 41 |IS IS THE STANDA| 00001200: 52 44 20 4D 45 54 48 4F 44 20 46 4F 52 20 C3 C1 |RD METHOD FOR ..| 00001210: CE C1 C4 C1 2E 22 00 24 1A 71 02 8D 38 33 35 3A |.....".$.q..835:| 00001220: 8D 38 35 30 00 51 1A 74 02 99 22 11 20 20 20 20 |.850.Q.t..". | 00001230: 20 C9 46 20 59 4F 55 52 20 41 50 50 4C 49 43 41 | .F YOUR APPLICA| 00001240: 54 49 4F 4E 20 52 45 51 55 49 52 45 53 20 41 20 |TION REQUIRES A | 00001250: 22 00 7E 1A 77 02 99 22 11 1D 56 41 52 49 41 54 |".~.w.."..VARIAT| 00001260: 49 4F 4E 20 4F 46 20 54 48 45 20 46 4F 52 4D 55 |ION OF THE FORMU| 00001270: 4C 41 20 55 53 45 44 2C 20 59 4F 55 20 22 00 A7 |LA USED, YOU "..| 00001280: 1A 7A 02 99 22 11 1D 4D 41 59 20 4D 41 4B 45 20 |.z.."..MAY MAKE | 00001290: 54 48 45 20 52 45 51 55 49 52 45 44 20 43 48 41 |THE REQUIRED CHA| 000012A0: 4E 47 45 53 20 49 4E 00 D7 1A 7D 02 99 22 11 1D |NGES IN...}.."..| 000012B0: 4C 49 4E 45 20 12 31 33 37 30 92 2E 20 C3 55 52 |LINE .1370.. .UR| 000012C0: 52 45 4E 54 4C 59 20 54 48 41 54 20 4C 49 4E 45 |RENTLY THAT LINE| 000012D0: 20 53 48 4F 55 4C 44 00 07 1B 7F 02 99 22 11 1D | SHOULD......"..| 000012E0: 52 45 41 44 20 3A 20 12 31 33 37 30 20 49 3D 28 |READ : .1370 I=(| 000012F0: 31 2B 49 31 2F 28 32 2A 31 30 30 29 29 5E 28 31 |1+I1/(2*100))^(1| 00001300: 2F 36 29 2D 31 92 2E 00 17 1B 80 02 99 22 11 1D |/6)-1........"..| 00001310: D7 48 45 52 45 3A 22 00 40 1B 81 02 99 22 11 20 |.HERE:".@....". | 00001320: 20 20 20 20 20 20 49 31 20 3D 20 54 48 45 20 49 | I1 = THE I| 00001330: 4E 54 45 52 45 53 54 20 52 41 54 45 20 28 25 29 |NTEREST RATE (%)| 00001340: 00 68 1B 83 02 99 22 11 20 20 20 20 20 20 20 20 |.h....". | 00001350: 32 20 3D 20 54 48 45 20 23 20 4F 46 20 43 4F 4D |2 = THE # OF COM| 00001360: 50 4F 55 4E 44 49 4E 47 00 8B 1B 84 02 99 22 20 |POUNDING......" | 00001370: 20 20 20 20 20 20 20 20 20 20 20 50 45 52 49 4F | PERIO| 00001380: 44 53 20 50 45 52 20 59 45 41 52 00 B0 1B 86 02 |DS PER YEAR.....| 00001390: 99 22 11 20 20 20 20 20 20 20 20 36 20 3D 20 54 |.". 6 = T| 000013A0: 48 45 20 23 20 4F 46 20 50 41 59 4D 45 4E 54 53 |HE # OF PAYMENTS| 000013B0: 00 D9 1B 87 02 99 22 20 20 20 20 20 20 20 20 20 |......" | 000013C0: 20 20 20 50 45 52 20 43 4F 4D 50 4F 55 4E 44 49 | PER COMPOUNDI| 000013D0: 4E 47 20 50 45 52 49 4F 44 00 E2 1B 94 02 8D 38 |NG PERIOD......8| 000013E0: 33 35 00 F6 1B B2 02 8B 55 5A B2 31 A7 9E 55 50 |35......UZ.1..UP| 000013F0: 25 3A 89 32 31 37 00 FC 1B BB 02 8E 00 21 1C BC |%:.217.......!..| 00001400: 02 8F 20 2A 2A 20 54 4F 20 55 53 45 20 38 30 33 |.. ** TO USE 803| 00001410: 32 20 4C 4F 41 44 20 43 42 4D 34 30 33 32 20 2A |2 LOAD CBM4032 *| 00001420: 2A 00 57 1C C6 02 99 22 93 11 11 11 05 42 45 46 |*.W....".....BEF| 00001430: 4F 52 45 20 52 55 4E 4E 49 4E 47 20 54 48 49 53 |ORE RUNNING THIS| 00001440: 20 50 52 4F 47 52 41 4D 20 4F 4E 20 41 4E 20 38 | PROGRAM ON AN 8| 00001450: 30 33 32 20 20 11 11 00 8D 1C D0 02 99 22 20 20 |032 ........" | 00001460: 20 20 20 20 4C 4F 41 44 20 54 48 45 20 27 43 42 | LOAD THE 'CB| 00001470: 4D 20 34 30 33 32 27 20 50 52 4F 47 52 41 4D 11 |M 4032' PROGRAM.| 00001480: 11 11 11 11 11 11 11 11 11 11 11 11 22 00 98 1C |............"...| 00001490: DA 02 9E 55 55 AA 37 31 00 9E 1C E4 02 80 00 C3 |...UU.71........| 000014A0: 1C 1D 03 8F 20 2A 2A 20 54 4F 20 55 53 45 20 38 |.... ** TO USE 8| 000014B0: 30 33 32 20 4C 4F 41 44 20 43 42 4D 34 30 33 32 |032 LOAD CBM4032| 000014C0: 20 2A 2A 00 0E 1D 1E 03 99 22 93 11 11 11 42 45 | **......"....BE| 000014D0: 46 4F 52 45 20 52 55 4E 4E 49 4E 47 20 54 48 49 |FORE RUNNING THI| 000014E0: 53 20 50 52 4F 47 52 41 4D 20 4F 4E 20 41 4E 20 |S PROGRAM ON AN | 000014F0: 38 30 33 32 20 20 11 11 4C 4F 41 44 20 43 42 4D |8032 ..LOAD CBM| 00001500: 20 34 30 33 32 20 50 52 4F 47 52 41 4D 22 00 1A | 4032 PROGRAM"..| 00001510: 1D 1F 03 9E 31 30 39 33 3A 80 00 3A 1D 20 03 8F |....1093:..:. ..| 00001520: 20 2A 2A 20 54 20 49 20 54 20 4C 20 45 20 20 20 | ** T I T L E | 00001530: 50 20 41 20 47 20 45 20 2A 2A 00 6E 1D 22 03 99 |P A G E **.n."..| 00001540: 22 93 11 1D 05 22 3B 3A 97 55 54 2C 55 55 25 3A |"....";:.UT,UU%:| 00001550: 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 |..(50003).0..532| 00001560: 38 30 2C 31 34 3A 97 35 33 32 38 31 2C 36 00 84 |80,14:.53281,6..| 00001570: 1D 24 03 81 49 B2 31 A4 33 38 3A 99 22 12 A6 92 |.$..I.1.38:."...| 00001580: 22 3B 3A 82 00 9C 1D 26 03 81 49 B2 31 A4 32 32 |";:....&..I.1.22| 00001590: 3A 99 22 11 9D 12 A6 92 22 3B 3A 82 00 B4 1D 28 |:.".....";:....(| 000015A0: 03 81 49 B2 31 A4 33 37 3A 99 22 9D 9D 12 A6 92 |..I.1.37:.".....| 000015B0: 22 3B 3A 82 00 CC 1D 2A 03 81 49 B2 31 A4 32 32 |";:....*..I.1.22| 000015C0: 3A 99 22 91 9D 12 A6 92 22 3B 3A 82 00 F1 1D 2C |:.".....";:....,| 000015D0: 03 99 22 13 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D |..".............| 000015E0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 A9 20 20 |.............. | 000015F0: 92 00 13 1E 2E 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D |......."........| 00001600: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 20 92 20 20 12 |........... . .| 00001610: 20 92 A9 00 34 1E 30 03 99 22 1D 1D 1D 1D 1D 1D | ...4.0.."......| 00001620: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 20 92 20 |............. . | 00001630: 20 12 A3 DF 00 52 1E 32 03 99 22 1D 1D 1D 1D 1D | ....R.2..".....| 00001640: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D DF 12 20 |............... | 00001650: 20 92 00 7A 1E 34 03 99 22 11 11 1D 1D 1D 1D 1D | ..z.4..".......| 00001660: 1D 1D 1D 1D 1D 1D 1D 43 20 4F 20 4D 20 4D 20 4F |.......C O M M O| 00001670: 20 44 20 4F 20 52 20 45 11 11 00 9D 1E 36 03 99 | D O R E.....6..| 00001680: 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |"...............| 00001690: 45 44 55 43 41 54 49 4F 4E 41 4C 11 11 00 BC 1E |EDUCATIONAL.....| 000016A0: 38 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |8.."............| 000016B0: 1D 1D 1D 1D 53 4F 46 54 57 41 52 45 00 D7 1E 3A |....SOFTWARE...:| 000016C0: 03 8F 20 2A 2A 20 43 4F 4D 4D 4F 44 4F 52 45 20 |.. ** COMMODORE | 000016D0: 4C 4F 47 4F 20 2A 2A 00 0F 1F 3B 03 99 C8 28 55 |LOGO **...;...(U| 000016E0: 44 24 2C 32 34 29 3B 22 1D 1D 1D 1D 1D 1D 1D 1D |D$,24);"........| 000016F0: 1D 12 50 52 45 53 53 20 53 50 41 43 45 20 42 41 |..PRESS SPACE BA| 00001700: 52 20 4F 52 20 57 41 49 54 92 22 3A 49 B2 30 00 |R OR WAIT.":I.0.| 00001710: 31 1F 3C 03 A1 41 24 3A 8B 41 24 B3 B1 22 20 22 |1.<..A$:.A$.." "| 00001720: A7 49 B2 49 AA 31 3A 8B 49 B3 32 35 30 A7 38 32 |.I.I.1:.I.250.82| 00001730: 38 00 55 1F 3E 03 54 31 24 B2 22 22 3A 54 32 24 |8.U.>.T1$."":T2$| 00001740: B2 22 22 3A 54 33 24 B2 22 22 3A 54 34 24 B2 22 |."":T3$."":T4$."| 00001750: 22 3A 49 B2 30 00 5E 1F 40 03 89 33 30 30 00 7A |":I.0.^.@..300.z| 00001760: 1F 43 03 8F 20 2A 2A 20 53 50 41 43 45 20 42 41 |.C.. ** SPACE BA| 00001770: 52 20 50 52 45 53 53 20 2A 2A 00 AD 1F 44 03 8B |R PRESS **...D..| 00001780: 46 4C B2 31 A7 99 C8 28 55 44 24 2C 32 33 29 22 |FL.1...(UD$,23)"| 00001790: 20 20 20 20 20 20 20 20 20 20 20 20 45 58 49 54 | EXIT| 000017A0: 20 2D 20 50 52 45 53 53 20 12 45 92 22 00 B6 1F | - PRESS .E."...| 000017B0: 45 03 46 4A B2 30 00 F1 1F 48 03 99 C8 28 55 44 |E.FJ.0...H...(UD| 000017C0: 24 2C 32 34 29 3B 22 1D 1D 1D 1D 1D 1D 12 50 52 |$,24);".......PR| 000017D0: 45 53 53 20 53 50 41 43 45 20 42 41 52 20 54 4F |ESS SPACE BAR TO| 000017E0: 20 43 4F 4E 54 49 4E 55 45 92 22 3A 97 55 4F 2C | CONTINUE.":.UO,| 000017F0: 30 00 FB 1F 49 03 A1 55 49 24 3A 00 19 20 4B 03 |0...I..UI$:.. K.| 00001800: 8B 46 4C B2 31 AF 55 49 24 B2 22 45 22 A7 46 4C |.FL.1.UI$."E".FL| 00001810: B2 30 3A 46 4A B2 31 3A 8E 00 2B 20 4C 03 8B 55 |.0:FJ.1:..+ L..U| 00001820: 49 24 B3 B1 22 20 22 A7 38 34 31 00 36 20 4E 03 |I$.." ".841.6 N.| 00001830: 46 4C B2 30 3A 8E 00 56 20 52 03 8F 20 2A 2A 20 |FL.0:..V R.. ** | 00001840: 50 41 47 45 20 44 45 53 49 47 4E 20 52 4F 55 54 |PAGE DESIGN ROUT| 00001850: 49 4E 45 20 2A 2A 00 62 20 54 03 55 50 B2 55 50 |INE **.b T.UP.UP| 00001860: AA 31 00 8C 20 57 03 99 22 93 22 C8 28 55 54 24 |.1.. W..".".(UT$| 00001870: AA 55 50 24 2C 32 31 29 3B C9 28 55 50 24 AA 55 |.UP$,21);.(UP$.U| 00001880: 47 24 AA C4 28 55 50 29 2C 31 38 29 00 BB 20 5C |G$..(UP),18).. \| 00001890: 03 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.." ------------| 000018A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000018B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 CA 20 60 03 |----------".. `.| 000018C0: 8B 55 48 B3 B1 30 A7 38 37 30 00 FE 20 61 03 99 |.UH..0.870.. a..| 000018D0: C8 28 55 44 24 2C 32 34 29 3B C8 28 55 50 24 2C |.(UD$,24);.(UP$,| 000018E0: 37 29 3B 22 48 45 4C 50 20 2D 20 50 52 45 53 53 |7);"HELP - PRESS| 000018F0: 20 20 20 48 20 3C 52 45 54 55 52 4E 3E 22 00 0F | H <RETURN>"..| 00001900: 21 66 03 55 48 B2 30 3A 99 22 13 11 22 3A 8E 00 |!f.UH.0:."..":..| 00001910: 2E 21 6B 03 8F 20 2A 2A 20 50 4C 45 41 53 45 20 |.!k.. ** PLEASE | 00001920: 57 41 49 54 20 52 45 4D 41 52 4B 20 2A 2A 00 64 |WAIT REMARK **.d| 00001930: 21 70 03 99 C8 28 55 44 24 2C 32 34 29 3B 22 20 |!p...(UD$,24);" | 00001940: 20 20 20 20 20 20 20 20 20 20 4F 4E 45 20 4D 4F | ONE MO| 00001950: 4D 45 4E 54 20 50 4C 45 41 53 45 2E 2E 2E 20 20 |MENT PLEASE... | 00001960: 20 20 20 22 00 6A 21 75 03 8E 00 87 21 84 03 8F | ".j!u....!...| 00001970: 20 2A 2A 20 53 45 54 20 55 50 20 56 41 52 49 41 | ** SET UP VARIA| 00001980: 42 4C 45 53 20 2A 2A 00 D2 21 85 03 55 58 24 B2 |BLES **..!..UX$.| 00001990: 22 48 22 3A 86 55 51 25 28 31 30 30 30 29 3A 55 |"H":.UQ%(1000):U| 000019A0: 42 B2 33 32 37 36 38 3A 55 31 B2 31 39 36 3A 55 |B.32768:U1.196:U| 000019B0: 32 B2 31 39 37 3A 55 33 B2 31 39 38 3A 55 34 B2 |2.197:U3.198:U4.| 000019C0: 32 31 36 3A 55 43 B2 31 36 37 3A 55 55 B2 31 30 |216:UC.167:UU.10| 000019D0: 32 34 00 10 22 86 03 55 54 B2 35 39 34 36 38 3A |24.."..UT.59468:| 000019E0: 55 55 25 B2 31 32 3A 55 4C 25 B2 31 34 3A 55 50 |UU%.12:UL%.14:UP| 000019F0: 25 B2 31 31 34 36 3A 55 4D B2 33 32 37 36 38 3A |%.1146:UM.32768:| 00001A00: 97 20 35 30 30 30 33 2C 30 3A 55 4F B2 31 35 38 |. 50003,0:UO.158| 00001A10: 00 53 22 87 03 8B C2 28 35 30 30 30 33 29 B2 30 |.S"....(50003).0| 00001A20: A7 55 42 B2 31 30 32 34 3A 55 31 B2 32 30 39 3A |.UB.1024:U1.209:| 00001A30: 55 32 B2 32 31 30 3A 55 33 B2 32 31 31 3A 55 34 |U2.210:U3.211:U4| 00001A40: B2 32 31 34 3A 55 43 B2 32 30 34 3A 55 55 B2 32 |.214:UC.204:UU.2| 00001A50: 30 34 38 00 92 22 88 03 8B C2 28 35 30 30 30 33 |048.."....(50003| 00001A60: 29 B2 30 A7 55 54 B2 35 33 32 37 32 3A 55 55 25 |).0.UT.53272:UU%| 00001A70: B2 32 31 3A 55 4C 25 B2 32 33 3A 55 50 25 B2 32 |.21:UL%.23:UP%.2| 00001A80: 31 33 39 3A 55 4D B2 31 30 32 34 3A 55 4F B2 31 |139:UM.1024:UO.1| 00001A90: 39 38 00 B6 22 89 03 55 44 24 B2 22 13 11 11 11 |98.."..UD$."....| 00001AA0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................| 00001AB0: 11 11 11 11 11 22 00 E8 22 8A 03 55 50 24 B2 22 |.....".."..UP$."| 00001AC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001AD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001AE0: 20 20 20 20 20 20 20 22 00 36 23 8B 03 55 54 24 | ".6#..UT$| 00001AF0: B2 22 20 CD CF D2 D4 C7 C1 C7 C5 20 20 20 20 A0 |." ........ .| 00001B00: A0 A0 A0 A0 A0 22 3A 8F 20 50 4C 41 43 45 20 50 |.....":. PLACE P| 00001B10: 52 4F 47 52 41 4D 20 54 49 54 4C 45 20 48 45 52 |ROGRAM TITLE HER| 00001B20: 45 20 21 21 21 21 21 21 21 21 21 21 21 21 21 21 |E !!!!!!!!!!!!!!| 00001B30: 21 21 21 2A 2A 2A 00 3C 23 8C 03 8E 00 56 23 8E |!!!***.<#....V#.| 00001B40: 03 8F 20 2A 2A 20 53 45 54 20 56 41 52 49 41 42 |.. ** SET VARIAB| 00001B50: 4C 45 53 20 2A 2A 00 5F 23 93 03 8D 39 30 30 00 |LES **._#...900.| 00001B60: 84 23 94 03 86 20 4D 24 28 31 32 29 3A 53 24 B2 |.#... M$(12):S$.| 00001B70: 22 20 20 20 20 20 20 20 20 20 20 20 20 22 3A 4C |" ":L| 00001B80: 53 B2 31 34 00 9D 23 95 03 81 20 4A B2 31 20 A4 |S.14..#... J.1 .| 00001B90: 20 31 32 3A 87 20 4D 24 28 4A 29 3A 82 00 B8 23 | 12:. M$(J):...#| 00001BA0: 98 03 8F 20 2A 2A 20 43 48 45 43 4B 20 46 4F 52 |... ** CHECK FOR| 00001BB0: 20 38 30 33 32 20 2A 2A 00 D6 23 9D 03 99 22 93 | 8032 **..#...".| 00001BC0: 22 3A 99 22 A0 22 3A 8F 20 53 48 49 46 54 45 44 |":.".":. SHIFTED| 00001BD0: 20 53 50 41 43 45 00 ED 23 A2 03 8B C2 28 55 42 | SPACE..#....(UB| 00001BE0: AA 34 30 29 B3 B1 39 36 A7 8D 37 30 30 00 06 24 |.40)..96..700..$| 00001BF0: A3 03 8F 20 2A 2A 20 4D 45 4D 4F 52 59 20 43 48 |... ** MEMORY CH| 00001C00: 45 43 4B 20 2A 2A 00 1A 24 A4 03 8B 20 B8 28 30 |ECK **..$... .(0| 00001C10: 29 B1 32 30 30 30 A7 39 33 37 00 48 24 A5 03 99 |).2000.937.H$...| 00001C20: 22 93 11 11 05 54 48 49 53 20 4D 41 43 48 49 4E |"....THIS MACHIN| 00001C30: 45 20 44 4F 45 53 20 4E 4F 54 20 48 41 56 45 20 |E DOES NOT HAVE | 00001C40: 45 4E 4F 55 47 48 11 22 00 6C 24 A6 03 99 22 4D |ENOUGH.".l$..."M| 00001C50: 45 4D 4F 52 59 20 54 4F 20 52 55 4E 20 54 48 49 |EMORY TO RUN THI| 00001C60: 53 20 50 52 4F 47 52 41 4D 20 21 22 00 77 24 A7 |S PROGRAM !".w$.| 00001C70: 03 9E 55 55 AA 37 31 00 7D 24 A8 03 80 00 97 24 |..UU.71.}$.....$| 00001C80: A9 03 99 22 93 05 22 3A 8B C2 28 35 30 30 30 33 |..."..":..(50003| 00001C90: 29 B2 30 A7 39 36 32 00 C6 24 AC 03 8F 20 2A 2A |).0.962..$... **| 00001CA0: 20 42 41 53 49 43 20 32 2E 30 20 20 4F 52 20 20 | BASIC 2.0 OR | 00001CB0: 34 2E 30 20 20 4F 52 20 20 43 2D 36 34 20 53 45 |4.0 OR C-64 SE| 00001CC0: 54 55 50 20 2A 2A 00 04 25 AD 03 97 31 30 37 35 |TUP **..%...1075| 00001CD0: 2C 31 33 33 3A 97 31 30 37 36 2C 31 34 34 3A 97 |,133:.1076,144:.| 00001CE0: 31 30 37 37 2C 32 33 34 3A 97 31 30 37 39 2C 34 |1077,234:.1079,4| 00001CF0: 3A 97 31 30 38 30 2C 31 33 33 3A 97 31 30 38 31 |:.1080,133:.1081| 00001D00: 2C 31 34 35 00 3A 25 AE 03 97 31 30 39 31 2C 31 |,145.:%...1091,1| 00001D10: 35 35 3A 97 31 30 39 38 2C 31 33 33 3A 97 31 30 |55:.1098,133:.10| 00001D20: 39 39 2C 31 34 34 3A 97 31 31 30 30 2C 32 33 34 |99,144:.1100,234| 00001D30: 3A 97 31 31 30 33 2C 31 33 33 00 5C 25 AF 03 97 |:.1103,133.\%...| 00001D40: 31 31 30 34 2C 31 34 35 3A 97 31 31 30 35 2C 32 |1104,145:.1105,2| 00001D50: 33 34 3A 97 31 30 38 32 2C 32 33 34 00 73 25 B1 |34:.1082,234.s%.| 00001D60: 03 8B C2 28 35 30 30 30 33 29 B3 B1 31 36 30 A7 |...(50003)..160.| 00001D70: 39 35 35 00 A2 25 B6 03 97 31 30 39 33 2C 38 38 |955..%...1093,88| 00001D80: 3A 97 31 30 39 34 2C 32 32 38 3A 97 31 30 39 37 |:.1094,228:.1097| 00001D90: 2C 38 35 3A 97 31 31 30 32 2C 32 32 38 3A 89 39 |,85:.1102,228:.9| 00001DA0: 36 35 00 B7 25 BB 03 8B C2 28 35 30 30 30 33 29 |65..%....(50003)| 00001DB0: B3 B1 31 A7 39 39 30 00 E6 25 C0 03 97 31 30 39 |..1.990..%...109| 00001DC0: 33 2C 34 39 3A 97 31 30 39 34 2C 32 33 30 3A 97 |3,49:.1094,230:.| 00001DD0: 31 30 39 37 2C 34 36 3A 97 31 31 30 32 2C 32 33 |1097,46:.1102,23| 00001DE0: 30 3A 89 39 36 35 00 20 26 C2 03 97 32 30 39 39 |0:.965. &...2099| 00001DF0: 2C 31 34 31 3A 97 32 31 30 30 2C 32 30 3A 97 32 |,141:.2100,20:.2| 00001E00: 31 30 31 2C 33 3A 97 32 31 30 33 2C 38 3A 97 32 |101,3:.2103,8:.2| 00001E10: 31 30 34 2C 31 34 31 3A 97 32 31 30 35 2C 32 31 |104,141:.2105,21| 00001E20: 00 5C 26 C3 03 97 32 31 30 36 2C 33 3A 97 32 31 |.\&...2106,3:.21| 00001E30: 31 35 2C 31 34 35 3A 97 32 31 31 37 2C 35 32 3A |15,145:.2117,52:| 00001E40: 97 32 31 31 38 2C 32 33 34 3A 97 32 31 32 31 2C |.2118,234:.2121,| 00001E50: 34 39 3A 97 32 31 32 32 2C 31 34 31 00 96 26 C4 |49:.2122,141..&.| 00001E60: 03 97 32 31 32 33 2C 32 30 3A 97 32 31 32 34 2C |..2123,20:.2124,| 00001E70: 33 3A 97 32 31 32 36 2C 32 33 34 3A 97 32 31 32 |3:.2126,234:.212| 00001E80: 37 2C 31 34 31 3A 97 32 31 32 38 2C 32 31 3A 97 |7,141:.2128,21:.| 00001E90: 32 31 32 39 2C 33 00 B4 26 C5 03 9E 55 55 AA 34 |2129,3..&...UU.4| 00001EA0: 38 3A 8F 20 44 49 53 41 42 4C 45 20 53 54 4F 50 |8:. DISABLE STOP| 00001EB0: 20 4B 45 59 00 C5 26 CA 03 8D 38 30 30 3A 8F 20 | KEY..&...800:. | 00001EC0: 54 49 54 4C 45 00 D5 26 D4 03 89 33 30 30 3A 8F |TITLE..&...300:.| 00001ED0: 20 4D 45 4E 55 00 06 27 DE 03 99 22 93 54 48 45 | MENU..'...".THE| 00001EE0: 20 50 47 4D 20 57 49 4C 4C 20 4E 4F 54 20 57 4F | PGM WILL NOT WO| 00001EF0: 52 4B 20 4F 4E 20 54 48 49 53 20 4D 41 43 48 49 |RK ON THIS MACHI| 00001F00: 4E 45 21 22 3A 80 00 3B 27 E8 03 8B 55 5A B2 31 |NE!":..;'...UZ.1| 00001F10: A7 9E 55 50 25 3A 9E 55 50 25 3A 55 5A B2 30 3A |..UP%:.UP%:UZ.0:| 00001F20: 8F 20 2A 2A 20 50 52 4F 47 52 41 4D 20 53 54 41 |. ** PROGRAM STA| 00001F30: 52 54 53 20 48 45 52 45 20 2A 2A 00 67 27 E9 03 |RTS HERE **.g'..| 00001F40: 99 22 93 05 22 3B 3A 8C 3A 8B C2 28 35 30 30 30 |."..";:.:..(5000| 00001F50: 33 29 B2 30 A7 97 35 33 32 38 31 2C 36 3A 97 35 |3).0..53281,6:.5| 00001F60: 33 32 38 30 2C 31 34 00 83 27 ED 03 55 54 24 B2 |3280,14..'..UT$.| 00001F70: 22 20 4D 4F 52 54 47 41 47 45 22 3A 97 55 54 2C |" MORTGAGE":.UT,| 00001F80: 55 55 25 00 93 27 F2 03 8F 20 20 4D 4F 52 54 47 |UU%..'... MORTG| 00001F90: 41 47 45 00 AA 27 FC 03 8F 20 20 4A 49 4D 20 42 |AGE..'... JIM B| 00001FA0: 55 54 54 45 52 46 49 45 4C 44 00 C9 27 06 04 8F |UTTERFIELD..'...| 00001FB0: 20 20 54 4F 52 4F 4E 54 4F 20 50 45 54 20 55 53 | TORONTO PET US| 00001FC0: 45 52 53 20 47 52 4F 55 50 00 EC 27 10 04 8F 20 |ERS GROUP..'... | 00001FD0: 20 44 4F 4E 41 54 45 44 20 54 4F 20 43 55 45 20 | DONATED TO CUE | 00001FE0: 42 59 20 42 2E 47 4F 44 46 52 45 59 00 F2 27 1A |BY B.GODFREY..'.| 00001FF0: 04 8F 00 16 28 24 04 8F 20 20 43 41 4C 43 55 4C |....($.. CALCUL| 00002000: 41 54 45 53 20 4D 4F 52 54 47 41 47 45 20 50 41 |ATES MORTGAGE PA| 00002010: 59 4D 45 4E 54 53 00 1C 28 2E 04 8F 00 2A 28 38 |YMENTS..(....*(8| 00002020: 04 8F 20 20 50 45 54 20 38 4B 00 30 28 42 04 8F |.. PET 8K.0(B..| 00002030: 00 7E 28 4C 04 8F 22 B0 C0 C0 C0 C0 C0 C0 C0 C0 |.~(L..".........| 00002040: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00002050: C0 C0 C0 C0 C0 AE 20 20 20 20 20 20 20 20 20 DD |...... .| 00002060: A0 20 20 20 20 20 20 53 41 4E 20 4D 41 54 45 4F |. SAN MATEO| 00002070: 20 43 4F 55 4E 54 59 20 20 20 20 20 A0 DD 00 CC | COUNTY ....| 00002080: 28 56 04 8F 22 DD 20 20 20 20 20 4F 46 46 49 43 |(V..". OFFIC| 00002090: 45 20 4F 46 20 45 44 55 43 41 54 49 4F 4E 20 20 |E OF EDUCATION | 000020A0: 20 20 20 DD 20 20 20 20 20 20 20 20 20 DD 20 20 | . . | 000020B0: 20 20 20 20 20 20 20 20 20 20 20 26 20 20 20 20 | & | 000020C0: 20 20 20 20 20 20 20 20 20 20 20 DD 00 1A 29 60 | ...)`| 000020D0: 04 8F 22 DD 20 20 43 4F 4D 50 55 54 45 52 2D 55 |..". COMPUTER-U| 000020E0: 53 49 4E 47 20 45 44 55 43 41 54 4F 52 53 20 20 |SING EDUCATORS | 000020F0: 20 DD 20 20 20 20 20 20 20 20 20 DD 20 20 20 20 | . . | 00002100: 20 20 20 20 20 20 53 4F 46 54 53 57 41 50 20 20 | SOFTSWAP | 00002110: 20 20 20 20 20 20 20 20 20 DD 00 68 29 6A 04 8F | ..h)j..| 00002120: 22 DD 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |". | 00002130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 DD | .| 00002140: 20 20 20 20 20 20 20 20 20 DD 20 20 20 20 20 20 | . | 00002150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00002160: 20 20 20 20 20 20 20 DD 00 B6 29 74 04 8F 22 DD | ...)t..".| 00002170: 33 33 33 20 4D 41 49 4E 20 53 54 52 45 45 54 2C |333 MAIN STREET,| 00002180: 20 52 45 44 57 4F 4F 44 20 43 49 54 59 DD 20 20 | REDWOOD CITY. | 00002190: 20 20 20 20 20 20 20 DD 43 41 20 39 34 30 36 33 | .CA 94063| 000021A0: 20 28 34 31 35 29 33 36 34 2D 35 36 30 30 20 45 | (415)364-5600 E| 000021B0: 58 34 34 30 31 DD 00 04 2A 7E 04 8F 22 AD C0 C0 |X4401...*~.."...| 000021C0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 000021D0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 BD 20 20 20 20 |............ | 000021E0: 20 20 20 20 20 B0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 | ...........| 000021F0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00002200: C0 C0 C0 AE 00 52 2A 88 04 8F 22 DD 20 50 52 4F |.....R*...". PRO| 00002210: 47 52 41 4D 53 20 4D 41 59 20 42 45 20 43 4F 50 |GRAMS MAY BE COP| 00002220: 49 45 44 20 46 4F 52 20 20 DD 20 20 20 20 20 20 |IED FOR . | 00002230: 20 20 20 DD 20 45 44 55 43 41 54 49 4F 4E 41 4C | . EDUCATIONAL| 00002240: 20 55 53 45 20 4F 4E 4C 59 20 41 4E 44 20 20 20 | USE ONLY AND | 00002250: 20 DD 00 A0 2A 92 04 8F 22 DD 20 41 52 45 20 4E | ...*...". ARE N| 00002260: 4F 54 20 54 4F 20 42 45 20 53 4F 4C 44 2E 20 20 |OT TO BE SOLD. | 00002270: 20 20 20 20 20 20 20 DD 20 20 20 20 20 20 20 20 | . | 00002280: 20 AD C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 | ...............| 00002290: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 BD |................| 000022A0: 00 BF 2A 9C 04 55 50 B2 30 3A 55 47 24 B2 22 44 |..*..UP.0:UG$."D| 000022B0: 41 54 41 20 45 4E 54 52 59 22 3A 8D 38 35 30 00 |ATA ENTRY":.850.| 000022C0: C9 2A A1 04 89 31 33 36 30 00 E2 2A A6 04 99 20 |.*...1360..*... | 000022D0: 22 2A 2A 2A 20 4D 4F 52 54 47 41 47 45 20 2A 2A |"*** MORTGAGE **| 000022E0: 2A 22 00 0E 2B BA 04 99 22 11 1D 49 46 20 44 45 |*"..+..."..IF DE| 000022F0: 53 49 52 45 44 2C 20 54 48 45 20 50 52 4F 47 52 |SIRED, THE PROGR| 00002300: 41 4D 20 43 41 4C 43 55 4C 41 54 45 53 22 00 30 |AM CALCULATES".0| 00002310: 2B C4 04 99 22 1D 41 4D 4F 55 4E 54 20 4F 46 20 |+...".AMOUNT OF | 00002320: 4D 4F 4E 54 48 4C 59 20 50 41 59 4D 45 4E 54 22 |MONTHLY PAYMENT"| 00002330: 00 5A 2B CE 04 99 22 11 1D 54 48 45 4E 20 50 41 |.Z+..."..THEN PA| 00002340: 59 4D 45 4E 54 20 54 41 42 4C 45 53 20 41 52 45 |YMENT TABLES ARE| 00002350: 20 50 52 49 4E 54 45 44 2E 22 00 86 2B D8 04 99 | PRINTED."..+...| 00002360: 22 11 1D 4E 4F 54 45 3A 20 4C 49 4E 45 20 31 33 |"..NOTE: LINE 13| 00002370: 37 30 20 57 4F 52 4B 53 20 4F 55 54 20 49 4E 54 |70 WORKS OUT INT| 00002380: 45 52 45 53 54 22 00 B0 2B E2 04 99 22 1D 4F 4E |EREST"..+...".ON| 00002390: 20 27 43 4F 4D 50 4F 55 4E 44 45 44 20 53 45 4D | 'COMPOUNDED SEM| 000023A0: 49 2D 41 4E 4E 55 41 4C 27 20 42 41 53 49 53 22 |I-ANNUAL' BASIS"| 000023B0: 00 E0 2B EC 04 99 22 1D 27 49 3D 28 31 2B 49 31 |..+...".'I=(1+I1| 000023C0: 2F 32 30 30 29 5E 28 31 2F 36 29 2D 31 27 28 43 |/200)^(1/6)-1'(C| 000023D0: 41 4E 41 44 41 20 53 54 41 4E 44 41 52 44 29 22 |ANADA STANDARD)"| 000023E0: 00 E8 2B F6 04 99 3A 99 00 14 2C 00 05 99 22 1D |..+...:...,...".| 000023F0: 2E 2E 43 48 41 4E 47 45 20 54 4F 20 53 55 49 54 |..CHANGE TO SUIT| 00002400: 20 59 4F 55 52 20 4C 4F 43 41 4C 45 2C 20 45 2E | YOUR LOCALE, E.| 00002410: 47 2E 2C 22 00 39 2C 0A 05 99 22 1D 46 4F 52 20 |G.,".9,...".FOR | 00002420: 4D 4F 4E 54 48 4C 59 20 43 4F 4D 50 4F 55 4E 44 |MONTHLY COMPOUND| 00002430: 49 4E 47 20 55 53 45 3A 22 00 4E 2C 14 05 99 22 |ING USE:".N,..."| 00002440: 1D 27 49 3D 49 31 2F 31 32 30 30 27 11 22 00 84 |.'I=I1/1200'."..| 00002450: 2C 1E 05 83 20 4A 41 4E 2C 46 45 42 2C 4D 41 52 |,... JAN,FEB,MAR| 00002460: 2C 41 50 52 2C 4D 41 59 2C 4A 55 4E 2C 4A 55 4C |,APR,MAY,JUN,JUL| 00002470: 2C 41 55 47 2C 53 45 50 2C 4F 43 54 2C 4E 4F 56 |,AUG,SEP,OCT,NOV| 00002480: 2C 44 45 43 00 D0 2C 50 05 99 22 11 1D 45 4E 54 |,DEC..,P.."..ENT| 00002490: 45 52 20 41 4E 4E 55 41 4C 20 49 4E 54 45 52 45 |ER ANNUAL INTERE| 000024A0: 53 54 20 52 41 54 45 20 28 12 25 92 29 20 20 20 |ST RATE (.%.) | 000024B0: 20 20 20 9D 9D 9D 22 3B 3A 55 4C B2 35 3A 55 53 | ...";:UL.5:US| 000024C0: 24 B2 22 48 30 31 32 33 34 35 36 37 38 39 2E 22 |$."H0123456789."| 000024D0: 00 02 2D 55 05 99 22 9D 9D 22 3B 3A 8D 33 35 3A |..-U.."..";:.35:| 000024E0: 49 31 B2 C5 28 55 52 24 29 3A 8B 49 31 B1 32 35 |I1..(UR$):.I1.25| 000024F0: B0 49 31 B3 31 A7 99 22 91 91 91 22 3A 89 31 33 |.I1.1.."...":.13| 00002500: 36 30 00 1F 2D 5A 05 49 B2 28 31 AA 49 31 AD 28 |60..-Z.I.(1.I1.(| 00002510: 32 AC 31 30 30 29 29 AE 28 31 AD 36 29 AB 31 00 |2.100)).(1.6).1.| 00002520: 5F 2D 64 05 99 22 11 1D 53 48 41 4C 4C 20 49 20 |_-d.."..SHALL I | 00002530: 46 49 4E 44 20 50 41 59 4D 45 4E 54 20 41 4D 4F |FIND PAYMENT AMO| 00002540: 55 4E 54 3F 20 28 59 2F 4E 29 20 22 3B 3A 55 4C |UNT? (Y/N) ";:UL| 00002550: B2 31 3A 55 53 24 B2 22 59 4E 22 3A 8D 33 35 00 |.1:US$."YN":.35.| 00002560: 6A 2D 69 05 5A 24 B2 55 52 24 00 83 2D 6E 05 8B |j-i.Z$.UR$..-n..| 00002570: 20 C8 28 5A 24 2C 31 29 B2 22 4E 22 20 89 20 31 | .(Z$,1)."N" . 1| 00002580: 34 38 30 00 C8 2D 78 05 99 22 11 1D 4C 45 4E 47 |480..-x.."..LENG| 00002590: 54 48 20 4F 46 20 4C 4F 41 4E 20 28 49 4E 20 59 |TH OF LOAN (IN Y| 000025A0: 45 41 52 53 29 20 20 20 20 20 9D 9D 9D 9D 22 3B |EARS) ....";| 000025B0: 3A 55 4C B2 34 3A 55 53 24 B2 22 48 30 31 32 33 |:UL.4:US$."H0123| 000025C0: 34 35 36 37 38 39 2E 22 00 F5 2D 7D 05 8D 33 35 |456789."..-}..35| 000025D0: 3A 59 31 B2 C5 28 55 52 24 29 3A 8B 59 31 B1 34 |:Y1..(UR$):.Y1.4| 000025E0: 30 B0 59 31 B3 2E 30 36 A7 99 22 91 91 91 22 3A |0.Y1..06.."...":| 000025F0: 89 31 34 30 30 00 13 2E 82 05 59 B2 59 31 AC 31 |.1400.....Y.Y1.1| 00002600: 32 3A 52 B2 49 AA 49 AD 28 28 49 AA 31 29 AE 59 |2:R.I.I.((I.1).Y| 00002610: AB 31 29 00 54 2E 8C 05 99 22 11 1D 50 52 49 4E |.1).T...."..PRIN| 00002620: 43 49 50 41 4C 20 41 4D 4F 55 4E 54 20 28 24 29 |CIPAL AMOUNT ($)| 00002630: 20 20 20 20 20 20 20 20 20 20 20 20 9D 9D 9D 9D | ....| 00002640: 9D 9D 9D 9D 9D 9D 9D 22 3B 3A 55 4C B2 31 30 3A |.......";:UL.10:| 00002650: 8D 33 35 3A 00 77 2E 8D 05 41 31 B2 C5 28 55 52 |.35:.w...A1..(UR| 00002660: 24 29 3A 8B 41 31 B1 35 45 36 A7 99 22 91 91 91 |$):.A1.5E6.."...| 00002670: 22 3A 89 31 34 32 30 00 8A 2E 91 05 41 B2 B5 28 |":.1420.....A..(| 00002680: 41 31 AC 31 30 30 AA 2E 35 29 00 9A 2E 96 05 50 |A1.100..5).....P| 00002690: B2 B5 28 41 AC 52 AA 2E 35 29 00 A8 2E 9B 05 58 |..(A.R..5).....X| 000026A0: B2 50 3A 8D 31 37 32 30 00 C0 2E A0 05 99 20 22 |.P:.1720...... "| 000026B0: 11 1D 12 50 41 59 4D 45 4E 54 3D 92 22 3B 58 24 |...PAYMENT=.";X$| 000026C0: 00 FD 2E AA 05 99 22 11 1D 53 43 48 45 44 55 4C |......"..SCHEDUL| 000026D0: 45 20 46 4F 52 20 54 48 49 53 3F 20 28 59 2F 4E |E FOR THIS? (Y/N| 000026E0: 29 20 22 3B 3A 55 4C B2 31 3A 55 53 24 B2 22 59 |) ";:UL.1:US$."Y| 000026F0: 4E 22 3A 8D 33 35 3A 5A 24 B2 55 52 24 00 16 2F |N":.35:Z$.UR$../| 00002700: B4 05 8B 20 C8 28 5A 24 2C 31 29 B2 22 4E 22 20 |... .(Z$,1)."N" | 00002710: 89 20 31 37 36 30 00 21 2F BE 05 89 20 31 35 31 |. 1760.!/... 151| 00002720: 30 00 6D 2F C8 05 99 22 11 1D 50 52 49 4E 43 49 |0.m/..."..PRINCI| 00002730: 50 41 4C 20 41 4D 4F 55 4E 54 20 28 24 29 20 20 |PAL AMOUNT ($) | 00002740: 20 20 20 20 20 20 20 20 20 20 9D 9D 9D 9D 9D 9D | ......| 00002750: 9D 9D 9D 9D 9D 22 3B 3A 55 4C B2 31 30 3A 55 53 |.....";:UL.10:US| 00002760: 24 B2 22 48 30 31 32 33 34 35 36 37 22 00 88 2F |$."H01234567"../| 00002770: C9 05 55 53 24 B2 22 48 30 31 32 33 34 35 36 37 |..US$."H01234567| 00002780: 38 39 2E 22 3A 8D 33 35 00 AB 2F CA 05 41 31 B2 |89.":.35../..A1.| 00002790: C5 28 55 52 24 29 3A 8B 41 31 B1 35 45 36 A7 99 |.(UR$):.A1.5E6..| 000027A0: 22 91 91 91 22 3A 89 31 34 38 30 00 BE 2F CD 05 |"...":.1480../..| 000027B0: 41 B2 B5 28 41 31 AC 31 30 30 AA 2E 35 29 00 F7 |A..(A1.100..5)..| 000027C0: 2F D2 05 99 22 11 1D 4E 55 4D 42 45 52 20 4F 46 |/..."..NUMBER OF| 000027D0: 20 50 41 59 4D 45 4E 54 53 3F 20 20 20 20 20 9D | PAYMENTS? .| 000027E0: 9D 9D 9D 22 3B 3A 55 4C B2 34 3A 8D 33 35 3A 59 |...";:UL.4:.35:Y| 000027F0: B2 C5 28 55 52 24 29 00 35 30 DC 05 99 22 11 1D |..(UR$).50..."..| 00002800: 41 4D 54 2E 20 4F 46 20 45 41 43 48 20 50 41 59 |AMT. OF EACH PAY| 00002810: 4D 45 4E 54 20 28 24 29 20 20 20 20 20 20 20 20 |MENT ($) | 00002820: 20 9D 9D 9D 9D 9D 9D 9D 9D 22 3B 3A 55 4C B2 38 | ........";:UL.8| 00002830: 3A 8D 33 35 3A 00 43 30 DD 05 50 31 B2 C5 28 55 |:.35:.C0..P1..(U| 00002840: 52 24 29 00 56 30 E1 05 50 B2 B5 28 50 31 AC 31 |R$).V0..P..(P1.1| 00002850: 30 30 AA 2E 35 29 00 97 30 E6 05 99 20 22 11 1D |00..5)..0... "..| 00002860: 4D 4F 4E 54 48 20 4F 46 20 46 49 52 53 54 20 50 |MONTH OF FIRST P| 00002870: 41 59 4D 45 4E 54 3F 20 20 20 20 9D 9D 9D 22 3B |AYMENT? ...";| 00002880: 3A 55 4C B2 33 3A 55 53 24 B2 22 22 3A 8D 33 35 |:UL.3:US$."":.35| 00002890: 3A 5A 24 B2 55 52 24 00 A6 30 F0 05 5A 24 B2 C8 |:Z$.UR$..0..Z$..| 000028A0: 28 5A 24 2C 33 29 00 C7 30 FA 05 81 20 4A B2 31 |(Z$,3)..0... J.1| 000028B0: 20 A4 20 31 32 3A 8B 20 5A 24 B2 4D 24 28 4A 29 | . 12:. Z$.M$(J)| 000028C0: 20 89 20 31 35 35 30 00 DD 30 04 06 82 20 4A 3A | . 1550..0... J:| 000028D0: 99 22 91 91 91 22 3A 89 20 31 35 31 30 00 1B 31 |."...":. 1510..1| 000028E0: 0E 06 99 22 11 1D 59 45 41 52 3F 20 20 20 20 20 |..."..YEAR? | 000028F0: 9D 9D 9D 9D 22 3B 3A 55 4C B2 34 3A 55 53 24 B2 |....";:UL.4:US$.| 00002900: 22 30 31 32 33 34 35 36 37 38 39 48 22 3A 8D 33 |"0123456789H":.3| 00002910: 35 3A 59 33 B2 C5 28 55 52 24 29 00 35 31 13 06 |5:Y3..(UR$).51..| 00002920: 8B 59 33 B1 33 30 30 30 A7 99 22 91 91 91 22 3A |.Y3.3000.."...":| 00002930: 89 31 35 35 30 00 3E 31 17 06 55 50 B2 30 00 81 |.1550.>1..UP.0..| 00002940: 31 18 06 55 50 B2 59 33 AB 31 3A 55 47 24 B2 22 |1..UP.Y3.1:UG$."| 00002950: 20 20 20 20 59 45 41 52 22 3A 4C 53 B2 31 31 3A | YEAR":LS.11:| 00002960: 55 48 B2 31 3A 8D 38 35 30 3A 4C 53 B2 31 34 3A |UH.1:.850:LS.14:| 00002970: 99 C8 28 55 44 24 2C 32 35 29 55 50 24 22 13 11 |..(UD$,25)UP$"..| 00002980: 22 00 AE 31 19 06 99 20 22 1D 42 41 4C 41 4E 43 |"..1... ".BALANC| 00002990: 45 20 3D 24 22 3B 41 AD 31 30 30 3B A3 32 33 29 |E =$";A.100;.23)| 000029A0: 22 52 41 54 45 20 3D 22 3B 49 31 3B 22 25 00 BC |"RATE =";I1;"%..| 000029B0: 31 22 06 49 33 B2 30 3A 50 33 B2 30 00 EC 31 2C |1".I3.0:P3.0..1,| 000029C0: 06 99 20 22 1D 4D 54 48 20 20 20 20 49 4E 54 45 |.. ".MTH INTE| 000029D0: 52 45 53 54 20 20 20 20 20 50 41 59 4D 45 4E 54 |REST PAYMENT| 000029E0: 20 20 20 20 42 41 4C 41 4E 43 45 22 00 1C 32 2E | BALANCE"..2.| 000029F0: 06 99 20 22 1D B7 B7 B7 20 20 20 20 B7 B7 B7 B7 |.. ".... ....| 00002A00: B7 B7 B7 B7 20 20 20 20 20 B7 B7 B7 B7 B7 B7 B7 |.... .......| 00002A10: 20 20 20 20 B7 B7 B7 B7 B7 B7 B7 22 00 3F 32 36 | .......".?26| 00002A20: 06 49 32 B2 B5 28 49 AC 41 AA 2E 35 29 3A 8B 20 |.I2..(I.A..5):. | 00002A30: 50 B1 41 AA 49 32 20 A7 20 50 B2 41 AA 49 32 00 |P.A.I2 . P.A.I2.| 00002A40: 4C 32 40 06 41 B2 41 AA 49 32 AB 50 00 7E 32 4A |L2@.A.A.I2.P.~2J| 00002A50: 06 58 B2 49 32 3A 8D 20 31 37 32 30 3A 49 24 B2 |.X.I2:. 1720:I$.| 00002A60: 58 24 3A 58 B2 50 3A 8D 20 31 37 32 30 3A 50 24 |X$:X.P:. 1720:P$| 00002A70: B2 58 24 3A 58 B2 41 3A 8D 20 31 37 32 30 00 A0 |.X$:X.A:. 1720..| 00002A80: 32 54 06 99 22 1D 22 3B 4D 24 28 4A 29 3B C8 28 |2T..".";M$(J);.(| 00002A90: 53 24 2C 31 32 AB C3 28 49 24 29 29 3B 49 24 3B |S$,12..(I$));I$;| 00002AA0: 00 C9 32 5E 06 99 C8 28 53 24 2C 31 32 AB C3 28 |..2^...(S$,12..(| 00002AB0: 50 24 29 29 3B 50 24 3B C8 28 53 24 2C 31 31 AB |P$));P$;.(S$,11.| 00002AC0: C3 28 58 24 29 29 3B 58 24 00 EA 32 68 06 49 33 |.(X$));X$..2h.I3| 00002AD0: B2 49 33 AA 49 32 3A 50 33 B2 50 33 AA 50 3A 59 |.I3.I2:P3.P3.P:Y| 00002AE0: B2 59 AB 31 3A 4A B2 4A AA 31 00 08 33 72 06 8B |.Y.1:J.J.1..3r..| 00002AF0: 20 4A B3 31 33 20 AF 20 59 B1 30 20 AF 20 41 B1 | J.13 . Y.0 . A.| 00002B00: 30 20 89 20 31 35 39 30 00 2A 33 7C 06 58 B2 49 |0 . 1590.*3|.X.I| 00002B10: 33 3A 8D 20 31 37 32 30 3A 49 24 B2 58 24 3A 58 |3:. 1720:I$.X$:X| 00002B20: B2 50 33 3A 8D 20 31 37 32 30 00 61 33 86 06 99 |.P3:. 1720.a3...| 00002B30: 20 22 1D 12 11 54 4F 54 22 3B C8 28 53 24 2C 31 | "...TOT";.(S$,1| 00002B40: 32 AB C3 28 49 24 29 29 3B 49 24 3B C8 28 53 24 |2..(I$));I$;.(S$| 00002B50: 2C 31 32 AB C3 28 58 24 29 29 3B 58 24 3B 22 11 |,12..(X$));X$;".| 00002B60: 22 00 79 33 90 06 8B 20 59 B2 30 20 B0 20 41 B3 |".y3... Y.0 . A.| 00002B70: B2 30 20 89 20 31 37 36 30 00 9B 33 9A 06 59 33 |.0 . 1760..3..Y3| 00002B80: B2 59 33 AA 31 3A 4A B2 31 3A 46 4C B2 31 3A 8D |.Y3.1:J.1:FL.1:.| 00002B90: 38 33 35 3A 8B 46 4A B2 31 A7 8E 00 A6 33 AE 06 |835:.FJ.1....3..| 00002BA0: 89 20 31 35 36 30 00 B5 33 B8 06 41 24 B2 C4 28 |. 1560..3..A$..(| 00002BB0: B5 28 58 29 29 00 DC 33 C2 06 8B 20 C3 28 41 24 |.(X))..3... .(A$| 00002BC0: 29 B3 33 20 A7 20 41 24 B2 C8 28 41 24 2C 31 29 |).3 . A$..(A$,1)| 00002BD0: AA 22 30 22 AA C9 28 41 24 2C 31 29 00 FD 33 CC |."0"..(A$,1)..3.| 00002BE0: 06 58 24 B2 C8 28 41 24 2C C3 28 41 24 29 AB 32 |.X$..(A$,.(A$).2| 00002BF0: 29 AA 22 2E 22 AA C9 28 41 24 2C 32 29 00 03 34 |)."."..(A$,2)..4| 00002C00: D6 06 8E 00 0E 34 E0 06 8D 38 33 35 3A 8E 00 31 |.....4...835:..1| 00002C10: 34 10 27 99 22 11 20 20 20 20 20 D4 48 49 53 20 |4.'.". .HIS | 00002C20: 50 52 4F 47 52 41 4D 20 57 49 4C 4C 20 43 4F 4D |PROGRAM WILL COM| 00002C30: 45 00 5D 34 1A 27 99 22 11 1D 49 4E 20 48 41 4E |E.]4.'."..IN HAN| 00002C40: 44 59 20 46 4F 52 20 48 4F 4D 45 20 42 55 59 45 |DY FOR HOME BUYE| 00002C50: 52 53 2C 20 41 53 20 57 45 4C 4C 20 22 00 72 34 |RS, AS WELL ".r4| 00002C60: 24 27 99 22 11 1D 41 53 20 53 54 55 44 45 4E 54 |$'."..AS STUDENT| 00002C70: 53 2E 00 78 34 2E 27 8E 00 00 00 AA |S..x4.'..... |
.......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 +++
...(.UR$."":UI$."":.UO,0...*..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.R
...UT$.UL$:.53281,1:.".";:.53281,6......
UT,UV%:.UQ.UB.(U2%.256.U1%.U3%.3)......U
Q,UQ%(UQ.UB):.......U1,U1%.&....U2,U2%.2
....U4,U4%.@....U3,U3%.1.H....35.Z...UD%
.((U2%.256.U1%.U3%).UB).40:.H(UD$,UD%.1)
:.......H(UD$,24);"
. HELP COMING . ":......U1%.B(U1):U2%.
B(U2):U3%.B(U3):U4%.B(U4).....UJ$.US$:UK
$.UG$:UL$.UT$:UJ.UP:UK.UL....... .,.. **
MENU **.&.-.:.U....".":.UT,UU%:.B(50003
).0..53281,9:.53280,8.[./.:.X.1..".
MENU"...6.." ----------------
----------------------".K.;..".. 1
. BEGIN MORTGAGE"...@..".. 2.
INSTRUCTIONS"...E..".. 3. TEACHE
R INSTRUCTIONS".D.J..".. 4. MODI
FICATION OF PROGRAM".`.O..".. 5.
QUIT.."...T.." ------------------------
--------------"...Y..".. PRESS A N
UMBER KEY (1-5) ";...^.UL.1:US$."12345":
.35:. INPUT ROUTINE..._..C(UR$).1.300...
`.US$."".!.C..E(UR$).1000,400,500,600,39
6.*.H..300.Q.... ** RE-ENABLE STOP KEY A
ND END **......B(50003)..1.B(50003)..160
.B(50003)..0.399......UU.71:.B(50003).0.
.53281,6:.53280,14......"..":..A....875:
....... ** STUDENT INSTRUCTIONS **......
".":.UT,UL%:.B(50003).0..53281,0:.53280,
0.2...UP.0:UG$."INSTRUCTIONS":.850.]....
".... THIS PROGRAM MAY BE USED TO...
..."..CALCULATE VARIOUS INFORMATION ABOU
T.D...."..MORTGAGE AMORTIZATION, PAYMENT
, ETC.":.10000:.835:......850:.". TH
E USER IS FIRST REQUIRED TO ".!...."..EN
TER CERTAIN NECESSARY DATA, WHICH.Q...."
..SERVES AS THE BASIS OF THE CALCULATION
S.Z....".WHEN ENTERING THIS DATA, THE US
ER......"..WILL BE GUIDED BY THE COMPUTE
R AS TO.W...."..EXACTLY WHAT IS REQUIRED
TO BE ENTERED.......".WHEN ENTERING NUM
BERS DO NOT INCLUDE "./...."..DOLLAR ($)
OR PERCENT (%) SIGNS.".R...." .AFTE
R ENTERING THE DATA, PRESS .. THE .RE
TURN. KEY.......835:.850......". IF
DESIRED, THE COMPUTER WILL THEN"...B..".
.DISPLAY TABLES FOR THE AMORTIZATION...G
.."..OF THE LOAN, BASED ON THE INFORMATI
ON.).L.."..THAT YOU HAVE ENTERED..X.Q.."
. THIS PROCESS MAY TAKE QUITE SOME "
...V.."..TIME TO COMPLETE. IF AT ANY TIM
E...W.."..DURING THIS PROCESS YOU WISH T
O STOP,.X.X.."..SIMPLY PRESS THE .E. KEY
TO EXIT...Y.."..TO THE MENU....Z..835:.
850.+...."..... FURTHERMORE, IF WHIL
E ENTERING".X...."...THE DATA YOU WISH T
O RETURN TO THE".X...."...MENU, PRESS H
RETURN."......835......UZ.1..UP%:.217...
......... ** TEACHER INSTRUCTIONS **....
..".":.UT,UL%:.B(50003).0..53281,2:.5328
0,10.....UP.0:UG$."TEACHER INST":.850.;.
...".. TO THE BEST OF OUR KNOWLEDGE
,.".D...." THIS PROGRAM IS IN THE PUBL
IC."......" DOMAIN. IF THIS IS NOT TH
E CASE."......" PLEASE CONTACT:...".W.
..." COMMODORE BUSINESS MACHINES.".
....." 3370 PHARMACY AVE.......
" AGINCOURT, ONTARIO".@...."
CANADA M1W 2K4".`...."
(416) 499-4292".V...UP.1:. 835:. 850:..
...." ..PROGRAM NAME: MORTGAGE..E...
." WRITTEN BY : JIM BUTTERFIELD....
..." UPGRADED BY : JOHN GOSSLING....
..." .THIS PROGRAM WILL RUN ON ANY..
.?...." BASIC 2.0 PET COMPUTER..
F...." BASIC 4.0 PET COMPUTER...
...." 8032 CBM COMPUTER......."
COMMODORE 64 COMPUTER...D..835.J
.N..UZ.1..UP%:.217.P.W.....X.. ** PROGRA
M MODIFICATION INST **...Y..".":.UT,UL%.
'.].UP.0:UG$."PROGRAM MOD":.850.V.B.."'I
=(1+I1/200)^(1/6)-1'(CANADA STANDARD)"..
.E.."..... THIS PROGRAM IS SET UP TO
PERFORM"...H.."..INTEREST CALCULATIONS
BASED ON SEMI-...K.."..ANNUAL COMPOUNDIN
G AND MONTHLY PAYMENTS...N..".THIS IS TH
E STANDARD METHOD FOR CANADA.".$.Q..835:
.850.Q.T..". IF YOUR APPLICATION REQ
UIRES A ".~.W.."..VARIATION OF THE FORMU
LA USED, YOU "...Z.."..MAY MAKE THE REQU
IRED CHANGES IN.W.}.."..LINE .1370.. CUR
RENTLY THAT LINE SHOULD....."..READ : .
1370 I=(1+I1/(2*100))^(1/6)-1........"..
WHERE:".@....". I1 = THE INTEREST
RATE (%).H....". 2 = THE # OF COM
POUNDING......" PERIODS PER Y
EAR......". 6 = THE # OF PAYMENTS
.Y...." PER COMPOUNDING PERIO
D......835......UZ.1..UP%:.217.......!..
.. ** TO USE 8032 LOAD CBM4032 **.W.F.."
.....BEFORE RUNNING THIS PROGRAM ON AN 8
032 .....P.." LOAD THE 'CBM 4032'
PROGRAM............."...Z..UU.71.......C
.... ** TO USE 8032 LOAD CBM4032 **.....
."....BEFORE RUNNING THIS PROGRAM ON AN
8032 ..LOAD CBM 4032 PROGRAM"......1093
:..:. .. ** T I T L E P A G E **.N."..
"....";:.UT,UU%:.B(50003).0..53280,14:.5
3281,6...$..I.1.38:."...";:....&..I.1.22
:.".....";:....(..I.1.37:.".....";:..L.*
..I.1.22:.".....";:....,..".............
.............. ......."................
... . . ...4.0.."................... .
....R.2..".................... ..Z.4..
"..............C O M M O D O R E.....6..
"...............EDUCATIONAL.....8.."....
............SOFTWARE.W.:.. ** COMMODORE
LOGO **...;..H(UD$,24);"..........PRESS
SPACE BAR OR WAIT.":I.0.1.<..A$:.A$.." "
.I.I.1:.I.250.828.U.>.T1$."":T2$."":T3$.
"":T4$."":I.0.^.@..300.Z.C.. ** SPACE BA
R PRESS **...D..FL.1..H(UD$,23)"
EXIT - PRESS .E."...E.FJ.0...H..H(UD
$,24);".......PRESS SPACE BAR TO CONTINU
E.":.UO,0...I..UI$:.. K..FL.1.UI$."E".FL
.0:FJ.1:..+ L..UI$.." ".841.6 N.FL.0:..V
R.. ** PAGE DESIGN ROUTINE **.B T.UP.UP
.1.. W.."."H(UT$.UP$,21);I(UP$.UG$.D(UP)
,18).. \.." ----------------------------
----------".J `..UH..0.870.. A..H(UD$,24
);H(UP$,7);"HELP - PRESS H <RETURN>"..
!F.UH.0:."..":...!K.. ** PLEASE WAIT REM
ARK **.D!P..H(UD$,24);" ONE MO
MENT PLEASE... ".J!U....!... ** SET
UP VARIABLES **.R!..UX$."H":.UQ%(1000):U
B.32768:U1.196:U2.197:U3.198:U4.216:UC.1
67:UU.1024.."..UT.59468:UU%.12:UL%.14:UP
%.1146:UM.32768:. 50003,0:UO.158.S"...B(
50003).0.UB.1024:U1.209:U2.210:U3.211:U4
.214:UC.204:UU.2048.."...B(50003).0.UT.5
3272:UU%.21:UL%.23:UP%.2139:UM.1024:UO.1
98.."..UD$."........................."..
"..UP$."
".6#..UT$." MORTGAGE ":.
PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!
!!!***.<#....V#... ** SET VARIABLES **._
#...900..#... M$(12):S$." ":L
S.14..#... J.1 . 12:. M$(J):...#... ** C
HECK FOR 8032 **.V#...".":." ":. SHIFTED
SPACE..#...B(UB.40)..96..700..$... ** M
EMORY CHECK **..$... .(0).2000.937.H$...
"....THIS MACHINE DOES NOT HAVE ENOUGH."
.L$..."MEMORY TO RUN THIS PROGRAM !".W$.
..UU.71.}$.....$..."..":.B(50003).0.962.
F$... ** BASIC 2.0 OR 4.0 OR C-64 SE
TUP **..%...1075,133:.1076,144:.1077,234
:.1079,4:.1080,133:.1081,145.:%...1091,1
55:.1098,133:.1099,144:.1100,234:.1103,1
33.\%...1104,145:.1105,234:.1082,234.S%.
..B(50003)..160.955..%...1093,88:.1094,2
28:.1097,85:.1102,228:.965..%...B(50003)
..1.990..%...1093,49:.1094,230:.1097,46:
.1102,230:.965. &B..2099,141:.2100,20:.2
101,3:.2103,8:.2104,141:.2105,21.\&C..21
06,3:.2115,145:.2117,52:.2118,234:.2121,
49:.2122,141..&D..2123,20:.2124,3:.2126,
234:.2127,141:.2128,21:.2129,3..&E..UU.4
8:. DISABLE STOP KEY.E&J..800:. TITLE.U&
T..300:. MENU..'...".THE PGM WILL NOT WO
RK ON THIS MACHINE!":..;'...UZ.1..UP%:.U
P%:UZ.0:. ** PROGRAM STARTS HERE **.G'..
."..";:.:.B(50003).0..53281,6:.53280,14.
.'..UT$." MORTGAGE":.UT,UU%..'... MORTG
AGE..'... JIM BUTTERFIELD.I'... TORONT
O PET USERS GROUP..'... DONATED TO CUE
BY B.GODFREY..'.....($.. CALCULATES MOR
TGAGE PAYMENTS..(....*(8.. PET 8K.0(B..
.~(L.."...............................
. SAN MATEO COUNTY ..L
(V..". OFFICE OF EDUCATION .
. & ...)`
..". COMPUTER-USING EDUCATORS .
. SOFTSWAP ..H)J..
". .
. ...)T..".
333 MAIN STREET, REDWOOD CITY. .
CA 94063 (415)364-5600 EX4401...*~.."...
............................ ...
.............................R*...". PRO
GRAMS MAY BE COPIED FOR . . EDU
CATIONAL USE ONLY AND .. *...". ARE N
OT TO BE SOLD. . .......
..........................*..UP.0:UG$."D
ATA ENTRY":.850.I*...1360..*... "*** MOR
TGAGE ***"..+..."..IF DESIRED, THE PROGR
AM CALCULATES".0+D..".AMOUNT OF MONTHLY
PAYMENT".Z+N.."..THEN PAYMENT TABLES ARE
PRINTED."..+X.."..NOTE: LINE 1370 WORKS
OUT INTEREST"..+...".ON 'COMPOUNDED SEM
I-ANNUAL' BASIS"..+...".'I=(1+I1/200)^(1
/6)-1'(CANADA STANDARD)"..+...:...,...".
..CHANGE TO SUIT YOUR LOCALE, E.G.,".9,.
..".FOR MONTHLY COMPOUNDING USE:".N,..."
.'I=I1/1200'."..,... JAN,FEB,MAR,APR,MAY
,JUN,JUL,AUG,SEP,OCT,NOV,DEC.P,P.."..ENT
ER ANNUAL INTEREST RATE (.%.) ...";
:UL.5:US$."H0123456789."..-U.."..";:.35:
I1.E(UR$):.I1.25.I1.1.."...":.1360..-Z.I
.(1.I1.(2.100)).(1.6).1._-D.."..SHALL I
FIND PAYMENT AMOUNT? (Y/N) ";:UL.1:US$."
YN":.35.J-I.Z$.UR$..-N.. H(Z$,1)."N" . 1
480.H-X.."..LENGTH OF LOAN (IN YEARS)
....";:UL.4:US$."H0123456789."..-}..35
:Y1.E(UR$):.Y1.40.Y1..06.."...":.1400...
..Y.Y1.12:R.I.I.((I.1).Y.1).T...."..PRIN
CIPAL AMOUNT ($) ..........."
;:UL.10:.35:.W...A1.E(UR$):.A1.5E6.."...
":.1420.....A..(A1.100..5).....P..(A.R..
5).....X.P:.1720... .. "...PAYMENT=.";X$
......"..SCHEDULE FOR THIS? (Y/N) ";:UL.
1:US$."YN":.35:Z$.UR$../... H(Z$,1)."N"
. 1760.!/... 1510.M/H.."..PRINCIPAL AMOU
NT ($) ...........";:UL.10:US
$."H01234567"../I.US$."H0123456789.":.35
../J.A1.E(UR$):.A1.5E6.."...":.1480../M.
A..(A1.100..5)../R.."..NUMBER OF PAYMENT
S? ....";:UL.4:.35:Y.E(UR$).50..."..
AMT. OF EACH PAYMENT ($) .......
.";:UL.8:.35:.C0..P1.E(UR$).V0..P..(P1.1
00..5)..0... "..MONTH OF FIRST PAYMENT?
...";:UL.3:US$."":.35:Z$.UR$..0..Z$.H
(Z$,3).G0... J.1 . 12:. Z$.M$(J) . 1550.
.0... J:."...":. 1510..1..."..YEAR?
....";:UL.4:US$."0123456789H":.35:Y3.E(U
R$).51...Y3.3000.."...":.1550.>1..UP.0..
1..UP.Y3.1:UG$." YEAR":LS.11:UH.1:.85
0:LS.14:.H(UD$,25)UP$".."..1... ".BALANC
E =$";A.100;.23)"RATE =";I1;"%..1".I3.0:
P3.0..1,.. ".MTH INTEREST PAYMENT
BALANCE"..2... ".... ........
....... .......".?26.I2..(I.A..5):.
P.A.I2 . P.A.I2.L2@.A.A.I2.P.~2J.X.I2:.
1720:I$.X$:X.P:. 1720:P$.X$:X.A:. 1720.
2T..".";M$(J);H(S$,12.C(I$));I$;.I2^..H(
S$,12.C(P$));P$;H(S$,11.C(X$));X$..2H.I3
.I3.I2:P3.P3.P:Y.Y.1:J.J.1..3R.. J.13 .
Y.0 . A.0 . 1590.*3|.X.I3:. 1720:I$.X$:X
.P3:. 1720.A3... "...TOT";H(S$,12.C(I$))
;I$;H(S$,12.C(X$));X$;".".Y3... Y.0 . A.
.0 . 1760..3..Y3.Y3.1:J.1:FL.1:.835:.FJ.
1....3... 1560..3..A$.D(.(X))..3B.. C(A$
).3 . A$.H(A$,1)."0".I(A$,1)..3L.X$.H(A$
,C(A$).2).".".I(A$,2)..4V....4...835:..1
4.'.". THIS PROGRAM WILL COME.]4.'."
..IN HANDY FOR HOME BUYERS, AS WELL ".R4
$'."..AS STUDENTS..X4.'.....
> CLICK IMAGE PREVIEW FOR FULL MODAL