STOCKS & SHARES
FILE INFORMATION
FILENAME(S): STOCKS & SHARES
FILE TYPE(S): PRG
FILE SIZE: 3.4K
FIRST SEEN: 2025-11-30 17:23:54
APPEARS ON: 1 disk(s)
FILE HASH
0f39457dbb50e46df9b9200c51739fb46e1219377734df585261fd12e4a654ac
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| WEDGE MON | STOCKS & SHARES | PRG | Quetzal & Style | 14 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1B 08 0A 00 8F 20 2A 2A 2A 20 53 54 4F 43 |....... *** STOC| 00000010: 4B 4D 41 52 4B 45 54 20 2A 2A 2A 00 25 08 14 00 |KMARKET ***.%...| 00000020: 8D 20 39 39 39 00 3C 08 1E 00 8F 20 2A 2A 2A 20 |. 999.<.... *** | 00000030: 42 55 59 2F 53 45 4C 4C 20 2A 2A 2A 00 4B 08 1F |BUY/SELL ***.K..| 00000040: 00 81 20 49 B2 31 20 A4 20 31 35 00 5D 08 20 00 |.. I.1 . 15.]. .| 00000050: 45 4C 28 49 2C 54 31 29 B2 50 28 49 29 00 65 08 |EL(I,T1).P(I).e.| 00000060: 21 00 82 20 49 00 88 08 26 00 99 22 93 11 11 20 |!.. I...&.."... | 00000070: 20 53 54 41 52 54 20 4F 46 20 44 41 59 27 53 20 | START OF DAY'S | 00000080: 54 52 41 44 49 4E 47 22 00 9F 08 27 00 81 20 5A |TRADING"...'.. Z| 00000090: B2 31 20 A4 20 50 4C 3A 46 4C 28 5A 29 B2 30 00 |.1 . PL:FL(Z).0.| 000000A0: C4 08 2A 00 99 22 93 11 20 20 50 4C 41 59 45 52 |..*..".. PLAYER| 000000B0: 20 22 5A 22 20 20 20 4E 41 4D 45 20 3A 22 4E 4D | "Z" NAME :"NM| 000000C0: 24 28 5A 29 00 EB 08 2B 00 99 22 20 20 54 55 52 |$(Z)...+.." TUR| 000000D0: 4E 53 3A 20 22 54 31 22 2F 22 54 22 20 20 20 4C |NS: "T1"/"T" L| 000000E0: 4F 41 4E 3A 20 24 22 4C 28 5A 29 00 02 09 2C 00 |OAN: $"L(Z)...,.| 000000F0: 99 22 20 20 4D 4F 4E 45 59 20 3A 20 24 22 4D 28 |." MONEY : $"M(| 00000100: 5A 29 00 31 09 31 00 99 22 4E 4F 2E 22 A3 35 29 |Z).1.1.."NO.".5)| 00000110: 22 4E 41 4D 45 20 20 20 20 20 20 50 52 49 43 45 |"NAME PRICE| 00000120: 20 20 41 4D 4F 55 4E 54 20 20 43 48 41 4E 47 45 | AMOUNT CHANGE| 00000130: 22 00 4F 09 32 00 81 20 49 B2 31 20 A4 20 31 35 |".O.2.. I.1 . 15| 00000140: 3A 58 B2 53 54 28 5A 2C 49 29 AC 50 28 49 29 00 |:X.ST(Z,I).P(I).| 00000150: 70 09 3C 00 99 49 A3 33 29 41 24 28 49 29 A3 31 |p.<..I.3)A$(I).1| 00000160: 35 29 50 28 49 29 A3 32 32 29 58 A3 33 30 29 3B |5)P(I).22)X.30);| 00000170: 00 9C 09 41 00 99 B5 28 28 45 4C 28 49 2C 54 31 |...A...((EL(I,T1| 00000180: 29 AB 45 4C 28 49 2C 54 31 AB 31 29 AA 30 2E 30 |).EL(I,T1.1).0.0| 00000190: 30 35 29 AC 31 30 30 29 AD 31 30 30 00 A4 09 46 |05).100).100...F| 000001A0: 00 82 20 49 00 CC 09 50 00 85 20 22 42 55 59 2C |.. I...P.. "BUY,| 000001B0: 20 4C 4F 41 4E 2C 20 53 45 4C 4C 2C 20 47 49 56 | LOAN, SELL, GIV| 000001C0: 45 20 4F 52 20 45 4E 44 22 3B 42 24 00 DF 09 5A |E OR END";B$...Z| 000001D0: 00 8B 20 42 24 B2 22 42 22 20 A7 20 31 36 30 00 |.. B$."B" . 160.| 000001E0: F2 09 5F 00 8B 20 42 24 B2 22 4C 22 20 A7 20 35 |.._.. B$."L" . 5| 000001F0: 30 30 00 05 0A 64 00 8B 20 42 24 B2 22 53 22 20 |00...d.. B$."S" | 00000200: A7 20 32 35 30 00 18 0A 6E 00 8B 20 42 24 B2 22 |. 250...n.. B$."| 00000210: 47 22 20 A7 20 33 35 30 00 2D 0A 78 00 8B 20 42 |G" . 350.-.x.. B| 00000220: 24 B2 22 45 22 20 A7 20 89 20 31 34 30 00 36 0A |$."E" . . 140.6.| 00000230: 82 00 89 20 34 32 00 3E 0A 8C 00 82 20 5A 00 48 |... 42.>.... Z.H| 00000240: 0A 96 00 89 20 34 32 30 00 65 0A A0 00 85 20 22 |.... 420.e.... "| 00000250: 57 48 49 43 48 20 53 54 4F 43 4B 20 54 4F 20 42 |WHICH STOCK TO B| 00000260: 55 59 22 3B 42 00 7C 0A AA 00 8B 20 42 B3 30 20 |UY";B.|.... B.0 | 00000270: B0 20 42 B1 31 35 20 A7 20 31 36 30 00 8D 0A B4 |. B.15 . 160....| 00000280: 00 8B 20 42 B2 30 20 A7 20 89 20 34 32 00 BF 0A |.. B.0 . . 42...| 00000290: BE 00 85 22 48 4F 57 20 4D 55 43 48 20 44 4F 20 |..."HOW MUCH DO | 000002A0: 59 4F 55 20 57 41 4E 54 20 54 4F 20 42 55 59 20 |YOU WANT TO BUY | 000002B0: 28 30 20 54 4F 20 45 58 49 54 20 20 22 3B 43 00 |(0 TO EXIT ";C.| 000002C0: E0 0A C8 00 8B 50 28 42 29 AC 43 B1 4D 28 5A 29 |.....P(B).C.M(Z)| 000002D0: A7 20 43 B2 B5 28 4D 28 5A 29 AD 50 28 42 29 29 |. C..(M(Z).P(B))| 000002E0: 00 07 0B D2 00 4D 28 5A 29 B2 4D 28 5A 29 AB 50 |.....M(Z).M(Z).P| 000002F0: 28 42 29 AC 43 3A 53 54 28 5A 2C 42 29 B2 53 54 |(B).C:ST(Z,B).ST| 00000300: 28 5A 2C 42 29 AA 43 00 34 0B DC 00 99 22 59 4F |(Z,B).C.4...."YO| 00000310: 55 20 42 55 59 22 43 22 53 48 41 52 45 53 20 4F |U BUY"C"SHARES O| 00000320: 46 22 41 24 28 42 29 22 46 4F 52 20 24 22 50 28 |F"A$(B)"FOR $"P(| 00000330: 42 29 AC 43 00 46 0B E6 00 81 20 49 B2 31 20 A4 |B).C.F.... I.1 .| 00000340: 20 35 30 30 3A 82 00 4F 0B F0 00 89 20 34 32 00 | 500:..O.... 42.| 00000350: 6C 0B FA 00 85 22 57 48 49 43 48 20 53 54 4F 43 |l...."WHICH STOC| 00000360: 4B 20 54 4F 20 53 45 4C 4C 22 3B 42 00 84 0B 04 |K TO SELL";B....| 00000370: 01 8B 20 42 B3 30 20 B0 20 42 B1 31 35 20 A7 20 |.. B.0 . B.15 . | 00000380: 89 20 34 32 00 95 0B 0E 01 8B 20 42 B2 30 20 A7 |. 42...... B.0 .| 00000390: 20 89 20 34 32 00 D4 0B 18 01 8B 20 53 54 28 5A | . 42...... ST(Z| 000003A0: 2C 42 29 B2 30 20 A7 20 99 22 59 4F 55 20 44 4F |,B).0 . ."YOU DO| 000003B0: 4E 27 54 20 48 41 56 45 20 54 48 41 54 20 53 54 |N'T HAVE THAT ST| 000003C0: 4F 43 4B 22 3A 81 49 B2 31 A4 35 30 30 3A 82 3A |OCK":.I.1.500:.:| 000003D0: 89 20 34 32 00 FA 0B 22 01 85 22 48 4F 57 20 4D |. 42...".."HOW M| 000003E0: 55 43 48 20 44 4F 20 59 4F 55 20 57 41 4E 54 20 |UCH DO YOU WANT | 000003F0: 54 4F 20 53 45 4C 4C 22 3B 43 00 16 0C 2C 01 8B |TO SELL";C...,..| 00000400: 20 43 B1 53 54 28 5A 2C 42 29 20 A7 20 43 B2 53 | C.ST(Z,B) . C.S| 00000410: 54 28 5A 2C 42 29 00 4F 0C 36 01 4D 28 5A 29 B2 |T(Z,B).O.6.M(Z).| 00000420: B5 28 4D 28 5A 29 AA 50 28 42 29 AC 43 AB 28 50 |.(M(Z).P(B).C.(P| 00000430: 28 42 29 AC 43 AC 30 2E 30 32 35 29 29 3A 53 54 |(B).C.0.025)):ST| 00000440: 28 5A 2C 42 29 B2 53 54 28 5A 2C 42 29 AB 43 00 |(Z,B).ST(Z,B).C.| 00000450: 83 0C 40 01 99 22 59 4F 55 20 48 41 56 45 20 53 |..@.."YOU HAVE S| 00000460: 4F 4C 44 20 22 43 22 53 48 41 52 45 53 20 4F 46 |OLD "C"SHARES OF| 00000470: 22 41 24 28 42 29 22 46 4F 52 20 24 22 50 28 42 |"A$(B)"FOR $"P(B| 00000480: 29 AC 43 00 95 0C 4A 01 81 20 49 B2 31 20 A4 20 |).C...J.. I.1 . | 00000490: 35 30 30 3A 82 00 9E 0C 54 01 89 20 34 32 00 C4 |500:....T.. 42..| 000004A0: 0C 5E 01 85 22 48 4F 57 20 4D 55 43 48 20 44 4F |.^.."HOW MUCH DO| 000004B0: 20 59 4F 55 20 57 49 53 48 20 54 4F 20 47 49 56 | YOU WISH TO GIV| 000004C0: 45 22 3B 42 00 D8 0C 68 01 8B 20 42 B1 4D 28 5A |E";B...h.. B.M(Z| 000004D0: 29 20 A7 20 89 20 34 32 00 E8 0C 72 01 85 22 54 |) . . 42...r.."T| 000004E0: 4F 20 57 48 4F 22 3B 43 00 01 0D 7C 01 8B 20 43 |O WHO";C...|.. C| 000004F0: B3 30 20 B0 20 43 B1 50 4C 20 A7 20 89 20 33 37 |.0 . C.PL . . 37| 00000500: 30 00 12 0D 86 01 8B 20 43 B2 30 20 A7 20 89 20 |0...... C.0 . . | 00000510: 34 32 00 2E 0D 90 01 4D 28 43 29 B2 4D 28 43 29 |42.....M(C).M(C)| 00000520: AA 42 3A 4D 28 5A 29 B2 4D 28 5A 29 AB 42 00 37 |.B:M(Z).M(Z).B.7| 00000530: 0D 9A 01 89 20 34 32 00 46 0D A4 01 81 20 49 B2 |.... 42.F.... I.| 00000540: 31 20 A4 20 31 35 00 6E 0D AE 01 55 44 28 49 29 |1 . 15.n...UD(I)| 00000550: B2 55 44 28 49 29 AA B5 28 BB 28 31 29 AC 46 4C |.UD(I)..(.(1).FL| 00000560: 28 49 29 AC 32 AB 28 46 4C 28 49 29 29 29 00 85 |(I).2.(FL(I)))..| 00000570: 0D AF 01 8B 20 50 28 49 29 B2 30 20 A7 20 55 44 |.... P(I).0 . UD| 00000580: 28 49 29 B2 31 00 9F 0D B0 01 8B 20 55 44 28 49 |(I).1...... UD(I| 00000590: 29 B1 31 30 20 A7 20 55 44 28 49 29 B2 31 30 00 |).10 . UD(I).10.| 000005A0: B3 0D B3 01 50 28 49 29 B2 50 28 49 29 AA 55 44 |....P(I).P(I).UD| 000005B0: 28 49 29 00 C6 0D B8 01 8B 20 50 28 49 29 B1 30 |(I)...... P(I).0| 000005C0: 20 A7 20 34 37 35 00 D5 0D C2 01 81 20 4A B2 31 | . 475...... J.1| 000005D0: 20 A4 20 50 4C 00 EA 0D CC 01 53 54 28 4A 2C 49 | . PL.....ST(J,I| 000005E0: 29 B2 30 3A 50 28 49 29 B2 30 00 F0 0D D6 01 82 |).0:P(I).0......| 000005F0: 00 07 0E DB 01 8B 20 50 28 49 29 B1 33 30 20 A7 |...... P(I).30 .| 00000600: 20 8D 20 34 30 30 30 00 0D 0E E0 01 82 00 22 0E | . 4000.......".| 00000610: E1 01 8B 20 54 31 B2 B1 54 20 A7 20 89 20 33 30 |... T1..T . . 30| 00000620: 30 30 00 2E 0E E2 01 54 31 B2 54 31 AA 31 00 5D |00.....T1.T1.1.]| 00000630: 0E E3 01 99 22 35 25 20 4D 4F 4E 45 59 20 54 41 |...."5% MONEY TA| 00000640: 58 2C 20 41 4E 44 20 31 30 25 20 49 4E 54 45 52 |X, AND 10% INTER| 00000650: 45 53 54 20 4F 4E 20 4C 4F 41 4E 53 22 00 6C 0E |EST ON LOANS".l.| 00000660: E4 01 81 20 49 B2 31 20 A4 20 50 4C 00 8F 0E E5 |... I.1 . PL....| 00000670: 01 54 58 B2 B5 28 4D 28 49 29 AC 30 2E 30 35 29 |.TX..(M(I).0.05)| 00000680: 3A 49 4E B2 B5 28 4C 28 49 29 AC 30 2E 31 29 00 |:IN..(L(I).0.1).| 00000690: B9 0E E6 01 99 4E 4D 24 28 49 29 22 20 54 41 58 |.....NM$(I)" TAX| 000006A0: 20 2D 20 24 22 54 58 22 20 20 49 4E 54 45 52 45 | - $"TX" INTERE| 000006B0: 53 54 20 2D 20 24 22 49 4E 00 D7 0E E7 01 4D 28 |ST - $"IN.....M(| 000006C0: 49 29 B2 4D 28 49 29 AB 54 58 3A 4C 28 49 29 B2 |I).M(I).TX:L(I).| 000006D0: 4C 28 49 29 AA 49 4E 00 DF 0E E8 01 82 20 49 00 |L(I).IN...... I.| 000006E0: F3 0E E9 01 99 22 48 49 54 20 41 4E 59 20 4B 45 |....."HIT ANY KE| 000006F0: 59 2E 22 00 0A 0F EA 01 A1 20 41 24 3A 8B 20 41 |Y."...... A$:. A| 00000700: 24 B2 22 22 20 A7 20 34 39 30 00 13 0F F3 01 89 |$."" . 490......| 00000710: 20 33 31 00 28 0F F4 01 8B 20 4C 28 5A 29 B2 30 | 31.(.... L(Z).0| 00000720: 20 A7 20 89 20 35 30 35 00 3C 0F F5 01 85 20 22 | . . 505.<.... "| 00000730: 52 45 50 41 59 49 4E 47 22 3B 52 24 00 51 0F F6 |REPAYING";R$.Q..| 00000740: 01 8B 20 52 24 B2 22 59 22 20 A7 20 89 20 36 30 |.. R$."Y" . . 60| 00000750: 30 00 60 0F F9 01 81 20 49 B2 31 20 A4 20 31 35 |0.`.... I.1 . 15| 00000760: 00 77 0F FE 01 4D B2 4D AA 28 50 28 49 29 AC 53 |.w...M.M.(P(I).S| 00000770: 54 28 5A 2C 49 29 29 00 7F 0F 08 02 82 20 49 00 |T(Z,I))...... I.| 00000780: 94 0F 0D 02 8B 20 46 4C 28 5A 29 B2 31 20 A7 20 |..... FL(Z).1 . | 00000790: 89 20 34 32 00 A1 0F 12 02 4D B2 4D AA 4D 28 5A |. 42.....M.M.M(Z| 000007A0: 29 00 AF 0F 1C 02 4C 41 B2 4D AB 4C 28 5A 29 00 |).....LA.M.L(Z).| 000007B0: C4 0F 21 02 8B 20 4C 41 B3 B2 30 20 A7 20 4C 41 |..!.. LA..0 . LA| 000007C0: B2 35 30 30 00 EA 0F 26 02 99 22 48 4F 57 20 4D |.500...&.."HOW M| 000007D0: 55 43 48 20 4D 4F 4E 45 59 20 57 49 4C 4C 20 59 |UCH MONEY WILL Y| 000007E0: 4F 55 20 42 4F 52 52 4F 57 22 00 F2 0F 30 02 85 |OU BORROW"...0..| 000007F0: 20 43 00 04 10 35 02 8B 20 43 B3 B2 30 20 A7 20 | C...5.. C..0 . | 00000800: 89 20 34 32 00 2A 10 3A 02 8B 20 43 B1 4C 41 20 |. 42.*.:.. C.LA | 00000810: A7 20 99 22 54 4F 4F 20 4D 55 43 48 20 4D 4F 4E |. ."TOO MUCH MON| 00000820: 45 59 2E 22 3A 89 20 35 35 30 00 60 10 3B 02 8B |EY.":. 550.`.;..| 00000830: 20 43 B1 31 30 30 30 30 30 20 B0 20 4C 28 5A 29 | C.100000 . L(Z)| 00000840: B1 31 30 30 30 30 30 30 20 A7 20 99 22 47 45 54 |.1000000 . ."GET| 00000850: 20 53 54 55 46 46 45 44 2E 22 3A 89 20 35 35 30 | STUFFED.":. 550| 00000860: 00 7C 10 44 02 4C 28 5A 29 B2 4C 28 5A 29 AA 43 |.|.D.L(Z).L(Z).C| 00000870: 3A 4D 28 5A 29 B2 4D 28 5A 29 AA 43 00 88 10 49 |:M(Z).M(Z).C...I| 00000880: 02 46 4C 28 5A 29 B2 31 00 91 10 4E 02 89 20 34 |.FL(Z).1...N.. 4| 00000890: 32 00 B4 10 58 02 85 22 48 4F 57 20 4D 55 43 48 |2...X.."HOW MUCH| 000008A0: 20 41 52 45 20 59 4F 55 20 52 45 50 41 59 49 4E | ARE YOU REPAYIN| 000008B0: 47 22 3B 43 00 DD 10 62 02 8B 20 4D 28 5A 29 B3 |G";C...b.. M(Z).| 000008C0: 43 20 A7 20 99 22 4E 4F 54 20 45 4E 4F 55 47 48 |C . ."NOT ENOUGH| 000008D0: 20 4D 4F 4E 45 59 22 3A 89 20 36 30 30 00 F3 10 | MONEY":. 600...| 000008E0: 67 02 8B 20 43 B1 4C 28 5A 29 20 A7 20 43 B2 4C |g.. C.L(Z) . C.L| 000008F0: 28 5A 29 00 0F 11 6C 02 4C 28 5A 29 B2 4C 28 5A |(Z)...l.L(Z).L(Z| 00000900: 29 AB 43 3A 4D 28 5A 29 B2 4D 28 5A 29 AB 43 00 |).C:M(Z).M(Z).C.| 00000910: 18 11 76 02 89 20 34 32 00 4E 11 E7 03 86 20 41 |..v.. 42.N.... A| 00000920: 24 28 32 30 29 2C 50 28 32 30 29 2C 46 4C 28 32 |$(20),P(20),FL(2| 00000930: 30 29 2C 4E 4D 24 28 31 30 29 2C 4D 28 31 30 29 |0),NM$(10),M(10)| 00000940: 3A 54 31 B2 31 3A 86 20 55 44 28 32 30 29 00 5D |:T1.1:. UD(20).]| 00000950: 11 E8 03 81 20 49 B2 31 20 A4 20 31 35 00 78 11 |.... I.1 . 15.x.| 00000960: F2 03 87 20 41 24 28 49 29 3A 87 20 50 28 49 29 |... A$(I):. P(I)| 00000970: 3A 87 20 46 4C 28 49 29 00 80 11 FC 03 82 20 49 |:. FL(I)...... I| 00000980: 00 A3 11 06 04 85 20 22 48 4F 57 20 4D 41 4E 59 |...... "HOW MANY| 00000990: 20 50 45 4F 50 4C 45 20 50 4C 41 59 49 4E 47 22 | PEOPLE PLAYING"| 000009A0: 3B 50 4C 00 BD 11 10 04 8B 20 50 4C B3 30 20 B0 |;PL...... PL.0 .| 000009B0: 20 50 4C B1 31 30 20 A7 20 31 30 33 30 00 CC 11 | PL.10 . 1030...| 000009C0: 1A 04 81 20 49 B2 31 20 A4 20 50 4C 00 DB 11 24 |... I.1 . PL...$| 000009D0: 04 4D 28 49 29 B2 31 30 30 30 30 00 F5 11 2E 04 |.M(I).10000.....| 000009E0: 99 22 50 4C 41 59 45 52 20 22 49 22 27 53 20 4E |."PLAYER "I"'S N| 000009F0: 41 4D 45 22 3B 00 02 12 38 04 85 20 4E 4D 24 28 |AME";...8.. NM$(| 00000A00: 49 29 00 0A 12 42 04 82 20 49 00 1A 12 47 04 86 |I)...B.. I...G..| 00000A10: 20 53 54 28 50 4C 2C 32 30 29 00 33 12 4C 04 85 | ST(PL,20).3.L..| 00000A20: 20 22 48 4F 57 20 4D 41 4E 59 20 54 55 52 4E 53 | "HOW MANY TURNS| 00000A30: 22 3B 54 00 42 12 56 04 86 20 45 4C 28 32 30 2C |";T.B.V.. EL(20,| 00000A40: 54 29 00 48 12 60 04 8E 00 5E 12 D0 07 83 20 22 |T).H.`...^.... "| 00000A50: 43 4F 4D 50 55 54 45 52 53 22 2C 34 2C 34 00 75 |COMPUTERS",4,4.u| 00000A60: 12 DA 07 83 20 22 42 41 4E 4B 20 20 20 20 20 22 |.... "BANK "| 00000A70: 2C 31 30 2C 33 00 8B 12 E4 07 83 20 22 43 4F 43 |,10,3...... "COC| 00000A80: 41 20 43 4F 4C 41 22 2C 32 2C 34 00 A1 12 EE 07 |A COLA",2,4.....| 00000A90: 83 20 22 46 4F 52 44 20 20 20 20 20 22 2C 35 2C |. "FORD ",5,| 00000AA0: 32 00 B8 12 F8 07 83 20 22 53 48 49 50 53 20 20 |2...... "SHIPS | 00000AB0: 20 20 22 2C 31 30 2C 32 00 CF 12 02 08 83 20 22 | ",10,2...... "| 00000AC0: 42 49 47 20 57 20 20 20 20 22 2C 31 31 2C 36 00 |BIG W ",11,6.| 00000AD0: E5 12 0C 08 83 20 22 4F 49 4C 20 52 49 47 53 20 |..... "OIL RIGS | 00000AE0: 22 2C 38 2C 34 00 FB 12 16 08 83 20 22 42 55 49 |",8,4...... "BUI| 00000AF0: 4C 44 45 52 53 20 22 2C 34 2C 35 00 11 13 20 08 |LDERS ",4,5... .| 00000B00: 83 20 22 54 52 41 44 45 52 53 20 20 22 2C 39 2C |. "TRADERS ",9,| 00000B10: 35 00 28 13 2A 08 83 20 22 43 48 20 45 49 47 48 |5.(.*.. "CH EIGH| 00000B20: 54 20 22 2C 31 30 2C 35 00 3E 13 34 08 83 20 22 |T ",10,5.>.4.. "| 00000B30: 45 4C 45 43 54 52 49 43 20 22 2C 35 2C 33 00 55 |ELECTRIC ",5,3.U| 00000B40: 13 3E 08 83 20 22 42 49 47 20 43 4F 52 50 2E 22 |.>.. "BIG CORP."| 00000B50: 2C 31 35 2C 35 00 6C 13 48 08 83 20 22 46 41 52 |,15,5.l.H.. "FAR| 00000B60: 4D 53 20 49 4E 43 22 2C 35 2C 31 30 00 82 13 52 |MS INC",5,10...R| 00000B70: 08 83 20 22 4D 49 4E 45 53 20 4C 54 44 22 2C 38 |.. "MINES LTD",8| 00000B80: 2C 33 00 98 13 5C 08 83 20 22 50 4C 41 53 54 20 |,3...\.. "PLAST | 00000B90: 49 4E 44 22 2C 35 2C 32 00 AF 13 B8 0B 99 22 93 |IND",5,2......".| 00000BA0: 20 20 20 45 4E 44 20 4F 46 20 47 41 4D 45 22 00 | END OF GAME".| 00000BB0: C2 13 C2 0B 81 20 49 B2 31 20 A4 20 50 4C 3A 41 |..... I.1 . PL:A| 00000BC0: B2 30 00 D1 13 CC 0B 81 20 4A B2 31 20 A4 20 31 |.0...... J.1 . 1| 00000BD0: 35 00 E8 13 D6 0B 41 B2 41 AA 28 53 54 28 49 2C |5.....A.A.(ST(I,| 00000BE0: 4A 29 AC 50 28 4A 29 29 00 F0 13 E0 0B 82 20 4A |J).P(J))...... J| 00000BF0: 00 17 14 EA 0B 99 4E 4D 24 28 49 29 22 20 48 41 |......NM$(I)" HA| 00000C00: 44 20 24 22 4D 28 49 29 22 20 43 41 53 48 20 49 |D $"M(I)" CASH I| 00000C10: 4E 20 48 41 4E 44 22 00 32 14 EB 0B 99 22 41 53 |N HAND".2...."AS| 00000C20: 53 45 54 53 20 54 4F 54 41 4C 4C 49 4E 47 20 24 |SETS TOTALLING $| 00000C30: 22 41 00 50 14 EC 0B 99 22 41 4E 44 20 48 41 44 |"A.P...."AND HAD| 00000C40: 20 44 45 42 54 53 20 4F 46 20 24 22 4C 28 49 29 | DEBTS OF $"L(I)| 00000C50: 00 79 14 ED 0B 99 22 46 4F 52 20 41 20 47 52 41 |.y...."FOR A GRA| 00000C60: 4E 44 20 54 4F 54 41 4C 20 4F 46 20 24 22 4D 28 |ND TOTAL OF $"M(| 00000C70: 49 29 AA 41 AB 4C 28 49 29 00 81 14 F4 0B 82 20 |I).A.L(I)...... | 00000C80: 49 00 87 14 FE 0B 80 00 9C 14 A0 0F 8B 20 BB 28 |I............ .(| 00000C90: 31 29 B1 2E 36 20 A7 20 34 30 37 30 00 AF 14 A5 |1)..6 . 4070....| 00000CA0: 0F 50 28 49 29 B2 B5 28 50 28 49 29 AD 32 29 00 |.P(I)..(P(I).2).| 00000CB0: BE 14 AA 0F 81 20 4A B2 31 20 A4 20 50 4C 00 D4 |..... J.1 . PL..| 00000CC0: 14 B4 0F 53 54 28 4A 2C 49 29 B2 53 54 28 4A 2C |...ST(J,I).ST(J,| 00000CD0: 49 29 AC 32 00 DC 14 BE 0F 82 20 4A 00 F7 14 C8 |I).2...... J....| 00000CE0: 0F 99 41 24 28 49 29 22 53 50 4C 49 54 53 20 32 |..A$(I)"SPLITS 2| 00000CF0: 20 46 4F 52 20 31 22 00 0F 15 D2 0F A1 20 41 24 | FOR 1"...... A$| 00000D00: 3A 8B 20 41 24 B2 22 22 20 A7 20 34 30 35 30 00 |:. A$."" . 4050.| 00000D10: 15 15 DC 0F 8E 00 28 15 E6 0F 50 28 49 29 B2 B5 |......(...P(I)..| 00000D20: 28 50 28 49 29 AD 33 29 00 37 15 F0 0F 81 20 4A |(P(I).3).7.... J| 00000D30: B2 31 20 A4 20 50 4C 00 4D 15 FA 0F 53 54 28 4A |.1 . PL.M...ST(J| 00000D40: 2C 49 29 B2 53 54 28 4A 2C 49 29 AC 33 00 55 15 |,I).ST(J,I).3.U.| 00000D50: 04 10 82 20 4A 00 70 15 0E 10 99 41 24 28 49 29 |... J.p....A$(I)| 00000D60: 22 53 50 4C 49 54 53 20 33 20 46 4F 52 20 31 22 |"SPLITS 3 FOR 1"| 00000D70: 00 88 15 18 10 A1 20 41 24 3A 8B 20 41 24 B2 22 |...... A$:. A$."| 00000D80: 22 20 A7 20 34 30 35 30 00 8E 15 22 10 8E 00 00 |" . 4050..."....| 00000D90: 00 |. |
....... *** STOCKMARKET ***.%.... 999.<. ... *** BUY/SELL ***.K.... I.1 . 15.]. . EL(I,T1).P(I).E.!.. I...&.."... START O F DAY'S TRADING"...'.. Z.1 . PL:FL(Z).0. D.*..".. PLAYER "Z" NAME :"NM$(Z)...+ .." TURNS: "T1"/"T" LOAN: $"L(Z)...,. ." MONEY : $"M(Z).1.1.."NO.".5)"NAME PRICE AMOUNT CHANGE".O.2.. I.1 . 15 :X.ST(Z,I).P(I).P.<..I.3)A$(I).15)P(I).2 2)X.30);...A...((EL(I,T1).EL(I,T1.1).0.0 05).100).100...F.. I.L.P.. "BUY, LOAN, S ELL, GIVE OR END";B$...Z.. B$."B" . 160. .._.. B$."L" . 500...D.. B$."S" . 250... N.. B$."G" . 350.-.X.. B$."E" . . 140.6. ... 42.>.... Z.H.... 420.E. .. "WHICH ST OCK TO BUY";B.|.... B.0 . B.15 . 160.... .. B.0 . . 42......"HOW MUCH DO YOU WANT TO BUY (0 TO EXIT ";C...H..P(B).C.M(Z) . C..(M(Z).P(B))...R.M(Z).M(Z).P(B).C:ST (Z,B).ST(Z,B).C.4...."YOU BUY"C"SHARES O F"A$(B)"FOR $"P(B).C.F.... I.1 . 500:..O .... 42.L...."WHICH STOCK TO SELL";B.... .. B.0 . B.15 . . 42...... B.0 . . 42.T. ... ST(Z,B).0 . ."YOU DON'T HAVE THAT ST OCK":.I.1.500:.:. 42...".."HOW MUCH DO Y OU WANT TO SELL";C...,.. C.ST(Z,B) . C.S T(Z,B).O.6.M(Z)..(M(Z).P(B).C.(P(B).C.0. 025)):ST(Z,B).ST(Z,B).C...@.."YOU HAVE S OLD "C"SHARES OF"A$(B)"FOR $"P(B).C...J. . I.1 . 500:....T.. 42.D.^.."HOW MUCH DO YOU WISH TO GIVE";B.X.H.. B.M(Z) . . 42 ...R.."TO WHO";C...|.. C.0 . C.PL . . 37 0...... C.0 . . 42.....M(C).M(C).B:M(Z). M(Z).B.7.... 42.F.... I.1 . 15.N...UD(I) .UD(I)..(.(1).FL(I).2.(FL(I)))...... P(I ).0 . UD(I).1...... UD(I).10 . UD(I).10. ....P(I).P(I).UD(I).F.... P(I).0 . 475.U .B.. J.1 . PL...L.ST(J,I).0:P(I).0...V.. ...... P(I).30 . . 4000.......".... T1.. T . . 3000.....T1.T1.1.]...."5% MONEY TA X, AND 10% INTEREST ON LOANS".L.... I.1 . PL.....TX..(M(I).0.05):IN..(L(I).0.1). .....NM$(I)" TAX - $"TX" INTEREST - $"I N.W...M(I).M(I).TX:L(I).L(I).IN...... I. ....."HIT ANY KEY."...... A$:. A$."" . 4 90...... 31.(.... L(Z).0 . . 505.<.... " REPAYING";R$.Q.... R$."Y" . . 600.`.... I.1 . 15.W...M.M.(P(I).ST(Z,I))..... I. ..... FL(Z).1 . . 42.....M.M.M(Z).....LA .M.L(Z).D.!.. LA..0 . LA.500...&.."HOW M UCH MONEY WILL YOU BORROW"...0.. C...5.. C..0 . . 42.*.:.. C.LA . ."TOO MUCH MON EY.":. 550.`.;.. C.100000 . L(Z).1000000 . ."GET STUFFED.":. 550.|.D.L(Z).L(Z).C :M(Z).M(Z).C...I.FL(Z).1...N.. 42...X.." HOW MUCH ARE YOU REPAYING";C...B.. M(Z). C . ."NOT ENOUGH MONEY":. 600...G.. C.L( Z) . C.L(Z)...L.L(Z).L(Z).C:M(Z).M(Z).C. ..V.. 42.N.... A$(20),P(20),FL(20),NM$(1 0),M(10):T1.1:. UD(20).].... I.1 . 15.X. ... A$(I):. P(I):. FL(I)...... I...... " HOW MANY PEOPLE PLAYING";PL...... PL.0 . PL.10 . 1030.L.... I.1 . PL...$.M(I).10 000......"PLAYER "I"'S NAME";...8.. NM$( I)...B.. I...G.. ST(PL,20).3.L.. "HOW MA NY TURNS";T.B.V.. EL(20,T).H.`...^.P.. " COMPUTERS",4,4.U.Z.. "BANK ",10,3... ... "COCA COLA",2,4...... "FORD ",5, 2...... "SHIPS ",10,2.O.... "BIG W ",11,6...... "OIL RIGS ",8,4...... "BUI LDERS ",4,5... .. "TRADERS ",9,5.(.*.. "CH EIGHT ",10,5.>.4.. "ELECTRIC ",5,3.U .>.. "BIG CORP.",15,5.L.H.. "FARMS INC", 5,10...R.. "MINES LTD",8,3...\.. "PLAST IND",5,2......". END OF GAME".B.B.. I. 1 . PL:A.0.Q.L.. J.1 . 15...V.A.A.(ST(I, J).P(J))...... J......NM$(I)" HAD $"M(I) " CASH IN HAND".2...."ASSETS TOTALLING $ "A.P...."AND HAD DEBTS OF $"L(I).Y...."F OR A GRAND TOTAL OF $"M(I).A.L(I)...... I......... .. .(1)..6 . 4070.....P(I)..( P(I).2)...... J.1 . PL.T...ST(J,I).ST(J, I).2...... J...H..A$(I)"SPLITS 2 FOR 1". ..R.. A$:. A$."" . 4050.......(...P(I).. (P(I).3).7.... J.1 . PL.M...ST(J,I).ST(J ,I).3.U.... J.P....A$(I)"SPLITS 3 FOR 1" ...... A$:. A$."" . 4050...".....
> CLICK IMAGE PREVIEW FOR FULL MODAL