00000000: 00 80 5E 55 3A 48 45 4C 50 0D 0D 0D 20 20 20 20 |..^U:HELP... |
00000010: 20 20 C6 C9 CE C1 CE C3 C9 C1 CC 20 C3 C1 CC C3 | ......... ....|
00000020: D5 CC C1 D4 CF D2 20 31 32 38 0D 20 20 20 20 20 |...... 128. |
00000030: 20 20 20 20 20 20 20 20 20 20 20 42 59 0D 20 20 | BY. |
00000040: 20 20 20 20 20 20 20 20 20 20 CD 41 52 4B 20 CA | .ARK .|
00000050: 4F 52 44 41 4E 0D 0D C3 CF CD CD CF C4 CF D2 C5 |ORDAN...........|
00000060: 20 CD C1 C7 C1 DA C9 CE C5 0D CA 55 4E 45 20 31 | ..........UNE 1|
00000070: 39 38 37 0D 0D 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |987..***********|
00000080: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000090: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D CE CF D4 C5 3A |**********.....:|
000000A0: 20 C2 45 43 41 55 53 45 20 54 48 49 53 20 50 52 | .ECAUSE THIS PR|
000000B0: 4F 47 52 41 4D 20 49 53 20 57 52 49 54 54 45 4E |OGRAM IS WRITTEN|
000000C0: 0D 46 4F 52 20 54 48 45 20 C3 2D 31 32 38 2C 20 |.FOR THE .-128, |
000000D0: 49 54 20 43 41 4E 4E 4F 54 20 42 45 20 52 55 4E |IT CANNOT BE RUN|
000000E0: 20 4C 49 4B 45 0D 4F 54 48 45 52 20 50 52 4F 47 | LIKE.OTHER PROG|
000000F0: 52 41 4D 53 20 4F 4E 20 CC CF C1 C4 D3 D4 C1 D2 |RAMS ON ........|
00000100: 2E 20 20 D4 4F 20 52 55 4E 0D 54 48 45 20 50 52 |. .O RUN.THE PR|
00000110: 4F 47 52 41 4D 2C 20 50 52 45 53 53 20 D2 C5 D3 |OGRAM, PRESS ...|
00000120: C5 D4 20 4F 4E 20 54 48 45 0D C3 2D 31 32 38 2E |.. ON THE..-128.|
00000130: 20 20 D4 48 49 53 20 50 55 54 53 20 54 48 45 20 | .HIS PUTS THE |
00000140: 43 4F 4D 50 55 54 45 52 20 49 4E 0D 31 32 38 20 |COMPUTER IN.128 |
00000150: 4D 4F 44 45 20 41 4E 44 20 44 49 53 50 4C 41 59 |MODE AND DISPLAY|
00000160: 53 20 41 20 4D 45 4E 55 20 4F 46 20 41 4C 4C 0D |S A MENU OF ALL.|
00000170: 31 32 38 20 50 52 4F 47 52 41 4D 53 20 4F 4E 20 |128 PROGRAMS ON |
00000180: D3 49 44 45 20 31 20 4F 46 20 54 48 45 20 44 49 |.IDE 1 OF THE DI|
00000190: 53 4B 2E 0D C3 48 4F 4F 53 45 20 54 48 45 20 50 |SK...HOOSE THE P|
000001A0: 52 4F 47 52 41 4D 20 54 4F 20 52 55 4E 20 46 52 |ROGRAM TO RUN FR|
000001B0: 4F 4D 20 54 48 49 53 0D 4D 45 4E 55 2E 0D 2A 2A |OM THIS.MENU..**|
000001C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000001D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000001E0: 2A 2A 2A 0D 0D 20 20 C6 C9 CE C1 CE C3 C9 C1 CC |***.. .........|
000001F0: 20 C3 C1 CC C3 D5 CC C1 D4 CF D2 20 31 32 38 20 | .......... 128 |
00000200: 54 52 41 4E 53 46 4F 52 4D 53 0D 54 48 45 20 C3 |TRANSFORMS.THE .|
00000210: 2D 31 32 38 20 49 4E 54 4F 20 41 20 43 41 4C 43 |-128 INTO A CALC|
00000220: 55 4C 41 54 4F 52 20 57 48 49 43 48 0D 46 49 47 |ULATOR WHICH.FIG|
00000230: 55 52 45 53 20 4C 4F 41 4E 20 50 41 59 4D 45 4E |URES LOAN PAYMEN|
00000240: 54 53 20 41 4E 44 20 42 41 4C 41 4E 43 45 53 20 |TS AND BALANCES |
00000250: 41 53 0D 57 45 4C 4C 20 41 53 20 50 45 52 46 4F |AS.WELL AS PERFO|
00000260: 52 4D 53 20 53 54 41 4E 44 41 52 44 20 4D 41 54 |RMS STANDARD MAT|
00000270: 48 0D 46 55 4E 43 54 49 4F 4E 53 2E 0D 0D 20 20 |H.FUNCTIONS... |
00000280: D4 48 45 20 50 52 4F 47 52 41 4D 27 53 20 57 4F |.HE PROGRAM'S WO|
00000290: 52 4B 20 53 43 52 45 45 4E 20 44 49 53 50 4C 41 |RK SCREEN DISPLA|
000002A0: 59 53 0D 41 20 46 41 43 53 49 4D 49 4C 45 20 4F |YS.A FACSIMILE O|
000002B0: 46 20 41 20 48 41 4E 44 48 45 4C 44 20 43 41 4C |F A HANDHELD CAL|
000002C0: 43 55 4C 41 54 4F 52 2E 0D C9 54 27 53 20 45 41 |CULATOR...T'S EA|
000002D0: 53 49 45 53 54 20 54 4F 20 55 53 45 20 54 48 45 |SIEST TO USE THE|
000002E0: 20 31 32 38 27 53 20 4E 55 4D 45 52 49 43 0D 4B | 128'S NUMERIC.K|
000002F0: 45 59 50 41 44 20 54 4F 20 45 4E 54 45 52 20 4E |EYPAD TO ENTER N|
00000300: 55 4D 42 45 52 53 20 41 4E 44 0D 4F 50 45 52 41 |UMBERS AND.OPERA|
00000310: 54 49 4F 4E 53 2C 20 45 53 50 45 43 49 41 4C 4C |TIONS, ESPECIALL|
00000320: 59 20 53 49 4E 43 45 20 54 48 45 53 45 0D 46 55 |Y SINCE THESE.FU|
00000330: 4E 43 54 49 4F 4E 20 4B 45 59 53 20 48 41 56 45 |NCTION KEYS HAVE|
00000340: 20 42 45 45 4E 20 52 45 44 45 46 49 4E 45 44 3A | BEEN REDEFINED:|
00000350: 0D 0D C6 31 20 2D 2D 20 54 4F 47 47 4C 45 53 20 |...1 -- TOGGLES |
00000360: 41 20 48 45 4C 50 20 53 43 52 45 45 4E 20 54 48 |A HELP SCREEN TH|
00000370: 41 54 0D 20 20 20 20 20 20 53 48 4F 57 53 20 48 |AT. SHOWS H|
00000380: 4F 57 20 54 4F 20 55 53 45 20 54 48 45 20 50 52 |OW TO USE THE PR|
00000390: 4F 47 52 41 4D 27 53 0D 20 20 20 20 20 20 46 49 |OGRAM'S. FI|
000003A0: 4E 41 4E 43 49 41 4C 20 46 55 4E 43 54 49 4F 4E |NANCIAL FUNCTION|
000003B0: 53 2E 0D 0D C6 33 20 28 43 29 20 2D 2D 20 43 4C |S....3 (C) -- CL|
000003C0: 45 41 52 53 20 43 41 4C 43 55 4C 41 54 4F 52 20 |EARS CALCULATOR |
000003D0: 44 49 53 50 4C 41 59 2E 0D 0D C6 35 20 28 2A 29 |DISPLAY....5 (*)|
000003E0: 20 2D 2D 20 4D 55 4C 54 49 50 4C 49 43 41 54 49 | -- MULTIPLICATI|
000003F0: 4F 4E 20 4F 50 45 52 41 54 4F 52 2E 0D 0D C6 37 |ON OPERATOR....7|
00000400: 20 28 2F 29 20 2D 2D 20 44 49 56 49 53 49 4F 4E | (/) -- DIVISION|
00000410: 20 4F 50 45 52 41 54 4F 52 2E 0D 0D D4 48 45 20 | OPERATOR....HE |
00000420: 43 48 41 52 41 43 54 45 52 53 20 49 4E 20 50 41 |CHARACTERS IN PA|
00000430: 52 45 4E 54 48 45 53 45 53 0D 46 55 4E 43 54 49 |RENTHESES.FUNCTI|
00000440: 4F 4E 20 54 48 45 20 53 41 4D 45 20 41 53 20 54 |ON THE SAME AS T|
00000450: 48 45 0D 43 4F 52 52 45 53 50 4F 4E 44 49 4E 47 |HE.CORRESPONDING|
00000460: 20 46 55 4E 43 54 49 4F 4E 20 4B 45 59 53 2E 0D | FUNCTION KEYS..|
00000470: 0D 0D C6 49 4E 41 4E 43 49 41 4C 20 C6 55 4E 43 |...INANCIAL .UNC|
00000480: 54 49 4F 4E 53 0D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |TIONS.----------|
00000490: 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0D 20 20 D4 48 45 |---------.. .HE|
000004A0: 52 45 20 41 52 45 20 46 4F 55 52 20 46 49 4E 41 |RE ARE FOUR FINA|
000004B0: 4E 43 49 41 4C 20 46 55 4E 43 54 49 4F 4E 53 3A |NCIAL FUNCTIONS:|
000004C0: 0D 0D C2 2F 42 20 2D 2D 20 42 41 4C 41 4E 43 45 |.../B -- BALANCE|
000004D0: 0D 0D CE 2F 4E 20 2D 2D 20 4E 55 4D 42 45 52 20 |.../N -- NUMBER |
000004E0: 4F 46 20 50 41 59 4D 45 4E 54 53 0D 0D D0 2F 50 |OF PAYMENTS.../P|
000004F0: 20 2D 2D 20 50 41 59 4D 45 4E 54 20 41 4D 4F 55 | -- PAYMENT AMOU|
00000500: 4E 54 0D 0D C9 2F 49 20 2D 2D 20 49 4E 54 45 52 |NT.../I -- INTER|
00000510: 45 53 54 20 52 41 54 45 0D 0D D4 48 45 20 4C 4F |EST RATE...HE LO|
00000520: 57 45 52 20 43 41 53 45 20 4C 45 54 54 45 52 20 |WER CASE LETTER |
00000530: 45 4E 54 45 52 53 20 54 48 45 0D 56 41 4C 55 45 |ENTERS THE.VALUE|
00000540: 20 46 4F 52 20 41 20 56 41 52 49 41 42 4C 45 3B | FOR A VARIABLE;|
00000550: 20 54 48 45 20 55 50 50 45 52 20 43 41 53 45 0D | THE UPPER CASE.|
00000560: 4C 45 54 54 45 52 20 43 41 4C 43 55 4C 41 54 45 |LETTER CALCULATE|
00000570: 53 20 41 4E 20 55 4E 4B 4E 4F 57 4E 0D 56 41 52 |S AN UNKNOWN.VAR|
00000580: 49 41 42 4C 45 2E 0D 0D 20 20 C8 45 52 45 20 49 |IABLE... .ERE I|
00000590: 53 20 41 4E 20 45 58 41 4D 50 4C 45 2E 20 D4 4F |S AN EXAMPLE. .O|
000005A0: 20 43 41 4C 43 55 4C 41 54 45 0D 54 48 45 20 50 | CALCULATE.THE P|
000005B0: 41 59 4D 45 4E 54 20 41 4D 4F 55 4E 54 20 4F 4E |AYMENT AMOUNT ON|
000005C0: 20 41 4E 20 41 55 54 4F 20 4C 4F 41 4E 0D 46 4F | AN AUTO LOAN.FO|
000005D0: 52 20 24 31 32 2C 30 30 30 20 54 48 41 54 27 53 |R $12,000 THAT'S|
000005E0: 20 46 49 4E 41 4E 43 45 44 20 4F 56 45 52 20 34 | FINANCED OVER 4|
000005F0: 38 0D 4D 4F 4E 54 48 53 20 41 54 20 39 2E 39 25 |8.MONTHS AT 9.9%|
00000600: 20 49 4E 54 45 52 45 53 54 2C 20 46 4F 4C 4C 4F | INTEREST, FOLLO|
00000610: 57 20 54 48 45 53 45 0D 53 54 45 50 53 3A 0D 0D |W THESE.STEPS:..|
00000620: 2D 2D 20 54 59 50 45 20 31 32 30 30 30 0D 0D 2D |-- TYPE 12000..-|
00000630: 2D 20 50 52 45 53 53 20 22 42 22 20 54 4F 20 54 |- PRESS "B" TO T|
00000640: 45 4C 4C 20 54 48 45 20 50 52 4F 47 52 41 4D 20 |ELL THE PROGRAM |
00000650: 54 48 41 54 0D 20 20 20 54 48 45 20 50 52 45 56 |THAT. THE PREV|
00000660: 49 4F 55 53 20 45 4E 54 52 59 20 57 41 53 20 54 |IOUS ENTRY WAS T|
00000670: 48 45 0D 20 20 20 42 41 4C 41 4E 43 45 2E 0D 0D |HE. BALANCE...|
00000680: 2D 2D 20 54 59 50 45 20 34 38 0D 0D 2D 2D 20 50 |-- TYPE 48..-- P|
00000690: 52 45 53 53 20 22 4E 22 20 46 4F 52 20 4E 55 4D |RESS "N" FOR NUM|
000006A0: 42 45 52 20 4F 46 20 4D 4F 4E 54 48 53 2E 0D 0D |BER OF MONTHS...|
000006B0: 2D 2D 20 54 59 50 45 20 39 2E 39 0D 0D 2D 2D 20 |-- TYPE 9.9..-- |
000006C0: 50 52 45 53 53 20 22 49 22 20 46 4F 52 20 49 4E |PRESS "I" FOR IN|
000006D0: 54 45 52 45 53 54 2E 0D 0D 2D 2D 20 C6 49 4E 41 |TEREST...-- .INA|
000006E0: 4C 4C 59 2C 20 50 52 45 53 53 20 D3 C8 C9 C6 D4 |LLY, PRESS .....|
000006F0: 20 2B 20 D0 20 54 4F 0D 20 20 20 43 41 4C 43 55 | + . TO. CALCU|
00000700: 4C 41 54 45 20 54 48 45 20 50 41 59 4D 45 4E 54 |LATE THE PAYMENT|
00000710: 20 41 4D 4F 55 4E 54 2C 20 49 4E 0D 20 20 20 54 | AMOUNT, IN. T|
00000720: 48 49 53 20 43 41 53 45 20 24 33 30 33 2E 37 37 |HIS CASE $303.77|
00000730: 2E 0D 0D 0D C4 C9 D3 CB 20 C6 C9 CC C5 D3 20 D4 |........ ..... .|
00000740: C8 C9 D3 20 D0 D2 CF C7 D2 C1 CD 20 D5 D3 C5 D3 |... ....... ....|
00000750: 3A 0D 0D C6 C9 CE C1 CE C3 C9 C1 CC 20 C3 C1 CC |:........... ...|
00000760: C3 2E 31 20 20 20 D4 2E C6 C9 CE C1 CE C3 C9 C1 |..1 ..........|
00000770: CC 20 C3 C1 CC C3 0D 0D 20 20 20 20 20 20 20 20 |. ...... |
00000780: 2A 2A 2A 2A 20 C5 4E 44 20 CF 46 20 D4 45 58 54 |**** .ND .F .EXT|
00000790: 20 2A 2A 2A 2A 0D | ****. |
..^U:HELP... FINANCIAL CALCULATOR 1
28. BY. MARK J
ORDAN..COMMODORE MAGAZINE.JUNE 1987..***
**********************************.NOTE:
BECAUSE THIS PROGRAM IS WRITTEN.FOR THE
C-128, IT CANNOT BE RUN LIKE.OTHER PROG
RAMS ON LOADSTAR. TO RUN.THE PROGRAM, P
RESS RESET ON THE.C-128. THIS PUTS THE
COMPUTER IN.128 MODE AND DISPLAYS A MENU
OF ALL.128 PROGRAMS ON SIDE 1 OF THE DI
SK..CHOOSE THE PROGRAM TO RUN FROM THIS.
MENU..**********************************
***.. FINANCIAL CALCULATOR 128 TRANSFOR
MS.THE C-128 INTO A CALCULATOR WHICH.FIG
URES LOAN PAYMENTS AND BALANCES AS.WELL
AS PERFORMS STANDARD MATH.FUNCTIONS...
THE PROGRAM'S WORK SCREEN DISPLAYS.A FAC
SIMILE OF A HANDHELD CALCULATOR..IT'S EA
SIEST TO USE THE 128'S NUMERIC.KEYPAD TO
ENTER NUMBERS AND.OPERATIONS, ESPECIALL
Y SINCE THESE.FUNCTION KEYS HAVE BEEN RE
DEFINED:..F1 -- TOGGLES A HELP SCREEN TH
AT. SHOWS HOW TO USE THE PROGRAM'S.
FINANCIAL FUNCTIONS...F3 (C) -- CL
EARS CALCULATOR DISPLAY...F5 (*) -- MULT
IPLICATION OPERATOR...F7 (/) -- DIVISION
OPERATOR...THE CHARACTERS IN PARENTHESE
S.FUNCTION THE SAME AS THE.CORRESPONDING
FUNCTION KEYS....FINANCIAL FUNCTIONS.--
-----------------.. THERE ARE FOUR FINA
NCIAL FUNCTIONS:..B/B -- BALANCE..N/N --
NUMBER OF PAYMENTS..P/P -- PAYMENT AMOU
NT..I/I -- INTEREST RATE..THE LOWER CASE
LETTER ENTERS THE.VALUE FOR A VARIABLE;
THE UPPER CASE.LETTER CALCULATES AN UNK
NOWN.VARIABLE... HERE IS AN EXAMPLE. TO
CALCULATE.THE PAYMENT AMOUNT ON AN AUTO
LOAN.FOR $12,000 THAT'S FINANCED OVER 4
8.MONTHS AT 9.9% INTEREST, FOLLOW THESE.
STEPS:..-- TYPE 12000..-- PRESS "B" TO T
ELL THE PROGRAM THAT. THE PREVIOUS ENT
RY WAS THE. BALANCE...-- TYPE 48..-- P
RESS "N" FOR NUMBER OF MONTHS...-- TYPE
9.9..-- PRESS "I" FOR INTEREST...-- FINA
LLY, PRESS SHIFT + P TO. CALCULATE THE
PAYMENT AMOUNT, IN. THIS CASE $303.77
....DISK FILES THIS PROGRAM USES:..FINAN
CIAL CALC.1 T.FINANCIAL CALC..
**** END OF TEXT ****.
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL