00000000: 0D 0D 20 20 20 20 20 20 20 20 20 20 CC CF C1 CE |.. ....|
00000010: 20 C3 C1 CC C3 D5 CC C1 D4 CF D2 0D 20 20 20 20 | ........... |
00000020: 20 20 20 20 20 20 20 20 20 20 20 20 42 59 0D 20 | BY. |
00000030: 20 20 20 20 20 20 20 20 20 20 D7 2E 20 CF 2E 20 | .. .. |
00000040: CE 45 4C 53 4F 4E 0D 0D 0D C3 CF CD CD CF C4 CF |.ELSON..........|
00000050: D2 C5 20 CD C9 C3 D2 CF C3 CF CD D0 D5 D4 C5 D2 |.. .............|
00000060: D3 20 CD C1 C7 C1 DA C9 CE C5 0D D3 45 50 54 45 |. ..........EPTE|
00000070: 4D 42 45 52 2F CF 43 54 4F 42 45 52 2C 20 31 39 |MBER/.CTOBER, 19|
00000080: 38 36 0D 0D 0D 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |86...***********|
00000090: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D 0D CE CF D4 |***********.....|
000000B0: C5 3A 20 D4 48 49 53 20 50 52 4F 47 52 41 4D 27 |.: .HIS PROGRAM'|
000000C0: 53 20 50 52 49 4E 54 20 52 4F 55 54 49 4E 45 20 |S PRINT ROUTINE |
000000D0: 57 41 53 0D 44 45 53 49 47 4E 45 44 20 53 50 45 |WAS.DESIGNED SPE|
000000E0: 43 49 46 49 43 41 4C 4C 59 20 46 4F 52 20 54 48 |CIFICALLY FOR TH|
000000F0: 45 20 D6 C9 C3 20 31 35 32 35 0D 50 52 49 4E 54 |E ... 1525.PRINT|
00000100: 45 52 2E 20 20 C9 46 20 59 4F 55 20 48 41 56 45 |ER. .F YOU HAVE|
00000110: 20 41 20 44 49 46 46 45 52 45 4E 54 0D 50 52 49 | A DIFFERENT.PRI|
00000120: 4E 54 45 52 2C 20 54 48 45 20 52 4F 55 54 49 4E |NTER, THE ROUTIN|
00000130: 45 20 4D 49 47 48 54 20 4E 4F 54 20 57 4F 52 4B |E MIGHT NOT WORK|
00000140: 0D 50 52 4F 50 45 52 4C 59 20 55 4E 4C 45 53 53 |.PROPERLY UNLESS|
00000150: 20 59 4F 55 20 4D 4F 44 49 46 59 20 54 48 45 0D | YOU MODIFY THE.|
00000160: 50 52 4F 47 52 41 4D 2E 20 20 C9 46 20 54 48 49 |PROGRAM. .F THI|
00000170: 53 20 49 53 20 54 48 45 20 43 41 53 45 2C 20 43 |S IS THE CASE, C|
00000180: 4F 4E 53 55 4C 54 0D CE 45 4C 53 4F 4E 27 53 20 |ONSULT..ELSON'S |
00000190: C3 4F 4D 4D 4F 44 4F 52 45 20 4D 41 47 41 5A 49 |.OMMODORE MAGAZI|
000001A0: 4E 45 20 41 52 54 49 43 4C 45 0D 41 4E 44 20 59 |NE ARTICLE.AND Y|
000001B0: 4F 55 52 20 50 52 49 4E 54 45 52 20 4D 41 4E 55 |OUR PRINTER MANU|
000001C0: 41 4C 20 46 4F 52 0D 49 4E 46 4F 52 4D 41 54 49 |AL FOR.INFORMATI|
000001D0: 4F 4E 2E 0D 0D 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |ON...***********|
000001E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000001F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D 0D 0D 20 20 |***********... |
00000200: D4 48 45 20 CC CF C1 CE 20 C3 C1 CC C3 D5 CC C1 |.HE .... .......|
00000210: D4 CF D2 20 43 41 4E 20 50 52 4F 44 55 43 45 20 |... CAN PRODUCE |
00000220: 41 4E 0D 0D 41 4D 4F 52 54 49 5A 41 54 49 4F 4E |AN..AMORTIZATION|
00000230: 20 54 41 42 4C 45 20 46 4F 52 20 41 4E 59 20 4C | TABLE FOR ANY L|
00000240: 4F 41 4E 20 4F 4E 0D 0D 57 48 49 43 48 20 59 4F |OAN ON..WHICH YO|
00000250: 55 27 52 45 20 50 41 59 49 4E 47 20 53 49 4D 50 |U'RE PAYING SIMP|
00000260: 4C 45 20 49 4E 54 45 52 45 53 54 2E 0D 0D C1 4C |LE INTEREST....L|
00000270: 4C 20 59 4F 55 20 48 41 56 45 20 54 4F 20 44 4F |L YOU HAVE TO DO|
00000280: 20 49 53 20 45 4E 54 45 52 0D 0D 0D 2D 2D 20 54 | IS ENTER...-- T|
00000290: 48 45 20 4E 55 4D 42 45 52 20 4F 46 20 4D 4F 4E |HE NUMBER OF MON|
000002A0: 54 48 53 20 54 48 45 20 4C 4F 41 4E 0D 20 20 20 |THS THE LOAN. |
000002B0: 49 53 20 46 4F 52 0D 0D 2D 2D 20 54 48 45 20 49 |IS FOR..-- THE I|
000002C0: 4E 54 45 52 45 53 54 20 52 41 54 45 0D 0D 2D 2D |NTEREST RATE..--|
000002D0: 20 54 48 45 20 41 4D 4F 55 4E 54 20 4F 46 20 50 | THE AMOUNT OF P|
000002E0: 52 49 4E 43 49 50 41 4C 0D 0D 2D 2D 20 54 48 45 |RINCIPAL..-- THE|
000002F0: 20 4D 4F 4E 54 48 20 41 4E 44 20 59 45 41 52 20 | MONTH AND YEAR |
00000300: 54 48 45 20 46 49 52 53 54 0D 20 20 20 50 41 59 |THE FIRST. PAY|
00000310: 4D 45 4E 54 20 49 53 20 44 55 45 0D 0D 0D 20 20 |MENT IS DUE... |
00000320: D7 48 45 4E 20 59 4F 55 20 50 52 45 53 53 20 D2 |.HEN YOU PRESS .|
00000330: C5 D4 D5 D2 CE 2C 20 54 48 45 0D 0D 41 4D 4F 52 |....., THE..AMOR|
00000340: 54 49 5A 41 54 49 4F 4E 20 54 41 42 4C 45 20 44 |TIZATION TABLE D|
00000350: 49 53 50 4C 41 59 49 4E 47 20 54 48 45 0D 0D 41 |ISPLAYING THE..A|
00000360: 4D 4F 55 4E 54 20 4F 46 20 49 4E 54 45 52 45 53 |MOUNT OF INTERES|
00000370: 54 2C 20 50 52 49 4E 43 49 50 41 4C 2C 20 41 4E |T, PRINCIPAL, AN|
00000380: 44 0D 0D 42 41 4C 41 4E 43 45 20 44 55 45 20 57 |D..BALANCE DUE W|
00000390: 49 4C 4C 20 53 43 52 4F 4C 4C 20 42 59 2E 20 20 |ILL SCROLL BY. |
000003A0: D9 4F 55 0D 0D 4D 41 59 20 53 54 4F 50 20 54 48 |.OU..MAY STOP TH|
000003B0: 45 20 44 49 53 50 4C 41 59 20 42 59 20 52 45 2D |E DISPLAY BY RE-|
000003C0: 50 52 45 53 53 49 4E 47 0D 0D D2 C5 D4 D5 D2 CE |PRESSING........|
000003D0: 2E 20 20 D0 52 45 53 53 49 4E 47 20 D2 C5 D4 D5 |. .RESSING ....|
000003E0: D2 CE 20 41 47 41 49 4E 20 57 49 4C 4C 0D 0D 52 |.. AGAIN WILL..R|
000003F0: 45 53 55 4D 45 20 54 48 45 20 44 49 53 50 4C 41 |ESUME THE DISPLA|
00000400: 59 2E 0D 0D 0D 20 20 C1 54 20 54 48 45 20 45 4E |Y.... .T THE EN|
00000410: 44 20 4F 46 20 45 41 43 48 20 59 45 41 52 2C 20 |D OF EACH YEAR, |
00000420: 54 48 45 20 50 52 4F 47 52 41 4D 0D 0D 44 49 53 |THE PROGRAM..DIS|
00000430: 50 4C 41 59 53 20 54 48 45 20 54 4F 54 41 4C 20 |PLAYS THE TOTAL |
00000440: 41 4D 4F 55 4E 54 53 20 50 41 49 44 20 54 48 41 |AMOUNTS PAID THA|
00000450: 54 0D 0D 59 45 41 52 20 41 53 20 57 45 4C 4C 20 |T..YEAR AS WELL |
00000460: 41 53 20 54 48 45 20 41 43 43 55 4D 55 4C 41 54 |AS THE ACCUMULAT|
00000470: 45 44 20 22 54 4F 0D 0D 44 41 54 45 22 20 41 4D |ED "TO..DATE" AM|
00000480: 4F 55 4E 54 53 2E 0D 0D 0D 20 20 C1 54 20 54 48 |OUNTS.... .T TH|
00000490: 45 20 45 4E 44 20 4F 46 20 44 49 53 50 4C 41 59 |E END OF DISPLAY|
000004A0: 20 59 4F 55 20 4D 41 59 20 56 49 45 57 0D 0D 54 | YOU MAY VIEW..T|
000004B0: 48 45 20 44 49 53 50 4C 41 59 20 41 47 41 49 4E |HE DISPLAY AGAIN|
000004C0: 2C 20 4D 41 4B 45 20 41 20 50 52 49 4E 54 45 44 |, MAKE A PRINTED|
000004D0: 20 43 4F 50 59 0D 0D 4F 46 20 54 48 45 20 54 41 | COPY..OF THE TA|
000004E0: 42 4C 45 2C 20 4F 52 20 42 45 47 49 4E 20 41 20 |BLE, OR BEGIN A |
000004F0: 54 41 42 4C 45 20 46 4F 52 0D 0D 41 4E 4F 54 48 |TABLE FOR..ANOTH|
00000500: 45 52 20 4C 4F 41 4E 2E 0D 0D 0D C4 C9 D3 CB 20 |ER LOAN........ |
00000510: C6 C9 CC C5 D3 20 D4 C8 C9 D3 20 D0 D2 CF C7 D2 |..... .... .....|
00000520: C1 CD 20 D5 D3 C5 D3 3A 0D 0D CC CF C1 CE 20 C3 |.. ....:...... .|
00000530: C1 CC C3 0D 0D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.....-----------|
00000540: 2D 3C 20 45 4E 44 20 4F 46 20 54 45 58 54 20 3E |-< END OF TEXT >|
00000550: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D |-----------. |
.. LOAN CALCULATOR.
BY. W. O. NELSON...COMMODO
RE MICROCOMPUTERS MAGAZINE.SEPTEMBER/OCT
OBER, 1986...***************************
***********..NOTE: THIS PROGRAM'S PRINT
ROUTINE WAS.DESIGNED SPECIFICALLY FOR TH
E VIC 1525.PRINTER. IF YOU HAVE A DIFFE
RENT.PRINTER, THE ROUTINE MIGHT NOT WORK
.PROPERLY UNLESS YOU MODIFY THE.PROGRAM.
IF THIS IS THE CASE, CONSULT.NELSON'S
COMMODORE MAGAZINE ARTICLE.AND YOUR PRIN
TER MANUAL FOR.INFORMATION...***********
***************************... THE LOAN
CALCULATOR CAN PRODUCE AN..AMORTIZATION
TABLE FOR ANY LOAN ON..WHICH YOU'RE PAY
ING SIMPLE INTEREST...ALL YOU HAVE TO DO
IS ENTER...-- THE NUMBER OF MONTHS THE
LOAN. IS FOR..-- THE INTEREST RATE..--
THE AMOUNT OF PRINCIPAL..-- THE MONTH A
ND YEAR THE FIRST. PAYMENT IS DUE...
WHEN YOU PRESS RETURN, THE..AMORTIZATION
TABLE DISPLAYING THE..AMOUNT OF INTERES
T, PRINCIPAL, AND..BALANCE DUE WILL SCRO
LL BY. YOU..MAY STOP THE DISPLAY BY RE-
PRESSING..RETURN. PRESSING RETURN AGAIN
WILL..RESUME THE DISPLAY.... AT THE EN
D OF EACH YEAR, THE PROGRAM..DISPLAYS TH
E TOTAL AMOUNTS PAID THAT..YEAR AS WELL
AS THE ACCUMULATED "TO..DATE" AMOUNTS...
. AT THE END OF DISPLAY YOU MAY VIEW..T
HE DISPLAY AGAIN, MAKE A PRINTED COPY..O
F THE TABLE, OR BEGIN A TABLE FOR..ANOTH
ER LOAN....DISK FILES THIS PROGRAM USES:
..LOAN CALC..------------< END OF TEXT >
-----------.
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL