Multiple names: (AM) STOCK, STOCK (E), STOCKMARKET(AM), STOCK4, STOCK 4
FILE INFORMATION
FILENAME(S):
• (AM) STOCK<br>• STOCK (E)<br>• STOCKMARKET(AM)<br>• STOCK4<br>• STOCK 4
FILE TYPE(S): PRG
FILE SIZE: 5.8K
FIRST SEEN: 2025-11-30 21:07:41
APPEARS ON: 5 disk(s)
FILE HASH
4f7fab53da0fe753a5fc61011f3153e4eac91aa95d07449ce2eb73f629b8114d
FOUND ON DISKS (5 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LKP | (AM) STOCK | PRG | DuncanTwain | 17 | 0 | DOWNLOAD FILE |
| E KOOLEN 14B | STOCK (E) | PRG | DuncanTwain | 17 | 0 | DOWNLOAD FILE |
| SPELLEN | STOCKMARKET(AM) | PRG | DuncanTwain | 27 | 9 | DOWNLOAD FILE |
| 64 DEMO S | STOCK4 | PRG | DuncanTwain | 8 | 19 | DOWNLOAD FILE |
| H H SOFT 20 | STOCK 4 | PRG | DuncanTwain | 11 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 20 08 57 00 5A 24 B2 22 8F 22 AA 22 90 22 |.. .W.Z$."."."."|
00000010: AA 22 95 22 AA 22 9C 22 AA 22 96 22 AA 22 1E 22 |."."."."."."."."|
00000020: 00 3E 08 5A 00 47 B2 31 33 AC 34 30 39 36 3A 97 |.>.Z.G.13.4096:.|
00000030: 47 AA 33 32 2C 32 3A 97 47 AA 33 33 2C 37 00 49 |G.32,2:.G.33,7.I|
00000040: 08 64 00 8F 2A 31 30 30 2A 00 4F 08 6E 00 8F 00 |.d..*100*.O.n...|
00000050: 7D 08 78 00 86 20 53 4E 24 28 36 29 2C 53 41 28 |}.x.. SN$(6),SA(|
00000060: 36 29 2C 50 4E 24 28 36 29 2C 50 53 28 36 2C 36 |6),PN$(6),PS(6,6|
00000070: 29 2C 50 41 28 36 29 2C 44 4E 28 33 29 00 88 08 |),PA(6),DN(3)...|
00000080: 82 00 8D 20 31 30 30 30 00 97 08 8C 00 81 20 52 |... 1000...... R|
00000090: B2 31 20 A4 20 4E 52 00 AB 08 96 00 3A 44 31 B2 |.1 . NR.....:D1.|
000000A0: B5 28 36 AC BB 28 31 29 29 AA 31 00 BF 08 A0 00 |.(6..(1)).1.....|
000000B0: 3A 44 32 B2 B5 28 33 AC BB 28 31 29 29 AA 31 00 |:D2..(3..(1)).1.|
000000C0: E2 08 AA 00 3A 44 33 B2 B5 28 33 AC BB 28 31 29 |....:D3..(3..(1)|
000000D0: 29 AA 31 3A 20 44 33 B2 35 AC 32 AE 28 44 33 AB |).1: D3.5.2.(D3.|
000000E0: 31 29 00 FF 08 B4 00 3A 99 3A 20 99 20 53 4E 24 |1).....:.: . SN$|
000000F0: 28 44 31 29 3B 44 4E 24 28 44 32 29 3B 44 33 00 |(D1);DN$(D2);D3.|
00000100: 1A 09 BE 00 3A 91 20 44 32 20 8D 20 35 30 30 30 |....:. D2 . 5000|
00000110: 2C 35 33 30 30 2C 35 36 30 30 00 26 09 C8 00 3A |,5300,5600.&...:|
00000120: 8D 20 39 35 30 30 00 32 09 D3 00 3A 99 20 22 13 |. 9500.2...:. ".|
00000130: 22 3B 00 50 09 D4 00 3A 99 20 22 11 11 11 11 11 |";.P...:. ".....|
00000140: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 22 |..............."|
00000150: 00 6B 09 DC 00 3A 99 20 42 4C 24 3A 20 99 20 42 |.k...:. BL$: . B|
00000160: 4C 24 3A 20 99 20 22 91 91 91 22 00 73 09 E6 00 |L$: . "...".s...|
00000170: 82 20 52 00 83 09 F0 00 81 54 B2 31 A4 31 35 30 |. R......T.1.150|
00000180: 30 3A 82 00 B2 09 F5 00 8D 36 30 30 30 3A 99 3A |0:.......6000:.:|
00000190: 20 99 20 22 4F 4E 45 20 4D 4F 52 45 20 52 4F 55 | . "ONE MORE ROU|
000001A0: 4E 44 20 59 2F 4E 20 3F 22 3B 3A 20 8D 20 38 30 |ND Y/N ?";: . 80|
000001B0: 30 30 00 DF 09 FA 00 8B 20 57 4B 24 B3 B1 22 4E |00...... WK$.."N|
000001C0: 22 20 AF 20 57 4B 24 B3 B1 22 59 22 20 A7 20 99 |" . WK$.."Y" . .|
000001D0: 20 4D 31 24 3B 4D 32 24 3A 20 89 20 32 34 30 00 | M1$;M2$: . 240.|
000001E0: FC 09 04 01 8B 20 57 4B 24 B2 22 4E 22 20 A7 20 |..... WK$."N" . |
000001F0: 93 20 22 44 52 49 56 45 52 22 2C 38 00 18 0A 0E |. "DRIVER",8....|
00000200: 01 81 20 49 B2 31 20 A4 20 4E 32 3A 20 8D 20 33 |.. I.1 . N2: . 3|
00000210: 33 30 30 3A 20 82 20 49 00 2C 0A 18 01 8B 20 4E |300: . I.,.... N|
00000220: 31 B2 30 20 A7 20 8D 20 37 30 30 30 00 3F 0A 1D |1.0 . . 7000.?..|
00000230: 01 99 20 22 93 22 3B 3A 20 8D 20 32 30 30 30 00 |.. ".";: . 2000.|
00000240: 49 0A 22 01 89 20 31 34 30 00 55 0A E8 03 8F 2A |I.".. 140.U....*|
00000250: 31 30 30 30 2A 00 91 0A FC 03 83 20 22 53 49 4C |1000*...... "SIL|
00000260: 56 45 52 22 2C 22 20 20 49 4E 44 20 22 2C 22 20 |VER"," IND "," |
00000270: 47 52 41 49 4E 22 2C 22 20 20 4F 49 4C 20 22 2C |GRAIN"," OIL ",|
00000280: 22 20 47 4F 4C 44 20 22 2C 22 20 42 4F 4E 44 53 |" GOLD "," BONDS|
00000290: 22 00 B9 0A 06 04 81 20 49 B2 31 20 A4 20 36 3A |"...... I.1 . 6:|
000002A0: 20 53 41 28 49 29 B2 31 30 30 3A 20 87 20 53 4E | SA(I).100: . SN|
000002B0: 24 28 49 29 3A 20 82 20 49 00 D9 0A 10 04 83 20 |$(I): . I...... |
000002C0: 22 20 20 55 50 20 20 22 2C 22 20 44 4F 57 4E 22 |" UP "," DOWN"|
000002D0: 2C 22 20 20 44 49 56 20 22 00 F6 0A 1A 04 81 20 |," DIV "...... |
000002E0: 49 B2 31 20 A4 20 33 3A 20 87 20 44 4E 24 28 49 |I.1 . 3: . DN$(I|
000002F0: 29 3A 20 82 20 49 00 0B 0B 1B 04 4D 31 24 B2 22 |): . I.....M1$."|
00000300: 49 4E 56 41 4C 49 44 20 2D 20 22 00 21 0B 1C 04 |INVALID - ".!...|
00000310: 4D 32 24 B2 22 54 59 50 45 20 59 20 4F 52 20 4E |M2$."TYPE Y OR N|
00000320: 22 00 3A 0B 1D 04 4D 33 24 B2 22 4D 55 53 54 20 |".:...M3$."MUST |
00000330: 42 45 20 31 20 54 4F 20 36 22 00 56 0B 1E 04 4D |BE 1 TO 6".V...M|
00000340: 34 24 B2 22 4D 55 53 54 20 42 45 20 31 2C 20 32 |4$."MUST BE 1, 2|
00000350: 20 4F 52 20 33 22 00 6F 0B 1F 04 4D 35 24 B2 22 | OR 3".o...M5$."|
00000360: 54 59 50 45 20 42 2C 20 53 20 4F 52 20 4E 22 00 |TYPE B, S OR N".|
00000370: 93 0B 20 04 4D 36 24 B2 22 4D 55 53 54 20 42 45 |.. .M6$."MUST BE|
00000380: 20 41 20 4D 55 4C 54 49 50 4C 45 20 4F 46 20 35 | A MULTIPLE OF 5|
00000390: 30 30 22 00 9D 0B 21 04 99 20 22 93 22 00 CB 0B |00"...!.. "."...|
000003A0: 24 04 99 20 22 48 4F 57 20 4D 41 4E 59 20 50 4C |$.. "HOW MANY PL|
000003B0: 41 59 45 52 53 3F 22 3B 3A 20 8D 20 38 30 30 30 |AYERS?";: . 8000|
000003C0: 3A 20 4E 32 B2 C5 28 57 4B 24 29 00 F1 0B 2E 04 |: N2..(WK$).....|
000003D0: 8B 20 4E 32 B3 31 20 B0 20 4E 32 B1 36 20 A7 20 |. N2.1 . N2.6 . |
000003E0: 99 20 4D 31 24 3B 4D 33 24 3A 20 89 20 31 30 36 |. M1$;M3$: . 106|
000003F0: 30 00 0B 0C 38 04 8B 20 4E 32 B2 31 20 A7 20 4E |0...8.. N2.1 . N|
00000400: 31 B2 30 3A 20 89 20 31 31 32 30 00 3F 0C 42 04 |1.0: . 1120.?.B.|
00000410: 99 20 22 4D 41 59 20 54 48 45 20 43 4F 4D 50 55 |. "MAY THE COMPU|
00000420: 54 45 52 20 50 4C 41 59 20 41 4C 53 4F 2E 2E 2E |TER PLAY ALSO...|
00000430: 20 59 2F 4E 3F 22 3B 3A 20 8D 20 38 30 30 30 00 | Y/N?";: . 8000.|
00000440: 6D 0C 4C 04 8B 20 57 4B 24 B3 B1 22 4E 22 20 AF |m.L.. WK$.."N" .|
00000450: 20 57 4B 24 B3 B1 22 59 22 20 A7 20 99 20 4D 31 | WK$.."Y" . . M1|
00000460: 24 3B 4D 32 24 3A 20 89 20 31 30 39 30 00 88 0C |$;M2$: . 1090...|
00000470: 56 04 4E 31 B2 30 3A 20 8B 20 57 4B 24 B2 22 4E |V.N1.0: . WK$."N|
00000480: 22 20 A7 20 4E 31 B2 31 00 97 0C 60 04 81 20 49 |" . N1.1...`.. I|
00000490: B2 31 20 A4 20 4E 32 00 B6 0C 6A 04 3A 81 20 4A |.1 . N2...j.:. J|
000004A0: B2 31 20 A4 20 36 3A 20 50 53 28 49 2C 4A 29 B2 |.1 . 6: PS(I,J).|
000004B0: 30 3A 20 82 20 4A 00 C6 0C 74 04 3A 50 41 28 49 |0: . J...t.:PA(I|
000004C0: 29 B2 35 30 30 30 00 F5 0C 7E 04 3A 99 20 22 50 |).5000...~.:. "P|
000004D0: 4C 41 59 45 52 22 3B 49 3B 22 57 48 41 54 20 49 |LAYER";I;"WHAT I|
000004E0: 53 20 59 4F 55 52 20 4E 41 4D 45 3F 22 3A 20 8D |S YOUR NAME?": .|
000004F0: 20 38 35 30 30 00 05 0D 83 04 3A 50 4E 24 28 49 | 8500.....:PN$(I|
00000500: 29 B2 4E 41 24 00 32 0D 88 04 3A 8B 20 C3 28 4E |).NA$.2...:. .(N|
00000510: 41 24 29 B1 32 30 20 A7 20 99 20 22 4E 41 4D 45 |A$).20 . . "NAME|
00000520: 20 54 4F 4F 20 4C 4F 4E 47 22 3A 20 89 20 31 31 | TOO LONG": . 11|
00000530: 35 30 00 60 0D 8D 04 3A 8B 20 C3 28 4E 41 24 29 |50.`...:. .(NA$)|
00000540: B3 20 31 20 A7 20 99 20 22 4D 55 53 54 20 48 41 |. 1 . . "MUST HA|
00000550: 56 45 20 4E 41 4D 45 22 3A 20 89 20 31 31 35 30 |VE NAME": . 1150|
00000560: 00 68 0D 92 04 82 20 49 00 94 0D 9C 04 50 4E 24 |.h.... I.....PN$|
00000570: 28 30 29 B2 22 43 4F 4D 4D 4F 44 4F 52 45 20 43 |(0)."COMMODORE C|
00000580: 4F 4D 50 55 54 45 52 22 3A 20 50 41 28 30 29 B2 |OMPUTER": PA(0).|
00000590: 32 30 30 30 00 B4 0D A6 04 81 20 49 B2 31 20 A4 |2000...... I.1 .|
000005A0: 20 36 3A 20 50 53 28 30 2C 49 29 B2 35 30 30 3A | 6: PS(0,I).500:|
000005B0: 20 82 20 49 00 BF 0D B0 04 8D 20 33 30 30 30 00 | . I...... 3000.|
000005C0: D8 0D BA 04 8B 20 4E 31 B2 30 20 A7 20 49 B2 30 |..... N1.0 . I.0|
000005D0: 3A 20 8D 20 34 30 30 30 00 00 0E C4 04 99 20 22 |: . 4000...... "|
000005E0: 48 4F 57 20 4D 41 4E 59 20 43 4F 4D 50 4C 45 54 |HOW MANY COMPLET|
000005F0: 45 20 52 4F 55 4E 44 53 20 42 45 46 4F 52 45 22 |E ROUNDS BEFORE"|
00000600: 00 2A 0E CE 04 99 20 22 42 55 59 49 4E 47 20 41 |.*.... "BUYING A|
00000610: 4E 44 20 53 45 4C 4C 49 4E 47 20 53 54 4F 43 4B |ND SELLING STOCK|
00000620: 53 20 28 31 2D 33 29 3F 22 3B 00 40 0E D8 04 8D |S (1-3)?";.@....|
00000630: 20 38 30 30 30 3A 20 4E 52 B2 C5 28 57 4B 24 29 | 8000: NR..(WK$)|
00000640: 00 66 0E E2 04 8B 20 4E 52 B3 31 20 B0 20 4E 52 |.f.... NR.1 . NR|
00000650: B1 33 20 A7 20 99 20 4D 31 24 3B 4D 34 24 3A 20 |.3 . . M1$;M4$: |
00000660: 89 20 31 32 32 30 00 8A 0E EC 04 4E 52 B2 4E 52 |. 1220.....NR.NR|
00000670: AC 28 31 AB 4E 31 AA 4E 32 29 3A 20 99 20 22 93 |.(1.N1.N2): . ".|
00000680: 22 3B 3A 20 8D 20 32 30 30 30 00 BC 0E F6 04 42 |";: . 2000.....B|
00000690: 4C 24 B2 22 20 20 20 20 20 20 20 20 20 20 20 20 |L$." |
000006A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000006B0: 20 20 20 20 20 20 20 20 20 20 20 22 00 C2 0E 00 | "....|
000006C0: 05 8E 00 CE 0E D0 07 8F 2A 32 30 30 30 2A 00 E4 |........*2000*..|
000006D0: 0E EE 07 81 20 49 B2 31 39 30 20 A4 20 30 20 A9 |.... I.190 . 0 .|
000006E0: 20 AB 31 30 00 0A 0F F8 07 3A 47 4E 24 B2 22 20 | .10.....:GN$." |
000006F0: 20 20 22 AA C4 28 49 29 3A 20 47 4E 24 B2 22 1F | "..(I): GN$.".|
00000700: 22 AA C9 28 47 4E 24 2C 33 29 00 1D 0F 16 08 3A |"..(GN$,3).....:|
00000710: 47 4E 24 B2 47 4E 24 AA 22 C0 C0 C0 22 00 30 0F |GN$.GN$."...".0.|
00000720: 20 08 3A 81 20 4A B2 31 20 A4 20 36 3A 5A B2 30 | .:. J.1 . 6:Z.0|
00000730: 00 3F 0F 2A 08 3A 3A 57 4B 24 B2 22 C0 C0 22 00 |.?.*.::WK$."..".|
00000740: 61 0F 34 08 3A 3A 8B 20 53 41 28 4A 29 B1 49 20 |a.4.::. SA(J).I |
00000750: A7 20 5A B2 AB 31 3A 57 4B 24 B2 22 12 20 20 92 |. Z..1:WK$.". .|
00000760: 22 00 81 0F 3E 08 3A 3A 8B 20 53 41 28 4A 29 B2 |"...>.::. SA(J).|
00000770: 49 20 A7 20 5A B2 AB 31 3A 57 4B 24 B2 22 A2 A2 |I . Z..1:WK$."..|
00000780: 22 00 88 0F 48 08 3A 3A 00 A5 0F 62 08 8B 5A A7 |"...H.::...b..Z.|
00000790: 57 4B 24 B2 CA 28 5A 24 2C 4A 2C 31 29 AA 57 4B |WK$..(Z$,J,1).WK|
000007A0: 24 AA 22 1F 22 00 C1 0F 63 08 3A 3A 8B 20 4A B3 |$."."...c.::. J.|
000007B0: 36 20 A7 20 57 4B 24 B2 57 4B 24 AA 22 C0 C0 C0 |6 . WK$.WK$."...|
000007C0: 22 00 D5 0F 64 08 47 4E 24 B2 47 4E 24 AA 57 4B |"...d.GN$.GN$.WK|
000007D0: 24 AA 22 C3 22 00 DE 0F 66 08 3A 82 20 4A 00 E9 |$."."...f.:. J..|
000007E0: 0F 70 08 3A 99 20 47 4E 24 00 F1 0F 7A 08 82 20 |.p.:. GN$...z.. |
000007F0: 49 00 27 10 84 08 99 20 22 20 20 20 22 3B 53 4E |I.'.... " ";SN|
00000800: 24 28 31 29 3B 53 4E 24 28 32 29 3B 53 4E 24 28 |$(1);SN$(2);SN$(|
00000810: 33 29 3B 53 4E 24 28 34 29 3B 53 4E 24 28 35 29 |3);SN$(4);SN$(5)|
00000820: 3B 53 4E 24 28 36 29 00 2D 10 8E 08 8E 00 39 10 |;SN$(6).-.....9.|
00000830: B8 0B 8F 2A 33 30 30 30 2A 00 48 10 CC 0B 81 20 |...*3000*.H.... |
00000840: 49 B2 31 20 A4 20 4E 32 00 54 10 D6 0B 3A 8D 20 |I.1 . N2.T...:. |
00000850: 34 30 30 30 00 75 10 E0 0B 3A 99 20 22 59 4F 55 |4000.u...:. "YOU|
00000860: 20 4D 55 53 54 20 42 55 59 20 53 4F 4D 45 20 53 | MUST BUY SOME S|
00000870: 54 4F 43 4B 22 00 81 10 EA 0B 3A 8D 20 39 30 30 |TOCK".....:. 900|
00000880: 30 00 8D 10 1C 0C 3A 8D 20 34 34 30 30 00 BA 10 |0.....:. 4400...|
00000890: 26 0C 3A 8B 20 53 4E B2 37 20 A7 20 99 20 22 49 |&.:. SN.7 . . "I|
000008A0: 4E 53 55 46 46 49 43 49 45 4E 54 20 46 55 4E 44 |NSUFFICIENT FUND|
000008B0: 53 22 3A 20 89 20 33 30 35 30 00 C6 10 30 0C 3A |S": . 3050...0.:|
000008C0: 8D 20 33 33 30 30 00 DF 10 3A 0C 3A 8B 20 50 41 |. 3300...:.:. PA|
000008D0: 28 49 29 B2 35 30 30 30 20 89 20 33 30 33 30 00 |(I).5000 . 3030.|
000008E0: E7 10 44 0C 82 20 49 00 ED 10 4E 0C 8E 00 F9 10 |..D.. I...N.....|
000008F0: E4 0C 8F 2A 33 33 30 30 2A 00 04 11 F8 0C 8D 20 |...*3300*...... |
00000900: 34 30 30 30 00 32 11 02 0D 99 20 22 42 55 59 2C |4000.2.... "BUY,|
00000910: 20 53 45 4C 4C 20 4F 52 20 4E 4F 54 48 49 4E 47 | SELL OR NOTHING|
00000920: 20 42 2F 53 2F 4E 20 3F 22 3B 3A 20 8D 20 38 30 | B/S/N ?";: . 80|
00000930: 30 30 00 6B 11 0C 0D 8B 20 57 4B 24 B3 B1 22 4E |00.k.... WK$.."N|
00000940: 22 20 AF 20 57 4B 24 B3 B1 22 53 22 20 AF 20 57 |" . WK$.."S" . W|
00000950: 4B 24 B3 B1 22 42 22 20 A7 20 99 20 4D 31 24 3B |K$.."B" . . M1$;|
00000960: 4D 35 24 3A 20 89 20 33 33 33 30 00 7D 11 16 0D |M5$: . 3330.}...|
00000970: 8B 20 57 4B 24 B2 22 4E 22 20 A7 20 8E 00 89 11 |. WK$."N" . ....|
00000980: 20 0D 53 42 24 B2 57 4B 24 00 94 11 34 0D 8D 20 | .SB$.WK$...4.. |
00000990: 39 30 30 30 00 AB 11 66 0D 8B 20 53 42 24 B2 22 |9000...f.. SB$."|
000009A0: 53 22 20 A7 20 8D 20 34 36 30 30 00 C2 11 70 0D |S" . . 4600...p.|
000009B0: 8B 20 53 42 24 B2 22 42 22 20 A7 20 8D 20 34 34 |. SB$."B" . . 44|
000009C0: 30 30 00 D6 11 7A 0D 8B 20 53 4E B3 37 20 A7 20 |00...z.. SN.7 . |
000009D0: 89 20 33 33 30 30 00 05 12 84 0D 8B 20 53 42 24 |. 3300...... SB$|
000009E0: B2 22 53 22 20 A7 20 99 20 22 59 4F 55 20 44 4F |."S" . . "YOU DO|
000009F0: 4E 27 54 20 4F 57 4E 20 45 4E 4F 55 47 48 20 53 |N'T OWN ENOUGH S|
00000A00: 54 4F 43 4B 22 00 35 12 8E 0D 8B 20 53 42 24 B2 |TOCK".5.... SB$.|
00000A10: 22 42 22 20 A7 20 99 20 22 59 4F 55 20 44 4F 4E |"B" . . "YOU DON|
00000A20: 27 54 20 48 41 56 45 20 45 4E 4F 55 47 48 20 4D |'T HAVE ENOUGH M|
00000A30: 4F 4E 45 59 22 00 4B 12 98 0D 81 20 4B B2 31 20 |ONEY".K.... K.1 |
00000A40: A4 20 32 30 30 30 3A 20 82 20 4B 00 56 12 A2 0D |. 2000: . K.V...|
00000A50: 89 20 33 33 30 30 00 62 12 A0 0F 8F 2A 34 30 30 |. 3300.b....*400|
00000A60: 30 2A 00 83 12 B4 0F 99 20 22 93 20 20 20 20 50 |0*...... ". P|
00000A70: 4F 52 54 46 4F 4C 49 4F 20 2D 20 22 3B 50 4E 24 |ORTFOLIO - ";PN$|
00000A80: 28 49 29 00 A3 12 BE 0F 57 4B B2 C3 28 50 4E 24 |(I).....WK..(PN$|
00000A90: 28 49 29 29 AA 31 32 3A 20 57 4B 24 B2 22 20 20 |(I)).12: WK$." |
00000AA0: 20 20 22 00 C4 12 C8 0F 81 20 4B B2 31 20 A4 20 | "...... K.1 . |
00000AB0: 57 4B 3A 20 57 4B 24 B2 57 4B 24 AA 22 A3 22 3A |WK: WK$.WK$.".":|
00000AC0: 20 82 20 4B 00 CE 12 D2 0F 99 20 57 4B 24 00 F0 | . K...... WK$..|
00000AD0: 12 DC 0F 99 20 22 20 23 20 20 44 45 53 43 20 20 |.... " # DESC |
00000AE0: 56 41 4C 55 45 20 20 48 4F 4C 44 49 4E 47 53 22 |VALUE HOLDINGS"|
00000AF0: 00 12 13 E6 0F 99 20 22 20 A3 A0 A0 A3 A3 A3 A3 |...... " .......|
00000B00: A0 A0 A3 A3 A3 A3 A3 A0 A0 A3 A3 A3 A3 A3 A3 A3 |................|
00000B10: A3 22 00 20 13 FA 0F 81 20 4B B2 31 20 A4 20 36 |.". .... K.1 . 6|
00000B20: 00 44 13 04 10 3A 57 4B 24 B2 22 20 20 22 AA C4 |.D...:WK$." "..|
00000B30: 28 53 41 28 4B 29 29 3A 20 56 24 B2 C9 28 57 4B |(SA(K)): V$..(WK|
00000B40: 24 2C 33 29 00 68 13 22 10 3A 57 4B B2 50 53 28 |$,3).h.".:WK.PS(|
00000B50: 49 2C 4B 29 3A 20 57 4B 24 B2 22 20 20 20 20 20 |I,K): WK$." |
00000B60: 20 22 AA C4 28 57 4B 29 00 7A 13 2C 10 3A 57 4B | "..(WK).z.,.:WK|
00000B70: 24 B2 C9 28 57 4B 24 2C 37 29 00 96 13 36 10 3A |$..(WK$,7)...6.:|
00000B80: 8B 20 57 4B B3 31 30 30 30 20 A7 20 48 24 B2 22 |. WK.1000 . H$."|
00000B90: 20 22 AA 57 4B 24 00 C0 13 40 10 3A 8B 20 57 4B | ".WK$...@.:. WK|
00000BA0: B1 20 35 30 30 20 A7 20 48 24 B2 C8 28 57 4B 24 |. 500 . H$..(WK$|
00000BB0: 2C 34 29 AA 22 2C 22 AA C9 28 57 4B 24 2C 33 29 |,4).","..(WK$,3)|
00000BC0: 00 D6 13 4A 10 3A 57 4B 24 B2 22 20 22 AA C4 28 |...J.:WK$." "..(|
00000BD0: 4B 29 AA 22 20 22 00 F9 13 54 10 3A 99 20 57 4B |K)." "...T.:. WK|
00000BE0: 24 3B 53 4E 24 28 4B 29 3B 22 20 20 22 3B 56 24 |$;SN$(K);" ";V$|
00000BF0: 3B 22 20 20 20 22 3B 48 24 00 01 14 5E 10 82 20 |;" ";H$...^.. |
00000C00: 4B 00 27 14 68 10 99 3A 20 99 20 22 43 41 53 48 |K.'.h..: . "CASH|
00000C10: 20 4F 4E 20 48 41 4E 44 20 2D 2D 2D 20 22 3B 50 | ON HAND --- ";P|
00000C20: 41 28 49 29 3A 20 99 00 2D 14 72 10 8E 00 39 14 |A(I): ..-.r...9.|
00000C30: 30 11 8F 2A 34 34 30 30 2A 00 54 14 3A 11 57 4B |0..*4400*.T.:.WK|
00000C40: B2 53 41 28 53 4E 29 AC 53 51 AD 31 30 30 3A 20 |.SA(SN).SQ.100: |
00000C50: 50 54 B2 31 00 6D 14 44 11 8B 20 57 4B B1 50 41 |PT.1.m.D.. WK.PA|
00000C60: 28 49 29 20 A7 20 53 4E B2 37 3A 20 8E 00 80 14 |(I) . SN.7: ....|
00000C70: 4E 11 50 41 28 49 29 B2 50 41 28 49 29 AB 57 4B |N.PA(I).PA(I).WK|
00000C80: 00 99 14 58 11 50 53 28 49 2C 53 4E 29 B2 50 53 |...X.PS(I,SN).PS|
00000C90: 28 49 2C 53 4E 29 AA 53 51 00 9F 14 62 11 8E 00 |(I,SN).SQ...b...|
00000CA0: AB 14 F8 11 8F 2A 34 36 30 30 2A 00 B4 14 02 12 |.....*4600*.....|
00000CB0: 50 54 B2 31 00 D0 14 0C 12 8B 20 53 51 B1 50 53 |PT.1...... SQ.PS|
00000CC0: 28 49 2C 53 4E 29 20 A7 20 53 4E B2 37 3A 20 8E |(I,SN) . SN.7: .|
00000CD0: 00 EE 14 16 12 50 41 28 49 29 B2 50 41 28 49 29 |.....PA(I).PA(I)|
00000CE0: AA 53 41 28 53 4E 29 AC 53 51 AD 31 30 30 00 07 |.SA(SN).SQ.100..|
00000CF0: 15 20 12 50 53 28 49 2C 53 4E 29 B2 50 53 28 49 |. .PS(I,SN).PS(I|
00000D00: 2C 53 4E 29 AB 53 51 00 0D 15 2A 12 8E 00 19 15 |,SN).SQ...*.....|
00000D10: 88 13 8F 2A 35 30 30 30 2A 00 2E 15 92 13 53 41 |...*5000*.....SA|
00000D20: 28 44 31 29 B2 53 41 28 44 31 29 AA 44 33 00 43 |(D1).SA(D1).D3.C|
00000D30: 15 9C 13 8B 20 53 41 28 44 31 29 B3 32 30 30 20 |.... SA(D1).200 |
00000D40: A7 20 8E 00 52 15 A6 13 53 41 28 44 31 29 B2 31 |. ..R...SA(D1).1|
00000D50: 30 30 00 62 15 B0 13 81 20 49 B2 4E 31 20 A4 20 |00.b.... I.N1 . |
00000D60: 4E 32 00 7B 15 BA 13 3A 50 53 28 49 2C 44 31 29 |N2.{...:PS(I,D1)|
00000D70: B2 50 53 28 49 2C 44 31 29 AC 32 00 83 15 C4 13 |.PS(I,D1).2.....|
00000D80: 82 20 49 00 89 15 CE 13 8E 00 95 15 B4 14 8F 2A |. I............*|
00000D90: 35 33 30 30 2A 00 AA 15 BE 14 53 41 28 44 31 29 |5300*.....SA(D1)|
00000DA0: B2 53 41 28 44 31 29 AB 44 33 00 BD 15 C8 14 8B |.SA(D1).D3......|
00000DB0: 20 53 41 28 44 31 29 B1 30 20 A7 20 8E 00 CC 15 | SA(D1).0 . ....|
00000DC0: D2 14 53 41 28 44 31 29 B2 31 30 30 00 DC 15 DC |..SA(D1).100....|
00000DD0: 14 81 20 49 B2 4E 31 20 A4 20 4E 32 00 EC 15 E6 |.. I.N1 . N2....|
00000DE0: 14 3A 50 53 28 49 2C 44 31 29 B2 30 00 F4 15 F0 |.:PS(I,D1).0....|
00000DF0: 14 82 20 49 00 FA 15 FA 14 8E 00 06 16 E0 15 8F |.. I............|
00000E00: 2A 35 36 30 30 2A 00 1B 16 EA 15 8B 20 53 41 28 |*5600*...... SA(|
00000E10: 44 31 29 B3 31 30 30 20 A7 20 8E 00 2B 16 F4 15 |D1).100 . ..+...|
00000E20: 81 20 49 B2 4E 31 20 A4 20 4E 32 00 4C 16 FE 15 |. I.N1 . N2.L...|
00000E30: 3A 50 41 28 49 29 B2 50 41 28 49 29 AA 50 53 28 |:PA(I).PA(I).PS(|
00000E40: 49 2C 44 31 29 AC 44 33 AD 31 30 30 00 54 16 08 |I,D1).D3.100.T..|
00000E50: 16 82 20 49 00 5A 16 12 16 8E 00 66 16 70 17 8F |.. I.Z.....f.p..|
00000E60: 2A 36 30 30 30 2A 00 71 16 84 17 99 20 22 93 22 |*6000*.q.... "."|
00000E70: 3B 00 99 16 8E 17 99 20 22 50 4C 41 59 45 52 20 |;...... "PLAYER |
00000E80: 4E 41 4D 45 20 20 20 20 20 20 20 20 20 20 43 41 |NAME CA|
00000E90: 53 48 20 56 41 4C 55 45 22 00 C1 16 98 17 99 20 |SH VALUE"...... |
00000EA0: 22 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 20 20 20 20 |"........... |
00000EB0: 20 20 20 20 20 20 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 | ..........|
00000EC0: 22 00 DC 16 A2 17 81 20 4B B2 4E 31 20 A4 20 4E |"...... K.N1 . N|
00000ED0: 32 3A 53 28 4B 29 B2 50 41 28 4B 29 00 EB 16 AC |2:S(K).PA(K)....|
00000EE0: 17 3A 81 20 4A B2 31 20 A4 20 36 00 0F 17 B6 17 |.:. J.1 . 6.....|
00000EF0: 3A 3A 50 41 28 4B 29 B2 50 41 28 4B 29 AA 53 41 |::PA(K).PA(K).SA|
00000F00: 28 4A 29 AC 50 53 28 4B 2C 4A 29 AD 31 30 30 00 |(J).PS(K,J).100.|
00000F10: 18 17 C0 17 3A 82 20 4A 00 20 17 C2 17 82 20 4B |....:. J. .... K|
00000F20: 00 30 17 C4 17 81 20 4B B2 4E 31 20 A4 20 4E 32 |.0.... K.N1 . N2|
00000F30: 00 3B 17 C6 17 3A 57 4B B2 AB 31 00 4C 17 C8 17 |.;...:WK..1.L...|
00000F40: 3A 81 20 4A B2 4E 31 20 A4 20 4E 32 00 6D 17 CA |:. J.N1 . N2.m..|
00000F50: 17 3A 3A 8B 20 50 41 28 4A 29 B1 57 4B 20 A7 20 |.::. PA(J).WK . |
00000F60: 57 4B B2 50 41 28 4A 29 3A 20 49 B2 4A 00 76 17 |WK.PA(J): I.J.v.|
00000F70: CC 17 3A 82 20 4A 00 94 17 D4 17 3A 57 4B 24 B2 |..:. J.....:WK$.|
00000F80: 22 20 20 20 20 20 20 20 20 20 22 AA C4 28 50 41 |" "..(PA|
00000F90: 28 49 29 29 00 B3 17 DE 17 3A 57 4B 24 B2 C9 28 |(I)).....:WK$..(|
00000FA0: 57 4B 24 2C 38 29 3A 20 56 24 B2 C8 28 57 4B 24 |WK$,8): V$..(WK$|
00000FB0: 2C 32 29 00 CF 17 E8 17 3A 8B 20 56 24 B3 B1 22 |,2).....:. V$.."|
00000FC0: 20 20 22 20 A7 20 56 24 B2 56 24 AA 22 2C 22 00 | " . V$.V$.",".|
00000FD0: EB 17 ED 17 3A 8B 20 56 24 B2 20 22 20 20 22 20 |....:. V$. " " |
00000FE0: A7 20 56 24 B2 56 24 AA 22 20 22 00 01 18 F2 17 |. V$.V$." ".....|
00000FF0: 3A 56 24 B2 56 24 AA CA 28 57 4B 24 2C 33 2C 33 |:V$.V$..(WK$,3,3|
00001000: 29 00 21 18 FC 17 3A 8B 20 C9 28 56 24 2C 31 29 |).!...:. .(V$,1)|
00001010: B3 B1 22 20 22 20 A7 20 56 24 B2 56 24 AA 22 2C |.." " . V$.V$.",|
00001020: 22 00 41 18 01 18 3A 8B 20 C9 28 56 24 2C 31 29 |".A...:. .(V$,1)|
00001030: B2 20 22 20 22 20 A7 20 56 24 B2 56 24 AA 22 20 |. " " . V$.V$." |
00001040: 22 00 55 18 06 18 3A 56 24 B2 56 24 AA C9 28 57 |".U...:V$.V$..(W|
00001050: 4B 24 2C 33 29 00 6E 18 10 18 3A 99 20 50 4E 24 |K$,3).n...:. PN$|
00001060: 28 49 29 3B A3 32 31 29 3B 56 24 3A 20 99 00 7C |(I);.21);V$: ..||
00001070: 18 15 18 3A 50 41 28 49 29 B2 AB 31 00 84 18 1A |...:PA(I)..1....|
00001080: 18 82 20 4B 00 9E 18 1F 18 81 4B B2 4E 31 A4 4E |.. K......K.N1.N|
00001090: 32 3A 50 41 28 4B 29 B2 53 28 4B 29 3A 82 00 A4 |2:PA(K).S(K):...|
000010A0: 18 24 18 8E 00 B0 18 58 1B 8F 2A 37 30 30 30 2A |.$.....X..*7000*|
000010B0: 00 C6 18 6C 1B 49 B2 30 3A 20 50 54 B2 30 3A 20 |...l.I.0: PT.0: |
000010C0: 8D 20 34 30 30 30 00 E2 18 76 1B 81 20 53 4E B2 |. 4000...v.. SN.|
000010D0: 31 20 A4 20 36 3A 20 53 51 B2 50 53 28 30 2C 53 |1 . 6: SQ.PS(0,S|
000010E0: 4E 29 00 18 19 8A 1B 3A 8B 20 53 41 28 53 4E 29 |N).....:. SA(SN)|
000010F0: B3 39 35 20 AF 20 53 51 B1 30 20 A7 20 99 20 22 |.95 . SQ.0 . . "|
00001100: 53 45 4C 4C 22 3B 53 51 3B 53 4E 24 28 53 4E 29 |SELL";SQ;SN$(SN)|
00001110: 3A 20 8D 20 34 36 30 30 00 21 19 94 1B 82 20 53 |: . 4600.!.... S|
00001120: 4E 00 37 19 99 1B 81 20 4B B2 31 20 A4 20 31 35 |N.7.... K.1 . 15|
00001130: 30 30 3A 20 82 20 4B 00 53 19 9E 1B 8B 20 50 41 |00: . K.S.... PA|
00001140: 28 30 29 B3 36 30 30 20 A7 20 8D 20 37 33 30 30 |(0).600 . . 7300|
00001150: 3A 20 8E 00 66 19 A8 1B 57 4B B2 30 3A 53 51 B2 |: ..f...WK.0:SQ.|
00001160: 39 39 39 39 39 39 00 74 19 B2 1B 81 20 4A B2 31 |999999.t.... J.1|
00001170: 20 A4 20 36 00 A4 19 BC 1B 3A 8B 20 53 41 28 4A | . 6.....:. SA(J|
00001180: 29 B1 31 30 35 20 AF 20 50 53 28 30 2C 4A 29 B3 |).105 . PS(0,J).|
00001190: 53 51 20 A7 20 57 4B B2 4A 3A 53 51 B2 50 53 28 |SQ . WK.J:SQ.PS(|
000011A0: 30 2C 4A 29 00 AC 19 C6 1B 82 20 4A 00 B6 19 CB |0,J)...... J....|
000011B0: 1B 53 4E B2 57 4B 00 CD 19 D0 1B 8B 20 57 4B B2 |.SN.WK...... WK.|
000011C0: 30 20 A7 20 8D 20 37 33 30 30 3A 20 8E 00 E0 19 |0 . . 7300: ....|
000011D0: DA 1B 53 51 B2 35 30 30 3A 20 8D 20 34 34 30 30 |..SQ.500: . 4400|
000011E0: 00 F7 19 E4 1B 8B 20 53 4E B2 37 20 A7 20 8D 20 |...... SN.7 . . |
000011F0: 37 33 30 30 3A 20 8E 00 10 1A EE 1B 99 22 42 55 |7300: ......."BU|
00001200: 59 20 20 35 30 30 20 22 3B 53 4E 24 28 53 4E 29 |Y 500 ";SN$(SN)|
00001210: 00 26 1A F3 1B 81 20 4B B2 31 20 A4 20 31 30 30 |.&.... K.1 . 100|
00001220: 30 3A 20 82 20 4B 00 31 1A F8 1B 89 20 37 30 38 |0: . K.1.... 708|
00001230: 30 00 3D 1A 84 1C 8F 2A 37 33 30 30 2A 00 53 1A |0.=....*7300*.S.|
00001240: 8E 1C 81 20 4B B2 31 20 A4 20 33 30 30 20 3A 20 |... K.1 . 300 : |
00001250: 82 20 4B 00 67 1A 98 1C 8B 20 50 54 B2 31 20 A7 |. K.g.... PT.1 .|
00001260: 20 8D 20 34 30 30 30 00 8B 1A 9D 1C 8B 20 50 54 | . 4000...... PT|
00001270: B2 30 20 A7 20 99 3A 20 99 20 22 4E 4F 20 54 52 |.0 . .: . "NO TR|
00001280: 41 4E 53 41 43 54 49 4F 4E 53 22 00 A1 1A A2 1C |ANSACTIONS".....|
00001290: 81 20 4B B2 31 20 A4 20 32 30 30 30 3A 20 82 20 |. K.1 . 2000: . |
000012A0: 4B 00 A7 1A AC 1C 8E 00 B3 1A 40 1F 8F 2A 38 30 |K.........@..*80|
000012B0: 30 30 2A 00 CE 1A 4A 1F A1 20 57 4B 24 3A 20 8B |00*...J.. WK$: .|
000012C0: 20 57 4B 24 B2 22 22 20 89 20 38 30 31 30 00 DC | WK$."" . 8010..|
000012D0: 1A 54 1F 99 22 20 20 22 3B 57 4B 24 00 E2 1A 5E |.T.." ";WK$...^|
000012E0: 1F 8E 00 EE 1A 34 21 8F 2A 38 35 30 30 2A 00 F9 |.....4!.*8500*..|
000012F0: 1A 3E 21 4E 41 24 B2 22 22 00 14 1B 48 21 A1 20 |.>!NA$.""...H!. |
00001300: 57 4B 24 3A 20 8B 20 57 4B 24 B2 22 22 20 89 20 |WK$: . WK$."" . |
00001310: 38 35 32 30 00 2B 1B 52 21 8B 20 57 4B 24 B2 C7 |8520.+.R!. WK$..|
00001320: 28 31 33 29 20 A7 20 99 3A 20 8E 00 36 1B 5C 21 |(13) . .: ..6.\!|
00001330: 99 20 57 4B 24 3B 00 46 1B 66 21 4E 41 24 B2 4E |. WK$;.F.f!NA$.N|
00001340: 41 24 AA 57 4B 24 00 5D 1B 70 21 8B 20 C3 28 4E |A$.WK$.].p!. .(N|
00001350: 41 24 29 B1 32 30 20 A7 20 99 3A 20 8E 00 68 1B |A$).20 . .: ..h.|
00001360: 7A 21 89 20 38 35 32 30 00 74 1B FC 21 8F 2A 38 |z!. 8520.t..!.*8|
00001370: 37 30 30 2A 00 7D 1B 06 22 53 51 B2 30 00 98 1B |700*.}.."SQ.0...|
00001380: 10 22 A1 20 57 4B 24 3A 20 8B 20 57 4B 24 B2 22 |.". WK$: . WK$."|
00001390: 22 20 89 20 38 37 32 30 00 AF 1B 1A 22 8B 20 57 |" . 8720....". W|
000013A0: 4B 24 B2 C7 28 31 33 29 20 A7 20 99 3A 20 8E 00 |K$..(13) . .: ..|
000013B0: CB 1B 24 22 99 20 57 4B 24 3B 3A 20 53 51 B2 53 |..$". WK$;: SQ.S|
000013C0: 51 AC 31 30 AA C5 28 57 4B 24 29 00 F0 1B 2E 22 |Q.10..(WK$)...."|
000013D0: 8B 20 57 4B 24 B3 22 30 22 20 B0 20 57 4B 24 B1 |. WK$."0" . WK$.|
000013E0: 22 39 22 20 A7 20 53 51 B2 30 3A 20 99 3A 20 8E |"9" . SQ.0: .: .|
000013F0: 00 07 1C 38 22 8B 20 53 51 B1 39 39 39 39 39 39 |...8". SQ.999999|
00001400: 20 A7 20 99 3A 20 8E 00 12 1C 42 22 89 20 38 37 | . .: ....B". 87|
00001410: 32 30 00 1E 1C 28 23 8F 2A 39 30 30 30 2A 00 42 |20...(#.*9000*.B|
00001420: 1C 32 23 99 20 22 53 54 4F 43 4B 23 3F 22 3B 3A |.2#. "STOCK#?";:|
00001430: 20 8D 20 38 30 30 30 3A 20 53 4E B2 C5 28 57 4B | . 8000: SN..(WK|
00001440: 24 29 00 68 1C 3C 23 8B 20 53 4E B3 31 20 B0 20 |$).h.<#. SN.1 . |
00001450: 53 4E B1 36 20 A7 20 99 20 4D 31 24 3B 4D 33 24 |SN.6 . . M1$;M3$|
00001460: 3A 20 89 20 39 30 31 30 00 84 1C 46 23 99 20 22 |: . 9010...F#. "|
00001470: 51 55 41 4E 54 49 54 59 3F 20 22 3B 3A 20 8D 20 |QUANTITY? ";: . |
00001480: 38 37 30 30 00 9C 1C 50 23 57 4B B2 53 51 AB B5 |8700...P#WK.SQ..|
00001490: 28 53 51 AD 35 30 30 29 AC 35 30 30 00 C2 1C 5A |(SQ.500).500...Z|
000014A0: 23 8B 20 53 51 B2 30 20 B0 20 57 4B B1 30 20 A7 |#. SQ.0 . WK.0 .|
000014B0: 20 99 20 4D 31 24 3B 4D 36 24 3A 20 89 20 39 30 | . M1$;M6$: . 90|
000014C0: 33 30 00 C8 1C 64 23 8E 00 D4 1C 1C 25 8F 2A 39 |30...d#.....%.*9|
000014D0: 35 30 30 2A 00 EE 1C 26 25 53 31 B2 33 32 37 36 |500*...&%S1.3276|
000014E0: 38 AA 37 36 36 AA 28 44 31 AB 31 29 AC 36 00 03 |8.766.(D1.1).6..|
000014F0: 1D 2B 25 81 20 4B B2 31 20 A4 20 33 30 30 3A 20 |.+%. K.1 . 300: |
00001500: 82 20 4B 00 18 1D 30 25 81 20 4B B2 30 20 A4 20 |. K...0%. K.0 . |
00001510: 31 39 30 20 A9 20 31 30 00 23 1D 3A 25 3A 57 4B |190 . 10.#.:%:WK|
00001520: B2 36 34 00 3C 1D 44 25 3A 8B 20 53 41 28 44 31 |.64.<.D%:. SA(D1|
00001530: 29 B1 4B 20 A7 20 57 4B B2 31 36 30 00 54 1D 4E |).K . WK.160.T.N|
00001540: 25 3A 8B 20 53 41 28 44 31 29 B2 4B 20 A7 20 57 |%:. SA(D1).K . W|
00001550: 4B B2 39 38 00 6C 1D 58 25 3A 97 20 53 31 2C 57 |K.98.l.X%:. S1,W|
00001560: 4B 3A 20 97 20 53 31 AA 31 2C 57 4B 00 7A 1D 62 |K: . S1.1,WK.z.b|
00001570: 25 3A 53 31 B2 53 31 AB 34 30 00 82 1D 6C 25 82 |%:S1.S1.40...l%.|
00001580: 20 4B 00 97 1D 76 25 81 20 4B B2 31 20 A4 20 33 | K...v%. K.1 . 3|
00001590: 30 30 3A 20 82 20 4B 00 9D 1D 80 25 8E 00 B7 1D |00: . K....%....|
000015A0: 30 75 8F 2A 33 30 30 30 30 2A 20 52 45 4E 55 4D |0u.*30000* RENUM|
000015B0: 42 45 52 20 52 54 4E 00 CC 1D 35 75 58 B2 31 30 |BER RTN...5uX.10|
000015C0: 32 35 3A 59 B2 31 30 3A 49 4E B2 35 00 E4 1D 3A |25:Y.10:IN.5...:|
000015D0: 75 58 31 B2 C2 28 58 AA 34 29 3A 58 32 B2 C2 28 |uX1..(X.4):X2..(|
000015E0: 58 AA 35 29 00 03 1E 44 75 8B 20 58 31 B3 B1 31 |X.5)...Du. X1..1|
000015F0: 34 33 20 B0 20 58 32 B3 B1 34 32 20 89 20 33 30 |43 . X2..42 . 30|
00001600: 31 30 30 00 13 1E 4E 75 58 31 B2 58 AA 36 3A 58 |100...NuX1.X.6:X|
00001610: 32 B2 30 00 20 1E 58 75 58 33 B2 C2 28 58 31 29 |2.0. .XuX3..(X1)|
00001620: 00 34 1E 62 75 8B 20 58 33 B2 34 32 20 A7 20 33 |.4.bu. X3.42 . 3|
00001630: 30 30 39 30 00 41 1E 6C 75 58 33 B2 58 33 AB 34 |0090.A.luX3.X3.4|
00001640: 38 00 66 1E 76 75 8B 20 58 33 B3 30 20 B0 20 58 |8.f.vu. X3.0 . X|
00001650: 33 B1 39 20 A7 20 99 20 22 45 52 52 31 22 3A 89 |3.9 . . "ERR1":.|
00001660: 20 33 30 31 30 30 00 86 1E 80 75 58 32 B2 58 32 | 30100....uX2.X2|
00001670: AC 31 30 AA 58 33 3A 58 31 B2 58 31 AA 31 3A 89 |.10.X3:X1.X1.1:.|
00001680: 20 33 30 30 34 30 00 9E 1E 8A 75 8B 20 59 B3 58 | 30040....u. Y.X|
00001690: 32 20 A7 20 59 B2 58 32 3A 49 4E B2 31 30 00 BA |2 . Y.X2:IN.10..|
000016A0: 1E 94 75 59 32 B2 B5 28 59 AD 32 35 36 29 3A 59 |..uY2..(Y.256):Y|
000016B0: 31 B2 59 AB 59 32 AC 32 35 36 00 D7 1E 9E 75 97 |1.Y.Y2.256....u.|
000016C0: 20 58 AA 32 2C 59 31 3A 97 20 58 AA 33 2C 59 32 | X.2,Y1:. X.3,Y2|
000016D0: 3A 59 B2 59 AA 49 4E 00 ED 1E A8 75 58 B2 C2 28 |:Y.Y.IN....uX..(|
000016E0: 58 29 AA 32 35 36 AC C2 28 58 AA 31 29 00 05 1F |X).256..(X.1)...|
000016F0: B2 75 5A B2 C2 28 58 AA 32 29 AA 32 35 36 AC C2 |.uZ..(X.2).256..|
00001700: 28 58 AA 33 29 00 1B 1F BC 75 8B 20 5A B3 33 30 |(X.3)....u. Z.30|
00001710: 30 30 30 20 A7 20 33 30 30 31 30 00 21 1F C6 75 |000 . 30010.!..u|
00001720: 80 00 30 1F 40 9C 81 20 41 B2 31 20 A4 32 35 35 |..0.@.. A.1 .255|
00001730: 00 3C 1F 4A 9C 99 41 2C C7 28 41 29 00 44 1F 54 |.<.J..A,.(A).D.T|
00001740: 9C 82 20 41 00 00 00 01 |.. A.... |
.. .W.Z$.".".".".".".".".".".".".>.Z.G.1
3.4096:.G.32,2:.G.33,7.I.D..*100*.O.N...
}.X.. SN$(6),SA(6),PN$(6),PS(6,6),PA(6),
DN(3)...... 1000...... R.1 . NR.....:D1.
.(6..(1)).1... .:D2..(3..(1)).1.....:D3.
.(3..(1)).1: D3.5.2.(D3.1).....:.: . SN$
(D1);DN$(D2);D3.....:. D2 . 5000,5300,56
00.&.H.:. 9500.2.S.:. ".";.P.T.:. ".....
...............".K...:. BL$: . BL$: . ".
..".S.... R......T.1.1500:.......6000:.:
. "ONE MORE ROUND Y/N ?";: . 8000......
WK$.."N" . WK$.."Y" . . M1$;M2$: . 240.
..... WK$."N" . . "DRIVER",8...... I.1 .
N2: . 3300: . I.,.... N1.0 . . 7000.?..
.. ".";: . 2000.I.".. 140.U....*1000*...
... "SILVER"," IND "," GRAIN"," OIL ",
" GOLD "," BONDS"...... I.1 . 6: SA(I).1
00: . SN$(I): . I.Y.... " UP "," DOWN"
," DIV "...... I.1 . 3: . DN$(I): . I..
...M1$."INVALID - ".!...M2$."TYPE Y OR N
".:...M3$."MUST BE 1 TO 6".V...M4$."MUST
BE 1, 2 OR 3".O...M5$."TYPE B, S OR N".
.. .M6$."MUST BE A MULTIPLE OF 500"...!.
. ".".K.$.. "HOW MANY PLAYERS?";: . 8000
: N2.E(WK$)...... N2.1 . N2.6 . . M1$;M3
$: . 1060...8.. N2.1 . N1.0: . 1120.?.B.
. "MAY THE COMPUTER PLAY ALSO... Y/N?";:
. 8000.M.L.. WK$.."N" . WK$.."Y" . . M1
$;M2$: . 1090...V.N1.0: . WK$."N" . N1.1
...`.. I.1 . N2...J.:. J.1 . 6: PS(I,J).
0: . J.F.T.:PA(I).5000...~.:. "PLAYER";I
;"WHAT IS YOUR NAME?": . 8500.....:PN$(I
).NA$.2...:. C(NA$).20 . . "NAME TOO LON
G": . 1150.`...:. C(NA$). 1 . . "MUST HA
VE NAME": . 1150.H.... I.....PN$(0)."COM
MODORE COMPUTER": PA(0).2000...... I.1 .
6: PS(0,I).500: . I...... 3000.X.... N1
.0 . I.0: . 4000...D.. "HOW MANY COMPLET
E ROUNDS BEFORE".*.N.. "BUYING AND SELLI
NG STOCKS (1-3)?";.@.X.. 8000: NR.E(WK$)
.F.... NR.1 . NR.3 . . M1$;M4$: . 1220..
...NR.NR.(1.N1.N2): . ".";: . 2000.....B
L$."
".B.....N.P..*2000*...... I.190 . 0 .
.10.....:GN$." ".D(I): GN$.".".I(GN$,
3).....:GN$.GN$."...".0. .:. J.1 . 6:Z.0
.?.*.::WK$."..".A.4.::. SA(J).I . Z..1:W
K$.". ."...>.::. SA(J).I . Z..1:WK$."..
"...H.::...B..Z.WK$.J(Z$,J,1).WK$.".".A.
C.::. J.6 . WK$.WK$."...".U.D.GN$.GN$.WK
$."C"...F.:. J...P.:. GN$...Z.. I.'....
" ";SN$(1);SN$(2);SN$(3);SN$(4);SN$(5)
;SN$(6).-.....9....*3000*.H.L.. I.1 . N2
.T.V.:. 4000.U...:. "YOU MUST BUY SOME S
TOCK".....:. 9000.....:. 4400...&.:. SN.
7 . . "INSUFFICIENT FUNDS": . 3050.F.0.:
. 3300...:.:. PA(I).5000 . 3030...D.. I.
..N........*3300*...... 4000.2.... "BUY,
SELL OR NOTHING B/S/N ?";: . 8000.K....
WK$.."N" . WK$.."S" . WK$.."B" . . M1$;
M5$: . 3330.}.... WK$."N" . .... .SB$.WK
$...4.. 9000...F.. SB$."S" . . 4600.B.P.
. SB$."B" . . 4400.V.Z.. SN.7 . . 3300..
.... SB$."S" . . "YOU DON'T OWN ENOUGH S
TOCK".5.... SB$."B" . . "YOU DON'T HAVE
ENOUGH MONEY".K.... K.1 . 2000: . K.V...
. 3300.B. ..*4000*...... ". PORTFOLIO
- ";PN$(I).....WK.C(PN$(I)).12: WK$."
".D.H.. K.1 . WK: WK$.WK$.".": . K.N.R
.. WK$...... " # DESC VALUE HOLDINGS"
...... " . .... ..... ........". ....
K.1 . 6.D...:WK$." ".D(SA(K)): V$.I(WK
$,3).H.".:WK.PS(I,K): WK$." ".D(WK)
.Z.,.:WK$.I(WK$,7)...6.:. WK.1000 . H$."
".WK$...@.:. WK. 500 . H$.H(WK$,4).",".
I(WK$,3).V.J.:WK$." ".D(K)." "...T.:. WK
$;SN$(K);" ";V$;" ";H$...^.. K.'.H..:
. "CASH ON HAND --- ";PA(I): ..-.R...9.
0..*4400*.T.:.WK.SA(SN).SQ.100: PT.1.M.D
.. WK.PA(I) . SN.7: ....N.PA(I).PA(I).WK
...X.PS(I,SN).PS(I,SN).SQ...B........*46
00*.....PT.1.P.... SQ.PS(I,SN) . SN.7: .
.....PA(I).PA(I).SA(SN).SQ.100... .PS(I,
SN).PS(I,SN).SQ...*........*5000*.....SA
(D1).SA(D1).D3.C.... SA(D1).200 . ..R...
SA(D1).100.B.... I.N1 . N2.{...:PS(I,D1)
.PS(I,D1).2...D.. I...N........*5300*...
..SA(D1).SA(D1).D3...H.. SA(D1).0 . ..L.
R.SA(D1).100...... I.N1 . N2.....:PS(I,D
1).0...... I............*5600*...... SA(
D1).100 . ..+.... I.N1 . N2.L...:PA(I).P
A(I).PS(I,D1).D3.100.T.... I.Z.....F.P..
*6000*.Q.... ".";...... "PLAYER NAME
CASH VALUE".A.... "...........
.........."...... K.N1 . N2:S(K).P
A(K).....:. J.1 . 6.....::PA(K).PA(K).SA
(J).PS(K,J).100.....:. J. .B.. K.0.D.. K
.N1 . N2.;.F.:WK..1.L.H.:. J.N1 . N2.M.J
.::. PA(J).WK . WK.PA(J): I.J.V.L.:. J..
.T.:WK$." ".D(PA(I)).....:WK$.I(
WK$,8): V$.H(WK$,2).O...:. V$.." " . V$
.V$.",".....:. V$. " " . V$.V$." ".....
:V$.V$.J(WK$,3,3).!...:. I(V$,1).." " .
V$.V$.",".A...:. I(V$,1). " " . V$.V$."
".U...:V$.V$.I(WK$,3).N...:. PN$(I);.21)
;V$: ..|...:PA(I)..1...... K......K.N1.N
2:PA(K).S(K):....$.....X..*7000*.F.L.I.0
: PT.0: . 4000...V.. SN.1 . 6: SQ.PS(0,S
N).....:. SA(SN).95 . SQ.0 . . "SELL";SQ
;SN$(SN): . 4600.!.... SN.7.... K.1 . 15
00: . K.S.... PA(0).600 . . 7300: ..F...
WK.0:SQ.999999.T.... J.1 . 6.....:. SA(J
).105 . PS(0,J).SQ . WK.J:SQ.PS(0,J)...F
.. J...K.SN.WK.M.P.. WK.0 . . 7300: ....
Z.SQ.500: . 4400...... SN.7 . . 7300: ..
....."BUY 500 ";SN$(SN).&.... K.1 . 100
0: . K.1.... 7080.=....*7300*.S.... K.1
. 300 : . K.G.... PT.1 . . 4000...... PT
.0 . .: . "NO TRANSACTIONS"...... K.1 .
2000: . K.........@..*8000*.N.J.. WK$: .
WK$."" . 8010...T.." ";WK$...^.....4!.
*8500*...>!NA$.""...H!. WK$: . WK$."" .
8520.+.R!. WK$.G(13) . .: ..6.\!. WK$;.F
.F!NA$.NA$.WK$.].P!. C(NA$).20 . .: ..H.
Z!. 8520.T..!.*8700*.}.."SQ.0....". WK$:
. WK$."" . 8720....". WK$.G(13) . .: ..
K.$". WK$;: SQ.SQ.10.E(WK$)....". WK$."0
" . WK$."9" . SQ.0: .: ....8". SQ.999999
. .: ....B". 8720...(#.*9000*.B.2#. "ST
OCK#?";: . 8000: SN.E(WK$).H.<#. SN.1 .
SN.6 . . M1$;M3$: . 9010...F#. "QUANTITY
? ";: . 8700...P#WK.SQ..(SQ.500).500.B.Z
#. SQ.0 . WK.0 . . M1$;M6$: . 9030.H.D#.
.T..%.*9500*...&%S1.32768.766.(D1.1).6..
.+%. K.1 . 300: . K...0%. K.0 . 190 . 10
.#.:%:WK.64.<.D%:. SA(D1).K . WK.160.T.N
%:. SA(D1).K . WK.98.L.X%:. S1,WK: . S1.
1,WK.Z.B%:S1.S1.40...L%. K...V%. K.1 . 3
00: . K....%....0U.*30000* RENUMBER RTN.
L.5UX.1025:Y.10:IN.5...:UX1.B(X.4):X2.B(
X.5)...DU. X1..143 . X2..42 . 30100...NU
X1.X.6:X2.0. .XUX3.B(X1).4.BU. X3.42 . 3
0090.A.LUX3.X3.48.F.VU. X3.0 . X3.9 . .
"ERR1":. 30100....UX2.X2.10.X3:X1.X1.1:.
30040....U. Y.X2 . Y.X2:IN.10....UY2..(
Y.256):Y1.Y.Y2.256.W..U. X.2,Y1:. X.3,Y2
:Y.Y.IN....UX.B(X).256.B(X.1)....UZ.B(X.
2).256.B(X.3)....U. Z.30000 . 30010.!.FU
..0.@.. A.1 .255.<.J..A,G(A).D.T.. A....
> CLICK IMAGE PREVIEW FOR FULL MODAL