FINANCE
FILE INFORMATION
FILENAME(S): FINANCE
FILE TYPE(S): SEQ
FILE SIZE: 3.6K
FIRST SEEN: 2025-11-30 18:12:25
APPEARS ON: 1 disk(s)
FILE HASH
ff081d312503b6ee93ba42a5a6f91d43269678e9ff7f4db6c90744173fc4250f
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DATARICH | FINANCE | SEQ | Sailor, Ganheden | 5 | 18 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 22 20 20 20 20 20 20 20 20 20 C6 C9 CE C1 CE C3 |" ......| 00000010: C5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 C2 |. .| 00000020: 59 3A 20 D2 4F 42 45 52 54 20 D7 2E 20 C2 41 4B |Y: .OBERT .. .AK| 00000030: 45 52 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |ER | 00000040: 20 D0 41 47 45 20 31 0D 0D 0D 22 20 20 20 20 20 | .AGE 1..." | 00000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 C6 | .| 00000070: C9 CE C1 CE C3 C5 0D 0D 22 20 20 20 20 20 20 20 |........" | 00000080: 20 20 D7 41 59 20 42 41 43 4B 20 49 4E 20 20 54 | .AY BACK IN T| 00000090: 48 45 20 20 C1 55 47 55 53 54 20 20 31 39 37 38 |HE .UGUST 1978| 000000A0: 20 20 49 53 53 55 45 20 20 4F 46 20 20 CB 49 4C | ISSUE OF .IL| 000000B0: 4F 42 41 55 44 20 20 4D 41 47 41 5A 49 4E 45 0D |OBAUD MAGAZINE.| 000000C0: 22 20 20 20 20 20 20 20 20 20 54 48 45 52 45 27 |" THERE'| 000000D0: 53 20 41 4E 20 49 4E 54 45 52 45 53 54 49 4E 47 |S AN INTERESTING| 000000E0: 20 46 49 4E 41 4E 43 49 41 4C 20 43 41 4C 43 55 | FINANCIAL CALCU| 000000F0: 4C 41 54 4F 52 20 50 52 4F 47 52 41 4D 20 20 46 |LATOR PROGRAM F| 00000100: 4F 52 20 20 54 48 45 0D 22 20 20 20 20 20 20 20 |OR THE." | 00000110: 20 20 4F 4C 44 20 38 CB 20 D0 C5 D4 2E 20 CF 56 | OLD 8. .... .V| 00000120: 45 52 20 54 48 45 20 59 45 41 52 53 2C 20 20 C9 |ER THE YEARS, .| 00000130: 27 56 45 20 20 55 53 45 44 20 20 54 48 49 53 20 |'VE USED THIS | 00000140: 20 50 52 4F 47 52 41 4D 20 20 51 55 49 54 45 0D | PROGRAM QUITE.| 00000150: 22 20 20 20 20 20 20 20 20 20 46 52 45 51 55 45 |" FREQUE| 00000160: 4E 54 4C 59 20 41 4E 44 20 46 4F 55 4E 44 20 49 |NTLY AND FOUND I| 00000170: 54 20 54 4F 20 42 45 20 45 58 54 52 45 4D 45 4C |T TO BE EXTREMEL| 00000180: 59 20 48 45 4C 50 46 55 4C 20 4F 4E 20 4D 4F 52 |Y HELPFUL ON MOR| 00000190: 45 20 20 54 48 41 4E 0D 22 20 20 20 20 20 20 20 |E THAN." | 000001A0: 20 20 4F 4E 45 20 4F 43 43 41 53 49 4F 4E 2E 20 | ONE OCCASION. | 000001B0: D3 49 4E 43 45 20 4E 4F 20 4F 4E 45 20 45 4C 53 |.INCE NO ONE ELS| 000001C0: 45 20 48 41 53 20 42 4F 54 48 45 52 45 44 2C 20 |E HAS BOTHERED, | 000001D0: 20 C9 20 20 54 48 4F 55 47 48 54 20 20 49 54 0D | . THOUGHT IT.| 000001E0: 22 20 20 20 20 20 20 20 20 20 4D 49 47 48 54 20 |" MIGHT | 000001F0: 42 45 20 47 4F 4F 44 20 54 4F 20 52 45 53 55 52 |BE GOOD TO RESUR| 00000200: 52 45 43 54 20 54 48 49 53 20 50 52 4F 47 52 41 |RECT THIS PROGRA| 00000210: 4D 20 46 4F 52 20 54 48 45 20 4E 45 57 20 47 52 |M FOR THE NEW GR| 00000220: 4F 55 50 20 20 4F 46 0D 22 20 20 20 20 20 20 20 |OUP OF." | 00000230: 20 20 C3 4F 4D 4D 4F 44 4F 52 45 2D 36 34 20 55 | .OMMODORE-64 U| 00000240: 53 45 52 53 2E 0D 22 0D 22 20 20 20 20 20 20 20 |SERS.."." | 00000250: 20 20 C4 55 52 49 4E 47 20 54 48 45 20 4D 41 4E | .URING THE MAN| 00000260: 59 20 59 45 41 52 53 20 20 C9 27 56 45 20 20 55 |Y YEARS .'VE U| 00000270: 53 45 44 20 20 54 48 49 53 20 20 50 52 4F 47 52 |SED THIS PROGR| 00000280: 41 4D 2C 20 20 C9 27 56 45 20 20 42 45 45 4E 0D |AM, .'VE BEEN.| 00000290: 22 20 20 20 20 20 20 20 20 20 43 4C 45 41 4E 49 |" CLEANI| 000002A0: 4E 47 20 55 50 20 41 4E 44 20 43 4F 4E 44 45 4E |NG UP AND CONDEN| 000002B0: 53 49 4E 47 20 54 48 45 20 50 52 4F 47 52 41 4D |SING THE PROGRAM| 000002C0: 20 20 53 4F 4D 45 57 48 41 54 2E 20 20 C9 20 20 | SOMEWHAT. . | 000002D0: 44 45 4C 45 54 45 44 0D 22 20 20 20 20 20 20 20 |DELETED." | 000002E0: 20 20 54 48 45 20 20 44 45 50 52 45 43 49 41 54 | THE DEPRECIAT| 000002F0: 49 4F 4E 20 20 43 41 4C 43 55 4C 41 54 49 4F 4E |ION CALCULATION| 00000300: 53 20 20 53 49 4E 43 45 20 20 20 54 48 45 59 20 |S SINCE THEY | 00000310: 20 20 44 49 44 4E 27 54 20 20 20 53 45 45 4D 0D | DIDN'T SEEM.| 00000320: 22 20 20 20 20 20 20 20 20 20 41 50 50 52 4F 50 |" APPROP| 00000330: 52 49 41 54 45 20 46 4F 52 20 54 48 45 20 48 4F |RIATE FOR THE HO| 00000340: 4D 45 20 55 53 45 52 2E 20 D4 48 45 20 52 45 4D |ME USER. .HE REM| 00000350: 41 49 4E 49 4E 47 20 20 46 55 4E 43 54 49 4F 4E |AINING FUNCTION| 00000360: 53 20 20 57 45 52 45 0D 22 20 20 20 20 20 20 20 |S WERE." | 00000370: 20 20 54 48 45 4E 20 43 4F 4D 42 49 4E 45 44 20 | THEN COMBINED | 00000380: 49 4E 54 4F 20 4F 4E 45 20 4C 41 52 47 45 20 46 |INTO ONE LARGE F| 00000390: 55 4E 43 54 49 4F 4E 20 4D 45 4E 55 2C 20 49 4E |UNCTION MENU, IN| 000003A0: 53 54 45 41 44 20 4F 46 20 48 41 56 49 4E 47 0D |STEAD OF HAVING.| 000003B0: 22 20 20 20 20 20 20 20 20 20 41 20 4E 55 4D 42 |" A NUMB| 000003C0: 45 52 20 4F 46 20 53 4D 41 4C 4C 45 52 20 20 4D |ER OF SMALLER M| 000003D0: 45 4E 55 53 2E 20 20 C9 20 20 41 4C 53 4F 20 20 |ENUS. . ALSO | 000003E0: 43 4C 45 41 4E 45 44 20 20 55 50 20 20 54 48 45 |CLEANED UP THE| 000003F0: 20 20 50 52 49 4E 54 0D 22 20 20 20 20 20 20 20 | PRINT." | 00000400: 20 20 46 4F 52 4D 41 54 54 49 4E 47 20 41 4E 44 | FORMATTING AND| 00000410: 20 4F 56 45 52 41 4C 4C 20 50 52 4F 47 52 41 4D | OVERALL PROGRAM| 00000420: 20 46 4C 4F 57 2E 20 20 D4 48 45 20 20 52 45 53 | FLOW. .HE RES| 00000430: 55 4C 54 49 4E 47 20 20 50 52 4F 47 52 41 4D 0D |ULTING PROGRAM.| 00000440: 22 20 20 20 20 20 20 20 20 20 56 45 52 53 49 4F |" VERSIO| 00000450: 4E 20 53 48 4F 57 4E 20 48 45 52 45 20 49 53 20 |N SHOWN HERE IS | 00000460: 41 42 4F 55 54 20 48 41 4C 46 20 54 48 45 20 20 |ABOUT HALF THE | 00000470: 53 49 5A 45 20 20 4F 46 20 20 54 48 45 20 20 4F |SIZE OF THE O| 00000480: 52 49 47 49 4E 41 4C 0D 22 20 20 20 20 20 20 20 |RIGINAL." | 00000490: 20 20 50 52 4F 47 52 41 4D 2C 20 57 49 54 48 20 | PROGRAM, WITH | 000004A0: 41 42 4F 55 54 20 4F 4E 45 2D 54 48 49 52 44 20 |ABOUT ONE-THIRD | 000004B0: 54 48 45 20 4E 55 4D 42 45 52 20 4F 46 20 4C 49 |THE NUMBER OF LI| 000004C0: 4E 45 53 2E 0D 22 0D 22 20 20 20 20 20 20 20 20 |NES.."." | 000004D0: 20 D7 48 45 4E 20 59 4F 55 20 53 54 41 52 54 20 | .HEN YOU START | 000004E0: 54 48 45 20 50 52 4F 47 52 41 4D 2C 20 59 4F 55 |THE PROGRAM, YOU| 000004F0: 27 4C 4C 20 53 45 45 20 41 20 4C 41 52 47 45 20 |'LL SEE A LARGE | 00000500: 4D 45 4E 55 20 44 49 53 50 4C 41 59 45 44 0D 22 |MENU DISPLAYED."| 00000510: 20 20 20 20 20 20 20 20 20 53 48 4F 57 49 4E 47 | SHOWING| 00000520: 20 54 48 45 20 56 41 52 49 4F 55 53 20 43 41 4C | THE VARIOUS CAL| 00000530: 43 55 4C 41 54 49 4F 4E 53 20 54 48 45 20 50 52 |CULATIONS THE PR| 00000540: 4F 47 52 41 4D 20 43 41 4E 20 50 45 52 46 4F 52 |OGRAM CAN PERFOR| 00000550: 4D 3A 0D 22 0D 22 20 20 20 20 20 20 20 20 20 C9 |M:."." .| 00000560: CE D6 C5 D3 D4 CD C5 CE D4 20 C3 C1 CC C3 D5 CC |......... ......| 00000570: C1 D4 C9 CF CE D3 0D 22 0D 22 20 20 20 20 20 20 |......."." | 00000580: 20 20 20 31 29 20 C6 55 54 55 52 45 20 56 41 4C | 1) .UTURE VAL| 00000590: 55 45 20 4F 46 20 41 20 4F 4E 45 2D 54 49 4D 45 |UE OF A ONE-TIME| 000005A0: 20 49 4E 56 45 53 54 4D 45 4E 54 0D 22 0D 22 20 | INVESTMENT."." | 000005B0: 20 20 20 20 20 20 20 20 32 29 20 C6 55 54 55 52 | 2) .UTUR| 000005C0: 45 20 56 41 4C 55 45 20 4F 46 20 52 45 47 55 4C |E VALUE OF REGUL| 000005D0: 41 52 20 44 45 50 4F 53 49 54 53 0D 22 0D 22 20 |AR DEPOSITS."." | 000005E0: 20 20 20 20 20 20 20 20 33 29 20 D2 45 47 55 4C | 3) .EGUL| 000005F0: 41 52 20 44 45 50 4F 53 49 54 53 20 52 45 51 55 |AR DEPOSITS REQU| 00000600: 49 52 45 44 20 54 4F 20 43 52 45 41 54 45 20 41 |IRED TO CREATE A| 00000610: 20 44 45 53 49 52 45 44 20 54 4F 54 41 4C 20 56 | DESIRED TOTAL V| 00000620: 41 4C 55 45 0D 22 0D 22 20 20 20 20 20 20 20 20 |ALUE."." | 00000630: 20 CC CF C1 CE 20 C3 C1 CC C3 D5 CC C1 D4 C9 CF | .... ..........| 00000640: CE D3 0D 22 0D 22 20 20 20 20 20 20 20 20 20 34 |..."." 4| 00000650: 29 20 D2 45 47 55 4C 41 52 20 50 41 59 4D 45 4E |) .EGULAR PAYMEN| 00000660: 54 53 20 46 4F 52 20 41 20 4C 4F 41 4E 0D 22 0D |TS FOR A LOAN.".| 00000670: 22 20 20 20 20 20 20 20 20 20 35 29 20 C6 49 4E |" 5) .IN| 00000680: 41 4C 20 50 41 59 4D 45 4E 54 20 4F 4E 20 41 20 |AL PAYMENT ON A | 00000690: 4C 4F 41 4E 0D 22 0D 22 20 20 20 20 20 20 20 20 |LOAN."." | 000006A0: 20 36 29 20 D4 45 52 4D 20 4F 46 20 41 20 4C 4F | 6) .ERM OF A LO| 000006B0: 41 4E 0D 22 0D 22 20 20 20 20 20 20 20 20 20 37 |AN."." 7| 000006C0: 29 20 D2 45 4D 41 49 4E 49 4E 47 20 42 41 4C 41 |) .EMAINING BALA| 000006D0: 4E 43 45 20 4F 4E 20 41 20 4C 4F 41 4E 0D 22 0D |NCE ON A LOAN.".| 000006E0: 22 20 20 20 20 20 20 20 20 20 38 29 20 C3 4F 53 |" 8) .OS| 000006F0: 54 20 4F 46 20 42 4F 52 52 4F 57 49 4E 47 0D 22 |T OF BORROWING."| 00000700: 0D 22 20 20 20 20 20 20 20 20 20 D3 49 4D 50 4C |." .IMPL| 00000710: 59 20 45 4E 54 45 52 20 54 48 45 20 20 4E 55 4D |Y ENTER THE NUM| 00000720: 42 45 52 20 20 4F 46 20 20 54 48 45 20 20 44 45 |BER OF THE DE| 00000730: 53 49 52 45 44 20 20 46 55 4E 43 54 49 4F 4E 20 |SIRED FUNCTION | 00000740: 20 57 49 54 48 4F 55 54 0D 22 20 20 20 20 20 20 | WITHOUT." | 00000750: 20 20 20 48 49 54 54 49 4E 47 20 52 45 54 55 52 | HITTING RETUR| 00000760: 4E 2E 20 D4 48 45 20 50 52 4F 47 52 41 4D 20 20 |N. .HE PROGRAM | 00000770: 57 49 4C 4C 20 20 50 52 4F 4D 50 54 20 20 46 4F |WILL PROMPT FO| 00000780: 52 20 20 54 48 45 20 20 52 45 51 55 49 52 45 44 |R THE REQUIRED| 00000790: 0D 22 20 20 20 20 20 20 20 20 20 49 4E 46 4F 52 |." INFOR| 000007A0: 4D 41 54 49 4F 4E 20 20 54 4F 20 20 50 45 52 46 |MATION TO PERF| 000007B0: 4F 52 4D 20 20 54 48 45 20 20 52 45 51 55 45 53 |ORM THE REQUES| 000007C0: 54 45 44 20 20 20 43 41 4C 43 55 4C 41 54 49 4F |TED CALCULATIO| 000007D0: 4E 2E 20 20 20 D4 48 45 0D 22 20 20 20 20 20 20 |N. .HE." | 000007E0: 20 20 20 43 4F 4D 50 55 54 45 44 20 52 45 53 55 | COMPUTED RESU| 000007F0: 4C 54 53 20 41 52 45 20 54 48 45 4E 20 44 49 53 |LTS ARE THEN DIS| 00000800: 50 4C 41 59 45 44 20 20 57 49 54 48 20 20 41 4C |PLAYED WITH AL| 00000810: 4C 20 20 56 41 4C 55 45 53 20 20 42 45 49 4E 47 |L VALUES BEING| 00000820: 0D 22 20 20 20 20 20 20 20 20 20 52 4F 55 4E 44 |." ROUND| 00000830: 45 44 20 54 4F 20 54 48 45 20 4E 45 41 52 45 53 |ED TO THE NEARES| 00000840: 54 20 43 45 4E 54 2E 20 D9 4F 55 20 48 41 56 45 |T CENT. .OU HAVE| 00000850: 20 54 48 45 20 4F 50 54 49 4F 4E 20 20 54 4F 20 | THE OPTION TO | 00000860: 20 50 45 52 46 4F 52 4D 0D 22 20 20 20 20 20 20 | PERFORM." | 00000870: 20 20 20 41 4E 4F 54 48 45 52 20 43 41 4C 43 55 | ANOTHER CALCU| 00000880: 4C 41 54 49 4F 4E 20 4F 46 20 54 48 45 20 53 41 |LATION OF THE SA| 00000890: 4D 45 20 54 59 50 45 20 55 53 49 4E 47 20 44 49 |ME TYPE USING DI| 000008A0: 46 46 45 52 45 4E 54 20 20 56 41 4C 55 45 53 2C |FFERENT VALUES,| 000008B0: 0D 22 20 20 20 20 20 20 20 20 20 49 46 20 44 45 |." IF DE| 000008C0: 53 49 52 45 44 2E 20 C9 46 20 41 4E 4F 54 48 45 |SIRED. .F ANOTHE| 000008D0: 52 20 20 43 41 4C 43 55 4C 41 54 49 4F 4E 20 20 |R CALCULATION | 000008E0: 49 53 20 20 4E 4F 54 20 20 57 41 4E 54 45 44 2C |IS NOT WANTED,| 000008F0: 20 20 59 4F 55 27 4C 4C 0D 22 20 20 20 20 20 20 | YOU'LL." | 00000900: 20 20 20 52 45 54 55 52 4E 20 54 4F 20 54 48 45 | RETURN TO THE| 00000910: 20 4D 41 49 4E 20 4D 45 4E 55 20 41 4E 44 20 43 | MAIN MENU AND C| 00000920: 41 4E 20 53 45 4C 45 43 54 20 41 4E 4F 54 48 45 |AN SELECT ANOTHE| 00000930: 52 20 46 55 4E 43 54 49 4F 4E 20 4F 52 20 20 39 |R FUNCTION OR 9| 00000940: 0D 22 20 20 20 20 20 20 20 20 20 54 4F 20 54 45 |." TO TE| 00000950: 52 4D 49 4E 41 54 45 20 54 48 45 20 50 52 4F 47 |RMINATE THE PROG| 00000960: 52 41 4D 2E 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D |RAM.............| 00000970: 22 20 20 20 20 20 20 20 20 20 C6 C9 CE C1 CE C3 |" ......| 00000980: C5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 C2 |. .| 00000990: 59 3A 20 D2 4F 42 45 52 54 20 D7 2E 20 C2 41 4B |Y: .OBERT .. .AK| 000009A0: 45 52 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |ER | 000009B0: 20 D0 41 47 45 20 32 0D 0D 0D 22 0D 22 20 20 20 | .AGE 2..."." | 000009C0: 20 20 20 20 20 20 D4 48 45 20 50 52 4F 47 52 41 | .HE PROGRA| 000009D0: 4D 20 44 4F 45 53 20 4E 4F 54 20 44 4F 20 41 4E |M DOES NOT DO AN| 000009E0: 59 20 49 4E 50 55 54 20 20 56 41 4C 49 44 41 54 |Y INPUT VALIDAT| 000009F0: 49 4F 4E 20 20 41 4E 44 20 20 44 4F 45 53 20 20 |ION AND DOES | 00000A00: 4E 4F 54 0D 22 20 20 20 20 20 20 20 20 20 50 52 |NOT." PR| 00000A10: 4F 54 45 43 54 20 41 47 41 49 4E 53 54 20 49 4E |OTECT AGAINST IN| 00000A20: 50 55 54 20 45 52 52 4F 52 53 2C 20 54 4F 20 4B |PUT ERRORS, TO K| 00000A30: 45 45 50 20 54 48 49 4E 47 53 20 53 49 4D 50 4C |EEP THINGS SIMPL| 00000A40: 45 2E 20 20 D3 45 56 45 52 41 4C 0D 22 20 20 20 |E. .EVERAL." | 00000A50: 20 20 20 20 20 20 49 4E 50 55 54 20 50 52 4F 4D | INPUT PROM| 00000A60: 50 54 53 20 52 45 51 55 45 53 54 20 41 20 54 49 |PTS REQUEST A TI| 00000A70: 4D 45 20 50 45 52 49 4F 44 20 49 4E 20 59 45 41 |ME PERIOD IN YEA| 00000A80: 52 53 20 41 4E 44 20 4D 4F 4E 54 48 53 2E 20 D7 |RS AND MONTHS. .| 00000A90: 48 45 4E 0D 22 20 20 20 20 20 20 20 20 20 41 4E |HEN." AN| 00000AA0: 53 57 45 52 49 4E 47 20 54 48 45 53 45 20 50 52 |SWERING THESE PR| 00000AB0: 4F 4D 50 54 53 20 59 4F 55 20 4D 55 53 54 20 45 |OMPTS YOU MUST E| 00000AC0: 4E 54 45 52 20 54 57 4F 20 4E 55 4D 42 45 52 53 |NTER TWO NUMBERS| 00000AD0: 20 20 53 45 50 41 52 41 54 45 44 0D 22 20 20 20 | SEPARATED." | 00000AE0: 20 20 20 20 20 20 42 59 20 41 20 43 4F 4D 4D 41 | BY A COMMA| 00000AF0: 2E 20 C9 46 20 59 4F 55 20 41 43 43 49 44 45 4E |. .F YOU ACCIDEN| 00000B00: 54 49 41 4C 4C 59 20 45 4E 54 45 52 20 4F 4E 4C |TIALLY ENTER ONL| 00000B10: 59 20 20 4F 4E 45 20 20 56 41 4C 55 45 2C 20 20 |Y ONE VALUE, | 00000B20: 54 48 45 0D 22 20 20 20 20 20 20 20 20 20 43 4F |THE." CO| 00000B30: 4D 50 55 54 45 52 20 57 49 4C 4C 20 44 49 53 50 |MPUTER WILL DISP| 00000B40: 4C 41 59 20 54 57 4F 20 51 55 45 53 54 49 4F 4E |LAY TWO QUESTION| 00000B50: 20 4D 41 52 4B 53 20 41 4E 44 20 20 4C 45 54 20 | MARKS AND LET | 00000B60: 20 59 4F 55 20 20 45 4E 54 45 52 0D 22 20 20 20 | YOU ENTER." | 00000B70: 20 20 20 20 20 20 54 48 45 20 53 45 43 4F 4E 44 | THE SECOND| 00000B80: 20 56 41 4C 55 45 2E 20 C9 46 20 41 4E 59 54 48 | VALUE. .F ANYTH| 00000B90: 49 4E 47 20 53 45 45 4D 53 20 54 4F 20 47 45 54 |ING SEEMS TO GET| 00000BA0: 20 4F 55 54 20 4F 46 20 20 57 41 43 4B 2C 20 20 | OUT OF WACK, | 00000BB0: 54 52 59 0D 22 20 20 20 20 20 20 20 20 20 53 54 |TRY." ST| 00000BC0: 4F 50 50 49 4E 47 20 54 48 45 20 50 52 4F 47 52 |OPPING THE PROGR| 00000BD0: 41 4D 20 41 4E 44 20 52 55 4E 4E 49 4E 47 20 49 |AM AND RUNNING I| 00000BE0: 54 20 41 47 41 49 4E 2E 0D 22 0D 22 20 20 20 20 |T AGAIN.."." | 00000BF0: 20 20 20 20 20 CC 4F 4F 4B 49 4E 47 20 41 54 20 | .OOKING AT | 00000C00: 54 48 45 20 50 52 4F 47 52 41 4D 20 4C 49 53 54 |THE PROGRAM LIST| 00000C10: 49 4E 47 2C 20 54 48 45 20 4D 45 4E 55 20 44 49 |ING, THE MENU DI| 00000C20: 53 50 4C 41 59 20 41 4E 44 20 46 55 4E 43 54 49 |SPLAY AND FUNCTI| 00000C30: 4F 4E 0D 22 20 20 20 20 20 20 20 20 20 53 45 4C |ON." SEL| 00000C40: 45 43 54 49 4F 4E 20 49 53 20 48 41 4E 44 4C 45 |ECTION IS HANDLE| 00000C50: 44 20 42 59 20 4C 49 4E 45 53 20 32 33 30 2D 34 |D BY LINES 230-4| 00000C60: 31 30 2E 20 D4 48 45 20 20 41 43 54 55 41 4C 20 |10. .HE ACTUAL | 00000C70: 20 46 55 4E 43 54 49 4F 4E 53 0D 22 20 20 20 20 | FUNCTIONS." | 00000C80: 20 20 20 20 20 41 52 45 20 48 41 4E 44 4C 45 44 | ARE HANDLED| 00000C90: 20 42 59 20 4C 49 4E 45 53 20 34 32 30 2D 31 33 | BY LINES 420-13| 00000CA0: 34 30 2C 20 57 49 54 48 20 45 41 43 48 20 46 55 |40, WITH EACH FU| 00000CB0: 4E 43 54 49 4F 4E 20 53 54 41 52 54 49 4E 47 20 |NCTION STARTING | 00000CC0: 41 54 0D 22 20 20 20 20 20 20 20 20 20 54 48 45 |AT." THE| 00000CD0: 20 4C 49 4E 45 20 49 4E 44 49 43 41 54 45 44 20 | LINE INDICATED | 00000CE0: 49 4E 20 54 48 45 20 20 CF CE 2E 2E 2E C7 CF D3 |IN THE ........| 00000CF0: D5 C2 2E 2E 2E 20 20 53 54 41 54 45 4D 45 4E 54 |..... STATEMENT| 00000D00: 20 20 49 4E 20 20 4C 49 4E 45 0D 22 20 20 20 20 | IN LINE." | 00000D10: 20 20 20 20 20 34 30 30 2E 20 D4 48 45 20 46 49 | 400. .HE FI| 00000D20: 52 53 54 20 46 55 4E 43 54 49 4F 4E 20 53 54 41 |RST FUNCTION STA| 00000D30: 52 54 53 20 41 54 20 4C 49 4E 45 20 20 34 32 30 |RTS AT LINE 420| 00000D40: 2C 20 20 54 48 45 20 20 53 45 43 4F 4E 44 20 20 |, THE SECOND | 00000D50: 41 54 0D 22 20 20 20 20 20 20 20 20 20 4C 49 4E |AT." LIN| 00000D60: 45 20 35 32 30 2C 20 54 48 45 20 54 48 49 52 44 |E 520, THE THIRD| 00000D70: 20 41 54 20 4C 49 4E 45 20 36 33 30 2C 20 20 45 | AT LINE 630, E| 00000D80: 54 43 2E 20 20 D4 48 45 20 20 52 45 4D 41 49 4E |TC. .HE REMAIN| 00000D90: 49 4E 47 20 20 4C 49 4E 45 53 0D 22 20 20 20 20 |ING LINES." | 00000DA0: 20 20 20 20 20 31 33 35 30 2D 31 34 35 30 20 46 | 1350-1450 F| 00000DB0: 4F 52 4D 20 54 48 52 45 45 20 53 55 42 52 4F 55 |ORM THREE SUBROU| 00000DC0: 54 49 4E 45 53 20 54 48 41 54 20 41 52 45 20 55 |TINES THAT ARE U| 00000DD0: 53 45 44 20 54 48 52 4F 55 47 48 4F 55 54 20 54 |SED THROUGHOUT T| 00000DE0: 48 45 0D 22 20 20 20 20 20 20 20 20 20 50 52 4F |HE." PRO| 00000DF0: 47 52 41 4D 20 54 4F 20 41 53 4B 20 46 4F 52 20 |GRAM TO ASK FOR | 00000E00: 20 41 4E 4F 54 48 45 52 20 20 43 41 4C 43 55 4C | ANOTHER CALCUL| 00000E10: 41 54 49 4F 4E 20 20 41 4E 44 20 20 46 4F 52 4D |ATION AND FORM| 00000E20: 41 54 20 20 4F 55 54 50 55 54 0D 22 20 20 20 20 |AT OUTPUT." | 00000E30: 20 20 20 20 20 56 41 4C 55 45 53 2E 0D 0D 0D 0D | VALUES.....| 00000E40: 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D |................| 00000E50: 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D |................| 00000E60: 0D 0D 0D 0D 0D 0D 0D 0D 0D |......... |
" FINANCE BY: ROBER
T W. BAKER PAGE 1..."
FINANCE..
" WAY BACK IN THE AUGUST 1978
ISSUE OF KILOBAUD MAGAZINE."
THERE'S AN INTERESTING FINANCIAL CALCU
LATOR PROGRAM FOR THE." OLD 8K
PET. OVER THE YEARS, I'VE USED THIS
PROGRAM QUITE." FREQUENTLY AND
FOUND IT TO BE EXTREMELY HELPFUL ON MOR
E THAN." ONE OCCASION. SINCE NO
ONE ELSE HAS BOTHERED, I THOUGHT IT.
" MIGHT BE GOOD TO RESURRECT THI
S PROGRAM FOR THE NEW GROUP OF."
COMMODORE-64 USERS.."." DURING
THE MANY YEARS I'VE USED THIS PROGR
AM, I'VE BEEN." CLEANING UP AN
D CONDENSING THE PROGRAM SOMEWHAT. I
DELETED." THE DEPRECIATION CAL
CULATIONS SINCE THEY DIDN'T SEEM.
" APPROPRIATE FOR THE HOME USER.
THE REMAINING FUNCTIONS WERE."
THEN COMBINED INTO ONE LARGE FUNCTION
MENU, INSTEAD OF HAVING." A NUMB
ER OF SMALLER MENUS. I ALSO CLEANED
UP THE PRINT." FORMATTING AND
OVERALL PROGRAM FLOW. THE RESULTING
PROGRAM." VERSION SHOWN HERE IS
ABOUT HALF THE SIZE OF THE ORIGINAL.
" PROGRAM, WITH ABOUT ONE-THIRD
THE NUMBER OF LINES.."." WHEN YO
U START THE PROGRAM, YOU'LL SEE A LARGE
MENU DISPLAYED." SHOWING THE VAR
IOUS CALCULATIONS THE PROGRAM CAN PERFOR
M:."." INVESTMENT CALCULATIONS."
." 1) FUTURE VALUE OF A ONE-TIME
INVESTMENT."." 2) FUTURE VALUE
OF REGULAR DEPOSITS."." 3) REGUL
AR DEPOSITS REQUIRED TO CREATE A DESIRED
TOTAL VALUE."." LOAN CALCULATIO
NS."." 4) REGULAR PAYMENTS FOR A
LOAN."." 5) FINAL PAYMENT ON A
LOAN."." 6) TERM OF A LOAN."."
7) REMAINING BALANCE ON A LOAN.".
" 8) COST OF BORROWING."."
SIMPLY ENTER THE NUMBER OF THE DE
SIRED FUNCTION WITHOUT." HITTI
NG RETURN. THE PROGRAM WILL PROMPT FO
R THE REQUIRED." INFORMATION
TO PERFORM THE REQUESTED CALCULATIO
N. THE." COMPUTED RESULTS ARE
THEN DISPLAYED WITH ALL VALUES BEING
." ROUNDED TO THE NEAREST CENT.
YOU HAVE THE OPTION TO PERFORM."
ANOTHER CALCULATION OF THE SAME TYPE
USING DIFFERENT VALUES,." IF DE
SIRED. IF ANOTHER CALCULATION IS NOT
WANTED, YOU'LL." RETURN TO THE
MAIN MENU AND CAN SELECT ANOTHER FUNCTI
ON OR 9." TO TERMINATE THE PROG
RAM............." FINANCE
BY: ROBERT W. BAKER
PAGE 2..."." THE PROGRAM DOES N
OT DO ANY INPUT VALIDATION AND DOES
NOT." PROTECT AGAINST INPUT ERRO
RS, TO KEEP THINGS SIMPLE. SEVERAL."
INPUT PROMPTS REQUEST A TIME PERIO
D IN YEARS AND MONTHS. WHEN." AN
SWERING THESE PROMPTS YOU MUST ENTER TWO
NUMBERS SEPARATED." BY A COMMA
. IF YOU ACCIDENTIALLY ENTER ONLY ONE
VALUE, THE." COMPUTER WILL DISP
LAY TWO QUESTION MARKS AND LET YOU EN
TER." THE SECOND VALUE. IF ANYTH
ING SEEMS TO GET OUT OF WACK, TRY."
STOPPING THE PROGRAM AND RUNNING I
T AGAIN.."." LOOKING AT THE PROG
RAM LISTING, THE MENU DISPLAY AND FUNCTI
ON." SELECTION IS HANDLED BY LIN
ES 230-410. THE ACTUAL FUNCTIONS."
ARE HANDLED BY LINES 420-1340, WITH
EACH FUNCTION STARTING AT." THE
LINE INDICATED IN THE ON...GOSUB... S
TATEMENT IN LINE." 400. THE FI
RST FUNCTION STARTS AT LINE 420, THE
SECOND AT." LINE 520, THE THIRD
AT LINE 630, ETC. THE REMAINING LIN
ES." 1350-1450 FORM THREE SUBROU
TINES THAT ARE USED THROUGHOUT THE."
PROGRAM TO ASK FOR ANOTHER CALCUL
ATION AND FORMAT OUTPUT." VAL
UES.....................................
.........
> CLICK IMAGE PREVIEW FOR FULL MODAL