STOCK
FILE INFORMATION
FILENAME(S): STOCK
FILE TYPE(S): PRG
FILE SIZE: 5.8K
FIRST SEEN: 2025-11-30 21:26:00
APPEARS ON: 1 disk(s)
FILE HASH
9572ebe73644932d11eab93e4aa41e639edc8e29e78a0df491d9ce2dce394d34
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| B C S | STOCK | PRG | DuncanTwain | 6 | 0 | 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 3D 0F 2A 08 57 4B 24 B2 22 C0 C0 22 00 5D 0F |.=.*.WK$."..".].|
00000740: 34 08 8B 20 53 41 28 4A 29 B1 49 20 A7 20 5A B2 |4.. SA(J).I . Z.|
00000750: AB 31 3A 57 4B 24 B2 22 12 20 20 92 22 00 7B 0F |.1:WK$.". .".{.|
00000760: 3E 08 8B 20 53 41 28 4A 29 B2 49 20 A7 20 5A B2 |>.. SA(J).I . Z.|
00000770: AB 31 3A 57 4B 24 B2 22 A2 A2 22 00 82 0F 48 08 |.1:WK$.".."...H.|
00000780: 3A 3A 00 9F 0F 62 08 8B 5A A7 57 4B 24 B2 CA 28 |::...b..Z.WK$..(|
00000790: 5A 24 2C 4A 2C 31 29 AA 57 4B 24 AA 22 1F 22 00 |Z$,J,1).WK$.".".|
000007A0: B9 0F 63 08 8B 20 4A B3 36 20 A7 20 57 4B 24 B2 |..c.. J.6 . WK$.|
000007B0: 57 4B 24 AA 22 C0 C0 C0 22 00 CD 0F 64 08 47 4E |WK$."..."...d.GN|
000007C0: 24 B2 47 4E 24 AA 57 4B 24 AA 22 C3 22 00 D6 0F |$.GN$.WK$."."...|
000007D0: 66 08 3A 82 20 4A 00 E1 0F 70 08 3A 99 20 47 4E |f.:. J...p.:. GN|
000007E0: 24 00 E9 0F 7A 08 82 20 49 00 1F 10 84 08 99 20 |$...z.. I...... |
000007F0: 22 20 20 20 22 3B 53 4E 24 28 31 29 3B 53 4E 24 |" ";SN$(1);SN$|
00000800: 28 32 29 3B 53 4E 24 28 33 29 3B 53 4E 24 28 34 |(2);SN$(3);SN$(4|
00000810: 29 3B 53 4E 24 28 35 29 3B 53 4E 24 28 36 29 00 |);SN$(5);SN$(6).|
00000820: 25 10 8E 08 8E 00 31 10 B8 0B 8F 2A 33 30 30 30 |%.....1....*3000|
00000830: 2A 00 40 10 CC 0B 81 20 49 B2 31 20 A4 20 4E 32 |*.@.... I.1 . N2|
00000840: 00 4C 10 D6 0B 3A 8D 20 34 30 30 30 00 6D 10 E0 |.L...:. 4000.m..|
00000850: 0B 3A 99 20 22 59 4F 55 20 4D 55 53 54 20 42 55 |.:. "YOU MUST BU|
00000860: 59 20 53 4F 4D 45 20 53 54 4F 43 4B 22 00 79 10 |Y SOME STOCK".y.|
00000870: EA 0B 3A 8D 20 39 30 30 30 00 85 10 1C 0C 3A 8D |..:. 9000.....:.|
00000880: 20 34 34 30 30 00 B2 10 26 0C 3A 8B 20 53 4E B2 | 4400...&.:. SN.|
00000890: 37 20 A7 20 99 20 22 49 4E 53 55 46 46 49 43 49 |7 . . "INSUFFICI|
000008A0: 45 4E 54 20 46 55 4E 44 53 22 3A 20 89 20 33 30 |ENT FUNDS": . 30|
000008B0: 35 30 00 BE 10 30 0C 3A 8D 20 33 33 30 30 00 D7 |50...0.:. 3300..|
000008C0: 10 3A 0C 3A 8B 20 50 41 28 49 29 B2 35 30 30 30 |.:.:. PA(I).5000|
000008D0: 20 89 20 33 30 33 30 00 DF 10 44 0C 82 20 49 00 | . 3030...D.. I.|
000008E0: E5 10 4E 0C 8E 00 F1 10 E4 0C 8F 2A 33 33 30 30 |..N........*3300|
000008F0: 2A 00 FC 10 F8 0C 8D 20 34 30 30 30 00 2A 11 02 |*...... 4000.*..|
00000900: 0D 99 20 22 42 55 59 2C 20 53 45 4C 4C 20 4F 52 |.. "BUY, SELL OR|
00000910: 20 4E 4F 54 48 49 4E 47 20 42 2F 53 2F 4E 20 3F | NOTHING B/S/N ?|
00000920: 22 3B 3A 20 8D 20 38 30 30 30 00 63 11 0C 0D 8B |";: . 8000.c....|
00000930: 20 57 4B 24 B3 B1 22 4E 22 20 AF 20 57 4B 24 B3 | WK$.."N" . WK$.|
00000940: B1 22 53 22 20 AF 20 57 4B 24 B3 B1 22 42 22 20 |."S" . WK$.."B" |
00000950: A7 20 99 20 4D 31 24 3B 4D 35 24 3A 20 89 20 33 |. . M1$;M5$: . 3|
00000960: 33 33 30 00 75 11 16 0D 8B 20 57 4B 24 B2 22 4E |330.u.... WK$."N|
00000970: 22 20 A7 20 8E 00 81 11 20 0D 53 42 24 B2 57 4B |" . .... .SB$.WK|
00000980: 24 00 8C 11 34 0D 8D 20 39 30 30 30 00 A3 11 66 |$...4.. 9000...f|
00000990: 0D 8B 20 53 42 24 B2 22 53 22 20 A7 20 8D 20 34 |.. SB$."S" . . 4|
000009A0: 36 30 30 00 BA 11 70 0D 8B 20 53 42 24 B2 22 42 |600...p.. SB$."B|
000009B0: 22 20 A7 20 8D 20 34 34 30 30 00 CE 11 7A 0D 8B |" . . 4400...z..|
000009C0: 20 53 4E B3 37 20 A7 20 89 20 33 33 30 30 00 FD | SN.7 . . 3300..|
000009D0: 11 84 0D 8B 20 53 42 24 B2 22 53 22 20 A7 20 99 |.... SB$."S" . .|
000009E0: 20 22 59 4F 55 20 44 4F 4E 27 54 20 4F 57 4E 20 | "YOU DON'T OWN |
000009F0: 45 4E 4F 55 47 48 20 53 54 4F 43 4B 22 00 2D 12 |ENOUGH STOCK".-.|
00000A00: 8E 0D 8B 20 53 42 24 B2 22 42 22 20 A7 20 99 20 |... SB$."B" . . |
00000A10: 22 59 4F 55 20 44 4F 4E 27 54 20 48 41 56 45 20 |"YOU DON'T HAVE |
00000A20: 45 4E 4F 55 47 48 20 4D 4F 4E 45 59 22 00 43 12 |ENOUGH MONEY".C.|
00000A30: 98 0D 81 20 4B B2 31 20 A4 20 32 30 30 30 3A 20 |... K.1 . 2000: |
00000A40: 82 20 4B 00 4E 12 A2 0D 89 20 33 33 30 30 00 5A |. K.N.... 3300.Z|
00000A50: 12 A0 0F 8F 2A 34 30 30 30 2A 00 7B 12 B4 0F 99 |....*4000*.{....|
00000A60: 20 22 93 20 20 20 20 50 4F 52 54 46 4F 4C 49 4F | ". PORTFOLIO|
00000A70: 20 2D 20 22 3B 50 4E 24 28 49 29 00 9B 12 BE 0F | - ";PN$(I).....|
00000A80: 57 4B B2 C3 28 50 4E 24 28 49 29 29 AA 31 32 3A |WK..(PN$(I)).12:|
00000A90: 20 57 4B 24 B2 22 20 20 20 20 22 00 BC 12 C8 0F | WK$." ".....|
00000AA0: 81 20 4B B2 31 20 A4 20 57 4B 3A 20 57 4B 24 B2 |. K.1 . WK: WK$.|
00000AB0: 57 4B 24 AA 22 A3 22 3A 20 82 20 4B 00 C6 12 D2 |WK$.".": . K....|
00000AC0: 0F 99 20 57 4B 24 00 E8 12 DC 0F 99 20 22 20 23 |.. WK$...... " #|
00000AD0: 20 20 44 45 53 43 20 20 56 41 4C 55 45 20 20 48 | DESC VALUE H|
00000AE0: 4F 4C 44 49 4E 47 53 22 00 0A 13 E6 0F 99 20 22 |OLDINGS"...... "|
00000AF0: 20 A3 A0 A0 A3 A3 A3 A3 A0 A0 A3 A3 A3 A3 A3 A0 | ...............|
00000B00: A0 A3 A3 A3 A3 A3 A3 A3 A3 22 00 18 13 FA 0F 81 |........."......|
00000B10: 20 4B B2 31 20 A4 20 36 00 3C 13 04 10 3A 57 4B | K.1 . 6.<...:WK|
00000B20: 24 B2 22 20 20 22 AA C4 28 53 41 28 4B 29 29 3A |$." "..(SA(K)):|
00000B30: 20 56 24 B2 C9 28 57 4B 24 2C 33 29 00 60 13 22 | V$..(WK$,3).`."|
00000B40: 10 3A 57 4B B2 50 53 28 49 2C 4B 29 3A 20 57 4B |.:WK.PS(I,K): WK|
00000B50: 24 B2 22 20 20 20 20 20 20 22 AA C4 28 57 4B 29 |$." "..(WK)|
00000B60: 00 72 13 2C 10 3A 57 4B 24 B2 C9 28 57 4B 24 2C |.r.,.:WK$..(WK$,|
00000B70: 37 29 00 8E 13 36 10 3A 8B 20 57 4B B3 31 30 30 |7)...6.:. WK.100|
00000B80: 30 20 A7 20 48 24 B2 22 20 22 AA 57 4B 24 00 B8 |0 . H$." ".WK$..|
00000B90: 13 40 10 3A 8B 20 57 4B B1 20 35 30 30 20 A7 20 |.@.:. WK. 500 . |
00000BA0: 48 24 B2 C8 28 57 4B 24 2C 34 29 AA 22 2C 22 AA |H$..(WK$,4).",".|
00000BB0: C9 28 57 4B 24 2C 33 29 00 CE 13 4A 10 3A 57 4B |.(WK$,3)...J.:WK|
00000BC0: 24 B2 22 20 22 AA C4 28 4B 29 AA 22 20 22 00 F1 |$." "..(K)." "..|
00000BD0: 13 54 10 3A 99 20 57 4B 24 3B 53 4E 24 28 4B 29 |.T.:. WK$;SN$(K)|
00000BE0: 3B 22 20 20 22 3B 56 24 3B 22 20 20 20 22 3B 48 |;" ";V$;" ";H|
00000BF0: 24 00 F9 13 5E 10 82 20 4B 00 1F 14 68 10 99 3A |$...^.. K...h..:|
00000C00: 20 99 20 22 43 41 53 48 20 4F 4E 20 48 41 4E 44 | . "CASH ON HAND|
00000C10: 20 2D 2D 2D 20 22 3B 50 41 28 49 29 3A 20 99 00 | --- ";PA(I): ..|
00000C20: 25 14 72 10 8E 00 31 14 30 11 8F 2A 34 34 30 30 |%.r...1.0..*4400|
00000C30: 2A 00 4C 14 3A 11 57 4B B2 53 41 28 53 4E 29 AC |*.L.:.WK.SA(SN).|
00000C40: 53 51 AD 31 30 30 3A 20 50 54 B2 31 00 65 14 44 |SQ.100: PT.1.e.D|
00000C50: 11 8B 20 57 4B B1 50 41 28 49 29 20 A7 20 53 4E |.. WK.PA(I) . SN|
00000C60: B2 37 3A 20 8E 00 78 14 4E 11 50 41 28 49 29 B2 |.7: ..x.N.PA(I).|
00000C70: 50 41 28 49 29 AB 57 4B 00 91 14 58 11 50 53 28 |PA(I).WK...X.PS(|
00000C80: 49 2C 53 4E 29 B2 50 53 28 49 2C 53 4E 29 AA 53 |I,SN).PS(I,SN).S|
00000C90: 51 00 97 14 62 11 8E 00 A3 14 F8 11 8F 2A 34 36 |Q...b........*46|
00000CA0: 30 30 2A 00 AC 14 02 12 50 54 B2 31 00 C8 14 0C |00*.....PT.1....|
00000CB0: 12 8B 20 53 51 B1 50 53 28 49 2C 53 4E 29 20 A7 |.. SQ.PS(I,SN) .|
00000CC0: 20 53 4E B2 37 3A 20 8E 00 E6 14 16 12 50 41 28 | SN.7: ......PA(|
00000CD0: 49 29 B2 50 41 28 49 29 AA 53 41 28 53 4E 29 AC |I).PA(I).SA(SN).|
00000CE0: 53 51 AD 31 30 30 00 FF 14 20 12 50 53 28 49 2C |SQ.100... .PS(I,|
00000CF0: 53 4E 29 B2 50 53 28 49 2C 53 4E 29 AB 53 51 00 |SN).PS(I,SN).SQ.|
00000D00: 05 15 2A 12 8E 00 11 15 88 13 8F 2A 35 30 30 30 |..*........*5000|
00000D10: 2A 00 26 15 92 13 53 41 28 44 31 29 B2 53 41 28 |*.&...SA(D1).SA(|
00000D20: 44 31 29 AA 44 33 00 3B 15 9C 13 8B 20 53 41 28 |D1).D3.;.... SA(|
00000D30: 44 31 29 B3 32 30 30 20 A7 20 8E 00 4A 15 A6 13 |D1).200 . ..J...|
00000D40: 53 41 28 44 31 29 B2 31 30 30 00 5A 15 B0 13 81 |SA(D1).100.Z....|
00000D50: 20 49 B2 4E 31 20 A4 20 4E 32 00 73 15 BA 13 3A | I.N1 . N2.s...:|
00000D60: 50 53 28 49 2C 44 31 29 B2 50 53 28 49 2C 44 31 |PS(I,D1).PS(I,D1|
00000D70: 29 AC 32 00 7B 15 C4 13 82 20 49 00 81 15 CE 13 |).2.{.... I.....|
00000D80: 8E 00 8D 15 B4 14 8F 2A 35 33 30 30 2A 00 A2 15 |.......*5300*...|
00000D90: BE 14 53 41 28 44 31 29 B2 53 41 28 44 31 29 AB |..SA(D1).SA(D1).|
00000DA0: 44 33 00 B5 15 C8 14 8B 20 53 41 28 44 31 29 B1 |D3...... SA(D1).|
00000DB0: 30 20 A7 20 8E 00 C4 15 D2 14 53 41 28 44 31 29 |0 . ......SA(D1)|
00000DC0: B2 31 30 30 00 D4 15 DC 14 81 20 49 B2 4E 31 20 |.100...... I.N1 |
00000DD0: A4 20 4E 32 00 E4 15 E6 14 3A 50 53 28 49 2C 44 |. N2.....:PS(I,D|
00000DE0: 31 29 B2 30 00 EC 15 F0 14 82 20 49 00 F2 15 FA |1).0...... I....|
00000DF0: 14 8E 00 FE 15 E0 15 8F 2A 35 36 30 30 2A 00 13 |........*5600*..|
00000E00: 16 EA 15 8B 20 53 41 28 44 31 29 B3 31 30 30 20 |.... SA(D1).100 |
00000E10: A7 20 8E 00 23 16 F4 15 81 20 49 B2 4E 31 20 A4 |. ..#.... I.N1 .|
00000E20: 20 4E 32 00 44 16 FE 15 3A 50 41 28 49 29 B2 50 | N2.D...:PA(I).P|
00000E30: 41 28 49 29 AA 50 53 28 49 2C 44 31 29 AC 44 33 |A(I).PS(I,D1).D3|
00000E40: AD 31 30 30 00 4C 16 08 16 82 20 49 00 52 16 12 |.100.L.... I.R..|
00000E50: 16 8E 00 5E 16 70 17 8F 2A 36 30 30 30 2A 00 69 |...^.p..*6000*.i|
00000E60: 16 84 17 99 20 22 93 22 3B 00 91 16 8E 17 99 20 |.... ".";...... |
00000E70: 22 50 4C 41 59 45 52 20 4E 41 4D 45 20 20 20 20 |"PLAYER NAME |
00000E80: 20 20 20 20 20 20 43 41 53 48 20 56 41 4C 55 45 | CASH VALUE|
00000E90: 22 00 B9 16 98 17 99 20 22 A3 A3 A3 A3 A3 A3 A3 |"...... ".......|
00000EA0: A3 A3 A3 A3 20 20 20 20 20 20 20 20 20 20 A3 A3 |.... ..|
00000EB0: A3 A3 A3 A3 A3 A3 A3 A3 22 00 D4 16 A2 17 81 20 |........"...... |
00000EC0: 4B B2 4E 31 20 A4 20 4E 32 3A 53 28 4B 29 B2 50 |K.N1 . N2:S(K).P|
00000ED0: 41 28 4B 29 00 E3 16 AC 17 3A 81 20 4A B2 31 20 |A(K).....:. J.1 |
00000EE0: A4 20 36 00 05 17 B6 17 50 41 28 4B 29 B2 50 41 |. 6.....PA(K).PA|
00000EF0: 28 4B 29 AA 53 41 28 4A 29 AC 50 53 28 4B 2C 4A |(K).SA(J).PS(K,J|
00000F00: 29 AD 31 30 30 00 0E 17 C0 17 3A 82 20 4A 00 16 |).100.....:. J..|
00000F10: 17 C2 17 82 20 4B 00 26 17 C4 17 81 20 4B B2 4E |.... K.&.... K.N|
00000F20: 31 20 A4 20 4E 32 00 31 17 C6 17 3A 57 4B B2 AB |1 . N2.1...:WK..|
00000F30: 31 00 42 17 C8 17 3A 81 20 4A B2 4E 31 20 A4 20 |1.B...:. J.N1 . |
00000F40: 4E 32 00 61 17 CA 17 8B 20 50 41 28 4A 29 B1 57 |N2.a.... PA(J).W|
00000F50: 4B 20 A7 20 57 4B B2 50 41 28 4A 29 3A 20 49 B2 |K . WK.PA(J): I.|
00000F60: 4A 00 6A 17 CC 17 3A 82 20 4A 00 88 17 D4 17 3A |J.j...:. J.....:|
00000F70: 57 4B 24 B2 22 20 20 20 20 20 20 20 20 20 22 AA |WK$." ".|
00000F80: C4 28 50 41 28 49 29 29 00 A7 17 DE 17 3A 57 4B |.(PA(I)).....:WK|
00000F90: 24 B2 C9 28 57 4B 24 2C 38 29 3A 20 56 24 B2 C8 |$..(WK$,8): V$..|
00000FA0: 28 57 4B 24 2C 32 29 00 C3 17 E8 17 3A 8B 20 56 |(WK$,2).....:. V|
00000FB0: 24 B3 B1 22 20 20 22 20 A7 20 56 24 B2 56 24 AA |$.." " . V$.V$.|
00000FC0: 22 2C 22 00 DF 17 ED 17 3A 8B 20 56 24 B2 20 22 |",".....:. V$. "|
00000FD0: 20 20 22 20 A7 20 56 24 B2 56 24 AA 22 20 22 00 | " . V$.V$." ".|
00000FE0: F5 17 F2 17 3A 56 24 B2 56 24 AA CA 28 57 4B 24 |....:V$.V$..(WK$|
00000FF0: 2C 33 2C 33 29 00 15 18 FC 17 3A 8B 20 C9 28 56 |,3,3).....:. .(V|
00001000: 24 2C 31 29 B3 B1 22 20 22 20 A7 20 56 24 B2 56 |$,1).." " . V$.V|
00001010: 24 AA 22 2C 22 00 35 18 01 18 3A 8B 20 C9 28 56 |$.",".5...:. .(V|
00001020: 24 2C 31 29 B2 20 22 20 22 20 A7 20 56 24 B2 56 |$,1). " " . V$.V|
00001030: 24 AA 22 20 22 00 49 18 06 18 3A 56 24 B2 56 24 |$." ".I...:V$.V$|
00001040: AA C9 28 57 4B 24 2C 33 29 00 62 18 10 18 3A 99 |..(WK$,3).b...:.|
00001050: 20 50 4E 24 28 49 29 3B A3 32 31 29 3B 56 24 3A | PN$(I);.21);V$:|
00001060: 20 99 00 70 18 15 18 3A 50 41 28 49 29 B2 AB 31 | ..p...:PA(I)..1|
00001070: 00 78 18 1A 18 82 20 4B 00 92 18 1F 18 81 4B B2 |.x.... K......K.|
00001080: 4E 31 A4 4E 32 3A 50 41 28 4B 29 B2 53 28 4B 29 |N1.N2:PA(K).S(K)|
00001090: 3A 82 00 98 18 24 18 8E 00 A4 18 58 1B 8F 2A 37 |:....$.....X..*7|
000010A0: 30 30 30 2A 00 BA 18 6C 1B 49 B2 30 3A 20 50 54 |000*...l.I.0: PT|
000010B0: B2 30 3A 20 8D 20 34 30 30 30 00 D6 18 76 1B 81 |.0: . 4000...v..|
000010C0: 20 53 4E B2 31 20 A4 20 36 3A 20 53 51 B2 50 53 | SN.1 . 6: SQ.PS|
000010D0: 28 30 2C 53 4E 29 00 0C 19 8A 1B 3A 8B 20 53 41 |(0,SN).....:. SA|
000010E0: 28 53 4E 29 B3 39 35 20 AF 20 53 51 B1 30 20 A7 |(SN).95 . SQ.0 .|
000010F0: 20 99 20 22 53 45 4C 4C 22 3B 53 51 3B 53 4E 24 | . "SELL";SQ;SN$|
00001100: 28 53 4E 29 3A 20 8D 20 34 36 30 30 00 15 19 94 |(SN): . 4600....|
00001110: 1B 82 20 53 4E 00 2B 19 99 1B 81 20 4B B2 31 20 |.. SN.+.... K.1 |
00001120: A4 20 31 35 30 30 3A 20 82 20 4B 00 47 19 9E 1B |. 1500: . K.G...|
00001130: 8B 20 50 41 28 30 29 B3 36 30 30 20 A7 20 8D 20 |. PA(0).600 . . |
00001140: 37 33 30 30 3A 20 8E 00 5A 19 A8 1B 57 4B B2 30 |7300: ..Z...WK.0|
00001150: 3A 53 51 B2 39 39 39 39 39 39 00 68 19 B2 1B 81 |:SQ.999999.h....|
00001160: 20 4A B2 31 20 A4 20 36 00 98 19 BC 1B 3A 8B 20 | J.1 . 6.....:. |
00001170: 53 41 28 4A 29 B1 31 30 35 20 AF 20 50 53 28 30 |SA(J).105 . PS(0|
00001180: 2C 4A 29 B3 53 51 20 A7 20 57 4B B2 4A 3A 53 51 |,J).SQ . WK.J:SQ|
00001190: B2 50 53 28 30 2C 4A 29 00 A0 19 C6 1B 82 20 4A |.PS(0,J)...... J|
000011A0: 00 AA 19 CB 1B 53 4E B2 57 4B 00 C1 19 D0 1B 8B |.....SN.WK......|
000011B0: 20 57 4B B2 30 20 A7 20 8D 20 37 33 30 30 3A 20 | WK.0 . . 7300: |
000011C0: 8E 00 D4 19 DA 1B 53 51 B2 35 30 30 3A 20 8D 20 |......SQ.500: . |
000011D0: 34 34 30 30 00 EB 19 E4 1B 8B 20 53 4E B2 37 20 |4400...... SN.7 |
000011E0: A7 20 8D 20 37 33 30 30 3A 20 8E 00 04 1A EE 1B |. . 7300: ......|
000011F0: 99 22 42 55 59 20 20 35 30 30 20 22 3B 53 4E 24 |."BUY 500 ";SN$|
00001200: 28 53 4E 29 00 1A 1A F3 1B 81 20 4B B2 31 20 A4 |(SN)...... K.1 .|
00001210: 20 31 30 30 30 3A 20 82 20 4B 00 25 1A F8 1B 89 | 1000: . K.%....|
00001220: 20 37 30 38 30 00 31 1A 84 1C 8F 2A 37 33 30 30 | 7080.1....*7300|
00001230: 2A 00 47 1A 8E 1C 81 20 4B B2 31 20 A4 20 33 30 |*.G.... K.1 . 30|
00001240: 30 20 3A 20 82 20 4B 00 5B 1A 98 1C 8B 20 50 54 |0 : . K.[.... PT|
00001250: B2 31 20 A7 20 8D 20 34 30 30 30 00 7F 1A 9D 1C |.1 . . 4000.....|
00001260: 8B 20 50 54 B2 30 20 A7 20 99 3A 20 99 20 22 4E |. PT.0 . .: . "N|
00001270: 4F 20 54 52 41 4E 53 41 43 54 49 4F 4E 53 22 00 |O TRANSACTIONS".|
00001280: 95 1A A2 1C 81 20 4B B2 31 20 A4 20 32 30 30 30 |..... K.1 . 2000|
00001290: 3A 20 82 20 4B 00 9B 1A AC 1C 8E 00 A7 1A 40 1F |: . K.........@.|
000012A0: 8F 2A 38 30 30 30 2A 00 C2 1A 4A 1F A1 20 57 4B |.*8000*...J.. WK|
000012B0: 24 3A 20 8B 20 57 4B 24 B2 22 22 20 89 20 38 30 |$: . WK$."" . 80|
000012C0: 31 30 00 D0 1A 54 1F 99 22 20 20 22 3B 57 4B 24 |10...T.." ";WK$|
000012D0: 00 D6 1A 5E 1F 8E 00 E2 1A 34 21 8F 2A 38 35 30 |...^.....4!.*850|
000012E0: 30 2A 00 ED 1A 3E 21 4E 41 24 B2 22 22 00 08 1B |0*...>!NA$.""...|
000012F0: 48 21 A1 20 57 4B 24 3A 20 8B 20 57 4B 24 B2 22 |H!. WK$: . WK$."|
00001300: 22 20 89 20 38 35 32 30 00 1F 1B 52 21 8B 20 57 |" . 8520...R!. W|
00001310: 4B 24 B2 C7 28 31 33 29 20 A7 20 99 3A 20 8E 00 |K$..(13) . .: ..|
00001320: 2A 1B 5C 21 99 20 57 4B 24 3B 00 3A 1B 66 21 4E |*.\!. WK$;.:.f!N|
00001330: 41 24 B2 4E 41 24 AA 57 4B 24 00 51 1B 70 21 8B |A$.NA$.WK$.Q.p!.|
00001340: 20 C3 28 4E 41 24 29 B1 32 30 20 A7 20 99 3A 20 | .(NA$).20 . .: |
00001350: 8E 00 5C 1B 7A 21 89 20 38 35 32 30 00 68 1B FC |..\.z!. 8520.h..|
00001360: 21 8F 2A 38 37 30 30 2A 00 71 1B 06 22 53 51 B2 |!.*8700*.q.."SQ.|
00001370: 30 00 8C 1B 10 22 A1 20 57 4B 24 3A 20 8B 20 57 |0....". WK$: . W|
00001380: 4B 24 B2 22 22 20 89 20 38 37 32 30 00 A3 1B 1A |K$."" . 8720....|
00001390: 22 8B 20 57 4B 24 B2 C7 28 31 33 29 20 A7 20 99 |". WK$..(13) . .|
000013A0: 3A 20 8E 00 BF 1B 24 22 99 20 57 4B 24 3B 3A 20 |: ....$". WK$;: |
000013B0: 53 51 B2 53 51 AC 31 30 AA C5 28 57 4B 24 29 00 |SQ.SQ.10..(WK$).|
000013C0: E4 1B 2E 22 8B 20 57 4B 24 B3 22 30 22 20 B0 20 |...". WK$."0" . |
000013D0: 57 4B 24 B1 22 39 22 20 A7 20 53 51 B2 30 3A 20 |WK$."9" . SQ.0: |
000013E0: 99 3A 20 8E 00 FB 1B 38 22 8B 20 53 51 B1 39 39 |.: ....8". SQ.99|
000013F0: 39 39 39 39 20 A7 20 99 3A 20 8E 00 06 1C 42 22 |9999 . .: ....B"|
00001400: 89 20 38 37 32 30 00 12 1C 28 23 8F 2A 39 30 30 |. 8720...(#.*900|
00001410: 30 2A 00 36 1C 32 23 99 20 22 53 54 4F 43 4B 23 |0*.6.2#. "STOCK#|
00001420: 3F 22 3B 3A 20 8D 20 38 30 30 30 3A 20 53 4E B2 |?";: . 8000: SN.|
00001430: C5 28 57 4B 24 29 00 5C 1C 3C 23 8B 20 53 4E B3 |.(WK$).\.<#. SN.|
00001440: 31 20 B0 20 53 4E B1 36 20 A7 20 99 20 4D 31 24 |1 . SN.6 . . M1$|
00001450: 3B 4D 33 24 3A 20 89 20 39 30 31 30 00 78 1C 46 |;M3$: . 9010.x.F|
00001460: 23 99 20 22 51 55 41 4E 54 49 54 59 3F 20 22 3B |#. "QUANTITY? ";|
00001470: 3A 20 8D 20 38 37 30 30 00 90 1C 50 23 57 4B B2 |: . 8700...P#WK.|
00001480: 53 51 AB B5 28 53 51 AD 35 30 30 29 AC 35 30 30 |SQ..(SQ.500).500|
00001490: 00 B6 1C 5A 23 8B 20 53 51 B2 30 20 B0 20 57 4B |...Z#. SQ.0 . WK|
000014A0: B1 30 20 A7 20 99 20 4D 31 24 3B 4D 36 24 3A 20 |.0 . . M1$;M6$: |
000014B0: 89 20 39 30 33 30 00 BC 1C 64 23 8E 00 C8 1C 1C |. 9030...d#.....|
000014C0: 25 8F 2A 39 35 30 30 2A 00 E2 1C 26 25 53 31 B2 |%.*9500*...&%S1.|
000014D0: 33 32 37 36 38 AA 37 36 36 AA 28 44 31 AB 31 29 |32768.766.(D1.1)|
000014E0: AC 36 00 F7 1C 2B 25 81 20 4B B2 31 20 A4 20 33 |.6...+%. K.1 . 3|
000014F0: 30 30 3A 20 82 20 4B 00 0C 1D 30 25 81 20 4B B2 |00: . K...0%. K.|
00001500: 30 20 A4 20 31 39 30 20 A9 20 31 30 00 17 1D 3A |0 . 190 . 10...:|
00001510: 25 3A 57 4B B2 36 34 00 30 1D 44 25 3A 8B 20 53 |%:WK.64.0.D%:. S|
00001520: 41 28 44 31 29 B1 4B 20 A7 20 57 4B B2 31 36 30 |A(D1).K . WK.160|
00001530: 00 48 1D 4E 25 3A 8B 20 53 41 28 44 31 29 B2 4B |.H.N%:. SA(D1).K|
00001540: 20 A7 20 57 4B B2 39 38 00 60 1D 58 25 3A 97 20 | . WK.98.`.X%:. |
00001550: 53 31 2C 57 4B 3A 20 97 20 53 31 AA 31 2C 57 4B |S1,WK: . S1.1,WK|
00001560: 00 6E 1D 62 25 3A 53 31 B2 53 31 AB 34 30 00 76 |.n.b%:S1.S1.40.v|
00001570: 1D 6C 25 82 20 4B 00 8B 1D 76 25 81 20 4B B2 31 |.l%. K...v%. K.1|
00001580: 20 A4 20 33 30 30 3A 20 82 20 4B 00 91 1D 80 25 | . 300: . K....%|
00001590: 8E 00 AB 1D 30 75 8F 2A 33 30 30 30 30 2A 20 52 |....0u.*30000* R|
000015A0: 45 4E 55 4D 42 45 52 20 52 54 4E 00 C0 1D 35 75 |ENUMBER RTN...5u|
000015B0: 58 B2 31 30 32 35 3A 59 B2 31 30 3A 49 4E B2 35 |X.1025:Y.10:IN.5|
000015C0: 00 D8 1D 3A 75 58 31 B2 C2 28 58 AA 34 29 3A 58 |...:uX1..(X.4):X|
000015D0: 32 B2 C2 28 58 AA 35 29 00 F7 1D 44 75 8B 20 58 |2..(X.5)...Du. X|
000015E0: 31 B3 B1 31 34 33 20 B0 20 58 32 B3 B1 34 32 20 |1..143 . X2..42 |
000015F0: 89 20 33 30 31 30 30 00 07 1E 4E 75 58 31 B2 58 |. 30100...NuX1.X|
00001600: AA 36 3A 58 32 B2 30 00 14 1E 58 75 58 33 B2 C2 |.6:X2.0...XuX3..|
00001610: 28 58 31 29 00 28 1E 62 75 8B 20 58 33 B2 34 32 |(X1).(.bu. X3.42|
00001620: 20 A7 20 33 30 30 39 30 00 35 1E 6C 75 58 33 B2 | . 30090.5.luX3.|
00001630: 58 33 AB 34 38 00 5A 1E 76 75 8B 20 58 33 B3 30 |X3.48.Z.vu. X3.0|
00001640: 20 B0 20 58 33 B1 39 20 A7 20 99 20 22 45 52 52 | . X3.9 . . "ERR|
00001650: 31 22 3A 89 20 33 30 31 30 30 00 7A 1E 80 75 58 |1":. 30100.z..uX|
00001660: 32 B2 58 32 AC 31 30 AA 58 33 3A 58 31 B2 58 31 |2.X2.10.X3:X1.X1|
00001670: AA 31 3A 89 20 33 30 30 34 30 00 92 1E 8A 75 8B |.1:. 30040....u.|
00001680: 20 59 B3 58 32 20 A7 20 59 B2 58 32 3A 49 4E B2 | Y.X2 . Y.X2:IN.|
00001690: 31 30 00 AE 1E 94 75 59 32 B2 B5 28 59 AD 32 35 |10....uY2..(Y.25|
000016A0: 36 29 3A 59 31 B2 59 AB 59 32 AC 32 35 36 00 CB |6):Y1.Y.Y2.256..|
000016B0: 1E 9E 75 97 20 58 AA 32 2C 59 31 3A 97 20 58 AA |..u. X.2,Y1:. X.|
000016C0: 33 2C 59 32 3A 59 B2 59 AA 49 4E 00 E1 1E A8 75 |3,Y2:Y.Y.IN....u|
000016D0: 58 B2 C2 28 58 29 AA 32 35 36 AC C2 28 58 AA 31 |X..(X).256..(X.1|
000016E0: 29 00 F9 1E B2 75 5A B2 C2 28 58 AA 32 29 AA 32 |)....uZ..(X.2).2|
000016F0: 35 36 AC C2 28 58 AA 33 29 00 0F 1F BC 75 8B 20 |56..(X.3)....u. |
00001700: 5A B3 33 30 30 30 30 20 A7 20 33 30 30 31 30 00 |Z.30000 . 30010.|
00001710: 15 1F C6 75 80 00 24 1F 40 9C 81 20 41 B2 31 20 |...u..$.@.. A.1 |
00001720: A4 32 35 35 00 30 1F 4A 9C 99 41 2C C7 28 41 29 |.255.0.J..A,.(A)|
00001730: 00 38 1F 54 9C 82 20 41 00 00 00 01 |.8.T.. 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$."..".].4.. SA(J).I . Z..1:WK$."
. .".{.>.. SA(J).I . Z..1:WK$.".."...H.
::...B..Z.WK$.J(Z$,J,1).WK$."."...C.. J.
6 . WK$.WK$."...".M.D.GN$.GN$.WK$."C".V.
F.:. J...P.:. GN$...Z.. I...... " ";SN
$(1);SN$(2);SN$(3);SN$(4);SN$(5);SN$(6).
%.....1....*3000*.@.L.. I.1 . N2.L.V.:.
4000.M...:. "YOU MUST BUY SOME STOCK".Y.
..:. 9000.....:. 4400...&.:. SN.7 . . "I
NSUFFICIENT FUNDS": . 3050...0.:. 3300.W
.:.:. PA(I).5000 . 3030...D.. I...N.....
...*3300*...... 4000.*.... "BUY, SELL OR
NOTHING B/S/N ?";: . 8000.C.... WK$.."N
" . WK$.."S" . WK$.."B" . . M1$;M5$: . 3
330.U.... WK$."N" . .... .SB$.WK$...4..
9000...F.. SB$."S" . . 4600...P.. SB$."B
" . . 4400.N.Z.. SN.7 . . 3300...... SB$
."S" . . "YOU DON'T OWN ENOUGH STOCK".-.
... SB$."B" . . "YOU DON'T HAVE ENOUGH M
ONEY".C.... K.1 . 2000: . K.N.... 3300.Z
. ..*4000*.{.... ". PORTFOLIO - ";PN$
(I).....WK.C(PN$(I)).12: WK$." "...H.
. K.1 . WK: WK$.WK$.".": . K.F.R.. WK$..
.... " # DESC VALUE HOLDINGS"...... "
. .... ..... ........"...... K.1 . 6
.<...:WK$." ".D(SA(K)): V$.I(WK$,3).`."
.:WK.PS(I,K): WK$." ".D(WK).R.,.:WK
$.I(WK$,7)...6.:. WK.1000 . H$." ".WK$..
.@.:. WK. 500 . H$.H(WK$,4).",".I(WK$,3)
.N.J.:WK$." ".D(K)." "...T.:. WK$;SN$(K)
;" ";V$;" ";H$...^.. K...H..: . "CASH
ON HAND --- ";PA(I): ..%.R...1.0..*4400
*.L.:.WK.SA(SN).SQ.100: PT.1.E.D.. WK.PA
(I) . SN.7: ..X.N.PA(I).PA(I).WK...X.PS(
I,SN).PS(I,SN).SQ...B........*4600*.....
PT.1.H.... 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.;.... SA(D1).200 . ..J...SA(D1).1
00.Z.... I.N1 . N2.S...:PS(I,D1).PS(I,D1
).2.{.D.. I...N........*5300*.....SA(D1)
.SA(D1).D3...H.. SA(D1).0 . ..D.R.SA(D1)
.100.T.... I.N1 . N2.....:PS(I,D1).0....
.. I............*5600*...... SA(D1).100
. ..#.... I.N1 . N2.D...:PA(I).PA(I).PS(
I,D1).D3.100.L.... I.R.....^.P..*6000*.I
.... ".";...... "PLAYER NAME CA
SH VALUE"...... "........... ..
........".T.... K.N1 . N2:S(K).PA(K)....
.:. J.1 . 6.....PA(K).PA(K).SA(J).PS(K,J
).100.....:. J...B.. K.&.D.. K.N1 . N2.1
.F.:WK..1.B.H.:. J.N1 . N2.A.J.. PA(J).W
K . WK.PA(J): I.J.J.L.:. J...T.:WK$."
".D(PA(I)).....:WK$.I(WK$,8): V$.H
(WK$,2).C...:. V$.." " . V$.V$.",".....
:. V$. " " . V$.V$." ".....:V$.V$.J(WK$
,3,3).....:. I(V$,1).." " . V$.V$.",".5.
..:. I(V$,1). " " . V$.V$." ".I...:V$.V$
.I(WK$,3).B...:. PN$(I);.21);V$: ..P...:
PA(I)..1.X.... K......K.N1.N2:PA(K).S(K)
:....$.....X..*7000*...L.I.0: PT.0: . 40
00.V.V.. SN.1 . 6: SQ.PS(0,SN).....:. SA
(SN).95 . SQ.0 . . "SELL";SQ;SN$(SN): .
4600...... SN.+.... K.1 . 1500: . K.G...
. PA(0).600 . . 7300: ..Z...WK.0:SQ.9999
99.H.... J.1 . 6.....:. SA(J).105 . PS(0
,J).SQ . WK.J:SQ.PS(0,J). .F.. J...K.SN.
WK.A.P.. WK.0 . . 7300: ..T.Z.SQ.500: .
4400...... SN.7 . . 7300: ......."BUY 5
00 ";SN$(SN)...... K.1 . 1000: . K.%....
7080.1....*7300*.G.... K.1 . 300 : . K.
[.... PT.1 . . 4000..... PT.0 . .: . "N
O TRANSACTIONS"...... K.1 . 2000: . K...
......@..*8000*.B.J.. WK$: . WK$."" . 80
10.P.T.." ";WK$.V.^.....4!.*8500*...>!N
A$.""...H!. WK$: . WK$."" . 8520...R!. W
K$.G(13) . .: ..*.\!. WK$;.:.F!NA$.NA$.W
K$.Q.P!. C(NA$).20 . .: ..\.Z!. 8520.H..
!.*8700*.Q.."SQ.0....". WK$: . WK$."" .
8720....". WK$.G(13) . .: ....$". WK$;:
SQ.SQ.10.E(WK$)....". WK$."0" . WK$."9"
. SQ.0: .: ....8". SQ.999999 . .: ....B"
. 8720...(#.*9000*.6.2#. "STOCK#?";: . 8
000: SN.E(WK$).\.<#. SN.1 . SN.6 . . M1$
;M3$: . 9010.X.F#. "QUANTITY? ";: . 8700
...P#WK.SQ..(SQ.500).500...Z#. SQ.0 . WK
.0 . . M1$;M6$: . 9030...D#..H..%.*9500*
...&%S1.32768.766.(D1.1).6...+%. K.1 . 3
00: . K...0%. K.0 . 190 . 10...:%:WK.64.
0.D%:. SA(D1).K . WK.160.H.N%:. SA(D1).K
. WK.98.`.X%:. S1,WK: . S1.1,WK.N.B%:S1
.S1.40.V.L%. K...V%. K.1 . 300: . K....%
....0U.*30000* RENUMBER RTN...5UX.1025:Y
.10:IN.5.X.:UX1.B(X.4):X2.B(X.5)...DU. X
1..143 . X2..42 . 30100...NUX1.X.6:X2.0.
..XUX3.B(X1).(.BU. X3.42 . 30090.5.LUX3.
X3.48.Z.VU. X3.0 . X3.9 . . "ERR1":. 301
00.Z..UX2.X2.10.X3:X1.X1.1:. 30040....U.
Y.X2 . Y.X2:IN.10....UY2..(Y.256):Y1.Y.
Y2.256.K..U. X.2,Y1:. X.3,Y2:Y.Y.IN....U
X.B(X).256.B(X.1)....UZ.B(X.2).256.B(X.3
)....U. Z.30000 . 30010...FU..$.@.. A.1
.255.0.J..A,G(A).8.T.. A....
> CLICK IMAGE PREVIEW FOR FULL MODAL