-STOCKMARKET
FILE INFORMATION
FILENAME(S): -STOCKMARKET
FILE TYPE(S): PRG
FILE SIZE: 3.3K
FIRST SEEN: 2025-11-30 21:14:00
APPEARS ON: 1 disk(s)
FILE HASH
7249f07e2cc771c7076398052ac750646ec9c7a0a1f4c52bc290113ae8402d50
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| GAMES14 | -STOCKMARKET | PRG | DuncanTwain | 34 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 31 08 00 00 8F 20 46 52 4F 4D 20 22 43 4F |..1.... FROM "CO|
00000010: 4D 4D 4F 44 4F 52 45 22 20 56 4F 4C 2E 34 2C 4E |MMODORE" VOL.4,N|
00000020: 52 2E 34 2C 49 53 53 55 45 20 32 35 2C 50 2E 35 |R.4,ISSUE 25,P.5|
00000030: 32 00 55 08 01 00 8F 20 2A 2A 2A 53 54 4F 43 4B |2.U.... ***STOCK|
00000040: 20 4D 41 52 4B 45 54 20 53 49 4D 55 4C 41 54 49 | MARKET SIMULATI|
00000050: 4F 4E 2A 2A 2A 00 78 08 02 00 8F 20 2A 2A 2A 57 |ON***.x.... ***W|
00000060: 52 49 54 54 45 4E 20 42 59 20 4A 49 4D 20 47 52 |RITTEN BY JIM GR|
00000070: 41 43 45 4C 59 2A 2A 2A 00 C7 08 03 00 4E 24 28 |ACELY***.....N$(|
00000080: 31 29 B2 22 4F 4C 49 56 20 4F 49 4C 22 3A 4E 24 |1)."OLIV OIL":N$|
00000090: 28 32 29 B2 22 42 4F 44 59 20 4F 49 4C 22 3A 4E |(2)."BODY OIL":N|
000000A0: 24 28 33 29 B2 22 4F 44 4F 4D 20 4D 4F 54 4F 52 |$(3)."ODOM MOTOR|
000000B0: 53 22 3A 4E 24 28 34 29 B2 22 4D 49 4C 4C 49 20 |S":N$(4)."MILLI |
000000C0: 4D 4F 54 4F 52 53 22 00 0E 09 04 00 4E 24 28 35 |MOTORS".....N$(5|
000000D0: 29 B2 22 46 52 41 4D 20 42 49 4B 45 53 22 3A 41 |)."FRAM BIKES":A|
000000E0: 24 28 31 29 B2 22 4F 2E 20 4F 49 4C 22 3A 41 24 |$(1)."O. OIL":A$|
000000F0: 28 32 29 B2 22 42 2E 20 4F 49 4C 22 3A 41 24 28 |(2)."B. OIL":A$(|
00000100: 33 29 B2 22 4F 2E 20 4D 4F 54 4F 52 53 22 00 35 |3)."O. MOTORS".5|
00000110: 09 05 00 41 24 28 34 29 B2 22 4D 2E 20 4D 4F 54 |...A$(4)."M. MOT|
00000120: 4F 52 53 22 3A 41 24 28 35 29 B2 22 46 2E 20 42 |ORS":A$(5)."F. B|
00000130: 49 4B 45 53 22 00 7B 09 06 00 81 20 58 B2 31 20 |IKES".{.... X.1 |
00000140: A4 35 3A 53 54 28 58 29 B2 35 30 3A 4C 28 58 29 |.5:ST(X).50:L(X)|
00000150: B2 35 30 3A 48 28 58 29 B2 35 30 3A 82 3A 57 B2 |.50:H(X).50:.:W.|
00000160: 30 3A 43 53 B2 35 30 30 30 3A 42 43 B2 35 33 32 |0:CS.5000:BC.532|
00000170: 38 31 3A 97 20 42 43 AB 31 2C 30 00 85 09 07 00 |81:. BC.1,0.....|
00000180: 89 20 37 30 34 00 9E 09 08 00 8F 20 2A 2A 2A 43 |. 704...... ***C|
00000190: 41 4C 43 55 4C 41 54 49 4F 4E 53 2A 2A 2A 00 B4 |ALCULATIONS***..|
000001A0: 09 09 00 8F 20 2A 2A 2A 46 49 52 53 54 20 54 57 |.... ***FIRST TW|
000001B0: 4F 2A 2A 2A 00 C3 09 0A 00 44 31 B2 BB 28 31 29 |O***.....D1..(1)|
000001C0: AC 31 30 00 D6 09 14 00 44 31 B2 B5 28 44 31 AC |.10.....D1..(D1.|
000001D0: 31 30 29 AD 31 30 00 EA 09 1E 00 53 B2 B4 28 28 |10).10.....S..((|
000001E0: BB 28 31 29 AC 36 29 AB 33 29 00 F6 09 28 00 44 |.(1).6).3)...(.D|
000001F0: 31 B2 44 31 AC 53 00 09 0A 32 00 53 54 28 31 29 |1.D1.S...2.ST(1)|
00000200: B2 53 54 28 31 29 AA 44 31 00 28 0A 37 00 8B 20 |.ST(1).D1.(.7.. |
00000210: 53 54 28 31 29 B3 30 20 A7 20 53 54 28 31 29 B2 |ST(1).0 . ST(1).|
00000220: 53 54 28 31 29 AB 44 31 00 43 0A 3C 00 44 32 B2 |ST(1).D1.C.<.D2.|
00000230: AB 28 B5 28 44 31 AC BB 28 31 29 AC 31 30 29 AD |.(.(D1..(1).10).|
00000240: 31 30 29 00 56 0A 46 00 53 54 28 32 29 B2 53 54 |10).V.F.ST(2).ST|
00000250: 28 32 29 AA 44 32 00 75 0A 4B 00 8B 20 53 54 28 |(2).D2.u.K.. ST(|
00000260: 32 29 B3 30 20 A7 20 53 54 28 32 29 B2 53 54 28 |2).0 . ST(2).ST(|
00000270: 32 29 AB 44 32 00 8C 0A 50 00 8F 20 2A 2A 2A 53 |2).D2...P.. ***S|
00000280: 45 43 4F 4E 44 20 54 57 4F 2A 2A 2A 00 99 0A 5A |ECOND TWO***...Z|
00000290: 00 44 54 B2 44 31 AA 44 32 00 AF 0A 64 00 44 33 |.DT.D1.D2...d.D3|
000002A0: B2 AB 44 54 AD 28 BB 28 31 29 AA 2E 35 30 29 00 |..DT.(.(1)..50).|
000002B0: C2 0A 78 00 44 33 B2 B5 28 44 33 AC 31 30 29 AD |..x.D3..(D3.10).|
000002C0: 31 30 00 DA 0A 82 00 44 34 B2 B5 28 BB 28 31 29 |10.....D4..(.(1)|
000002D0: AC 44 33 AC 31 30 29 AD 31 30 00 ED 0A 8C 00 53 |.D3.10).10.....S|
000002E0: 54 28 33 29 B2 53 54 28 33 29 AA 44 34 00 0C 0B |T(3).ST(3).D4...|
000002F0: 91 00 8B 20 53 54 28 33 29 B3 30 20 A7 20 53 54 |... ST(3).0 . ST|
00000300: 28 33 29 B2 53 54 28 33 29 AB 44 34 00 24 0B 96 |(3).ST(3).D4.$..|
00000310: 00 53 54 28 34 29 B2 53 54 28 34 29 AA 28 44 33 |.ST(4).ST(4).(D3|
00000320: AB 44 34 29 00 48 0B 9B 00 8B 20 53 54 28 34 29 |.D4).H.... ST(4)|
00000330: B3 30 20 A7 20 53 54 28 34 29 B2 53 54 28 34 29 |.0 . ST(4).ST(4)|
00000340: AB 28 44 33 AA 44 34 29 00 5D 0B 9D 00 8F 20 2A |.(D3.D4).].... *|
00000350: 2A 2A 4C 41 53 54 20 4F 4E 45 2A 2A 2A 00 7A 0B |**LAST ONE***.z.|
00000360: A0 00 44 35 B2 B5 28 28 44 54 AA 44 33 29 AC BB |..D5..((DT.D3)..|
00000370: 28 31 29 AC 32 30 29 AD 31 30 00 8D 0B A5 00 53 |(1).20).10.....S|
00000380: 54 28 35 29 B2 53 54 28 35 29 AA 44 35 00 AC 0B |T(5).ST(5).D5...|
00000390: AA 00 8B 20 53 54 28 35 29 B3 30 20 A7 20 53 54 |... ST(5).0 . ST|
000003A0: 28 35 29 B2 53 54 28 35 29 AB 44 35 00 C8 0B C3 |(5).ST(5).D5....|
000003B0: 00 8D 20 35 31 30 3A 8D 20 33 31 30 3A 8D 20 36 |.. 510:. 310:. 6|
000003C0: 31 30 3A 8D 20 34 30 35 00 DD 0B C7 00 8B 20 57 |10:. 405...... W|
000003D0: B3 35 32 20 A7 20 57 B2 57 AA 31 3A 8E 00 EF 0B |.52 . W.W.1:....|
000003E0: C8 00 8F 2A 2A 2A 45 4E 44 49 4E 47 2A 2A 2A 00 |...***ENDING***.|
000003F0: 1F 0C D2 00 99 22 11 41 46 54 45 52 20 35 32 20 |.....".AFTER 52 |
00000400: 57 45 45 4B 53 20 28 31 20 59 45 41 52 29 20 54 |WEEKS (1 YEAR) T|
00000410: 48 49 53 20 49 53 20 48 4F 57 20 54 48 45 22 00 |HIS IS HOW THE".|
00000420: 3D 0C DC 00 99 22 53 54 4F 43 4B 20 4D 41 52 4B |=...."STOCK MARK|
00000430: 45 54 20 53 54 41 4E 44 53 11 11 11 22 00 5F 0C |ET STANDS..."._.|
00000440: E6 00 99 22 50 52 45 53 53 20 54 48 45 20 53 50 |..."PRESS THE SP|
00000450: 41 43 45 20 42 41 52 20 54 4F 20 53 45 45 22 00 |ACE BAR TO SEE".|
00000460: 78 0C EB 00 99 22 59 4F 55 52 20 46 49 4E 41 4C |x...."YOUR FINAL|
00000470: 20 54 4F 54 41 4C 53 22 00 8E 0C F0 00 A1 20 5A | TOTALS"...... Z|
00000480: 24 3A 8B 20 5A 24 B2 22 22 A7 20 32 34 30 00 A1 |$:. Z$."". 240..|
00000490: 0C FA 00 8B 20 5A 24 B3 B1 22 20 22 A7 20 32 34 |.... Z$.." ". 24|
000004A0: 30 00 AF 0C 04 01 46 B2 31 3A 8D 20 37 32 32 00 |0.....F.1:. 722.|
000004B0: D0 0C 09 01 54 54 B2 B5 28 28 28 54 54 AA 43 53 |....TT..(((TT.CS|
000004C0: 29 AB 35 30 30 30 29 AC 31 30 30 29 AD 31 30 30 |).5000).100).100|
000004D0: 00 E8 0C 0E 01 8B 20 54 54 B1 B2 30 20 A7 20 54 |...... TT..0 . T|
000004E0: 24 B2 22 4D 41 44 45 22 00 06 0D 18 01 8B 20 54 |$."MADE"...... T|
000004F0: 54 B3 30 20 A7 20 54 54 B2 AB 54 54 3A 54 24 B2 |T.0 . TT..TT:T$.|
00000500: 22 4C 4F 53 54 22 00 21 0D 22 01 99 22 11 11 48 |"LOST".!.".."..H|
00000510: 4F 50 45 20 59 4F 55 20 48 41 44 20 46 55 4E 21 |OPE YOU HAD FUN!|
00000520: 22 00 3B 0D 27 01 99 20 22 59 4F 55 20 22 54 24 |".;.'.. "YOU "T$|
00000530: 22 20 24 22 54 54 22 20 21 21 22 00 51 0D 29 01 |" $"TT" !!".Q.).|
00000540: A1 20 41 24 3A 8B 20 41 24 B2 22 22 A7 20 32 39 |. A$:. A$."". 29|
00000550: 37 00 77 0D 2A 01 97 20 42 43 AB 31 2C 31 34 3A |7.w.*.. BC.1,14:|
00000560: 97 20 42 43 2C 36 3A 99 20 C7 28 31 35 34 29 C7 |. BC,6:. .(154).|
00000570: 28 31 34 37 29 3A 80 00 98 0D 2C 01 8F 20 2A 2A |(147):....,.. **|
00000580: 2A 4C 4F 57 45 53 54 2F 48 49 47 48 45 53 54 20 |*LOWEST/HIGHEST |
00000590: 43 48 45 43 4B 2A 2A 2A 00 A6 0D 36 01 81 20 58 |CHECK***...6.. X|
000005A0: B2 31 20 A4 20 35 00 C3 0D 40 01 8B 20 53 54 28 |.1 . 5...@.. ST(|
000005B0: 58 29 B3 4C 28 58 29 A7 20 4C 28 58 29 B2 53 54 |X).L(X). L(X).ST|
000005C0: 28 58 29 00 E0 0D 4A 01 8B 20 53 54 28 58 29 B1 |(X)...J.. ST(X).|
000005D0: 48 28 58 29 A7 20 48 28 58 29 B2 53 54 28 58 29 |H(X). H(X).ST(X)|
000005E0: 00 E8 0D 54 01 82 3A 8E 00 08 0E 90 01 8F 20 2A |...T..:....... *|
000005F0: 2A 2A 53 54 4F 43 4B 20 4D 41 52 4B 45 54 20 53 |**STOCK MARKET S|
00000600: 43 52 45 45 4E 2A 2A 2A 00 1C 0E 95 01 97 20 42 |CREEN***...... B|
00000610: 43 2C 31 32 3A 99 20 C7 28 32 38 29 00 4F 0E 9A |C,12:. .(28).O..|
00000620: 01 99 22 93 12 20 20 20 20 20 20 20 20 20 2A 2A |..".. **|
00000630: 2A 53 54 4F 43 4B 20 4D 41 52 4B 45 54 2A 2A 2A |*STOCK MARKET***|
00000640: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3B 00 | ";.|
00000650: 68 0E 9C 01 81 20 58 B2 31 20 A4 20 34 30 3A 99 |h.... X.1 . 40:.|
00000660: 22 12 2D 92 22 3B 3A 82 00 7B 0E 9D 01 99 22 11 |".-.";:..{....".|
00000670: 12 57 45 45 4B 2D 2D 3E 92 22 57 00 AA 0E 9F 01 |.WEEK-->."W.....|
00000680: 99 22 11 11 12 53 54 4F 43 4B 92 22 2C 22 12 4C |."...STOCK.",".L|
00000690: 4F 57 20 92 22 2C 22 12 48 49 47 48 92 22 2C 22 |OW .",".HIGH.","|
000006A0: 12 50 52 45 53 45 4E 54 92 22 00 B8 0E A4 01 81 |.PRESENT."......|
000006B0: 20 58 B2 31 20 A4 20 35 00 D6 0E AE 01 99 22 11 | X.1 . 5......".|
000006C0: 22 41 24 28 58 29 2C 4C 28 58 29 2C 48 28 58 29 |"A$(X),L(X),H(X)|
000006D0: 2C 53 54 28 58 29 00 DE 0E B8 01 82 3A 8E 00 02 |,ST(X)......:...|
000006E0: 0F F4 01 8F 20 2A 2A 2A 43 4F 4E 54 52 4F 4C 20 |.... ***CONTROL |
000006F0: 44 45 43 49 4D 41 4C 20 50 4F 52 54 49 4F 4E 2A |DECIMAL PORTION*|
00000700: 2A 2A 00 10 0F FE 01 81 20 58 B2 31 20 A4 20 35 |**...... X.1 . 5|
00000710: 00 29 0F 08 02 53 54 28 58 29 B2 B5 28 53 54 28 |.)...ST(X)..(ST(|
00000720: 58 29 AC 31 30 29 AD 31 30 00 42 0F 12 02 50 28 |X).10).10.B...P(|
00000730: 58 29 B2 B5 28 50 28 58 29 AC 31 30 30 29 AD 31 |X)..(P(X).100).1|
00000740: 30 30 00 4A 0F 1C 02 82 3A 8E 00 6B 0F 58 02 8F |00.J....:..k.X..|
00000750: 20 2A 2A 2A 55 50 44 41 54 45 20 43 55 52 52 45 | ***UPDATE CURRE|
00000760: 4E 54 20 56 41 4C 55 45 2A 2A 2A 00 79 0F 62 02 |NT VALUE***.y.b.|
00000770: 81 20 58 B2 31 20 A4 20 35 00 8D 0F 6C 02 43 28 |. X.1 . 5...l.C(|
00000780: 58 29 B2 53 54 28 58 29 AC 4E 28 58 29 00 95 0F |X).ST(X).N(X)...|
00000790: 76 02 82 3A 8E 00 B7 0F BC 02 8F 20 2A 2A 2A 53 |v..:....... ***S|
000007A0: 54 41 52 54 20 4F 46 20 4D 41 49 4E 20 52 4F 55 |TART OF MAIN ROU|
000007B0: 54 49 4E 45 2A 2A 2A 00 C6 0F C0 02 8D 20 31 30 |TINE***...... 10|
000007C0: 3A 52 24 B2 22 22 00 FD 0F C1 02 99 22 11 11 44 |:R$.""......"..D|
000007D0: 4F 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 56 49 |O YOU WANT TO VI|
000007E0: 45 57 20 59 4F 55 52 20 50 4F 52 54 46 4F 4C 49 |EW YOUR PORTFOLI|
000007F0: 4F 20 28 59 2F 4E 29 22 3A 85 20 52 24 00 14 10 |O (Y/N)":. R$...|
00000800: C6 02 8B 20 C8 28 52 24 2C 31 29 B2 22 4E 22 A7 |... .(R$,1)."N".|
00000810: 20 37 30 34 00 38 10 D0 02 8B 20 C8 28 52 24 2C | 704.8.... .(R$,|
00000820: 31 29 B3 B1 22 59 22 A7 20 99 22 91 91 91 91 91 |1).."Y". .".....|
00000830: 22 3B 3A 89 20 37 30 35 00 55 10 D1 02 8F 20 2A |";:. 705.U.... *|
00000840: 2A 2A 50 4F 52 54 46 4F 4C 49 4F 20 53 43 52 45 |**PORTFOLIO SCRE|
00000850: 45 4E 2A 2A 2A 00 69 10 D2 02 97 20 42 43 2C 31 |EN***.i.... BC,1|
00000860: 34 3A 99 20 C7 28 33 31 29 00 9C 10 D5 02 99 22 |4:. .(31)......"|
00000870: 93 12 20 20 20 20 20 20 20 20 20 20 20 20 20 50 |.. P|
00000880: 4F 52 54 46 4F 4C 49 4F 20 20 20 20 20 20 20 20 |ORTFOLIO |
00000890: 20 20 20 20 20 20 20 20 20 20 22 3B 00 B2 10 D6 | ";....|
000008A0: 02 81 58 B2 31 A4 34 30 3A 99 22 12 2B 92 22 3B |..X.1.40:.".+.";|
000008B0: 3A 82 00 E5 10 DA 02 99 22 11 11 11 12 53 54 4F |:......."....STO|
000008C0: 43 4B 92 22 2C 22 12 53 48 41 52 45 53 92 22 2C |CK.",".SHARES.",|
000008D0: 22 12 50 55 52 43 48 92 22 2C 22 12 43 55 52 52 |".PURCH.",".CURR|
000008E0: 45 4E 54 92 22 00 00 11 DF 02 99 2C 2C 22 12 56 |ENT."......,,".V|
000008F0: 41 4C 55 45 92 22 2C 22 12 56 41 4C 55 45 92 22 |ALUE.",".VALUE."|
00000900: 00 18 11 E4 02 54 54 B2 30 3A 99 22 11 22 3A 81 |.....TT.0:.".":.|
00000910: 20 58 B2 31 20 A4 20 35 00 33 11 EE 02 99 20 41 | X.1 . 5.3.... A|
00000920: 24 28 58 29 2C 4E 28 58 29 2C 50 28 58 29 2C 43 |$(X),N(X),P(X),C|
00000930: 28 58 29 00 42 11 F3 02 54 54 B2 54 54 AA 43 28 |(X).B...TT.TT.C(|
00000940: 58 29 00 48 11 F8 02 82 00 5C 11 02 03 99 22 11 |X).H.....\....".|
00000950: 43 41 53 48 20 24 22 2C 2C 2C 43 53 00 73 11 07 |CASH $",,,CS.s..|
00000960: 03 81 20 58 B2 31 20 A4 20 34 30 3A 99 22 40 22 |.. X.1 . 40:."@"|
00000970: 3B 3A 82 00 8C 11 0C 03 99 3A 99 22 54 4F 54 41 |;:.......:."TOTA|
00000980: 4C 20 24 22 2C 2C 2C 54 54 AA 43 53 00 9A 11 11 |L $",,,TT.CS....|
00000990: 03 8B 20 46 B2 31 20 A7 20 8E 00 D7 11 16 03 99 |.. F.1 . .......|
000009A0: 22 11 11 57 4F 55 4C 44 20 59 4F 55 20 4C 49 4B |"..WOULD YOU LIK|
000009B0: 45 20 54 4F 20 4D 41 4B 45 20 41 4E 59 20 43 48 |E TO MAKE ANY CH|
000009C0: 41 4E 47 45 53 20 28 59 2F 4E 29 22 3A 52 24 B2 |ANGES (Y/N)":R$.|
000009D0: 22 22 3A 85 20 52 24 00 EE 11 1B 03 8B 20 C8 28 |"":. R$...... .(|
000009E0: 52 24 2C 31 29 B2 22 4E 22 A7 20 37 30 34 00 12 |R$,1)."N". 704..|
000009F0: 12 1D 03 8B 20 C8 28 52 24 2C 31 29 B3 B1 22 59 |.... .(R$,1).."Y|
00000A00: 22 A7 20 99 22 91 91 91 91 91 22 3B 3A 89 20 37 |". .".....";:. 7|
00000A10: 39 30 00 2E 12 20 03 8F 20 2A 2A 2A 42 52 4F 4B |90... .. ***BROK|
00000A20: 45 52 27 53 20 57 49 4E 44 4F 57 2A 2A 2A 00 42 |ER'S WINDOW***.B|
00000A30: 12 23 03 97 20 42 43 2C 35 3A 99 20 C7 28 31 34 |.#.. BC,5:. .(14|
00000A40: 34 29 00 76 12 25 03 99 22 93 12 20 20 20 20 20 |4).v.%..".. |
00000A50: 20 20 20 20 20 20 42 52 4F 4B 45 52 27 53 20 4F | BROKER'S O|
00000A60: 46 46 49 43 45 20 20 20 20 20 20 20 20 20 20 20 |FFICE |
00000A70: 20 20 20 92 22 3B 00 8E 12 27 03 81 58 B2 31 20 | .";...'..X.1 |
00000A80: A4 20 34 30 3A 99 22 12 2A 92 22 3B 3A 82 00 BD |. 40:.".*.";:...|
00000A90: 12 2A 03 99 3A 99 22 11 11 11 20 20 20 12 53 54 |.*..:."... .ST|
00000AA0: 4F 43 4B 92 22 2C 2C 22 12 53 48 41 52 45 53 92 |OCK.",,".SHARES.|
00000AB0: 22 2C 22 12 50 52 49 43 45 92 11 11 22 00 CB 12 |",".PRICE..."...|
00000AC0: 34 03 81 20 58 B2 31 20 A4 20 35 00 E8 12 3E 03 |4.. X.1 . 5...>.|
00000AD0: 99 22 12 22 58 22 92 22 4E 24 28 58 29 2C 4E 28 |."."X"."N$(X),N(|
00000AE0: 58 29 2C 53 54 28 58 29 00 EE 12 48 03 82 00 0E |X),ST(X)...H....|
00000AF0: 13 52 03 99 22 11 11 59 4F 55 20 48 41 56 45 20 |.R.."..YOU HAVE |
00000B00: 24 22 43 53 22 20 4F 4E 20 48 41 4E 44 22 00 52 |$"CS" ON HAND".R|
00000B10: 13 5C 03 99 22 11 57 48 49 43 48 20 53 54 4F 43 |.\..".WHICH STOC|
00000B20: 4B 20 28 31 2D 35 29 20 44 4F 20 59 4F 55 20 57 |K (1-5) DO YOU W|
00000B30: 41 4E 54 22 3A 99 22 54 4F 20 43 48 41 4E 47 45 |ANT":."TO CHANGE|
00000B40: 20 28 30 20 54 4F 20 45 58 49 54 29 22 3A 85 20 | (0 TO EXIT)":. |
00000B50: 41 24 00 7C 13 66 03 41 B2 C5 28 41 24 29 3A 8B |A$.|.f.A..(A$):.|
00000B60: 41 B3 30 20 B0 20 41 B1 35 20 A7 20 99 22 91 91 |A.0 . A.5 . ."..|
00000B70: 91 91 3B 3A 47 4F 54 4F 20 38 36 30 00 8C 13 70 |..;:GOTO 860...p|
00000B80: 03 8B 20 41 B2 30 20 A7 20 37 30 34 00 B4 13 7A |.. A.0 . 704...z|
00000B90: 03 99 22 91 91 91 59 4F 55 20 48 41 56 45 20 45 |.."...YOU HAVE E|
00000BA0: 4E 4F 55 47 48 20 4D 4F 4E 45 59 20 54 4F 20 42 |NOUGH MONEY TO B|
00000BB0: 55 59 20 22 00 CA 13 7C 03 4E 24 B2 C4 28 B5 28 |UY "...|.N$..(.(|
00000BC0: 43 53 AD 53 54 28 41 29 29 29 00 EB 13 7F 03 99 |CS.ST(A)))......|
00000BD0: 22 20 20 20 20 20 20 22 4E 24 22 20 53 48 41 52 |" "N$" SHAR|
00000BE0: 45 53 20 20 20 20 20 20 20 20 22 00 0A 14 84 03 |ES ".....|
00000BF0: 8F 20 2A 2A 2A 42 55 59 49 4E 47 20 41 4E 44 20 |. ***BUYING AND |
00000C00: 53 45 4C 4C 49 4E 47 2A 2A 2A 00 4D 14 8E 03 99 |SELLING***.M....|
00000C10: 22 45 4E 54 45 52 20 4E 55 4D 42 45 52 20 4F 46 |"ENTER NUMBER OF|
00000C20: 20 53 48 41 52 45 53 20 54 48 41 54 20 59 4F 55 | SHARES THAT YOU|
00000C30: 20 57 49 53 48 20 54 4F 20 42 55 59 28 2B 29 2F | WISH TO BUY(+)/|
00000C40: 53 45 4C 4C 28 2D 29 22 3A 85 20 42 24 00 85 14 |SELL(-)":. B$...|
00000C50: 98 03 42 B2 C5 28 42 24 29 3A 8B 20 42 B1 B5 28 |..B..(B$):. B..(|
00000C60: 43 53 AD 53 54 28 41 29 29 B0 20 42 B3 28 AB 4E |CS.ST(A)). B.(.N|
00000C70: 28 41 29 29 20 A7 20 99 20 22 91 91 91 22 3B 3A |(A)) . . "...";:|
00000C80: 89 20 39 31 30 00 AA 14 A2 03 8B 20 42 B3 30 20 |. 910...... B.0 |
00000C90: A7 20 50 28 41 29 B2 50 28 41 29 20 AA 28 50 28 |. P(A).P(A) .(P(|
00000CA0: 41 29 AD 4E 28 41 29 29 AC 42 00 C8 14 AC 03 8B |A).N(A)).B......|
00000CB0: 20 42 B1 30 20 A7 20 50 28 41 29 B2 50 28 41 29 | B.0 . P(A).P(A)|
00000CC0: AA 53 54 28 41 29 AC 42 00 F7 14 B6 03 4E 28 41 |.ST(A).B.....N(A|
00000CD0: 29 B2 4E 28 41 29 AA 42 3A 43 53 B2 43 53 AB 53 |).N(A).B:CS.CS.S|
00000CE0: 54 28 41 29 AC 42 3A 43 53 B2 B5 28 43 53 AC 31 |T(A).B:CS..(CS.1|
00000CF0: 30 30 29 AD 31 30 30 00 01 15 C0 03 89 20 38 30 |00).100...... 80|
00000D00: 35 00 00 00 |5... |
..1.... FROM "COMMODORE" VOL.4,NR.4,ISSU
E 25,P.52.U.... ***STOCK MARKET SIMULATI
ON***.X.... ***WRITTEN BY JIM GRACELY***
.G...N$(1)."OLIV OIL":N$(2)."BODY OIL":N
$(3)."ODOM MOTORS":N$(4)."MILLI MOTORS".
....N$(5)."FRAM BIKES":A$(1)."O. OIL":A$
(2)."B. OIL":A$(3)."O. MOTORS".5...A$(4)
."M. MOTORS":A$(5)."F. BIKES".{.... X.1
.5:ST(X).50:L(X).50:H(X).50:.:W.0:CS.500
0:BC.53281:. BC.1,0...... 704...... ***C
ALCULATIONS***...... ***FIRST TWO***.C..
.D1..(1).10.V...D1..(D1.10).10.....S..((
.(1).6).3)...(.D1.D1.S...2.ST(1).ST(1).D
1.(.7.. ST(1).0 . ST(1).ST(1).D1.C.<.D2.
.(.(D1..(1).10).10).V.F.ST(2).ST(2).D2.U
.K.. ST(2).0 . ST(2).ST(2).D2...P.. ***S
ECOND TWO***...Z.DT.D1.D2...D.D3..DT.(.(
1)..50).B.X.D3..(D3.10).10.Z...D4..(.(1)
.D3.10).10.....ST(3).ST(3).D4...... ST(3
).0 . ST(3).ST(3).D4.$...ST(4).ST(4).(D3
.D4).H.... ST(4).0 . ST(4).ST(4).(D3.D4)
.].... ***LAST ONE***.Z. .D5..((DT.D3)..
(1).20).10.....ST(5).ST(5).D5...... ST(5
).0 . ST(5).ST(5).D5.H.C.. 510:. 310:. 6
10:. 405...G.. W.52 . W.W.1:....H..***EN
DING***...R..".AFTER 52 WEEKS (1 YEAR) T
HIS IS HOW THE".=...."STOCK MARKET STAND
S..."._...."PRESS THE SPACE BAR TO SEE".
X...."YOUR FINAL TOTALS"...... Z$:. Z$."
". 240...... Z$.." ". 240.....F.1:. 722.
P...TT..(((TT.CS).5000).100).100...... T
T..0 . T$."MADE"...... TT.0 . TT..TT:T$.
"LOST".!.".."..HOPE YOU HAD FUN!".;.'..
"YOU "T$" $"TT" !!".Q.).. A$:. A$."". 29
7.W.*.. BC.1,14:. BC,6:. G(154)G(147):..
..,.. ***LOWEST/HIGHEST CHECK***...6.. X
.1 . 5.C.@.. ST(X).L(X). L(X).ST(X)...J.
. ST(X).H(X). H(X).ST(X)...T..:....... *
**STOCK MARKET SCREEN***...... BC,12:. G
(28).O....".. ***STOCK MARKET***
";.H.... X.1 . 40:.".-.";:.
.{...."..WEEK-->."W......"...STOCK.",".L
OW .",".HIGH.",".PRESENT."...... X.1 . 5
.V...."."A$(X),L(X),H(X),ST(X)......:...
.... ***CONTROL DECIMAL PORTION***......
X.1 . 5.)...ST(X)..(ST(X).10).10.B...P(
X)..(P(X).100).100.J....:..K.X.. ***UPDA
TE CURRENT VALUE***.Y.B.. X.1 . 5...L.C(
X).ST(X).N(X)...V..:....... ***START OF
MAIN ROUTINE***.F.... 10:R$.""...A.."..D
O YOU WANT TO VIEW YOUR PORTFOLIO (Y/N)"
:. R$...F.. H(R$,1)."N". 704.8.P.. H(R$,
1).."Y". .".....";:. 705.U.Q.. ***PORTFO
LIO SCREEN***.I.R.. BC,14:. G(31)...U.."
.. PORTFOLIO
";...V..X.1.40:.".+.";:....Z.."....STO
CK.",".SHARES.",".PURCH.",".CURRENT."...
...,,".VALUE.",".VALUE.".....TT.0:.".":.
X.1 . 5.3.... A$(X),N(X),P(X),C(X).B...
TT.TT.C(X).H.....\....".CASH $",,,CS.S..
.. X.1 . 40:."@";:.......:."TOTAL $",,,T
T.CS...... F.1 . ..W...."..WOULD YOU LIK
E TO MAKE ANY CHANGES (Y/N)":R$."":. R$.
..... H(R$,1)."N". 704...... H(R$,1).."Y
". .".....";:. 790... .. ***BROKER'S WIN
DOW***.B.#.. BC,5:. G(144).V.%.."..
BROKER'S OFFICE .";..
.'..X.1 . 40:.".*.";:....*..:."... .ST
OCK.",,".SHARES.",".PRICE...".K.4.. X.1
. 5...>.."."X"."N$(X),N(X),ST(X)...H....
.R.."..YOU HAVE $"CS" ON HAND".R.\..".WH
ICH STOCK (1-5) DO YOU WANT":."TO CHANGE
(0 TO EXIT)":. A$.|.F.A.E(A$):.A.0 . A.
5 . ."....;:GOTO 860...P.. A.0 . 704...Z
.."...YOU HAVE ENOUGH MONEY TO BUY ".J.|
.N$.D(.(CS.ST(A)))....." "N$" SHAR
ES "...... ***BUYING AND SELLING*
**.M...."ENTER NUMBER OF SHARES THAT YOU
WISH TO BUY(+)/SELL(-)":. B$.....B.E(B$
):. B..(CS.ST(A)). B.(.N(A)) . . "...";:
. 910...... B.0 . P(A).P(A) .(P(A).N(A))
.B.H.... B.0 . P(A).P(A).ST(A).B.....N(A
).N(A).B:CS.CS.ST(A).B:CS..(CS.100).100.
..... 805...
> CLICK IMAGE PREVIEW FOR FULL MODAL