STOCKS + SHARES
FILE INFORMATION
FILENAME(S): STOCKS + SHARES
FILE TYPE(S): PRG
FILE SIZE: 3.6K
FIRST SEEN: 2025-11-30 17:23:54
APPEARS ON: 1 disk(s)
FILE HASH
61bf2e6bd3b9aa0e43c176861ee0455b0dda7db5e189cf896d54973f67f72c2b
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| WEDGE MON | STOCKS + SHARES | PRG | Quetzal & Style | 2 | 0 | 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 5D 0D AE 01 8B 20 50 28 49 |1 . 15.].... P(I| 00000550: 29 B2 30 20 A7 20 55 44 28 49 29 B2 31 00 85 0D |).0 . UD(I).1...| 00000560: AF 01 55 44 28 49 29 B2 55 44 28 49 29 AA B5 28 |..UD(I).UD(I)..(| 00000570: BB 28 31 29 AC 46 4C 28 49 29 AC 32 AB 28 46 4C |.(1).FL(I).2.(FL| 00000580: 28 49 29 29 29 00 9F 0D B0 01 8B 20 55 44 28 49 |(I)))...... UD(I| 00000590: 29 B1 31 30 20 A7 20 55 44 28 49 29 B2 31 30 00 |).10 . UD(I).10.| 000005A0: C7 0D B1 01 8B 20 53 54 28 46 41 2C 49 29 B1 30 |..... ST(FA,I).0| 000005B0: 20 B0 20 53 54 28 46 42 2C 49 29 B1 30 20 A7 20 | . ST(FB,I).0 . | 000005C0: 8D 20 32 30 30 30 30 00 DB 0D B3 01 50 28 49 29 |. 20000.....P(I)| 000005D0: B2 50 28 49 29 AA 55 44 28 49 29 00 EE 0D B8 01 |.P(I).UD(I).....| 000005E0: 8B 20 50 28 49 29 B1 30 20 A7 20 34 37 35 00 FD |. P(I).0 . 475..| 000005F0: 0D C2 01 81 20 4A B2 31 20 A4 20 50 4C 00 12 0E |.... J.1 . PL...| 00000600: CC 01 53 54 28 4A 2C 49 29 B2 30 3A 50 28 49 29 |..ST(J,I).0:P(I)| 00000610: B2 30 00 18 0E D6 01 82 00 2F 0E DB 01 8B 20 50 |.0......./.... P| 00000620: 28 49 29 B1 33 30 20 A7 20 8D 20 34 30 30 30 00 |(I).30 . . 4000.| 00000630: 35 0E E0 01 82 00 4A 0E E1 01 8B 20 54 31 B2 B1 |5.....J.... T1..| 00000640: 54 20 A7 20 89 20 33 30 30 30 00 56 0E E2 01 54 |T . . 3000.V...T| 00000650: 31 B2 54 31 AA 31 00 85 0E E3 01 99 22 35 25 20 |1.T1.1......"5% | 00000660: 4D 4F 4E 45 59 20 54 41 58 2C 20 41 4E 44 20 31 |MONEY TAX, AND 1| 00000670: 30 25 20 49 4E 54 45 52 45 53 54 20 4F 4E 20 4C |0% INTEREST ON L| 00000680: 4F 41 4E 53 22 00 94 0E E4 01 81 20 49 B2 31 20 |OANS"...... I.1 | 00000690: A4 20 50 4C 00 B7 0E E5 01 54 58 B2 B5 28 4D 28 |. PL.....TX..(M(| 000006A0: 49 29 AC 30 2E 30 35 29 3A 49 4E B2 B5 28 4C 28 |I).0.05):IN..(L(| 000006B0: 49 29 AC 30 2E 31 29 00 E1 0E E6 01 99 4E 4D 24 |I).0.1)......NM$| 000006C0: 28 49 29 22 20 54 41 58 20 2D 20 24 22 54 58 22 |(I)" TAX - $"TX"| 000006D0: 20 20 49 4E 54 45 52 45 53 54 20 2D 20 24 22 49 | INTEREST - $"I| 000006E0: 4E 00 FF 0E E7 01 4D 28 49 29 B2 4D 28 49 29 AB |N.....M(I).M(I).| 000006F0: 54 58 3A 4C 28 49 29 B2 4C 28 49 29 AA 49 4E 00 |TX:L(I).L(I).IN.| 00000700: 07 0F E8 01 82 20 49 00 1B 0F E9 01 99 22 48 49 |..... I......"HI| 00000710: 54 20 41 4E 59 20 4B 45 59 2E 22 00 32 0F EA 01 |T ANY KEY.".2...| 00000720: A1 20 41 24 3A 8B 20 41 24 B2 22 22 20 A7 20 34 |. A$:. A$."" . 4| 00000730: 39 30 00 3B 0F F3 01 89 20 33 31 00 50 0F F4 01 |90.;.... 31.P...| 00000740: 8B 20 4C 28 5A 29 B2 30 20 A7 20 89 20 35 30 35 |. L(Z).0 . . 505| 00000750: 00 64 0F F5 01 85 20 22 52 45 50 41 59 49 4E 47 |.d.... "REPAYING| 00000760: 22 3B 52 24 00 79 0F F6 01 8B 20 52 24 B2 22 59 |";R$.y.... R$."Y| 00000770: 22 20 A7 20 89 20 36 30 30 00 88 0F F9 01 81 20 |" . . 600...... | 00000780: 49 B2 31 20 A4 20 31 35 00 9F 0F FE 01 4D B2 4D |I.1 . 15.....M.M| 00000790: AA 28 50 28 49 29 AC 53 54 28 5A 2C 49 29 29 00 |.(P(I).ST(Z,I)).| 000007A0: A7 0F 08 02 82 20 49 00 BC 0F 0D 02 8B 20 46 4C |..... I...... FL| 000007B0: 28 5A 29 B2 31 20 A7 20 89 20 34 32 00 C9 0F 12 |(Z).1 . . 42....| 000007C0: 02 4D B2 4D AA 4D 28 5A 29 00 D7 0F 1C 02 4C 41 |.M.M.M(Z).....LA| 000007D0: B2 4D AB 4C 28 5A 29 00 EC 0F 21 02 8B 20 4C 41 |.M.L(Z)...!.. LA| 000007E0: B3 B2 30 20 A7 20 4C 41 B2 35 30 30 00 12 10 26 |..0 . LA.500...&| 000007F0: 02 99 22 48 4F 57 20 4D 55 43 48 20 4D 4F 4E 45 |.."HOW MUCH MONE| 00000800: 59 20 57 49 4C 4C 20 59 4F 55 20 42 4F 52 52 4F |Y WILL YOU BORRO| 00000810: 57 22 00 1A 10 30 02 85 20 43 00 2C 10 35 02 8B |W"...0.. C.,.5..| 00000820: 20 43 B3 B2 30 20 A7 20 89 20 34 32 00 52 10 3A | C..0 . . 42.R.:| 00000830: 02 8B 20 43 B1 4C 41 20 A7 20 99 22 54 4F 4F 20 |.. C.LA . ."TOO | 00000840: 4D 55 43 48 20 4D 4F 4E 45 59 2E 22 3A 89 20 35 |MUCH MONEY.":. 5| 00000850: 35 30 00 88 10 3B 02 8B 20 43 B1 31 30 30 30 30 |50...;.. C.10000| 00000860: 30 20 B0 20 4C 28 5A 29 B1 31 30 30 30 30 30 30 |0 . L(Z).1000000| 00000870: 20 A7 20 99 22 47 45 54 20 53 54 55 46 46 45 44 | . ."GET STUFFED| 00000880: 2E 22 3A 89 20 35 35 30 00 A4 10 44 02 4C 28 5A |.":. 550...D.L(Z| 00000890: 29 B2 4C 28 5A 29 AA 43 3A 4D 28 5A 29 B2 4D 28 |).L(Z).C:M(Z).M(| 000008A0: 5A 29 AA 43 00 B0 10 49 02 46 4C 28 5A 29 B2 31 |Z).C...I.FL(Z).1| 000008B0: 00 B9 10 4E 02 89 20 34 32 00 DC 10 58 02 85 22 |...N.. 42...X.."| 000008C0: 48 4F 57 20 4D 55 43 48 20 41 52 45 20 59 4F 55 |HOW MUCH ARE YOU| 000008D0: 20 52 45 50 41 59 49 4E 47 22 3B 43 00 05 11 62 | REPAYING";C...b| 000008E0: 02 8B 20 4D 28 5A 29 B3 43 20 A7 20 99 22 4E 4F |.. M(Z).C . ."NO| 000008F0: 54 20 45 4E 4F 55 47 48 20 4D 4F 4E 45 59 22 3A |T ENOUGH MONEY":| 00000900: 89 20 36 30 30 00 1B 11 67 02 8B 20 43 B1 4C 28 |. 600...g.. C.L(| 00000910: 5A 29 20 A7 20 43 B2 4C 28 5A 29 00 37 11 6C 02 |Z) . C.L(Z).7.l.| 00000920: 4C 28 5A 29 B2 4C 28 5A 29 AB 43 3A 4D 28 5A 29 |L(Z).L(Z).C:M(Z)| 00000930: B2 4D 28 5A 29 AB 43 00 40 11 76 02 89 20 34 32 |.M(Z).C.@.v.. 42| 00000940: 00 76 11 E7 03 86 20 41 24 28 32 30 29 2C 50 28 |.v.... A$(20),P(| 00000950: 32 30 29 2C 46 4C 28 32 30 29 2C 4E 4D 24 28 31 |20),FL(20),NM$(1| 00000960: 30 29 2C 4D 28 31 30 29 3A 54 31 B2 31 3A 86 20 |0),M(10):T1.1:. | 00000970: 55 44 28 32 30 29 00 85 11 E8 03 81 20 49 B2 31 |UD(20)...... I.1| 00000980: 20 A4 20 31 35 00 A0 11 F2 03 87 20 41 24 28 49 | . 15...... A$(I| 00000990: 29 3A 87 20 50 28 49 29 3A 87 20 46 4C 28 49 29 |):. P(I):. FL(I)| 000009A0: 00 A8 11 FC 03 82 20 49 00 CB 11 06 04 85 20 22 |...... I...... "| 000009B0: 48 4F 57 20 4D 41 4E 59 20 50 45 4F 50 4C 45 20 |HOW MANY PEOPLE | 000009C0: 50 4C 41 59 49 4E 47 22 3B 50 4C 00 E5 11 10 04 |PLAYING";PL.....| 000009D0: 8B 20 50 4C B3 30 20 B0 20 50 4C B1 31 30 20 A7 |. PL.0 . PL.10 .| 000009E0: 20 31 30 33 30 00 F4 11 1A 04 81 20 49 B2 31 20 | 1030...... I.1 | 000009F0: A4 20 50 4C 00 03 12 24 04 4D 28 49 29 B2 31 30 |. PL...$.M(I).10| 00000A00: 30 30 30 00 1D 12 2E 04 99 22 50 4C 41 59 45 52 |000......"PLAYER| 00000A10: 20 22 49 22 27 53 20 4E 41 4D 45 22 3B 00 2A 12 | "I"'S NAME";.*.| 00000A20: 38 04 85 20 4E 4D 24 28 49 29 00 59 12 39 04 8B |8.. NM$(I).Y.9..| 00000A30: 20 4E 4D 24 28 49 29 B2 22 41 4E 46 4E 59 22 20 | NM$(I)."ANFNY" | 00000A40: B0 20 4E 4D 24 28 49 29 B2 22 41 4E 54 48 4F 4E |. NM$(I)."ANTHON| 00000A50: 59 22 20 A7 20 46 41 B2 49 00 75 12 3A 04 8B 20 |Y" . FA.I.u.:.. | 00000A60: 4E 4D 24 28 49 29 B2 22 53 49 4D 4F 4E 22 20 A7 |NM$(I)."SIMON" .| 00000A70: 20 46 42 B2 49 00 7D 12 42 04 82 20 49 00 8D 12 | FB.I.}.B.. I...| 00000A80: 47 04 86 20 53 54 28 50 4C 2C 32 30 29 00 A6 12 |G.. ST(PL,20)...| 00000A90: 4C 04 85 20 22 48 4F 57 20 4D 41 4E 59 20 54 55 |L.. "HOW MANY TU| 00000AA0: 52 4E 53 22 3B 54 00 B5 12 56 04 86 20 45 4C 28 |RNS";T...V.. EL(| 00000AB0: 32 30 2C 54 29 00 BB 12 60 04 8E 00 D1 12 D0 07 |20,T)...`.......| 00000AC0: 83 20 22 43 4F 4D 50 55 54 45 52 53 22 2C 34 2C |. "COMPUTERS",4,| 00000AD0: 34 00 E8 12 DA 07 83 20 22 42 41 4E 4B 20 20 20 |4...... "BANK | 00000AE0: 20 20 22 2C 31 30 2C 33 00 FE 12 E4 07 83 20 22 | ",10,3...... "| 00000AF0: 43 4F 43 41 20 43 4F 4C 41 22 2C 32 2C 34 00 14 |COCA COLA",2,4..| 00000B00: 13 EE 07 83 20 22 46 4F 52 44 20 20 20 20 20 22 |.... "FORD "| 00000B10: 2C 35 2C 32 00 2B 13 F8 07 83 20 22 53 48 49 50 |,5,2.+.... "SHIP| 00000B20: 53 20 20 20 20 22 2C 31 30 2C 32 00 42 13 02 08 |S ",10,2.B...| 00000B30: 83 20 22 42 49 47 20 57 20 20 20 20 22 2C 31 31 |. "BIG W ",11| 00000B40: 2C 36 00 58 13 0C 08 83 20 22 4F 49 4C 20 52 49 |,6.X.... "OIL RI| 00000B50: 47 53 20 22 2C 38 2C 34 00 6E 13 16 08 83 20 22 |GS ",8,4.n.... "| 00000B60: 42 55 49 4C 44 45 52 53 20 22 2C 34 2C 35 00 84 |BUILDERS ",4,5..| 00000B70: 13 20 08 83 20 22 54 52 41 44 45 52 53 20 20 22 |. .. "TRADERS "| 00000B80: 2C 39 2C 35 00 9B 13 2A 08 83 20 22 43 48 20 45 |,9,5...*.. "CH E| 00000B90: 49 47 48 54 20 22 2C 31 30 2C 35 00 B1 13 34 08 |IGHT ",10,5...4.| 00000BA0: 83 20 22 45 4C 45 43 54 52 49 43 20 22 2C 35 2C |. "ELECTRIC ",5,| 00000BB0: 33 00 C8 13 3E 08 83 20 22 42 49 47 20 43 4F 52 |3...>.. "BIG COR| 00000BC0: 50 2E 22 2C 31 35 2C 35 00 DF 13 48 08 83 20 22 |P.",15,5...H.. "| 00000BD0: 46 41 52 4D 53 20 49 4E 43 22 2C 35 2C 31 30 00 |FARMS INC",5,10.| 00000BE0: F5 13 52 08 83 20 22 4D 49 4E 45 53 20 4C 54 44 |..R.. "MINES LTD| 00000BF0: 22 2C 38 2C 33 00 0B 14 5C 08 83 20 22 50 4C 41 |",8,3...\.. "PLA| 00000C00: 53 54 20 49 4E 44 22 2C 35 2C 32 00 22 14 B8 0B |ST IND",5,2."...| 00000C10: 99 22 93 20 20 20 45 4E 44 20 4F 46 20 47 41 4D |.". END OF GAM| 00000C20: 45 22 00 35 14 C2 0B 81 20 49 B2 31 20 A4 20 50 |E".5.... I.1 . P| 00000C30: 4C 3A 41 B2 30 00 44 14 CC 0B 81 20 4A B2 31 20 |L:A.0.D.... J.1 | 00000C40: A4 20 31 35 00 5B 14 D6 0B 41 B2 41 AA 28 53 54 |. 15.[...A.A.(ST| 00000C50: 28 49 2C 4A 29 AC 50 28 4A 29 29 00 63 14 E0 0B |(I,J).P(J)).c...| 00000C60: 82 20 4A 00 8A 14 EA 0B 99 4E 4D 24 28 49 29 22 |. J......NM$(I)"| 00000C70: 20 48 41 44 20 24 22 4D 28 49 29 22 20 43 41 53 | HAD $"M(I)" CAS| 00000C80: 48 20 49 4E 20 48 41 4E 44 22 00 A9 14 EB 0B 99 |H IN HAND"......| 00000C90: 22 41 4E 44 20 41 53 53 45 54 53 20 54 4F 54 41 |"AND ASSETS TOTA| 00000CA0: 4C 4C 49 4E 47 20 24 22 41 00 D2 14 EC 0B 99 22 |LLING $"A......"| 00000CB0: 46 4F 52 20 41 20 47 52 41 4E 44 20 54 4F 54 41 |FOR A GRAND TOTA| 00000CC0: 4C 20 4F 46 20 24 22 4D 28 49 29 AA 41 AB 4C 28 |L OF $"M(I).A.L(| 00000CD0: 5A 29 00 DA 14 F4 0B 82 20 49 00 E0 14 FE 0B 80 |Z)...... I......| 00000CE0: 00 F5 14 A0 0F 8B 20 BB 28 31 29 B1 2E 36 20 A7 |...... .(1)..6 .| 00000CF0: 20 34 30 37 30 00 08 15 A5 0F 50 28 49 29 B2 B5 | 4070.....P(I)..| 00000D00: 28 50 28 49 29 AD 32 29 00 17 15 AA 0F 81 20 4A |(P(I).2)...... J| 00000D10: B2 31 20 A4 20 50 4C 00 2D 15 B4 0F 53 54 28 4A |.1 . PL.-...ST(J| 00000D20: 2C 49 29 B2 53 54 28 4A 2C 49 29 AC 32 00 35 15 |,I).ST(J,I).2.5.| 00000D30: BE 0F 82 20 4A 00 50 15 C8 0F 99 41 24 28 49 29 |... J.P....A$(I)| 00000D40: 22 53 50 4C 49 54 53 20 32 20 46 4F 52 20 31 22 |"SPLITS 2 FOR 1"| 00000D50: 00 68 15 D2 0F A1 20 41 24 3A 8B 20 41 24 B2 22 |.h.... A$:. A$."| 00000D60: 22 20 A7 20 34 30 35 30 00 6E 15 DC 0F 8E 00 81 |" . 4050.n......| 00000D70: 15 E6 0F 50 28 49 29 B2 B5 28 50 28 49 29 AD 33 |...P(I)..(P(I).3| 00000D80: 29 00 90 15 F0 0F 81 20 4A B2 31 20 A4 20 50 4C |)...... J.1 . PL| 00000D90: 00 A6 15 FA 0F 53 54 28 4A 2C 49 29 B2 53 54 28 |.....ST(J,I).ST(| 00000DA0: 4A 2C 49 29 AC 33 00 AE 15 04 10 82 20 4A 00 C9 |J,I).3...... J..| 00000DB0: 15 0E 10 99 41 24 28 49 29 22 53 50 4C 49 54 53 |....A$(I)"SPLITS| 00000DC0: 20 33 20 46 4F 52 20 31 22 00 E1 15 18 10 A1 20 | 3 FOR 1"...... | 00000DD0: 41 24 3A 8B 20 41 24 B2 22 22 20 A7 20 34 30 35 |A$:. A$."" . 405| 00000DE0: 30 00 E7 15 22 10 8E 00 0F 16 20 4E 8B 20 55 44 |0..."..... N. UD| 00000DF0: 28 49 29 B1 30 20 AF 20 55 44 28 49 29 B3 36 20 |(I).0 . UD(I).6 | 00000E00: A7 20 55 44 28 49 29 B2 55 44 28 49 29 AA 34 00 |. UD(I).UD(I).4.| 00000E10: 31 16 2A 4E 8B 20 55 44 28 49 29 B3 B2 30 20 A7 |1.*N. UD(I)..0 .| 00000E20: 20 55 44 28 49 29 B2 B6 28 55 44 28 49 29 29 AA | UD(I)..(UD(I)).| 00000E30: 32 00 37 16 34 4E 8E 00 00 00 |2.7.4N.... |
....... *** 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.].... P(I ).0 . UD(I).1.....UD(I).UD(I)..(.(1).FL( I).2.(FL(I)))...... UD(I).10 . UD(I).10. G.... ST(FA,I).0 . ST(FB,I).0 . . 20000. ....P(I).P(I).UD(I)...... P(I).0 . 475.. .B.. J.1 . PL...L.ST(J,I).0:P(I).0...V.. ./.... P(I).30 . . 4000.5.....J.... T1.. T . . 3000.V...T1.T1.1......"5% MONEY TA X, AND 10% INTEREST ON LOANS"...... I.1 . PL.....TX..(M(I).0.05):IN..(L(I).0.1). .....NM$(I)" TAX - $"TX" INTEREST - $"I N.....M(I).M(I).TX:L(I).L(I).IN...... I. ....."HIT ANY KEY.".2.... A$:. A$."" . 4 90.;.... 31.P.... L(Z).0 . . 505.D.... " REPAYING";R$.Y.... R$."Y" . . 600...... I.1 . 15.....M.M.(P(I).ST(Z,I))...... I. ..... FL(Z).1 . . 42.I...M.M.M(Z).W...LA .M.L(Z)...!.. LA..0 . LA.500...&.."HOW M UCH MONEY WILL YOU BORROW"...0.. C.,.5.. C..0 . . 42.R.:.. 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).7.L.L(Z).L(Z).C:M(Z).M(Z).C. @.V.. 42.V.... A$(20),P(20),FL(20),NM$(1 0),M(10):T1.1:. UD(20)...... I.1 . 15. . ... A$(I):. P(I):. FL(I)...... I.K.... " HOW MANY PEOPLE PLAYING";PL...... PL.0 . PL.10 . 1030...... I.1 . PL...$.M(I).10 000......"PLAYER "I"'S NAME";.*.8.. NM$( I).Y.9.. NM$(I)."ANFNY" . NM$(I)."ANTHON Y" . FA.I.U.:.. NM$(I)."SIMON" . FB.I.}. B.. I...G.. ST(PL,20)...L.. "HOW MANY TU RNS";T...V.. EL(20,T)...`...Q.P.. "COMPU TERS",4,4...Z.. "BANK ",10,3...... " COCA COLA",2,4...... "FORD ",5,2.+.. .. "SHIPS ",10,2.B.... "BIG W ",11 ,6.X.... "OIL RIGS ",8,4.N.... "BUILDERS ",4,5... .. "TRADERS ",9,5...*.. "CH E IGHT ",10,5...4.. "ELECTRIC ",5,3.H.>.. "BIG CORP.",15,5...H.. "FARMS INC",5,10. ..R.. "MINES LTD",8,3...\.. "PLAST IND", 5,2."....". END OF GAME".5.B.. I.1 . P L:A.0.D.L.. J.1 . 15.[.V.A.A.(ST(I,J).P( J)).C.... J......NM$(I)" HAD $"M(I)" CAS H IN HAND"......"AND ASSETS TOTALLING $" A.R...."FOR A GRAND TOTAL OF $"M(I).A.L( Z).Z.... I......... .. .(1)..6 . 4070... ..P(I)..(P(I).2)...... J.1 . PL.-...ST(J ,I).ST(J,I).2.5.... J.P.H..A$(I)"SPLITS 2 FOR 1".H.R.. A$:. A$."" . 4050.N...... ...P(I)..(P(I).3)...... J.1 . PL.....ST( J,I).ST(J,I).3...... J.I....A$(I)"SPLITS 3 FOR 1"...... A$:. A$."" . 4050..."... .. N. UD(I).0 . UD(I).6 . UD(I).UD(I).4. 1.*N. UD(I)..0 . UD(I)..(UD(I)).2.7.4N.. ..
> CLICK IMAGE PREVIEW FOR FULL MODAL