SAVINGS 64
FILE INFORMATION
FILENAME(S): SAVINGS 64
FILE TYPE(S): PRG
FILE SIZE: 2.9K
FIRST SEEN: 2025-11-30 21:23:14
APPEARS ON: 1 disk(s)
FILE HASH
67a61f0c337b9ccd9e13dd7de2915d96e64c88756631dff82f8025a2586eaafa
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 HULP 14 2 | SAVINGS 64 | PRG | DuncanTwain | 16 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 13 08 64 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |....d.. ********| 00000010: 2A 2A 2A 00 25 08 6E 00 8F 20 2A 20 20 53 41 56 |***.%.n.. * SAV| 00000020: 49 4E 47 20 2A 00 37 08 78 00 8F 20 2A 2A 2A 2A |ING *.7.x.. ****| 00000030: 2A 2A 2A 2A 2A 2A 2A 00 64 08 82 00 8F 20 42 59 |*******.d.... BY| 00000040: 20 4A 4F 45 4C 20 53 2E 20 4D 4F 53 4B 4F 57 49 | JOEL S. MOSKOWI| 00000050: 54 5A 20 41 4E 44 20 54 48 45 20 48 43 4D 20 53 |TZ AND THE HCM S| 00000060: 54 41 46 46 00 81 08 8C 00 8F 20 48 4F 4D 45 20 |TAFF...... HOME | 00000070: 43 4F 4D 50 55 54 45 52 20 4D 41 47 41 5A 49 4E |COMPUTER MAGAZIN| 00000080: 45 00 95 08 96 00 8F 20 56 45 52 53 49 4F 4E 20 |E...... VERSION | 00000090: 34 2E 31 2E 31 00 A5 08 A0 00 8F 20 43 36 34 20 |4.1.1...... C64 | 000000A0: 42 41 53 49 43 00 B9 08 AA 00 8F 20 46 49 52 53 |BASIC...... FIRS| 000000B0: 54 20 44 49 53 50 4C 41 59 00 DF 08 B4 00 99 22 |T DISPLAY......"| 000000C0: 93 11 11 11 11 11 11 11 11 20 20 20 20 20 20 20 |......... | 000000D0: 20 20 20 20 20 20 20 20 53 41 56 49 4E 47 22 00 | SAVING".| 000000E0: 0F 09 BE 00 99 22 11 11 11 11 11 11 11 11 11 20 |....."......... | 000000F0: 20 20 20 20 20 20 20 20 50 52 45 53 53 20 52 45 | PRESS RE| 00000100: 54 55 52 4E 20 46 4F 52 20 42 45 47 49 4E 22 00 |TURN FOR BEGIN".| 00000110: 22 09 C8 00 A1 41 24 3A 8B 41 24 B2 22 22 A7 32 |"....A$:.A$."".2| 00000120: 30 30 00 35 09 D2 00 8B 41 24 B3 B1 C7 28 31 33 |00.5....A$...(13| 00000130: 29 A7 32 30 30 00 46 09 DC 00 8F 20 49 4E 49 54 |).200.F.... INIT| 00000140: 49 41 4C 49 5A 45 00 5E 09 E6 00 86 43 41 28 32 |IALIZE.^....CA(2| 00000150: 35 29 2C 50 52 28 32 35 29 3A 99 22 93 22 00 7A |5),PR(25):.".".z| 00000160: 09 F0 00 96 A5 50 56 28 4E 29 B2 28 31 AB 31 AD |.....PV(N).(1.1.| 00000170: 28 31 AA 49 29 AE 4E 29 AD 49 00 94 09 FA 00 96 |(1.I).N).I......| 00000180: A5 46 56 28 4E 29 B2 28 28 31 AA 49 29 AE 4E AB |.FV(N).((1.I).N.| 00000190: 31 29 AD 49 00 A9 09 04 01 96 A5 47 28 46 29 B2 |1).I.......G(F).| 000001A0: 46 AC 43 41 28 5A 29 AD 50 00 BC 09 0E 01 96 A5 |F.CA(Z).P.......| 000001B0: 43 50 28 50 29 B2 50 AC 4E 44 AD 46 00 E4 09 18 |CP(P).P.ND.F....| 000001C0: 01 96 A5 43 28 49 4E 29 B2 50 52 28 58 29 AC 28 |...C(IN).PR(X).(| 000001D0: 31 AA 49 4E AD 28 31 30 30 AC 4B 29 29 AE 28 4B |1.IN.(100.K)).(K| 000001E0: AC 54 59 29 00 00 0A 22 01 96 A5 52 44 28 41 29 |.TY)..."...RD(A)| 000001F0: B2 B5 28 41 AC 31 30 30 AA 2E 35 29 AD 31 30 30 |..(A.100..5).100| 00000200: 00 12 0A 2C 01 8F 20 4D 45 4E 55 20 53 43 52 45 |...,.. MENU SCRE| 00000210: 45 4E 00 1B 0A 36 01 99 22 93 22 00 32 0A 40 01 |EN...6..".".2.@.| 00000220: 99 22 11 11 20 59 4F 55 52 20 43 48 4F 49 43 45 |.".. YOUR CHOICE| 00000230: 3A 22 00 51 0A 4A 01 99 22 11 20 20 31 2E 20 43 |:".Q.J..". 1. C| 00000240: 4F 4D 50 4F 55 4E 44 20 49 4E 54 45 52 45 53 54 |OMPOUND INTEREST| 00000250: 22 00 6D 0A 54 01 99 22 11 20 20 32 2E 20 4C 45 |".m.T..". 2. LE| 00000260: 56 45 4C 20 50 41 59 4D 45 4E 54 53 22 00 8E 0A |VEL PAYMENTS"...| 00000270: 5E 01 99 22 11 20 20 33 2E 20 49 4E 43 52 45 41 |^..". 3. INCREA| 00000280: 53 49 4E 47 20 50 41 59 4D 45 4E 54 53 22 00 C4 |SING PAYMENTS"..| 00000290: 0A 68 01 99 22 11 20 20 34 2E 20 46 55 54 55 52 |.h..". 4. FUTUR| 000002A0: 45 20 56 41 4C 55 45 2C 11 9D 9D 9D 9D 9D 9D 9D |E VALUE,........| 000002B0: 9D 9D 9D 9D 9D 46 49 58 45 44 20 50 41 59 4D 45 |.....FIXED PAYME| 000002C0: 4E 54 53 22 00 DD 0A 72 01 99 22 11 20 20 35 2E |NTS"...r..". 5.| 000002D0: 20 45 4E 44 20 50 52 4F 47 52 41 4D 22 00 F2 0A | END PROGRAM"...| 000002E0: 7C 01 A1 43 48 24 3A 8B 43 48 24 B2 22 22 A7 33 ||..CH$:.CH$."".3| 000002F0: 38 30 00 0F 0B 86 01 8B C6 28 43 48 24 29 B3 34 |80.......(CH$).4| 00000300: 39 B0 C6 28 43 48 24 29 B1 35 33 A7 33 38 30 00 |9..(CH$).53.380.| 00000310: 20 0B 90 01 43 48 B2 C6 28 43 48 24 29 AB 34 38 | ...CH..(CH$).48| 00000320: 00 31 0B 9A 01 8B 43 48 B2 35 A7 99 22 93 22 3A |.1....CH.5..".":| 00000330: 80 00 3A 0B A4 01 99 22 93 22 00 59 0B AE 01 85 |..:....".".Y....| 00000340: 22 20 20 31 2E 20 50 52 45 53 45 4E 54 1D 4D 4F |" 1. PRESENT.MO| 00000350: 4E 54 48 3A 20 22 3B 50 4D 00 74 0B B8 01 8B 50 |NTH: ";PM.t....P| 00000360: 4D B3 31 B0 50 4D B1 31 32 A7 99 22 91 91 22 3A |M.1.PM.12.."..":| 00000370: 89 34 33 30 00 88 0B C2 01 85 22 20 20 20 20 20 |.430......" | 00000380: 59 45 41 52 22 3B 50 59 00 9D 0B CC 01 8B 50 59 |YEAR";PY......PY| 00000390: B3 31 A7 99 22 91 91 22 3A 89 34 35 30 00 BB 0B |.1.."..":.450...| 000003A0: D6 01 85 22 20 20 32 2E 20 46 55 54 55 52 45 20 |..." 2. FUTURE | 000003B0: 4D 4F 4E 54 48 3A 20 22 3B 46 4D 00 D6 0B E0 01 |MONTH: ";FM.....| 000003C0: 8B 46 4D B3 31 B0 46 4D B1 31 32 A7 99 22 91 91 |.FM.1.FM.12.."..| 000003D0: 22 3A 89 34 37 30 00 EC 0B EA 01 85 22 20 20 20 |":.470......" | 000003E0: 20 20 59 45 41 52 3A 20 22 3B 46 59 00 02 0C F4 | YEAR: ";FY....| 000003F0: 01 8B 46 59 B3 50 59 A7 99 22 91 91 22 3A 89 34 |..FY.PY.."..":.4| 00000400: 39 30 00 30 0C FE 01 8B 54 59 B3 B2 30 A7 99 22 |90.0....TY..0.."| 00000410: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000420: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 91 22 | ."| 00000430: 00 44 0C 08 02 59 B2 46 59 AB 50 59 3A 4D B2 46 |.D...Y.FY.PY:M.F| 00000440: 4D AB 50 4D 00 5A 0C 12 02 8B 4D B3 30 A7 4D B2 |M.PM.Z....M.0.M.| 00000450: 4D AA 31 32 3A 59 B2 59 AB 31 00 68 0C 1C 02 54 |M.12:Y.Y.1.h...T| 00000460: 59 B2 59 AA 4D AD 31 32 00 9B 0C 26 02 8B 54 59 |Y.Y.M.12...&..TY| 00000470: B3 B2 30 A7 99 22 54 49 4D 45 20 4D 55 53 54 20 |..0.."TIME MUST | 00000480: 42 45 20 47 52 45 41 54 45 52 20 54 48 41 4E 20 |BE GREATER THAN | 00000490: 5A 45 52 4F 13 22 3A 89 34 33 30 00 B9 0C 30 02 |ZERO.":.430...0.| 000004A0: 85 22 20 20 33 2E 20 50 43 54 20 49 4E 54 45 52 |." 3. PCT INTER| 000004B0: 45 53 54 3A 20 22 3B 49 4E 00 CF 0C 3A 02 8B 49 |EST: ";IN...:..I| 000004C0: 4E B3 B2 30 A7 99 22 91 91 22 3A 89 35 36 30 00 |N..0.."..":.560.| 000004D0: DC 0C 44 02 52 B2 49 4E AD 31 30 30 00 FC 0C 4E |..D.R.IN.100...N| 000004E0: 02 85 22 20 20 34 2E 20 43 4F 4D 50 4F 55 4E 44 |.." 4. COMPOUND| 000004F0: 53 2F 59 45 41 52 53 3A 20 22 3B 4B 00 11 0D 58 |S/YEARS: ";K...X| 00000500: 02 8B 4B B3 B2 30 A7 99 22 91 91 22 3A 89 35 39 |..K..0.."..":.59| 00000510: 30 00 2D 0D 62 02 91 43 48 8D 31 30 30 30 2C 32 |0.-.b..CH.1000,2| 00000520: 30 30 30 2C 33 30 30 30 2C 34 30 30 30 00 50 0D |000,3000,4000.P.| 00000530: 6C 02 99 22 11 20 20 50 52 45 53 53 20 52 45 54 |l..". PRESS RET| 00000540: 55 52 4E 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 |URN TO CONTINUE"| 00000550: 00 63 0D 76 02 A1 41 24 3A 8B 41 24 B2 22 22 A7 |.c.v..A$:.A$."".| 00000560: 36 33 30 00 76 0D 80 02 8B 41 24 B3 B1 C7 28 31 |630.v....A$...(1| 00000570: 33 29 A7 36 33 30 00 81 0D 8A 02 9C 3A 89 32 33 |3).630......:.23| 00000580: 30 00 99 0D E8 03 8F 20 43 4F 4D 50 4F 55 4E 44 |0...... COMPOUND| 00000590: 20 49 4E 54 45 52 45 53 54 00 A4 0D F2 03 8D 31 | INTEREST......1| 000005A0: 30 30 30 30 00 CF 0D FC 03 99 22 11 20 20 46 55 |0000......". FU| 000005B0: 54 55 52 45 20 53 41 56 49 4E 47 53 3D 20 24 22 |TURE SAVINGS= $"| 000005C0: 3B C4 28 A5 52 44 28 A5 43 28 49 4E 29 29 29 00 |;.(.RD(.C(IN))).| 000005D0: 00 0E 06 04 99 22 11 20 20 54 4F 54 41 4C 20 49 |.....". TOTAL I| 000005E0: 4E 54 45 52 45 53 54 3D 20 24 22 3B C4 28 A5 52 |NTEREST= $";.(.R| 000005F0: 44 28 A5 43 28 49 4E 29 AB 50 52 28 58 29 29 29 |D(.C(IN).PR(X)))| 00000600: 00 06 0E 10 04 8E 00 1B 0E D0 07 8F 20 4C 45 56 |............ LEV| 00000610: 45 4C 20 50 41 59 4D 45 4E 54 53 00 26 0E DA 07 |EL PAYMENTS.&...| 00000620: 8D 32 30 30 30 30 00 31 0E E4 07 8D 33 30 30 30 |.20000.1....3000| 00000630: 30 00 52 0E EE 07 49 B2 52 AD 4B 3A 54 50 B2 B5 |0.R...I.R.K:TP..| 00000640: 28 4E 50 AC 54 59 29 3A 8B 54 50 B2 30 A7 54 50 |(NP.TY):.TP.0.TP| 00000650: B2 31 00 79 0E F8 07 4E B2 4B AD 4E 50 AC 54 50 |.1.y...N.K.NP.TP| 00000660: 3A 46 B2 A5 46 56 28 4E 29 3A 4E B2 4B AD 4E 50 |:F..FV(N):N.K.NP| 00000670: 3A 50 B2 A5 50 56 28 4E 29 00 9C 0E 02 08 54 59 |:P..PV(N).....TY| 00000680: B2 28 4D AD 28 31 32 AD 4E 50 29 AB B5 28 4D AD |.(M.(12.NP)..(M.| 00000690: 28 31 32 AD 4E 50 29 29 29 AD 4E 50 00 C7 0E 0C |(12.NP))).NP....| 000006A0: 08 8B 54 59 B2 30 A7 32 30 37 30 3A 4E 44 B2 4E |..TY.0.2070:ND.N| 000006B0: 44 AD 28 31 AA 49 4E AD 28 31 30 30 AC 4B 29 29 |D.(1.IN.(100.K))| 000006C0: AE 28 4B AC 54 59 29 00 F2 0E 16 08 99 22 11 20 |.(K.TY)......". | 000006D0: 20 4C 45 56 45 4C 20 50 41 59 4D 45 4E 54 53 3D | LEVEL PAYMENTS=| 000006E0: 20 24 22 3B C4 28 A5 52 44 28 A5 43 50 28 50 29 | $";.(.RD(.CP(P)| 000006F0: 29 29 00 F8 0E 20 08 8E 00 12 0F B8 0B 8F 20 49 |))... ........ I| 00000700: 4E 43 52 45 41 53 49 4E 47 20 50 41 59 4D 45 4E |NCREASING PAYMEN| 00000710: 54 53 00 1D 0F C2 0B 8D 32 30 30 30 30 00 28 0F |TS......20000.(.| 00000720: CC 0B 8D 33 30 30 30 30 00 33 0F D6 0B 8D 34 30 |...30000.3....40| 00000730: 30 30 30 00 4A 0F E0 0B 8B 54 59 B1 B2 31 AF 54 |000.J....TY..1.T| 00000740: 59 B3 B2 32 35 A7 33 30 36 30 00 8B 0F EA 0B 99 |Y..25.3060......| 00000750: 22 20 54 49 4D 45 20 50 45 52 49 4F 44 45 20 4D |" TIME PERIODE M| 00000760: 55 53 54 20 42 45 20 20 46 52 4F 4D 20 31 20 54 |UST BE FROM 1 T| 00000770: 4F 20 32 35 20 59 45 41 52 53 20 55 53 45 20 52 |O 25 YEARS USE R| 00000780: 4F 55 54 49 4E 45 20 32 22 3A 8E 00 D2 0F F4 0B |OUTINE 2":......| 00000790: 49 B2 52 AD 4B 3A 58 B2 30 3A 41 B2 30 3A 43 41 |I.R.K:X.0:A.0:CA| 000007A0: 28 31 29 B2 31 3A 4E B2 4B AD 4E 50 3A 50 B2 A5 |(1).1:N.K.NP:P..| 000007B0: 50 56 28 4E 29 3A 4E B2 4B 3A 46 B2 A5 46 56 28 |PV(N):N.K:F..FV(| 000007C0: 4E 29 3A 5A B2 31 3A 50 52 28 31 29 B2 A5 47 28 |N):Z.1:PR(1)..G(| 000007D0: 46 29 00 07 10 FE 0B 81 5A B2 32 A4 59 AA 31 3A |F)......Z.2.Y.1:| 000007E0: 43 41 28 5A 29 B2 43 41 28 5A AB 31 29 AC 28 31 |CA(Z).CA(Z.1).(1| 000007F0: AA 52 41 AD 31 30 30 29 3A 50 52 28 5A 29 B2 A5 |.RA.100):PR(Z)..| 00000800: 47 28 46 29 3A 82 5A 00 15 10 08 0C 8B 59 B2 30 |G(F):.Z......Y.0| 00000810: A7 33 31 33 30 00 28 10 12 0C 81 58 B2 31 A4 59 |.3130.(....X.1.Y| 00000820: 3A 54 59 B2 54 59 AB 31 00 42 10 1C 0C 8B 54 59 |:TY.TY.1.B....TY| 00000830: B2 30 A7 41 B2 41 AA 50 52 28 58 29 3A 89 33 31 |.0.A.A.PR(X):.31| 00000840: 32 30 00 51 10 26 0C 41 B2 41 AA A5 43 28 49 4E |20.Q.&.A.A..C(IN| 00000850: 29 00 58 10 30 0C 82 58 00 6A 10 3A 0C 8B 4D B3 |).X.0..X.j.:..M.| 00000860: 31 32 AD 4E 50 A7 33 31 35 30 00 A9 10 44 0C 5A |12.NP.3150...D.Z| 00000870: B2 58 3A 4E B2 4B AD 4E 50 3A 50 B2 A5 50 56 28 |.X:N.K.NP:P..PV(| 00000880: 4E 29 3A 4E B2 4B AD 4E 50 AC B5 28 4D AD 28 31 |N):N.K.NP..(M.(1| 00000890: 32 AD 4E 50 29 29 3A 46 B2 A5 46 56 28 4E 29 3A |2.NP)):F..FV(N):| 000008A0: 41 B2 41 AA A5 47 28 46 29 00 EE 10 4E 0C 54 59 |A.A..G(F)...N.TY| 000008B0: B2 28 4D AD 28 31 32 AD 4E 50 29 AB B5 28 4D AD |.(M.(12.NP)..(M.| 000008C0: 28 31 32 AD 4E 50 29 29 29 AD 4E 50 3A 8B 54 59 |(12.NP))).NP:.TY| 000008D0: B2 30 A7 33 31 36 30 3A 50 52 28 58 29 B2 43 41 |.0.3160:PR(X).CA| 000008E0: 28 58 29 3A 41 B2 41 AA A5 43 28 49 4E 29 00 FA |(X):A.A..C(IN)..| 000008F0: 10 58 0C 50 41 B2 4E 44 AD 41 00 28 11 62 0C 99 |.X.PA.ND.A.(.b..| 00000900: 22 11 20 20 31 53 54 20 50 45 52 49 4F 44 45 20 |". 1ST PERIODE | 00000910: 50 41 59 4D 45 4E 54 3D 20 24 22 3B C4 28 A5 52 |PAYMENT= $";.(.R| 00000920: 44 28 50 41 29 29 3A 8E 00 3B 11 A0 0F 8F 20 46 |D(PA)):..;.... F| 00000930: 55 54 55 52 45 20 56 41 4C 55 45 00 46 11 AA 0F |UTURE VALUE.F...| 00000940: 8D 32 30 30 30 30 00 51 11 B4 0F 8D 35 30 30 30 |.20000.Q....5000| 00000950: 30 00 76 11 BE 0F 49 B2 52 AD 4B 3A 5A B2 31 3A |0.v...I.R.K:Z.1:| 00000960: 54 50 B2 B5 28 4E 50 AC 54 59 29 3A 8B 54 50 B2 |TP..(NP.TY):.TP.| 00000970: 30 A7 54 50 B2 31 00 A5 11 C8 0F 4E B2 4B AD 4E |0.TP.1.....N.K.N| 00000980: 50 3A 50 B2 A5 50 56 28 4E 29 3A 4E B2 4B AD 4E |P:P..PV(N):N.K.N| 00000990: 50 AC 54 50 3A 46 B2 A5 46 56 28 4E 29 3A 41 B2 |P.TP:F..FV(N):A.| 000009A0: A5 47 28 46 29 00 E4 11 D2 0F 54 59 B2 28 4D AD |.G(F).....TY.(M.| 000009B0: 28 31 32 AD 4E 50 29 AB B5 28 4D AD 28 31 32 AD |(12.NP)..(M.(12.| 000009C0: 4E 50 29 29 29 AD 4E 50 3A 8B 54 59 B2 30 A7 34 |NP))).NP:.TY.0.4| 000009D0: 30 36 30 3A 50 52 28 58 29 B2 41 3A 41 B2 A5 43 |060:PR(X).A:A..C| 000009E0: 28 49 4E 29 00 06 12 DC 0F 99 22 11 20 20 53 41 |(IN)......". SA| 000009F0: 56 49 4E 47 53 20 57 49 4C 4C 3D 20 20 24 22 3B |VINGS WILL= $";| 00000A00: A5 52 44 28 41 29 00 0C 12 E6 0F 8E 00 29 12 10 |.RD(A).......)..| 00000A10: 27 8F 20 53 55 42 20 46 4F 52 20 50 52 45 53 45 |'. SUB FOR PRESE| 00000A20: 4E 54 20 41 4D 4F 55 4E 54 00 4C 12 1A 27 85 22 |NT AMOUNT.L..'."| 00000A30: 20 20 35 2E 20 50 52 45 53 45 4E 54 20 41 4D 4F | 5. PRESENT AMO| 00000A40: 55 4E 54 3A 20 22 3B 50 52 28 58 29 00 67 12 24 |UNT: ";PR(X).g.$| 00000A50: 27 8B 50 52 28 58 29 B3 B2 30 A7 99 22 91 91 22 |'.PR(X)..0..".."| 00000A60: 3A 89 31 30 30 31 30 00 6D 12 2E 27 8E 00 73 12 |:.10010.m..'..s.| 00000A70: 20 4E 8F 00 93 12 2A 4E 99 22 20 20 35 2E 20 50 | N....*N." 5. P| 00000A80: 41 59 4D 45 4E 54 53 2F 59 45 41 52 3A 20 22 3A |AYMENTS/YEAR: ":| 00000A90: 85 4E 50 00 AC 12 34 4E 8B 4E 50 B3 B2 30 A7 99 |.NP...4N.NP..0..| 00000AA0: 22 91 91 91 22 3A 89 32 30 30 31 30 00 B2 12 3E |"...":.20010...>| 00000AB0: 4E 8E 00 B8 12 30 75 8F 00 D8 12 3A 75 99 22 20 |N....0u....:u." | 00000AC0: 20 36 2E 20 41 4D 4F 55 4E 54 20 4E 45 45 44 45 | 6. AMOUNT NEEDE| 00000AD0: 44 3A 20 22 3A 85 4E 44 00 F0 12 44 75 8B 4E 44 |D: ":.ND...Du.ND| 00000AE0: B3 B2 30 A7 99 22 91 91 22 3A 89 33 30 30 31 30 |..0.."..":.30010| 00000AF0: 00 F6 12 4E 75 8E 00 FC 12 40 9C 8F 00 1E 13 4A |...Nu....@.....J| 00000B00: 9C 99 22 20 20 37 2E 20 25 20 49 4E 43 52 45 41 |.." 7. % INCREA| 00000B10: 53 45 2F 59 45 41 52 3A 20 22 3A 85 52 41 00 36 |SE/YEAR: ":.RA.6| 00000B20: 13 54 9C 8B 52 41 B3 30 A7 99 22 91 91 91 22 3A |.T..RA.0.."...":| 00000B30: 89 34 30 30 31 30 00 3C 13 5E 9C 8E 00 42 13 50 |.40010.<.^...B.P| 00000B40: C3 8F 00 67 13 5A C3 99 22 20 20 36 2E 20 50 41 |...g.Z.." 6. PA| 00000B50: 59 4D 45 4E 54 20 41 4D 4F 55 4E 54 53 3A 20 22 |YMENT AMOUNTS: "| 00000B60: 3A 85 43 41 28 31 29 00 7F 13 64 C3 8B 43 41 B3 |:.CA(1)...d..CA.| 00000B70: 30 A7 99 22 91 91 91 22 3A 89 35 30 30 31 30 00 |0.."...":.50010.| 00000B80: 85 13 6E C3 8E 00 00 00 |..n..... |
....D.. ***********.%.N.. * SAVING *.7.
X.. ***********.D.... BY JOEL S. MOSKOWI
TZ AND THE HCM STAFF...... HOME COMPUTER
MAGAZINE...... VERSION 4.1.1... .. C64
BASIC...... FIRST DISPLAY......"........
. SAVING"......".........
PRESS RETURN FOR BEGIN".".H..A$:
.A$."".200.5.R..A$..G(13).200.F.... INIT
IALIZE.^....CA(25),PR(25):.".".Z.....PV(
N).(1.1.(1.I).N).I.......FV(N).((1.I).N.
1).I.......G(F).F.CA(Z).P.......CP(P).P.
ND.F.......C(IN).PR(X).(1.IN.(100.K)).(K
.TY)..."...RD(A)..(A.100..5).100...,.. M
ENU SCREEN...6..".".2.@..".. YOUR CHOICE
:".Q.J..". 1. COMPOUND INTEREST".M.T.."
. 2. LEVEL PAYMENTS"...^..". 3. INCREA
SING PAYMENTS".D.H..". 4. FUTURE VALUE,
.............FIXED PAYMENTS"...R..". 5.
END PROGRAM"...|..CH$:.CH$."".380......
F(CH$).49.F(CH$).53.380. ...CH.F(CH$).48
.1....CH.5..".":..:....".".Y...." 1. PR
ESENT.MONTH: ";PM.T....PM.1.PM.12.."..":
.430...B.." YEAR";PY...L..PY.1..".."
:.450...V.." 2. FUTURE MONTH: ";FM.V...
.FM.1.FM.12.."..":.470......" YEAR:
";FY......FY.PY.."..":.490.0....TY..0.."
.".D...Y.F
Y.PY:M.FM.PM.Z....M.0.M.M.12:Y.Y.1.H...T
Y.Y.M.12...&..TY..0.."TIME MUST BE GREAT
ER THAN ZERO.":.430...0.." 3. PCT INTER
EST: ";IN.O.:..IN..0.."..":.560...D.R.IN
.100...N.." 4. COMPOUNDS/YEARS: ";K...X
..K..0.."..":.590.-.B..CH.1000,2000,3000
,4000.P.L..". PRESS RETURN TO CONTINUE"
.C.V..A$:.A$."".630.V....A$..G(13).630..
....:.230...... COMPOUND INTEREST......1
0000.O....". FUTURE SAVINGS= $";D(.RD(.
C(IN)))......". TOTAL INTEREST= $";D(.R
D(.C(IN).PR(X))).........P.. LEVEL PAYME
NTS.&.Z..20000.1....30000.R...I.R.K:TP..
(NP.TY):.TP.0.TP.1.Y...N.K.NP.TP:F..FV(N
):N.K.NP:P..PV(N).....TY.(M.(12.NP)..(M.
(12.NP))).NP.G....TY.0.2070:ND.ND.(1.IN.
(100.K)).(K.TY)......". LEVEL PAYMENTS=
$";D(.RD(.CP(P)))... ........ INCREASIN
G PAYMENTS...B..20000.(.L..30000.3.V..40
000.J....TY..1.TY..25.3060......" TIME P
ERIODE MUST BE FROM 1 TO 25 YEARS USE R
OUTINE 2":..R...I.R.K:X.0:A.0:CA(1).1:N.
K.NP:P..PV(N):N.K:F..FV(N):Z.1:PR(1)..G(
F)......Z.2.Y.1:CA(Z).CA(Z.1).(1.RA.100)
:PR(Z)..G(F):.Z......Y.0.3130.(....X.1.Y
:TY.TY.1.B....TY.0.A.A.PR(X):.3120.Q.&.A
.A..C(IN).X.0..X.J.:..M.12.NP.3150...D.Z
.X:N.K.NP:P..PV(N):N.K.NP..(M.(12.NP)):F
..FV(N):A.A..G(F)...N.TY.(M.(12.NP)..(M.
(12.NP))).NP:.TY.0.3160:PR(X).CA(X):A.A.
.C(IN)...X.PA.ND.A.(.B..". 1ST PERIODE
PAYMENT= $";D(.RD(PA)):..;. .. FUTURE VA
LUE.F....20000.Q....50000.V...I.R.K:Z.1:
TP..(NP.TY):.TP.0.TP.1...H.N.K.NP:P..PV(
N):N.K.NP.TP:F..FV(N):A..G(F)...R.TY.(M.
(12.NP)..(M.(12.NP))).NP:.TY.0.4060:PR(X
).A:A..C(IN)......". SAVINGS WILL= $";
.RD(A).......)..'. SUB FOR PRESENT AMOUN
T.L..'." 5. PRESENT AMOUNT: ";PR(X).G.$
'.PR(X)..0.."..":.10010.M..'..S. N....*N
." 5. PAYMENTS/YEAR: ":.NP...4N.NP..0..
"...":.20010...>N....0U..X.:U." 6. AMOU
NT NEEDED: ":.ND...DU.ND..0.."..":.30010
...NU....@.....J.." 7. % INCREASE/YEAR:
":.RA.6.T..RA.0.."...":.40010.<.^...B.P
C..G.ZC." 6. PAYMENT AMOUNTS: ":.CA(1).
.DC.CA.0.."...":.50010...NC....
> CLICK IMAGE PREVIEW FOR FULL MODAL