STOCK OPTION
FILE INFORMATION
FILENAME(S): STOCK OPTION
FILE TYPE(S): PRG
FILE SIZE: 2K
FIRST SEEN: 2025-11-30 17:31:30
APPEARS ON: 1 disk(s)
FILE HASH
a39a2bef9441ae76be00cf71beb5c42b90254db5521715f9a309110cad5a028e
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| ARCADIAN | STOCK OPTION | PRG | UK CD | 24 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 23 08 0A 00 8F 20 46 41 49 52 20 4F 50 54 |..#.... FAIR OPT|
00000010: 49 4F 4E 20 56 41 4C 55 45 2E 2E 42 59 20 4A 2E |ION VALUE..BY J.|
00000020: 4B 4F 54 00 31 08 19 00 99 20 22 93 11 11 11 11 |KOT.1.... ".....|
00000030: 22 00 78 08 1E 00 99 20 22 1D 1D 1D 50 55 54 20 |".x.... "...PUT |
00000040: 26 20 43 41 4C 4C 20 4F 50 54 49 4F 4E 20 46 41 |& CALL OPTION FA|
00000050: 49 52 20 56 41 4C 55 45 53 22 3A 99 22 11 1D 1D |IR VALUES":."...|
00000060: 1D 1D 1D 1D 1D 1D 1D 1D 28 42 4C 41 43 4B 2D 53 |........(BLACK-S|
00000070: 43 48 4F 4C 45 53 29 22 00 AC 08 23 00 99 20 22 |CHOLES)"...#.. "|
00000080: 11 11 11 11 11 54 48 49 53 20 50 52 4F 47 52 41 |.....THIS PROGRA|
00000090: 4D 20 43 4F 4D 50 55 54 45 53 20 54 48 45 20 54 |M COMPUTES THE T|
000000A0: 48 45 4F 52 45 54 49 43 41 4C 22 3A 00 DA 08 28 |HEORETICAL":...(|
000000B0: 00 99 20 22 56 41 4C 55 45 20 4F 46 20 41 20 45 |.. "VALUE OF A E|
000000C0: 55 52 4F 50 45 41 4E 20 54 59 50 45 20 50 55 54 |UROPEAN TYPE PUT|
000000D0: 20 4F 52 20 43 41 4C 4C 22 3A 00 07 09 2D 00 99 | OR CALL":...-..|
000000E0: 20 22 4F 50 54 49 4F 4E 20 55 53 49 4E 47 20 54 | "OPTION USING T|
000000F0: 48 45 20 56 41 4C 55 41 54 49 4F 4E 20 46 4F 52 |HE VALUATION FOR|
00000100: 4D 55 4C 41 53 22 3A 00 23 09 32 00 99 20 22 4F |MULAS":.#.2.. "O|
00000110: 46 20 42 4C 41 43 4B 20 26 20 53 43 48 4F 4C 45 |F BLACK & SCHOLE|
00000120: 53 2E 22 00 4A 09 37 00 99 20 22 11 11 11 11 50 |S.".J.7.. "....P|
00000130: 52 45 53 53 20 41 4E 59 20 4B 45 59 20 54 4F 20 |RESS ANY KEY TO |
00000140: 43 4F 4E 54 49 4E 55 45 22 3A 00 67 09 38 00 96 |CONTINUE":.g.8..|
00000150: 20 A5 41 28 42 29 B2 31 AD 28 28 2E 33 33 32 36 | .A(B).1.((.3326|
00000160: 37 AC 42 29 AA 31 29 00 7B 09 39 00 86 20 4D 25 |7.B).1).{.9.. M%|
00000170: 28 31 32 29 2C 4D 24 28 31 32 29 00 91 09 3A 00 |(12),M$(12)...:.|
00000180: 81 20 49 B2 31 A4 31 32 3A 87 4D 25 28 49 29 3A |. I.1.12:.M%(I):|
00000190: 82 00 9A 09 3C 00 A1 20 58 24 00 AA 09 41 00 8B |....<.. X$...A..|
000001A0: 20 58 24 B2 22 22 A7 20 36 30 00 DC 09 46 00 45 | X$."". 60...F.E|
000001B0: 24 B2 22 20 20 20 20 20 20 31 2F 31 36 20 20 31 |$." 1/16 1|
000001C0: 2F 38 20 33 2F 31 36 20 20 31 2F 34 20 35 2F 31 |/8 3/16 1/4 5/1|
000001D0: 36 20 20 33 2F 38 20 37 2F 31 36 22 00 0D 0A 4B |6 3/8 7/16"...K|
000001E0: 00 46 24 B2 22 20 20 31 2F 32 20 39 2F 31 36 20 |.F$." 1/2 9/16 |
000001F0: 20 35 2F 38 31 31 2F 31 36 20 20 33 2F 34 31 33 | 5/811/16 3/413|
00000200: 2F 31 36 20 37 2F 38 31 35 2F 31 36 22 00 1B 0A |/16 7/815/16"...|
00000210: 64 00 99 20 22 93 11 1D 1D 1D 22 00 37 0A 6E 00 |d.. ".....".7.n.|
00000220: 85 20 22 53 54 4F 43 4B 20 4E 41 4D 45 20 20 3F |. "STOCK NAME ?|
00000230: 9D 9D 9D 22 3B 53 24 00 57 0A 78 00 85 20 22 11 |...";S$.W.x.. ".|
00000240: 53 54 52 49 4B 49 4E 47 20 50 52 49 43 45 20 20 |STRIKING PRICE |
00000250: 3F 9D 9D 9D 22 3B 50 00 74 0A 82 00 85 20 22 11 |?...";P.t.... ".|
00000260: 53 54 4F 43 4B 20 50 52 49 43 45 20 20 3F 9D 9D |STOCK PRICE ?..|
00000270: 9D 22 3B 53 00 B2 0A 8C 00 85 20 22 11 54 4F 44 |.";S...... ".TOD|
00000280: 41 59 27 53 20 44 41 54 45 20 20 20 4D 4D 2C 44 |AY'S DATE MM,D|
00000290: 44 2C 59 59 20 20 30 30 2C 30 30 2C 38 30 9D 9D |D,YY 00,00,80..|
000002A0: 9D 9D 9D 9D 9D 9D 9D 9D 22 3B 4D 42 2C 44 42 2C |........";MB,DB,|
000002B0: 59 42 00 C3 0A 96 00 54 42 B2 30 3A 54 31 B2 59 |YB.....TB.0:T1.Y|
000002C0: 42 AD 34 00 D4 0A A0 00 8B 20 4D 42 B3 32 20 A7 |B.4...... MB.2 .|
000002D0: 20 32 31 30 00 E5 0A AA 00 81 20 49 B2 31 20 A4 | 210...... I.1 .|
000002E0: 20 4D 42 AB 31 00 F5 0A B4 00 54 42 B2 54 42 AA | MB.1.....TB.TB.|
000002F0: 4D 25 28 49 29 00 FB 0A BE 00 82 00 1C 0B C8 00 |M%(I)...........|
00000300: 8B 28 54 31 B3 B1 B5 28 54 31 29 29 AF 28 4D 42 |.(T1...(T1)).(MB|
00000310: B1 32 29 A7 20 54 42 B2 54 42 AA 32 00 36 0B D2 |.2). TB.TB.2.6..|
00000320: 00 54 42 B2 54 42 AA 33 36 35 AC 59 42 AA B5 28 |.TB.TB.365.YB..(|
00000330: 54 31 29 AA 44 42 00 77 0B DC 00 85 20 22 11 45 |T1).DB.w.... ".E|
00000340: 58 50 49 52 41 54 49 4F 4E 20 44 41 54 45 20 20 |XPIRATION DATE |
00000350: 20 4D 4D 2C 44 44 2C 59 59 20 20 30 30 2C 30 30 | MM,DD,YY 00,00|
00000360: 2C 38 30 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 3B 4D |,80..........";M|
00000370: 53 2C 44 53 2C 59 53 00 88 0B E6 00 54 53 B2 30 |S,DS,YS.....TS.0|
00000380: 3A 54 31 B2 59 53 AD 34 00 99 0B F0 00 8B 20 4D |:T1.YS.4...... M|
00000390: 53 B3 32 20 A7 20 32 39 30 00 AA 0B FA 00 81 20 |S.2 . 290...... |
000003A0: 49 B2 31 20 A4 20 4D 53 AB 31 00 BA 0B 04 01 54 |I.1 . MS.1.....T|
000003B0: 53 B2 54 53 AA 4D 25 28 49 29 00 C0 0B 0E 01 82 |S.TS.M%(I)......|
000003C0: 00 E2 0B 18 01 8B 20 28 54 31 B3 B1 B5 28 54 31 |...... (T1...(T1|
000003D0: 29 29 AF 28 4D 53 B1 32 29 A7 20 54 53 B2 54 53 |)).(MS.2). TS.TS|
000003E0: AA 31 00 FC 0B 22 01 54 53 B2 54 53 AA 33 36 35 |.1...".TS.TS.365|
000003F0: AC 59 53 AA B5 28 54 31 29 AA 44 53 00 09 0C 2C |.YS..(T1).DS...,|
00000400: 01 54 54 B2 54 53 AB 54 42 00 19 0C 36 01 54 B2 |.TT.TS.TB...6.T.|
00000410: 54 54 AD 33 36 35 2E 32 35 00 3F 0C 40 01 85 20 |TT.365.25.?.@.. |
00000420: 22 11 53 54 4F 43 4B 27 53 20 59 45 41 52 4C 59 |".STOCK'S YEARLY|
00000430: 20 48 49 47 48 20 20 2B 9D 9D 9D 22 3B 59 31 00 | HIGH +...";Y1.|
00000440: 65 0C 4A 01 85 20 22 11 53 54 4F 43 4B 27 53 20 |e.J.. ".STOCK'S |
00000450: 59 45 41 52 4C 59 20 4C 4F 57 20 20 20 2B 9D 9D |YEARLY LOW +..|
00000460: 9D 22 3B 59 32 00 7F 0C 54 01 56 B2 28 59 31 AB |.";Y2...T.V.(Y1.|
00000470: 59 32 29 AD 28 28 59 31 AA 59 32 29 AD 32 29 00 |Y2).((Y1.Y2).2).|
00000480: A8 0C 5E 01 85 20 22 11 49 4E 54 45 52 45 53 54 |..^.. ".INTEREST|
00000490: 20 52 41 54 45 20 28 50 45 52 43 45 4E 54 29 20 | RATE (PERCENT) |
000004A0: 20 2B 9D 9D 9D 22 3B 49 00 B4 0C 68 01 52 B2 49 | +...";I...h.R.I|
000004B0: AD 31 30 30 00 DB 0C 72 01 44 31 B2 28 BC 28 53 |.100...r.D1.(.(S|
000004C0: AD 50 29 AA 28 52 AA 28 56 AC 56 29 AD 32 29 AC |.P).(R.(V.V).2).|
000004D0: 54 29 AD 28 56 AC BA 28 54 29 29 00 02 0D 7C 01 |T).(V..(T))...|.|
000004E0: 44 32 B2 28 BC 28 53 AD 50 29 AA 28 52 AB 28 56 |D2.(.(S.P).(R.(V|
000004F0: AC 56 29 AD 32 29 AC 54 29 AD 28 56 AC BA 28 54 |.V).2).T).(V..(T|
00000500: 29 29 00 10 0D 86 01 59 31 B2 A5 41 28 44 31 29 |)).....Y1..A(D1)|
00000510: 00 1E 0D 90 01 59 32 B2 A5 41 28 44 32 29 00 37 |.....Y2..A(D2).7|
00000520: 0D 95 01 5A 31 B2 BA 28 32 AC FF 29 AC BD 28 44 |...Z1..(2..)..(D|
00000530: 31 AC 44 31 AD 32 29 00 50 0D 97 01 5A 32 B2 BA |1.D1.2).P...Z2..|
00000540: 28 32 AC FF 29 AC BD 28 44 32 AC 44 32 AD 32 29 |(2..)..(D2.D2.2)|
00000550: 00 85 0D 9A 01 4E 31 B2 31 AB 28 2E 39 33 37 32 |.....N1.1.(.9372|
00000560: 39 38 AC 59 31 AE 33 AB 2E 31 32 30 31 36 37 36 |98.Y1.3..1201676|
00000570: AC 59 31 AE 32 AA 2E 34 33 36 31 38 33 36 AC 59 |.Y1.2..4361836.Y|
00000580: 31 29 AD 5A 31 00 BA 0D A4 01 4E 32 B2 31 AB 28 |1).Z1.....N2.1.(|
00000590: 2E 39 33 37 32 39 38 AC 59 32 AE 33 AB 2E 31 32 |.937298.Y2.3..12|
000005A0: 30 31 36 37 36 AC 59 32 AE 32 AA 2E 34 33 36 31 |01676.Y2.2..4361|
000005B0: 38 33 36 AC 59 32 29 AD 5A 32 00 D9 0D AE 01 43 |836.Y2).Z2.....C|
000005C0: 35 B2 28 53 AC 4E 31 29 AB 28 50 AC 4E 32 AC BD |5.(S.N1).(P.N2..|
000005D0: 28 AB 31 AC 52 AC 54 29 29 00 E6 0D B3 01 43 36 |(.1.R.T)).....C6|
000005E0: B2 B5 28 43 35 29 00 0A 0E B8 01 50 35 B2 28 50 |..(C5).....P5.(P|
000005F0: AC 28 31 AB 4E 32 29 AC BD 28 52 AC 54 29 29 AB |.(1.N2)..(R.T)).|
00000600: 28 53 AC 28 31 AB 4E 31 29 29 00 17 0E BD 01 50 |(S.(1.N1)).....P|
00000610: 36 B2 B5 28 50 35 29 00 34 0E C2 01 46 31 B2 B5 |6..(P5).4...F1..|
00000620: 28 31 36 AC 28 43 35 AB B5 28 43 35 29 AA 2E 30 |(16.(C5..(C5)..0|
00000630: 33 31 29 29 00 3F 0E CC 01 8D 20 31 30 30 30 00 |31)).?.... 1000.|
00000640: 49 0E D6 01 57 24 B2 53 24 00 66 0E DB 01 46 31 |I...W$.S$.f...F1|
00000650: B2 B5 28 31 36 AC 28 50 35 AB B5 28 50 35 29 AA |..(16.(P5..(P5).|
00000660: 2E 30 33 31 29 29 00 71 0E E0 01 8D 20 31 30 30 |.031)).q.... 100|
00000670: 30 00 7B 0E EA 01 58 24 B2 53 24 00 A3 0E F4 01 |0.{...X$.S$.....|
00000680: 99 20 22 11 43 41 4C 4C 20 4F 50 54 49 4F 4E 20 |. ".CALL OPTION |
00000690: 56 41 4C 55 45 20 20 20 20 20 3A 22 3B 43 36 3B |VALUE :";C6;|
000006A0: 57 24 3A 00 CB 0E FE 01 99 20 22 11 50 55 54 20 |W$:...... ".PUT |
000006B0: 4F 50 54 49 4F 4E 20 56 41 4C 55 45 20 20 20 20 |OPTION VALUE |
000006C0: 20 20 3A 22 3B 50 36 3B 58 24 3A 00 E5 0E 03 02 | :";P6;X$:.....|
000006D0: 4E 31 B2 B5 28 31 30 30 30 AC 4E 31 AA 2E 35 29 |N1..(1000.N1..5)|
000006E0: AD 31 30 30 30 00 12 0F 08 02 99 20 22 11 48 45 |.1000...... ".HE|
000006F0: 44 47 45 20 52 41 54 49 4F 20 46 4F 52 20 41 20 |DGE RATIO FOR A |
00000700: 43 41 4C 4C 20 4F 50 54 49 4F 4E 20 3A 22 3B 4E |CALL OPTION :";N|
00000710: 31 3A 00 38 0F 12 02 99 20 22 11 11 11 41 4E 4F |1:.8.... "...ANO|
00000720: 54 48 45 52 20 53 54 4F 43 4B 20 3F 20 28 59 20 |THER STOCK ? (Y |
00000730: 4F 52 20 4E 29 20 22 3B 00 41 0F 1C 02 A1 20 47 |OR N) ";.A.... G|
00000740: 24 00 53 0F 26 02 8B 20 47 24 B2 22 22 20 89 20 |$.S.&.. G$."" . |
00000750: 35 34 30 00 66 0F 30 02 8B 20 47 24 B2 22 59 22 |540.f.0.. G$."Y"|
00000760: 20 89 20 31 30 30 00 6C 0F 3A 02 80 00 7E 0F E8 | . 100.l.:...~..|
00000770: 03 8B 20 46 31 B1 38 20 89 20 31 32 30 30 00 8C |.. F1.8 . 1200..|
00000780: 0F 1A 04 53 31 B2 35 AC 46 31 AA 31 00 9E 0F 33 |...S1.5.F1.1...3|
00000790: 04 53 24 B2 CA 28 45 24 2C 53 31 2C 35 29 00 A9 |.S$..(E$,S1,5)..|
000007A0: 0F 4C 04 89 20 31 34 30 30 00 BB 0F B0 04 53 31 |.L.. 1400.....S1|
000007B0: B2 35 AC 28 46 31 AB 38 29 AA 31 00 CD 0F E2 04 |.5.(F1.8).1.....|
000007C0: 53 24 B2 CA 28 46 24 2C 53 31 2C 35 29 00 D3 0F |S$..(F$,S1,5)...|
000007D0: 78 05 8E 00 FD 0F 50 C3 83 20 33 31 2C 32 38 2C |x.....P.. 31,28,|
000007E0: 33 31 2C 33 30 2C 33 31 2C 33 30 2C 33 31 2C 33 |31,30,31,30,31,3|
000007F0: 31 2C 33 30 2C 33 31 2C 33 30 2C 33 31 00 00 00 |1,30,31,30,31...|
..#.... FAIR OPTION VALUE..BY J.KOT.1...
. ".....".X.... "...PUT & CALL OPTION FA
IR VALUES":."...........(BLACK-SCHOLES)"
...#.. ".....THIS PROGRAM COMPUTES THE T
HEORETICAL":.Z.(.. "VALUE OF A EUROPEAN
TYPE PUT OR CALL":...-.. "OPTION USING T
HE VALUATION FORMULAS":.#.2.. "OF BLACK
& SCHOLES.".J.7.. "....PRESS ANY KEY TO
CONTINUE":.G.8.. .A(B).1.((.33267.B).1).
{.9.. M%(12),M$(12)...:.. I.1.12:.M%(I):
....<.. X$...A.. X$."". 60...F.E$."
1/16 1/8 3/16 1/4 5/16 3/8 7/16"...K
.F$." 1/2 9/16 5/811/16 3/413/16 7/81
5/16"...D.. ".....".7.N.. "STOCK NAME ?
...";S$.W.X.. ".STRIKING PRICE ?...";P.
T.... ".STOCK PRICE ?...";S...... ".TOD
AY'S DATE MM,DD,YY 00,00,80..........
";MB,DB,YB.C...TB.0:T1.YB.4.T. .. MB.2 .
210...... I.1 . MB.1.....TB.TB.M%(I)...
......H..(T1...(T1)).(MB.2). TB.TB.2.6.R
.TB.TB.365.YB..(T1).DB.W.... ".EXPIRATIO
N DATE MM,DD,YY 00,00,80..........";M
S,DS,YS.....TS.0:T1.YS.4...... MS.2 . 29
0...... I.1 . MS.1.....TS.TS.M%(I)......
...... (T1...(T1)).(MS.2). TS.TS.1...".T
S.TS.365.YS..(T1).DS...,.TT.TS.TB...6.T.
TT.365.25.?.@.. ".STOCK'S YEARLY HIGH +
...";Y1.E.J.. ".STOCK'S YEARLY LOW +..
.";Y2..T.V.(Y1.Y2).((Y1.Y2).2)...^.. ".
INTEREST RATE (PERCENT) +...";I...H.R.I
.100...R.D1.(.(S.P).(R.(V.V).2).T).(V..(
T))...|.D2.(.(S.P).(R.(V.V).2).T).(V..(T
)).....Y1..A(D1).....Y2..A(D2).7...Z1..(
2..)..(D1.D1.2).P...Z2..(2..)..(D2.D2.2)
.....N1.1.(.937298.Y1.3..1201676.Y1.2..4
361836.Y1).Z1.....N2.1.(.937298.Y2.3..12
01676.Y2.2..4361836.Y2).Z2.Y...C5.(S.N1)
.(P.N2..(.1.R.T)).....C6..(C5).....P5.(P
.(1.N2)..(R.T)).(S.(1.N1)).....P6..(P5).
4.B.F1..(16.(C5..(C5)..031)).?.L.. 1000.
I.V.W$.S$.F...F1..(16.(P5..(P5)..031)).Q
.... 1000.{...X$.S$...... ".CALL OPTION
VALUE :";C6;W$:.K.... ".PUT OPTION V
ALUE :";P6;X$:.....N1..(1000.N1..5)
.1000...... ".HEDGE RATIO FOR A CALL OPT
ION :";N1:.8.... "...ANOTHER STOCK ? (Y
OR N) ";.A.... G$.S.&.. G$."" . 540.F.0.
. G$."Y" . 100.L.:...~.... F1.8 . 1200..
...S1.5.F1.1...3.S$.J(E$,S1,5)...L.. 140
0.....S1.5.(F1.8).1.M...S$.J(F$,S1,5).S.
X.....PC. 31,28,31,30,31,30,31,31,30,31,
30,31...
> CLICK IMAGE PREVIEW FOR FULL MODAL