STRIPPED BONDS.C

FILE INFORMATION

FILENAME(S): STRIPPED BONDS.C

FILE TYPE(S): PRG

FILE SIZE: 1.7K

FIRST SEEN: 2025-10-19 22:48:29

APPEARS ON: 1 disk(s)

FILE HASH

c66b9ac04abe6eaabe451b4943bb0826d934d86013d8838b73a228aca7411cd9

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
TPUG NOV 84 C	STRIPPED BONDS.C	PRG	Radd Maxx	31	0	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 4E 08 01 00 8F 20  20 20 20 41 20 50 52 4F  |..N....    A PRO|
00000010: 47 52 41 4D 20 54 4F 20  43 41 4C 43 55 4C 41 54  |GRAM TO CALCULAT|
00000020: 45 20 50 52 45 53 45 4E  54 20 41 4E 44 20 46 55  |E PRESENT AND FU|
00000030: 54 55 52 45 20 56 41 4C  55 45 53 20 46 4F 52 20  |TURE VALUES FOR |
00000040: 53 54 52 49 50 50 45 44  20 42 4F 4E 44 53 00 77  |STRIPPED BONDS.w|
00000050: 08 02 00 8F 20 20 20 20  53 45 4D 49 20 41 4E 4E  |....    SEMI ANN|
00000060: 55 41 4C 20 49 4E 54 45  52 45 53 54 20 49 53 20  |UAL INTEREST IS |
00000070: 41 53 53 55 4D 45 44 00  8B 08 03 00 8F 20 20 20  |ASSUMED......   |
00000080: 20 57 52 49 54 54 45 4E  20 42 59 00 A3 08 04 00  | WRITTEN BY.....|
00000090: 8F 20 20 20 20 20 20 4A  4F 48 4E 20 4D 49 43 48  |.      JOHN MICH|
000000A0: 45 4C 4C 00 C8 08 05 00  8F 20 20 20 20 20 20 31  |ELL......      1|
000000B0: 30 35 20 53 43 41 52 42  4F 52 4F 20 41 56 45 4E  |05 SCARBORO AVEN|
000000C0: 55 45 20 53 2E 20 57 2E  00 E4 08 06 00 8F 20 20  |UE S. W.......  |
000000D0: 20 20 20 20 43 41 4C 47  41 52 59 2C 20 41 4C 42  |    CALGARY, ALB|
000000E0: 45 52 54 41 00 F7 08 07  00 8F 20 20 20 20 20 20  |ERTA......      |
000000F0: 54 33 43 20 32 48 32 00  1E 09 0A 00 99 22 93 0E  |T3C 2H2......"..|
00000100: 20 D3 54 52 49 50 50 45  44 20 C3 4F 55 50 4F 4E  | .TRIPPED .OUPON|
00000110: 20 C3 41 4C 43 55 4C 41  54 49 4F 4E 53 22 00 44  | .ALCULATIONS".D|
00000120: 09 14 00 99 22 11 CF 55  54 50 55 54 20 54 4F 20  |...."..UTPUT TO |
00000130: 53 43 52 45 45 4E 20 4F  52 20 50 52 49 4E 54 45  |SCREEN OR PRINTE|
00000140: 52 20 2D 22 00 5D 09 19  00 85 22 20 20 45 4E 54  |R -".]...."  ENT|
00000150: 45 52 20 53 20 4F 52 20  50 22 3B 4F 24 00 74 09  |ER S OR P";O$.t.|
00000160: 1E 00 46 B2 34 3A 8B 20  4F 24 B3 B1 22 50 22 A7  |..F.4:. O$.."P".|
00000170: 20 46 B2 33 00 7F 09 20  00 9F 46 2C 46 2C 37 00  | F.3... ..F,F,7.|
00000180: C5 09 22 00 99 22 C5 4E  54 45 52 20 D4 20 46 4F  |.."..".NTER . FO|
00000190: 52 20 41 20 54 41 42 4C  45 2C 20 C3 20 46 4F 52  |R A TABLE, . FOR|
000001A0: 20 53 50 45 43 49 46 49  43 20 43 41 4C 43 55 4C  | SPECIFIC CALCUL|
000001B0: 41 54 49 4F 4E 53 2C 20  4F 52 20 D3 20 54 4F 20  |ATIONS, OR . TO |
000001C0: 53 54 4F 50 22 00 CE 09  23 00 85 20 54 24 00 E0  |STOP"...#.. T$..|
000001D0: 09 24 00 8B 20 54 24 B2  22 54 22 20 A7 20 34 30  |.$.. T$."T" . 40|
000001E0: 00 F3 09 25 00 8B 20 54  24 B2 22 43 22 20 A7 20  |...%.. T$."C" . |
000001F0: 35 30 30 00 04 0A 26 00  8B 20 54 24 B2 22 53 22  |500...&.. T$."S"|
00000200: 20 A7 20 80 00 0D 0A 27  00 89 20 33 35 00 3A 0A  | . ....'.. 35.:.|
00000210: 28 00 99 22 C5 4E 54 45  52 20 35 20 4E 4F 4D 49  |(..".NTER 5 NOMI|
00000220: 4E 41 4C 20 41 4E 4E 55  41 4C 20 49 4E 54 45 52  |NAL ANNUAL INTER|
00000230: 45 53 54 20 52 41 54 45  53 22 00 5E 0A 32 00 85  |EST RATES".^.2..|
00000240: 20 49 50 28 31 29 2C 49  50 28 32 29 2C 49 50 28  | IP(1),IP(2),IP(|
00000250: 33 29 2C 49 50 28 34 29  2C 49 50 28 35 29 00 71  |3),IP(4),IP(5).q|
00000260: 0A 64 00 8B 20 46 B2 33  20 A7 20 98 46 2C 22 93  |.d.. F.3 . .F,".|
00000270: 22 00 AD 0A 69 00 98 46  2C 22 0E 22 3A 98 46 2C  |"...i..F,".":.F,|
00000280: 22 20 20 20 20 20 20 20  20 20 D3 54 52 49 50 50  |"         .TRIPP|
00000290: 45 44 20 C3 4F 55 50 4F  4E 20 C3 41 4C 43 55 4C  |ED .OUPON .ALCUL|
000002A0: 41 54 49 4F 4E 53 22 3A  98 46 2C 22 22 00 D8 0A  |ATIONS":.F,""...|
000002B0: 6E 00 98 46 2C 22 20 20  20 20 20 20 20 20 20 20  |n..F,"          |
000002C0: 20 20 C6 55 54 55 52 45  20 D6 41 4C 55 45 20 4F  |  .UTURE .ALUE O|
000002D0: 46 20 24 31 30 30 30 22  00 0C 0B 78 00 98 46 2C  |F $1000"...x..F,|
000002E0: 22 20 20 20 20 20 20 20  20 20 20 41 54 20 D6 41  |"          AT .A|
000002F0: 52 59 49 4E 47 20 C9 4E  54 45 52 45 53 54 20 D2  |RYING .NTEREST .|
00000300: 41 54 45 53 22 3A 98 46  2C 22 20 22 00 38 0B 8C  |ATES":.F," ".8..|
00000310: 00 98 46 2C 22 20 20 20  20 20 20 20 20 20 20 20  |..F,"           |
00000320: 20 20 20 20 20 20 20 20  20 C9 4E 54 45 52 45 53  |         .NTERES|
00000330: 54 20 D2 41 54 45 53 22  00 48 0B 96 00 98 46 2C  |T .ATES".H....F,|
00000340: 22 20 20 20 D9 52 22 3B  00 54 0B A0 00 81 20 49  |"   .R";.T.... I|
00000350: B2 31 A4 35 00 7F 0B AA  00 43 24 B2 22 20 20 20  |.1.5.....C$."   |
00000360: 20 20 20 22 AA C4 28 49  50 28 49 29 29 3A 98 46  |   "..(IP(I)):.F|
00000370: 2C C9 28 43 24 2C 34 AA  46 29 3B 3A 82 20 49 00  |,.(C$,4.F);:. I.|
00000380: 89 0B B4 00 98 46 2C 22  22 00 99 0B D2 00 81 20  |.....F,""...... |
00000390: 49 20 B2 20 31 20 A4 20  35 00 A9 0B DC 00 50 28  |I . 1 . 5.....P(|
000003A0: 49 29 B2 31 30 30 30 3A  82 00 B9 0B 2C 01 81 20  |I).1000:....,.. |
000003B0: 49 20 B2 20 31 20 A4 20  35 00 D1 0B 36 01 49 4E  |I . 1 . 5...6.IN|
000003C0: 28 49 29 B2 28 49 50 28  49 29 AD 32 30 30 AA 31  |(I).(IP(I).200.1|
000003D0: 29 00 D7 0B 40 01 82 00  EE 0B 90 01 8F 20 43 41  |)...@........ CA|
000003E0: 4C 43 55 4C 41 54 49 4F  4E 20 4C 4F 4F 50 00 FC  |LCULATION LOOP..|
000003F0: 0B 9A 01 81 20 59 B2 30  A4 20 33 30 00 18 0C A4  |.... Y.0. 30....|
00000400: 01 8B 20 28 35 AC B5 28  59 AD 35 29 29 B2 59 20  |.. (5..(Y.5)).Y |
00000410: A7 20 8D 20 34 30 30 30  00 25 0C A9 01 81 20 48  |. . 4000.%.... H|
00000420: B2 31 A4 20 32 00 36 0C  AE 01 81 20 20 49 20 B2  |.1. 2.6....  I .|
00000430: 20 31 20 A4 20 35 00 4E  0C B8 01 50 28 49 29 B2  | 1 . 5.N...P(I).|
00000440: 50 28 49 29 AC 49 4E 28  49 29 3A 20 82 49 00 5A  |P(I).IN(I): .I.Z|
00000450: 0C C2 01 82 20 48 3A 82  20 59 00 62 0C CC 01 89  |.... H:. Y.b....|
00000460: 33 34 00 7B 0C F4 01 85  20 22 C9 4E 54 45 52 45  |34.{.... ".NTERE|
00000470: 53 54 20 52 41 54 45 22  3B 49 4E 00 95 0C FE 01  |ST RATE";IN.....|
00000480: 85 20 22 CE 55 4D 42 45  52 20 4F 46 20 59 45 41  |. ".UMBER OF YEA|
00000490: 52 53 22 3B 4E 00 D0 0C  12 02 99 20 22 C4 4F 20  |RS";N...... ".O |
000004A0: 59 4F 55 20 57 41 4E 54  20 54 4F 20 49 4E 50 55  |YOU WANT TO INPU|
000004B0: 54 20 D0 52 45 53 45 4E  54 20 4F 52 20 C6 55 54  |T .RESENT OR .UT|
000004C0: 55 52 45 20 56 41 4C 55  45 20 28 D0 2F C6 29 22  |URE VALUE (./.)"|
000004D0: 00 D9 0C 1C 02 85 20 56  24 00 EC 0C 26 02 8B 20  |...... V$...&.. |
000004E0: 56 24 B2 22 50 22 20 A7  20 36 30 30 00 FF 0C 30  |V$."P" . 600...0|
000004F0: 02 8B 20 56 24 B2 22 46  22 20 A7 20 37 30 30 00  |.. V$."F" . 700.|
00000500: 09 0D 3A 02 89 20 35 34  30 00 21 0D 58 02 85 20  |..:.. 540.!.X.. |
00000510: 22 D0 52 45 53 45 4E 54  20 56 41 4C 55 45 22 3B  |".RESENT VALUE";|
00000520: 50 00 40 0D 62 02 46 46  B2 B5 28 28 31 AA 28 49  |P.@.b.FF..((1.(I|
00000530: 4E AD 32 30 30 29 29 AE  28 32 AC 4E 29 AC 50 29  |N.200)).(2.N).P)|
00000540: 00 4C 0D 6C 02 CB 20 A4  20 38 30 30 00 64 0D BC  |.L.l.. . 800.d..|
00000550: 02 85 20 22 C6 55 54 55  52 45 20 56 41 4C 55 45  |.. ".UTURE VALUE|
00000560: 22 3B 46 46 00 72 0D C6  02 45 58 B2 AB 28 32 AC  |";FF.r...EX..(2.|
00000570: 4E 29 00 82 0D D0 02 49  58 B2 31 AA 49 4E AD 32  |N).....IX.1.IN.2|
00000580: 30 30 00 94 0D DA 02 50  B2 B5 28 46 46 AC 49 58  |00.....P..(FF.IX|
00000590: AE 45 58 29 00 A6 0D 20  03 98 46 2C 22 20 22 3A  |.EX)... ..F," ":|
000005A0: 98 46 2C 22 20 22 00 E5  0D 2A 03 98 46 2C 22 C1  |.F," "...*..F,".|
000005B0: 54 22 3B 49 4E 3B 22 25  20 49 4E 54 45 52 45 53  |T";IN;"% INTERES|
000005C0: 54 20 24 22 3B 50 3B 22  47 52 4F 57 53 20 54 4F  |T $";P;"GROWS TO|
000005D0: 20 24 22 3B 46 46 3B 22  49 4E 22 3B 4E 3B 22 59  | $";FF;"IN";N;"Y|
000005E0: 45 41 52 53 22 00 FA 0D  34 03 85 20 22 11 11 C1  |EARS"...4.. "...|
000005F0: 4E 4F 54 48 45 52 22 3B  41 24 00 0F 0E 48 03 8B  |NOTHER";A$...H..|
00000600: 20 41 24 B2 22 59 22 20  A7 20 89 20 35 30 30 00  | A$."Y" . . 500.|
00000610: 18 0E 52 03 89 20 33 34  00 1E 0E E7 03 80 00 32  |..R.. 34.......2|
00000620: 0E A0 0F 8F 20 50 52 49  4E 54 20 52 4F 55 54 49  |.... PRINT ROUTI|
00000630: 4E 45 00 47 0E B4 0F 43  24 B2 22 20 20 20 20 20  |NE.G...C$."     |
00000640: 20 22 AA C4 28 59 29 00  57 0E BE 0F 98 46 2C C9  | "..(Y).W....F,.|
00000650: 28 43 24 2C 35 29 3B 00  63 0E C3 0F 81 20 49 B2  |(C$,5);.c.... I.|
00000660: 31 A4 35 00 90 0E C8 0F  43 24 B2 22 20 20 20 20  |1.5.....C$."    |
00000670: 20 20 22 AA C4 28 B5 28  50 28 49 29 29 29 3A 98  |  "..(.(P(I))):.|
00000680: 46 2C C9 28 43 24 2C 34  AA 46 29 3B 3A 82 20 49  |F,.(C$,4.F);:. I|
00000690: 00 9A 0E D2 0F 98 46 2C  22 22 00 A0 0E DC 0F 8E  |......F,""......|
000006A0: 00 00 00                                          |...             |

..N....    A PROGRAM TO CALCULATE PRESEN
T AND FUTURE VALUES FOR STRIPPED BONDS.W
....    SEMI ANNUAL INTEREST IS ASSUMED.
.....    WRITTEN BY......      JOHN MICH
ELL.H....      105 SCARBORO AVENUE S. W.
......      CALGARY, ALBERTA......      
T3C 2H2......".. STRIPPED COUPON CALCULA
TIONS".D....".OUTPUT TO SCREEN OR PRINTE
R -".]...."  ENTER S OR P";O$.T...F.4:. 
O$.."P". F.3.. ..F,F,7.E.".."ENTER T FO
R A TABLE, C FOR SPECIFIC CALCULATIONS, 
OR S TO STOP".N.#.. T$...$.. T$."T" . 40
...%.. T$."C" . 500...&.. T$."S" . ....'
.. 35.:.(.."ENTER 5 NOMINAL ANNUAL INTER
EST RATES".^.2.. IP(1),IP(2),IP(3),IP(4)
,IP(5).Q.D.. F.3 . .F,"."...I..F,".":.F,
"         STRIPPED COUPON CALCULATIONS":
.F,"".X.N..F,"            FUTURE VALUE O
F $1000"...X..F,"          AT VARYING IN
TEREST RATES":.F," ".8....F,"           
         INTEREST RATES".H....F,"   YR";
.T. .. I.1.5....C$."      ".D(IP(I)):.F
,I(C$,4.F);:. I......F,""...R.. I . 1 . 
5.....P(I).1000:....,.. I . 1 . 5.Q.6.IN
(I).(IP(I).200.1).W.@........ CALCULATIO
N LOOP...... Y.0. 30...... (5..(Y.5)).Y 
. . 4000.%.... H.1. 2.6....  I . 1 . 5.N
...P(I).P(I).IN(I): .I.Z.B.. H:. Y.B.L..
34.{.... "INTEREST RATE";IN...... "NUMBE
R OF YEARS";N.P.... "DO YOU WANT TO INPU
T PRESENT OR FUTURE VALUE (P/F)".Y.... V
$...&.. V$."P" . 600...0.. V$."F" . 700.
..:.. 540.!.X.. "PRESENT VALUE";P.@.B.FF
..((1.(IN.200)).(2.N).P).L.L.K . 800.D..
.. "FUTURE VALUE";FF.R.F.EX..(2.N)...P.I
X.1.IN.200...Z.P..(FF.IX.EX)... ..F," ":
.F," "...*..F,"AT";IN;"% INTEREST $";P;"
GROWS TO $";FF;"IN";N;"YEARS"...4.. "..A
NOTHER";A$...H.. A$."Y" . . 500...R.. 34
.......2. .. PRINT ROUTINE.G...C$."     
 ".D(Y).W....F,I(C$,5);.C.C.. I.1.5...H.
C$."      ".D(.(P(I))):.F,I(C$,4.F);:. I
...R..F,"". .......

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL