STOCKS
FILE INFORMATION
FILENAME(S): STOCKS
FILE TYPE(S): PRG
FILE SIZE: 10.3K
FIRST SEEN: 2025-10-20 14:30:15
APPEARS ON: 10 disk(s)
FILE HASH
1790522d33ed58abac02ffe422d6c8b92d34c25d74ba6f13beba381ab630e275
FOUND ON DISKS (10 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| ECOSOFT FREI PRG | STOCKS | PRG | Treasure Chest - Klaus Der Suhler | 2 | 1 | DOWNLOAD FILE |
| 024A | STOCKS | PRG | Treasure Chest - Plattfuss | 2 | 1 | DOWNLOAD FILE |
| FREESOFT NR | STOCKS | PRG | Treasure Chest - Wolfgang Rauprich | 27 | 9 | DOWNLOAD FILE |
| 012A | STOCKS | PRG | Treasure Chest - Wolfgang Rauprich | 27 | 9 | DOWNLOAD FILE |
| FREESOFT DISK NR | STOCKS | PRG | Treasure Chest - Wolfgang Rauprich | 30 | 4 | DOWNLOAD FILE |
| PD DISK 20 | STOCKS | PRG | Treasure Chest - Wolfgang Rauprich | 11 | 17 | DOWNLOAD FILE |
| FREESOFT NR | STOCKS | PRG | Treasure Chest - Wolfgang Rauprich | 30 | 4 | DOWNLOAD FILE |
| FREESOFT NR | STOCKS | PRG | Treasure Chest - Wolfgang Rauprich | 11 | 17 | DOWNLOAD FILE |
| FREESOFT DISK NR | STOCKS | PRG | Treasure Chest - Wolfgang Rauprich | 27 | 9 | DOWNLOAD FILE |
| ECOSOFT FREI PRG | STOCKS | PRG | Curtcool, LPN | 2 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0A 08 01 00 89 39 31 30 00 2A 08 02 00 8F |.......910.*....|
00000010: 20 2A 2A 20 4D 4C 20 53 54 4F 50 20 4B 45 59 20 | ** ML STOP KEY |
00000020: 44 49 53 41 42 4C 45 20 2A 2A 00 55 08 03 00 99 |DISABLE **.U....|
00000030: 22 78 A9 3D 8D 14 03 A9 08 8D 15 03 58 60 20 EA |"x.=........X` .|
00000040: FF A9 FF 85 91 4C 34 EA 78 A9 31 8D 14 03 A9 EA |.....L4.x.1.....|
00000050: 8D 15 03 58 60 00 74 08 04 00 99 22 78 68 68 68 |...X`.t...."xhhh|
00000060: AA 68 A8 68 68 68 68 68 68 68 98 48 8A 48 58 60 |.h.hhhhhhh.H.HX`|
00000070: 31 31 31 22 00 85 08 05 00 99 22 68 68 68 68 68 |111"......"hhhhh|
00000080: 68 68 60 31 22 00 A7 08 06 00 8F 20 2A 2A 20 34 |hh`1"...... ** 4|
00000090: 20 2D 20 50 4F 50 20 4D 4C 20 53 55 42 52 4F 55 | - POP ML SUBROU|
000000A0: 54 49 4E 45 20 2A 2A 00 C8 08 0A 00 8F 20 2A 2A |TINE **...... **|
000000B0: 47 45 4E 45 52 41 4C 20 49 4E 50 55 54 20 52 4F |GENERAL INPUT RO|
000000C0: 55 54 49 4E 45 20 2A 2A 00 CE 08 0F 00 3A 00 D4 |UTINE **.....:..|
000000D0: 08 1E 00 3A 00 F0 08 23 00 8F 20 2B 2B 2B 20 49 |...:...#.. +++ I|
000000E0: 4E 50 55 54 20 53 45 43 54 49 4F 4E 20 2B 2B 2B |NPUT SECTION +++|
000000F0: 00 08 09 28 00 97 55 4F 2C 30 3A 55 52 24 B2 22 |...(..UO,0:UR$."|
00000100: 22 3A 55 49 24 B2 22 22 00 18 09 2A 00 8B 55 4C |":UI$.""...*..UL|
00000110: B2 30 A7 55 4C B2 38 30 00 2B 09 2D 00 99 22 20 |.0.UL.80.+.-.." |
00000120: 20 9D 9D 22 3B 3A 97 55 43 2C 30 00 3F 09 32 00 | ..";:.UC,0.?.2.|
00000130: A1 55 49 24 3A 8B 55 49 24 B2 22 22 A7 35 30 00 |.UI$:.UI$."".50.|
00000140: 69 09 37 00 8B 55 49 24 B2 C7 28 31 33 29 AF C3 |i.7..UI$..(13)..|
00000150: 28 55 52 24 29 B1 B2 31 A7 97 55 43 2C 31 3A 99 |(UR$)..1..UC,1:.|
00000160: 22 20 9D 22 3B 3A 89 38 35 00 7C 09 3C 00 8B 55 |" .";:.85.|.<..U|
00000170: 49 24 B2 C7 28 32 30 29 A7 31 30 35 00 90 09 3E |I$..(20).105...>|
00000180: 00 8B 20 C3 28 55 52 24 29 B2 B1 55 4C A7 35 30 |.. .(UR$)..UL.50|
00000190: 00 B5 09 41 00 8D 31 32 30 3A 8F 20 43 48 45 43 |...A..120:. CHEC|
000001A0: 4B 20 46 4F 52 20 56 41 4C 49 44 20 43 48 41 52 |K FOR VALID CHAR|
000001B0: 41 43 54 45 52 00 C5 09 46 00 55 52 24 B2 55 52 |ACTER...F.UR$.UR|
000001C0: 24 AA 55 49 24 00 CF 09 4B 00 99 55 49 24 3B 00 |$.UI$...K..UI$;.|
000001D0: D7 09 50 00 89 35 30 00 FC 09 55 00 8F 20 2B 2B |..P..50...U.. ++|
000001E0: 2B 20 43 48 45 43 4B 20 46 4F 52 20 48 45 4C 50 |+ CHECK FOR HELP|
000001F0: 20 52 45 51 55 45 53 54 20 2B 2B 2B 00 24 0A 5A | REQUEST +++.$.Z|
00000200: 00 8B 55 52 24 B2 55 58 24 A7 31 39 35 3A 8F 20 |..UR$.UX$.195:. |
00000210: 45 58 49 54 20 54 4F 20 48 45 4C 50 20 52 4F 55 |EXIT TO HELP ROU|
00000220: 54 49 4E 45 00 33 0A 5F 00 8B 55 46 B2 31 A7 8D |TINE.3._..UF.1..|
00000230: 32 34 30 00 40 0A 64 00 55 46 B2 30 3A 99 3A 8E |240.@.d.UF.0:.:.|
00000240: 00 59 0A 66 00 8F 20 2B 2B 20 43 48 45 43 4B 20 |.Y.f.. ++ CHECK |
00000250: 44 45 4C 45 54 45 20 2B 2B 00 6A 0A 69 00 8B C3 |DELETE ++.j.i...|
00000260: 28 55 52 24 29 B3 31 A7 35 30 00 82 0A 6E 00 55 |(UR$).1.50...n.U|
00000270: 52 24 B2 C8 28 55 52 24 2C C3 28 55 52 24 29 AB |R$..(UR$,.(UR$).|
00000280: 31 29 00 94 0A 73 00 99 22 9D 20 20 9D 9D 22 3B |1)...s..". ..";|
00000290: 3A 89 35 30 00 BB 0A 78 00 8F 20 2B 2B 20 43 48 |:.50...x.. ++ CH|
000002A0: 45 43 4B 20 46 4F 52 20 56 41 4C 49 44 20 43 48 |ECK FOR VALID CH|
000002B0: 41 52 41 43 54 45 52 53 20 2B 2B 00 CD 0A 7D 00 |ARACTERS ++...}.|
000002C0: 8B C3 28 55 53 24 29 B2 30 A7 31 35 30 00 DE 0A |..(US$).0.150...|
000002D0: 82 00 81 55 53 B2 31 A4 C3 28 55 53 24 29 00 F5 |...US.1..(US$)..|
000002E0: 0A 87 00 8B 55 49 24 B2 CA 28 55 53 24 2C 55 53 |....UI$..(US$,US|
000002F0: 2C 31 29 A7 8E 00 FB 0A 8C 00 82 00 08 0B 91 00 |,1).............|
00000300: 55 49 24 B2 22 22 3A 8E 00 23 0B 96 00 8F 20 2A |UI$."":..#.... *|
00000310: 2A 20 53 54 41 4E 44 41 52 44 20 49 4E 50 55 54 |* STANDARD INPUT|
00000320: 20 2A 2A 00 34 0B 98 00 8B C6 28 55 49 24 29 B2 | **.4.....(UI$).|
00000330: 34 36 A7 8E 00 45 0B 9B 00 8B 55 49 24 B2 C7 28 |46...E....UI$..(|
00000340: 33 32 29 A7 8E 00 62 0B A0 00 8B C6 28 55 49 24 |32)...b.....(UI$|
00000350: 29 B3 34 38 B0 C6 28 55 49 24 29 B1 35 37 A7 31 |).48..(UI$).57.1|
00000360: 37 30 00 68 0B A5 00 8E 00 85 0B AA 00 8B C6 28 |70.h...........(|
00000370: 55 49 24 29 B3 36 35 B0 C6 28 55 49 24 29 B1 39 |UI$).65..(UI$).9|
00000380: 30 A7 31 38 30 00 8B 0B AF 00 8E 00 AF 0B B4 00 |0.180...........|
00000390: 8B C6 28 55 49 24 29 B3 31 39 33 B0 C6 28 55 49 |..(UI$).193..(UI|
000003A0: 24 29 B1 32 31 38 A7 55 49 24 B2 22 22 3A 8E 00 |$).218.UI$."":..|
000003B0: D2 0B B9 00 8B C2 28 55 54 29 B2 55 55 25 A7 55 |......(UT).UU%.U|
000003C0: 49 24 B2 C7 28 C6 28 55 49 24 29 AB 31 32 38 29 |I$..(.(UI$).128)|
000003D0: 3A 8E 00 D8 0B BB 00 8E 00 E5 0B BE 00 55 49 24 |:............UI$|
000003E0: B2 22 22 3A 8E 00 0A 0C C3 00 55 46 B2 31 3A 8F |."":......UF.1:.|
000003F0: 20 2B 2B 2B 20 48 45 4C 50 20 52 4F 55 54 49 4E | +++ HELP ROUTIN|
00000400: 45 20 45 58 49 54 20 2B 2B 2B 00 13 0C C5 00 8D |E EXIT +++......|
00000410: 32 35 30 00 1C 0C C8 00 8D 32 34 35 00 3B 0C CD |250......245.;..|
00000420: 00 81 55 51 B2 55 42 A4 28 55 32 25 AC 32 35 36 |..UQ.UB.(U2%.256|
00000430: AA 55 31 25 AA 55 33 25 AB 32 29 00 57 0C D2 00 |.U1%.U3%.2).W...|
00000440: 55 51 25 28 55 51 AB 55 42 29 B2 C2 28 55 51 29 |UQ%(UQ.UB)..(UQ)|
00000450: 3A 82 3A 99 22 93 22 00 6A 0C D7 00 55 5A B2 31 |:.:.".".j...UZ.1|
00000460: 3A 55 56 25 B2 C2 28 55 54 29 00 73 0C D8 00 89 |:UV%..(UT).s....|
00000470: 33 30 30 00 98 0C D9 00 55 5A B2 30 3A 55 53 24 |300.....UZ.0:US$|
00000480: B2 55 4A 24 3A 55 47 24 B2 55 4B 24 3A 55 50 B2 |.UJ$:UG$.UK$:UP.|
00000490: 55 4A 3A 55 4C B2 55 4B 00 CF 0C DA 00 8B C2 28 |UJ:UL.UK.......(|
000004A0: 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C |50003).0..53281,|
000004B0: 31 3A 99 22 93 22 3B 3A 97 35 33 32 38 31 2C 36 |1:.".";:.53281,6|
000004C0: 3A 97 35 33 32 38 30 2C 31 34 3A 89 32 32 30 00 |:.53280,14:.220.|
000004D0: D9 0C DB 00 99 22 93 22 3B 00 08 0D DC 00 55 54 |.....".";.....UT|
000004E0: 24 B2 55 4C 24 3A 97 55 54 2C 55 56 25 3A 81 55 |$.UL$:.UT,UV%:.U|
000004F0: 51 B2 55 42 A4 28 55 32 25 AC 32 35 36 AA 55 31 |Q.UB.(U2%.256.U1|
00000500: 25 AA 55 33 25 AB 33 29 00 1D 0D E1 00 97 55 51 |%.U3%.3)......UQ|
00000510: 2C 55 51 25 28 55 51 AB 55 42 29 3A 82 00 29 0D |,UQ%(UQ.UB):..).|
00000520: E6 00 97 55 31 2C 55 31 25 00 35 0D E8 00 97 55 |...U1,U1%.5....U|
00000530: 32 2C 55 32 25 00 41 0D E9 00 97 55 34 2C 55 34 |2,U2%.A....U4,U4|
00000540: 25 00 4F 0D EA 00 97 55 33 2C 55 33 25 AB 31 00 |%.O....U3,U3%.1.|
00000550: 57 0D EB 00 89 33 35 00 89 0D F0 00 55 44 25 B2 |W....35.....UD%.|
00000560: 28 28 55 32 25 AC 32 35 36 AA 55 31 25 AA 55 33 |((U2%.256.U1%.U3|
00000570: 25 29 AB 55 42 29 AD 34 30 3A 99 C8 28 55 44 24 |%).UB).40:..(UD$|
00000580: 2C 55 44 25 AA 31 29 3A 8E 00 C4 0D F5 00 99 C8 |,UD%.1):........|
00000590: 28 55 44 24 2C 32 34 29 3B 22 20 20 20 20 20 20 |(UD$,24);" |
000005A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000005B0: 12 20 48 45 4C 50 20 43 4F 4D 49 4E 47 20 92 20 |. HELP COMING . |
000005C0: 20 22 3A 8E 00 F0 0D FA 00 55 31 25 B2 C2 28 55 | ":......U1%..(U|
000005D0: 31 29 3A 55 32 25 B2 C2 28 55 32 29 3A 55 33 25 |1):U2%..(U2):U3%|
000005E0: B2 C2 28 55 33 29 3A 55 34 25 B2 C2 28 55 34 29 |..(U3):U4%..(U4)|
000005F0: 00 18 0E FB 00 55 4A 24 B2 55 53 24 3A 55 4B 24 |.....UJ$.US$:UK$|
00000600: B2 55 47 24 3A 55 4C 24 B2 55 54 24 3A 55 4A B2 |.UG$:UL$.UT$:UJ.|
00000610: 55 50 3A 55 4B B2 55 4C 00 1E 0E FF 00 8E 00 2F |UP:UK.UL......./|
00000620: 0E 2C 01 8F 20 2A 2A 20 4D 45 4E 55 20 2A 2A 00 |.,.. ** MENU **.|
00000630: 35 0E 2D 01 3A 00 64 0E 2E 01 99 22 93 22 3A 97 |5.-.:.d....".":.|
00000640: 55 54 2C 55 55 25 3A 8B C2 28 35 30 30 30 33 29 |UT,UU%:..(50003)|
00000650: B2 30 A7 97 35 33 32 38 31 2C 39 3A 97 35 33 32 |.0..53281,9:.532|
00000660: 38 30 2C 38 00 6A 0E 2F 01 3A 00 87 0E 31 01 99 |80,8.j./.:...1..|
00000670: 22 13 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |". |
00000680: 20 20 4D 45 4E 55 22 00 B6 0E 36 01 99 22 20 2D | MENU"...6.." -|
00000690: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000006A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000006B0: 2D 2D 2D 2D 2D 22 00 E0 0E 3B 01 99 22 11 11 20 |-----"...;..".. |
000006C0: 20 20 20 20 20 20 31 2E 20 20 20 42 45 47 49 4E | 1. BEGIN|
000006D0: 20 53 54 4F 43 4B 20 4D 41 52 4B 45 54 20 32 22 | STOCK MARKET 2"|
000006E0: 00 0A 0F 40 01 99 22 11 11 20 20 20 20 20 20 20 |...@..".. |
000006F0: 32 2E 20 20 20 53 54 55 44 45 4E 54 20 49 4E 53 |2. STUDENT INS|
00000700: 54 52 55 43 54 49 4F 4E 53 22 00 34 0F 45 01 99 |TRUCTIONS".4.E..|
00000710: 22 11 11 20 20 20 20 20 20 20 33 2E 20 20 20 54 |".. 3. T|
00000720: 45 41 43 48 45 52 20 49 4E 53 54 52 55 43 54 49 |EACHER INSTRUCTI|
00000730: 4F 4E 53 22 00 50 0F 4F 01 99 22 11 11 20 20 20 |ONS".P.O..".. |
00000740: 20 20 20 20 34 2E 20 20 20 51 55 49 54 11 11 22 | 4. QUIT.."|
00000750: 00 7F 0F 54 01 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D |...T.." --------|
00000760: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000770: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 |--------------".|
00000780: AA 0F 59 01 99 22 11 11 20 20 20 20 20 20 20 50 |..Y..".. P|
00000790: 52 45 53 53 20 41 20 4E 55 4D 42 45 52 20 4B 45 |RESS A NUMBER KE|
000007A0: 59 20 28 31 2D 34 29 20 22 3B 00 D2 0F 5E 01 55 |Y (1-4) ";...^.U|
000007B0: 4C B2 31 3A 55 53 24 B2 22 31 32 33 34 22 3A 8D |L.1:US$."1234":.|
000007C0: 33 35 3A 8F 20 49 4E 50 55 54 20 52 4F 55 54 49 |35:. INPUT ROUTI|
000007D0: 4E 45 00 DD 0F 60 01 55 53 24 B2 22 22 00 FA 0F |NE...`.US$.""...|
000007E0: 63 01 91 C5 28 55 52 24 29 8D 31 30 30 30 2C 34 |c...(UR$).1000,4|
000007F0: 30 30 2C 35 30 30 2C 33 39 36 00 03 10 68 01 89 |00,500,396...h..|
00000800: 33 30 30 00 2A 10 8B 01 8F 20 2A 2A 20 52 45 2D |300.*.... ** RE-|
00000810: 45 4E 41 42 4C 45 20 53 54 4F 50 20 4B 45 59 20 |ENABLE STOP KEY |
00000820: 41 4E 44 20 45 4E 44 20 2A 2A 00 59 10 8C 01 8B |AND END **.Y....|
00000830: C2 28 35 30 30 30 33 29 B3 B1 31 AF C2 28 35 30 |.(50003)..1..(50|
00000840: 30 30 33 29 B3 B1 31 36 30 AF C2 28 35 30 30 30 |003)..160..(5000|
00000850: 33 29 B3 B1 30 A7 33 39 39 00 83 10 8D 01 9E 55 |3)..0.399......U|
00000860: 55 AA 37 31 3A 8B C2 28 35 30 30 30 33 29 B2 30 |U.71:..(50003).0|
00000870: A7 97 35 33 32 38 31 2C 36 3A 97 35 33 32 38 30 |..53281,6:.53280|
00000880: 2C 31 34 00 8F 10 8E 01 99 22 9A 93 22 3A 80 00 |,14......"..":..|
00000890: 9A 10 8F 01 8D 38 37 35 3A 8E 00 BB 10 90 01 8F |.....875:.......|
000008A0: 20 2A 2A 20 53 54 55 44 45 4E 54 20 49 4E 53 54 | ** STUDENT INST|
000008B0: 52 55 43 54 49 4F 4E 53 20 2A 2A 00 EA 10 95 01 |RUCTIONS **.....|
000008C0: 99 22 93 22 3A 97 55 54 2C 55 4C 25 3A 8B C2 28 |.".":.UT,UL%:..(|
000008D0: 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C |50003).0..53281,|
000008E0: 30 3A 97 35 33 32 38 30 2C 30 00 0B 11 9A 01 55 |0:.53280,0.....U|
000008F0: 50 B2 30 3A 55 47 24 B2 22 D3 54 55 44 45 4E 54 |P.0:UG$.".TUDENT|
00000900: 20 C9 4E 53 54 22 3A 8D 38 35 30 00 3B 11 9C 01 | .NST":.850.;...|
00000910: 99 20 22 11 20 D4 48 49 53 A0 47 41 4D 45 A0 50 |. ". .HIS.GAME.P|
00000920: 4C 41 59 53 A0 54 48 45 A0 53 54 4F 43 4B A0 4D |LAYS.THE.STOCK.M|
00000930: 41 52 4B 45 54 2E A0 D9 4F 55 22 00 6A 11 9D 01 |ARKET...OU".j...|
00000940: 99 20 22 11 20 57 49 4C 4C A0 42 45 A0 47 49 56 |. ". WILL.BE.GIV|
00000950: 45 4E 20 24 31 30 2C 30 30 30 20 41 4E 44 20 4D |EN $10,000 AND M|
00000960: 41 59 20 42 55 59 20 4F 52 22 00 97 11 9E 01 99 |AY BUY OR"......|
00000970: 20 22 11 20 53 45 4C 4C A0 53 54 4F 43 4B 53 2E | ". SELL.STOCKS.|
00000980: 20 D4 48 45 A0 53 54 4F 43 4B A0 50 52 49 43 45 | .HE.STOCK.PRICE|
00000990: 53 A0 57 49 4C 4C 22 00 C5 11 A0 01 99 20 22 11 |S.WILL"...... ".|
000009A0: 20 42 45 A0 47 45 4E 45 52 41 54 45 44 A0 52 41 | BE.GENERATED.RA|
000009B0: 4E 44 4F 4D 4C 59 A0 41 4E 44 A0 54 48 45 52 45 |NDOMLY.AND.THERE|
000009C0: 46 4F 52 45 22 00 F5 11 A1 01 99 20 22 11 20 54 |FORE"...... ". T|
000009D0: 48 49 53 A0 4D 4F 44 45 4C A0 44 4F 45 53 A0 4E |HIS.MODEL.DOES.N|
000009E0: 4F 54 20 52 45 50 52 45 53 45 4E 54 20 45 58 41 |OT REPRESENT EXA|
000009F0: 43 54 4C 59 22 00 1E 12 A2 01 99 20 22 11 20 57 |CTLY"...... ". W|
00000A00: 48 41 54 20 48 41 50 50 45 4E 53 A0 4F 4E A0 54 |HAT HAPPENS.ON.T|
00000A10: 48 45 A0 45 58 43 48 41 4E 47 45 2E 20 22 00 2C |HE.EXCHANGE. ".,|
00000A20: 12 A4 01 8D 38 33 35 3A 8D 38 35 30 00 58 12 A6 |....835:.850.X..|
00000A30: 01 99 22 11 20 C1 20 54 41 42 4C 45 20 4F 46 A0 |..". . TABLE OF.|
00000A40: 41 56 41 49 4C 41 42 4C 45 A0 53 54 4F 43 4B 53 |AVAILABLE.STOCKS|
00000A50: 2C 20 54 48 45 49 52 22 00 84 12 A7 01 99 22 11 |, THEIR"......".|
00000A60: 20 50 52 49 43 45 53 20 41 4E 44 20 54 48 45 A0 | PRICES AND THE.|
00000A70: 4E 55 4D 42 45 52 A0 4F 46 A0 53 48 41 52 45 53 |NUMBER.OF.SHARES|
00000A80: 20 49 4E 22 00 AC 12 A8 01 99 22 11 20 59 4F 55 | IN"......". YOU|
00000A90: 52 20 50 4F 52 54 46 4F 4C 49 4F 20 57 49 4C 4C |R PORTFOLIO WILL|
00000AA0: A0 42 45 A0 50 52 49 4E 54 45 44 2E 00 DA 12 A9 |.BE.PRINTED.....|
00000AB0: 01 99 22 11 20 C6 4F 4C 4C 4F 57 49 4E 47 A0 54 |..". .OLLOWING.T|
00000AC0: 48 49 53 2C 20 54 48 45 20 49 4E 49 54 49 41 4C |HIS, THE INITIAL|
00000AD0: 53 20 4F 46 20 45 41 43 48 22 00 09 13 AA 01 99 |S OF EACH"......|
00000AE0: 22 11 20 53 54 4F 43 4B A0 57 49 4C 4C A0 42 45 |". STOCK.WILL.BE|
00000AF0: A0 50 52 49 4E 54 45 44 20 57 49 54 48 20 41 20 |.PRINTED WITH A |
00000B00: 51 55 45 53 54 49 4F 4E 22 00 39 13 AB 01 99 22 |QUESTION".9...."|
00000B10: 11 20 4D 41 52 4B 2E 20 C8 45 52 45 20 59 4F 55 |. MARK. .ERE YOU|
00000B20: 20 49 4E 44 49 43 41 54 45 20 41 20 54 52 41 4E | INDICATE A TRAN|
00000B30: 53 41 43 54 49 4F 4E 2E 22 00 64 13 AC 01 99 22 |SACTION.".d...."|
00000B40: 11 20 D4 4F A0 42 55 59 A0 41 20 53 54 4F 43 4B |. .O.BUY.A STOCK|
00000B50: 20 54 59 50 45 20 2B CE CE CE 2C 20 54 4F 20 53 | TYPE +..., TO S|
00000B60: 45 4C 4C 22 00 94 13 AF 01 99 20 22 11 20 54 59 |ELL"...... ". TY|
00000B70: 50 45 20 2D CE CE CE 2C 20 57 48 45 52 45 A0 CE |PE -..., WHERE..|
00000B80: CE CE A0 49 53 20 54 48 45 20 4E 55 4D 42 45 52 |...IS THE NUMBER|
00000B90: 20 4F 46 22 00 A5 13 B0 01 99 22 11 20 53 48 41 | OF"......". SHA|
00000BA0: 52 45 53 2E 22 00 B3 13 B3 01 8D 38 33 35 3A 8D |RES."......835:.|
00000BB0: 38 35 30 00 DB 13 B4 01 99 22 11 20 C1 A0 42 52 |850......". ..BR|
00000BC0: 4F 4B 45 52 41 47 45 A0 46 45 45 A0 4F 46 20 31 |OKERAGE.FEE.OF 1|
00000BD0: 25 20 57 49 4C 4C A0 42 45 A0 22 00 00 14 B6 01 |% WILL.BE.".....|
00000BE0: 99 22 11 20 43 48 41 52 47 45 44 20 4F 4E A0 41 |.". CHARGED ON.A|
00000BF0: 4C 4C A0 54 52 41 4E 53 41 43 54 49 4F 4E 53 2E |LL.TRANSACTIONS.|
00000C00: 00 2C 14 B7 01 99 22 11 20 CE 4F 54 45 A0 54 48 |.,....". .OTE.TH|
00000C10: 41 54 A0 49 46 A0 41 A0 53 54 4F 43 4B 53 20 56 |AT.IF.A.STOCKS V|
00000C20: 41 4C 55 45 A0 44 52 4F 50 53 20 22 00 5A 14 B8 |ALUE.DROPS ".Z..|
00000C30: 01 99 22 11 20 54 4F 20 5A 45 52 4F 20 49 54 A0 |..". TO ZERO IT.|
00000C40: 4D 41 59 A0 52 45 42 4F 55 4E 44 20 54 4F A0 41 |MAY.REBOUND TO.A|
00000C50: A0 50 4F 53 49 54 49 56 45 22 00 70 14 B9 01 99 |.POSITIVE".p....|
00000C60: 22 11 20 56 41 4C 55 45 20 41 47 41 49 4E 2E 22 |". VALUE AGAIN."|
00000C70: 00 79 14 E5 01 8D 38 33 35 00 8D 14 EA 01 8B 55 |.y....835......U|
00000C80: 5A B2 31 A7 9E 55 50 25 3A 89 32 31 37 00 93 14 |Z.1..UP%:.217...|
00000C90: F3 01 8E 00 B4 14 F4 01 8F 20 2A 2A 20 54 45 41 |......... ** TEA|
00000CA0: 43 48 45 52 20 49 4E 53 54 52 55 43 54 49 4F 4E |CHER INSTRUCTION|
00000CB0: 53 20 2A 2A 00 E4 14 F5 01 99 22 93 22 3A 97 55 |S **......".":.U|
00000CC0: 54 2C 55 4C 25 3A 8B C2 28 35 30 30 30 33 29 B2 |T,UL%:..(50003).|
00000CD0: 30 A7 97 35 33 32 38 31 2C 32 3A 97 35 33 32 38 |0..53281,2:.5328|
00000CE0: 30 2C 31 30 00 05 15 F6 01 55 50 B2 30 3A 55 47 |0,10.....UP.0:UG|
00000CF0: 24 B2 22 D4 45 41 43 48 45 52 20 C9 4E 53 54 22 |$.".EACHER .NST"|
00000D00: 3A 8D 38 35 30 00 33 15 F7 01 99 22 11 11 20 20 |:.850.3....".. |
00000D10: 20 20 20 20 D4 4F 20 54 48 45 20 42 45 53 54 20 | .O THE BEST |
00000D20: 4F 46 20 4F 55 52 20 4B 4E 4F 57 4C 45 44 47 45 |OF OUR KNOWLEDGE|
00000D30: 2C 11 22 00 5C 15 F8 01 99 22 20 20 20 54 48 49 |,.".\...." THI|
00000D40: 53 20 50 52 4F 47 52 41 4D 20 49 53 20 49 4E 20 |S PROGRAM IS IN |
00000D50: 54 48 45 20 50 55 42 4C 49 43 11 22 00 88 15 F9 |THE PUBLIC."....|
00000D60: 01 99 22 20 20 20 44 4F 4D 41 49 4E 2E 20 20 C9 |.." DOMAIN. .|
00000D70: 46 20 54 48 49 53 20 49 53 20 4E 4F 54 20 54 48 |F THIS IS NOT TH|
00000D80: 45 20 43 41 53 45 11 22 00 A5 15 FA 01 99 22 20 |E CASE."......" |
00000D90: 20 20 50 4C 45 41 53 45 20 43 4F 4E 54 41 43 54 | PLEASE CONTACT|
00000DA0: 3A 11 11 11 22 00 CF 15 FB 01 99 22 20 20 20 20 |:..."......" |
00000DB0: 20 20 C3 4F 4D 4D 4F 44 4F 52 45 20 C2 55 53 49 | .OMMODORE .USI|
00000DC0: 4E 45 53 53 20 CD 41 43 48 49 4E 45 53 11 22 00 |NESS .ACHINES.".|
00000DD0: F2 15 FC 01 99 22 20 20 20 20 20 20 20 20 20 20 |....." |
00000DE0: 33 33 37 30 20 D0 48 41 52 4D 41 43 59 20 C1 56 |3370 .HARMACY .V|
00000DF0: 45 2E 00 16 16 FD 01 99 22 20 20 20 20 20 20 20 |E......." |
00000E00: 20 20 20 C1 47 49 4E 43 4F 55 52 54 2C 20 CF 4E | .GINCOURT, .N|
00000E10: 54 41 52 49 4F 22 00 38 16 FE 01 99 22 20 20 20 |TARIO".8...." |
00000E20: 20 20 20 20 20 20 20 C3 41 4E 41 44 41 20 20 20 | .ANADA |
00000E30: CD 31 D7 20 32 CB 34 22 00 58 16 FF 01 99 22 20 |.1. 2.4".X...." |
00000E40: 20 20 20 20 20 20 20 20 20 28 34 31 36 29 20 34 | (416) 4|
00000E50: 39 39 2D 34 32 39 32 22 00 6E 16 00 02 55 50 B2 |99-4292".n...UP.|
00000E60: 31 3A 8D 20 38 33 35 3A 8D 20 38 35 30 3A 00 99 |1:. 835:. 850:..|
00000E70: 16 01 02 99 22 20 20 20 20 20 11 11 D0 52 4F 47 |...." ...ROG|
00000E80: 52 41 4D 20 CE 41 4D 45 3A 20 D3 54 4F 43 4B 20 |RAM .AME: .TOCK |
00000E90: CD 41 52 4B 45 54 20 32 11 00 BB 16 02 02 99 22 |.ARKET 2......."|
00000EA0: 20 20 20 20 20 D7 52 49 54 54 45 4E 20 C2 59 20 | .RITTEN .Y |
00000EB0: 20 3A 20 D5 4E 4B 4E 4F 57 4E 11 00 DF 16 03 02 | : .NKNOWN......|
00000EC0: 99 22 20 20 20 20 20 D5 50 47 52 41 44 45 44 20 |." .PGRADED |
00000ED0: C2 59 20 3A 20 20 20 20 20 20 20 20 20 20 11 00 |.Y : ..|
00000EE0: 0A 17 04 02 99 22 20 20 20 20 20 11 D4 48 49 53 |....." ..HIS|
00000EF0: 20 50 52 4F 47 52 41 4D 20 57 49 4C 4C 20 52 55 | PROGRAM WILL RU|
00000F00: 4E 20 4F 4E 20 41 4E 59 11 11 00 2A 17 07 02 99 |N ON ANY...*....|
00000F10: 22 20 20 20 20 20 20 20 20 20 D0 C5 D4 20 36 34 |" ... 64|
00000F20: 20 C3 CF CD D0 D5 D4 C5 D2 11 00 4F 17 08 02 99 | ..........O....|
00000F30: 22 20 20 20 20 20 20 20 20 20 C3 CF CD CD CF C4 |" ......|
00000F40: CF D2 C5 20 36 34 20 C3 CF CD D0 D5 D4 C5 D2 00 |... 64 .........|
00000F50: 58 17 09 02 8D 38 33 35 00 6C 17 4E 02 8B 55 5A |X....835.l.N..UZ|
00000F60: B2 31 A7 9E 55 50 25 3A 89 32 31 37 00 72 17 57 |.1..UP%:.217.r.W|
00000F70: 02 8E 00 98 17 58 02 8F 20 2A 2A 20 50 52 4F 47 |.....X.. ** PROG|
00000F80: 52 41 4D 20 4D 4F 44 49 46 49 43 41 54 49 4F 4E |RAM MODIFICATION|
00000F90: 20 49 4E 53 54 20 2A 2A 00 A9 17 59 02 99 22 93 | INST **...Y..".|
00000FA0: 22 3A 97 55 54 2C 55 4C 25 00 C9 17 5D 02 55 50 |":.UT,UL%...].UP|
00000FB0: B2 30 3A 55 47 24 B2 22 D0 52 4F 47 52 41 4D 20 |.0:UG$.".ROGRAM |
00000FC0: CD 4F 44 22 3A 8D 38 35 30 00 D2 17 94 02 8D 38 |.OD":.850......8|
00000FD0: 33 35 00 E6 17 B2 02 8B 55 5A B2 31 A7 9E 55 50 |35......UZ.1..UP|
00000FE0: 25 3A 89 32 31 37 00 EC 17 BB 02 8E 00 11 18 BC |%:.217..........|
00000FF0: 02 8F 20 2A 2A 20 54 4F 20 55 53 45 20 38 30 33 |.. ** TO USE 803|
00001000: 32 20 4C 4F 41 44 20 43 42 4D 34 30 33 32 20 2A |2 LOAD CBM4032 *|
00001010: 2A 00 47 18 C6 02 99 22 93 11 11 11 05 42 45 46 |*.G....".....BEF|
00001020: 4F 52 45 20 52 55 4E 4E 49 4E 47 20 54 48 49 53 |ORE RUNNING THIS|
00001030: 20 50 52 4F 47 52 41 4D 20 4F 4E 20 41 4E 20 38 | PROGRAM ON AN 8|
00001040: 30 33 32 20 20 11 11 00 7D 18 D0 02 99 22 20 20 |032 ...}...." |
00001050: 20 20 20 20 4C 4F 41 44 20 54 48 45 20 27 43 42 | LOAD THE 'CB|
00001060: 4D 20 34 30 33 32 27 20 50 52 4F 47 52 41 4D 11 |M 4032' PROGRAM.|
00001070: 11 11 11 11 11 11 11 11 11 11 11 11 22 00 88 18 |............"...|
00001080: DA 02 9E 55 55 AA 37 31 00 8E 18 E4 02 80 00 AE |...UU.71........|
00001090: 18 20 03 8F 20 2A 2A 20 54 20 49 20 54 20 4C 20 |. .. ** T I T L |
000010A0: 45 20 20 20 50 20 41 20 47 20 45 20 2A 2A 00 E2 |E P A G E **..|
000010B0: 18 22 03 99 22 93 11 1D 05 22 3B 3A 97 55 54 2C |.".."....";:.UT,|
000010C0: 55 55 25 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 |UU%:..(50003).0.|
000010D0: 97 35 33 32 38 30 2C 31 34 3A 97 35 33 32 38 31 |.53280,14:.53281|
000010E0: 2C 36 00 F8 18 24 03 81 49 B2 31 A4 33 38 3A 99 |,6...$..I.1.38:.|
000010F0: 22 12 A6 92 22 3B 3A 82 00 10 19 26 03 81 49 B2 |"...";:....&..I.|
00001100: 31 A4 32 32 3A 99 22 11 9D 12 A6 92 22 3B 3A 82 |1.22:.".....";:.|
00001110: 00 28 19 28 03 81 49 B2 31 A4 33 37 3A 99 22 9D |.(.(..I.1.37:.".|
00001120: 9D 12 A6 92 22 3B 3A 82 00 40 19 2A 03 81 49 B2 |....";:..@.*..I.|
00001130: 31 A4 32 32 3A 99 22 91 9D 12 A6 92 22 3B 3A 82 |1.22:.".....";:.|
00001140: 00 65 19 2C 03 99 22 13 11 11 11 11 11 11 1D 1D |.e.,..".........|
00001150: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001160: 12 A9 20 20 92 00 87 19 2E 03 99 22 1D 1D 1D 1D |.. ......."....|
00001170: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 20 |............... |
00001180: 92 20 20 12 20 92 A9 00 A8 19 30 03 99 22 1D 1D |. . .....0.."..|
00001190: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000011A0: 12 20 92 20 20 12 A3 DF 00 C6 19 32 03 99 22 1D |. . ......2..".|
000011B0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000011C0: 1D DF 12 20 20 92 00 EE 19 34 03 99 22 11 11 1D |... ....4.."...|
000011D0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 43 20 4F 20 4D |...........C O M|
000011E0: 20 4D 20 4F 20 44 20 4F 20 52 20 45 11 11 00 11 | M O D O R E....|
000011F0: 1A 36 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |.6.."...........|
00001200: 1D 1D 1D 1D 45 44 55 43 41 54 49 4F 4E 41 4C 11 |....EDUCATIONAL.|
00001210: 11 00 30 1A 38 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D |..0.8.."........|
00001220: 1D 1D 1D 1D 1D 1D 1D 1D 53 4F 46 54 57 41 52 45 |........SOFTWARE|
00001230: 00 4B 1A 3A 03 8F 20 2A 2A 20 43 4F 4D 4D 4F 44 |.K.:.. ** COMMOD|
00001240: 4F 52 45 20 4C 4F 47 4F 20 2A 2A 00 83 1A 3B 03 |ORE LOGO **...;.|
00001250: 99 C8 28 55 44 24 2C 32 34 29 3B 22 1D 1D 1D 1D |..(UD$,24);"....|
00001260: 1D 1D 1D 1D 1D 12 50 52 45 53 53 20 53 50 41 43 |......PRESS SPAC|
00001270: 45 20 42 41 52 20 4F 52 20 57 41 49 54 92 22 3A |E BAR OR WAIT.":|
00001280: 49 B2 30 00 A5 1A 3C 03 A1 41 24 3A 8B 41 24 B3 |I.0...<..A$:.A$.|
00001290: B1 22 20 22 A7 49 B2 49 AA 31 3A 8B 49 B3 32 35 |." ".I.I.1:.I.25|
000012A0: 30 A7 38 32 38 00 C9 1A 3E 03 54 31 24 B2 22 22 |0.828...>.T1$.""|
000012B0: 3A 54 32 24 B2 22 22 3A 54 33 24 B2 22 22 3A 54 |:T2$."":T3$."":T|
000012C0: 34 24 B2 22 22 3A 49 B2 30 00 D2 1A 40 03 89 33 |4$."":I.0...@..3|
000012D0: 30 30 00 EE 1A 43 03 8F 20 2A 2A 20 53 50 41 43 |00...C.. ** SPAC|
000012E0: 45 20 42 41 52 20 50 52 45 53 53 20 2A 2A 00 29 |E BAR PRESS **.)|
000012F0: 1B 48 03 97 55 4F 2C 30 3A 99 C8 28 55 44 24 2C |.H..UO,0:..(UD$,|
00001300: 32 34 29 3B 22 1D 1D 1D 1D 1D 1D 12 50 52 45 53 |24);".......PRES|
00001310: 53 20 53 50 41 43 45 20 42 41 52 20 54 4F 20 43 |S SPACE BAR TO C|
00001320: 4F 4E 54 49 4E 55 45 92 22 00 40 1B 4C 03 A1 55 |ONTINUE.".@.L..U|
00001330: 49 24 3A 8B 55 49 24 B3 B1 22 20 22 A7 38 34 34 |I$:.UI$.." ".844|
00001340: 00 46 1B 4E 03 8E 00 66 1B 52 03 8F 20 2A 2A 20 |.F.N...f.R.. ** |
00001350: 50 41 47 45 20 44 45 53 49 47 4E 20 52 4F 55 54 |PAGE DESIGN ROUT|
00001360: 49 4E 45 20 2A 2A 00 72 1B 54 03 55 50 B2 55 50 |INE **.r.T.UP.UP|
00001370: AA 31 00 9C 1B 57 03 99 22 93 22 C8 28 55 54 24 |.1...W..".".(UT$|
00001380: AA 55 50 24 2C 32 31 29 3B C9 28 55 50 24 AA 55 |.UP$,21);.(UP$.U|
00001390: 47 24 AA C4 28 55 50 29 2C 31 38 29 00 CB 1B 5C |G$..(UP),18)...\|
000013A0: 03 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.." ------------|
000013B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000013C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 DA 1B 60 03 |----------"...`.|
000013D0: 8B 55 48 B3 B1 30 A7 38 37 30 00 1B 1C 61 03 8F |.UH..0.870...a..|
000013E0: 50 52 49 4E 54 4C 45 46 54 24 28 55 44 24 2C 32 |PRINTLEFT$(UD$,2|
000013F0: 34 29 3B 4C 45 46 54 24 28 55 50 24 2C 37 29 3B |4);LEFT$(UP$,7);|
00001400: 22 48 45 4C 50 20 2D 20 50 52 45 53 53 20 20 20 |"HELP - PRESS |
00001410: 48 20 3C 52 45 54 55 52 4E 3E 22 00 2C 1C 66 03 |H <RETURN>".,.f.|
00001420: 55 48 B2 30 3A 99 22 13 11 22 3A 8E 00 4B 1C 6B |UH.0:."..":..K.k|
00001430: 03 8F 20 2A 2A 20 50 4C 45 41 53 45 20 57 41 49 |.. ** PLEASE WAI|
00001440: 54 20 52 45 4D 41 52 4B 20 2A 2A 00 81 1C 70 03 |T REMARK **...p.|
00001450: 99 C8 28 55 44 24 2C 32 34 29 3B 22 20 20 20 20 |..(UD$,24);" |
00001460: 20 20 20 20 20 20 20 4F 4E 45 20 4D 4F 4D 45 4E | ONE MOMEN|
00001470: 54 20 50 4C 45 41 53 45 2E 2E 2E 20 20 20 20 20 |T PLEASE... |
00001480: 22 00 87 1C 75 03 8E 00 A4 1C 84 03 8F 20 2A 2A |"...u........ **|
00001490: 20 53 45 54 20 55 50 20 56 41 52 49 41 42 4C 45 | SET UP VARIABLE|
000014A0: 53 20 2A 2A 00 EF 1C 85 03 55 58 24 B2 22 48 22 |S **.....UX$."H"|
000014B0: 3A 86 55 51 25 28 31 30 30 30 29 3A 55 42 B2 33 |:.UQ%(1000):UB.3|
000014C0: 32 37 36 38 3A 55 31 B2 31 39 36 3A 55 32 B2 31 |2768:U1.196:U2.1|
000014D0: 39 37 3A 55 33 B2 31 39 38 3A 55 34 B2 32 31 36 |97:U3.198:U4.216|
000014E0: 3A 55 43 B2 31 36 37 3A 55 55 B2 31 30 32 34 00 |:UC.167:UU.1024.|
000014F0: 2D 1D 86 03 55 54 B2 35 39 34 36 38 3A 55 55 25 |-...UT.59468:UU%|
00001500: B2 31 32 3A 55 4C 25 B2 31 34 3A 55 50 25 B2 31 |.12:UL%.14:UP%.1|
00001510: 31 34 36 3A 55 4D B2 33 32 37 36 38 3A 55 4F B2 |146:UM.32768:UO.|
00001520: 31 35 38 3A 97 20 35 30 30 30 33 2C 30 00 70 1D |158:. 50003,0.p.|
00001530: 87 03 8B C2 28 35 30 30 30 33 29 B2 30 A7 55 42 |....(50003).0.UB|
00001540: B2 31 30 32 34 3A 55 31 B2 32 30 39 3A 55 32 B2 |.1024:U1.209:U2.|
00001550: 32 31 30 3A 55 33 B2 32 31 31 3A 55 34 B2 32 31 |210:U3.211:U4.21|
00001560: 34 3A 55 43 B2 32 30 34 3A 55 55 B2 32 30 34 38 |4:UC.204:UU.2048|
00001570: 00 AF 1D 88 03 8B C2 28 35 30 30 30 33 29 B2 30 |.......(50003).0|
00001580: A7 55 54 B2 35 33 32 37 32 3A 55 55 25 B2 32 31 |.UT.53272:UU%.21|
00001590: 3A 55 4C 25 B2 32 33 3A 55 50 25 B2 32 31 33 39 |:UL%.23:UP%.2139|
000015A0: 3A 55 4D B2 31 30 32 34 3A 55 4F B2 31 39 38 00 |:UM.1024:UO.198.|
000015B0: D3 1D 89 03 55 44 24 B2 22 13 11 11 11 11 11 11 |....UD$.".......|
000015C0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
000015D0: 11 11 22 00 05 1E 8A 03 55 50 24 B2 22 20 20 20 |..".....UP$." |
000015E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000015F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001600: 20 20 20 20 22 00 53 1E 8B 03 55 54 24 B2 22 20 | ".S...UT$." |
00001610: D3 54 4F 43 4B 20 CD 41 52 4B 45 54 20 32 A0 A0 |.TOCK .ARKET 2..|
00001620: A0 A0 22 3A 8F 20 50 4C 41 43 45 20 50 52 4F 47 |..":. PLACE PROG|
00001630: 52 41 4D 20 54 49 54 4C 45 20 48 45 52 45 20 21 |RAM TITLE HERE !|
00001640: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 |!!!!!!!!!!!!!!!!|
00001650: 2A 2A 2A 00 59 1E 8C 03 8E 00 73 1E 8E 03 8F 20 |***.Y.....s.... |
00001660: 2A 2A 20 53 45 54 20 56 41 52 49 41 42 4C 45 53 |** SET VARIABLES|
00001670: 20 2A 2A 00 7C 1E 93 03 8D 39 30 30 00 97 1E 98 | **.|....900....|
00001680: 03 8F 20 2A 2A 20 43 48 45 43 4B 20 46 4F 52 20 |.. ** CHECK FOR |
00001690: 38 30 33 32 20 2A 2A 00 B5 1E 9D 03 99 22 93 22 |8032 **......"."|
000016A0: 3A 99 22 A0 22 3A 8F 20 53 48 49 46 54 45 44 20 |:.".":. SHIFTED |
000016B0: 53 50 41 43 45 00 CC 1E A2 03 8B C2 28 55 42 AA |SPACE.......(UB.|
000016C0: 34 30 29 B3 B1 39 36 A7 8D 37 30 30 00 E5 1E A3 |40)..96..700....|
000016D0: 03 8F 20 2A 2A 20 4D 45 4D 4F 52 59 20 43 48 45 |.. ** MEMORY CHE|
000016E0: 43 4B 20 2A 2A 00 F9 1E A4 03 8B 20 B8 28 30 29 |CK **...... .(0)|
000016F0: B1 32 30 30 30 A7 39 33 37 00 27 1F A5 03 99 22 |.2000.937.'...."|
00001700: 93 11 11 05 54 48 49 53 20 4D 41 43 48 49 4E 45 |....THIS MACHINE|
00001710: 20 44 4F 45 53 20 4E 4F 54 20 48 41 56 45 20 45 | DOES NOT HAVE E|
00001720: 4E 4F 55 47 48 11 22 00 4B 1F A6 03 99 22 4D 45 |NOUGH.".K...."ME|
00001730: 4D 4F 52 59 20 54 4F 20 52 55 4E 20 54 48 49 53 |MORY TO RUN THIS|
00001740: 20 50 52 4F 47 52 41 4D 20 21 22 00 56 1F A7 03 | PROGRAM !".V...|
00001750: 9E 55 55 AA 37 31 00 5C 1F A8 03 80 00 76 1F A9 |.UU.71.\.....v..|
00001760: 03 99 22 93 05 22 3A 8B C2 28 35 30 30 30 33 29 |.."..":..(50003)|
00001770: B2 30 A7 39 36 32 00 A5 1F AC 03 8F 20 2A 2A 20 |.0.962...... ** |
00001780: 42 41 53 49 43 20 32 2E 30 20 20 4F 52 20 20 34 |BASIC 2.0 OR 4|
00001790: 2E 30 20 20 4F 52 20 20 43 2D 36 34 20 53 45 54 |.0 OR C-64 SET|
000017A0: 55 50 20 2A 2A 00 E3 1F AD 03 97 31 30 37 35 2C |UP **......1075,|
000017B0: 31 33 33 3A 97 31 30 37 36 2C 31 34 34 3A 97 31 |133:.1076,144:.1|
000017C0: 30 37 37 2C 32 33 34 3A 97 31 30 37 39 2C 34 3A |077,234:.1079,4:|
000017D0: 97 31 30 38 30 2C 31 33 33 3A 97 31 30 38 31 2C |.1080,133:.1081,|
000017E0: 31 34 35 00 19 20 AE 03 97 31 30 39 31 2C 31 35 |145.. ...1091,15|
000017F0: 35 3A 97 31 30 39 38 2C 31 33 33 3A 97 31 30 39 |5:.1098,133:.109|
00001800: 39 2C 31 34 34 3A 97 31 31 30 30 2C 32 33 34 3A |9,144:.1100,234:|
00001810: 97 31 31 30 33 2C 31 33 33 00 3B 20 AF 03 97 31 |.1103,133.; ...1|
00001820: 31 30 34 2C 31 34 35 3A 97 31 31 30 35 2C 32 33 |104,145:.1105,23|
00001830: 34 3A 97 31 30 38 32 2C 32 33 34 00 52 20 B1 03 |4:.1082,234.R ..|
00001840: 8B C2 28 35 30 30 30 33 29 B3 B1 31 36 30 A7 39 |..(50003)..160.9|
00001850: 35 35 00 81 20 B6 03 97 31 30 39 33 2C 38 38 3A |55.. ...1093,88:|
00001860: 97 31 30 39 34 2C 32 32 38 3A 97 31 30 39 37 2C |.1094,228:.1097,|
00001870: 38 35 3A 97 31 31 30 32 2C 32 32 38 3A 89 39 36 |85:.1102,228:.96|
00001880: 35 00 96 20 BB 03 8B C2 28 35 30 30 30 33 29 B3 |5.. ....(50003).|
00001890: B1 31 A7 39 39 30 00 C5 20 C0 03 97 31 30 39 33 |.1.990.. ...1093|
000018A0: 2C 34 39 3A 97 31 30 39 34 2C 32 33 30 3A 97 31 |,49:.1094,230:.1|
000018B0: 30 39 37 2C 34 36 3A 97 31 31 30 32 2C 32 33 30 |097,46:.1102,230|
000018C0: 3A 89 39 36 35 00 FF 20 C2 03 97 32 30 39 39 2C |:.965.. ...2099,|
000018D0: 31 34 31 3A 97 32 31 30 30 2C 32 30 3A 97 32 31 |141:.2100,20:.21|
000018E0: 30 31 2C 33 3A 97 32 31 30 33 2C 38 3A 97 32 31 |01,3:.2103,8:.21|
000018F0: 30 34 2C 31 34 31 3A 97 32 31 30 35 2C 32 31 00 |04,141:.2105,21.|
00001900: 3B 21 C3 03 97 32 31 30 36 2C 33 3A 97 32 31 31 |;!...2106,3:.211|
00001910: 35 2C 31 34 35 3A 97 32 31 31 37 2C 35 32 3A 97 |5,145:.2117,52:.|
00001920: 32 31 31 38 2C 32 33 34 3A 97 32 31 32 31 2C 34 |2118,234:.2121,4|
00001930: 39 3A 97 32 31 32 32 2C 31 34 31 00 75 21 C4 03 |9:.2122,141.u!..|
00001940: 97 32 31 32 33 2C 32 30 3A 97 32 31 32 34 2C 33 |.2123,20:.2124,3|
00001950: 3A 97 32 31 32 36 2C 32 33 34 3A 97 32 31 32 37 |:.2126,234:.2127|
00001960: 2C 31 34 31 3A 97 32 31 32 38 2C 32 31 3A 97 32 |,141:.2128,21:.2|
00001970: 31 32 39 2C 33 00 93 21 C5 03 9E 55 55 AA 34 38 |129,3..!...UU.48|
00001980: 3A 8F 20 44 49 53 41 42 4C 45 20 53 54 4F 50 20 |:. DISABLE STOP |
00001990: 4B 45 59 00 A4 21 CA 03 8D 38 30 30 3A 8F 20 54 |KEY..!...800:. T|
000019A0: 49 54 4C 45 00 B4 21 D4 03 89 33 30 30 3A 8F 20 |ITLE..!...300:. |
000019B0: 4D 45 4E 55 00 E5 21 DE 03 99 22 93 54 48 45 20 |MENU..!...".THE |
000019C0: 50 47 4D 20 57 49 4C 4C 20 4E 4F 54 20 57 4F 52 |PGM WILL NOT WOR|
000019D0: 4B 20 4F 4E 20 54 48 49 53 20 4D 41 43 48 49 4E |K ON THIS MACHIN|
000019E0: 45 21 22 3A 80 00 1A 22 E8 03 8B 55 5A B2 31 A7 |E!":..."...UZ.1.|
000019F0: 9E 55 50 25 3A 9E 55 50 25 3A 55 5A B2 30 3A 8F |.UP%:.UP%:UZ.0:.|
00001A00: 20 2A 2A 20 50 52 4F 47 52 41 4D 20 53 54 41 52 | ** PROGRAM STAR|
00001A10: 54 53 20 48 45 52 45 20 2A 2A 00 46 22 E9 03 99 |TS HERE **.F"...|
00001A20: 22 93 05 22 3B 3A 8C 3A 8B C2 28 35 30 30 30 33 |"..";:.:..(50003|
00001A30: 29 B2 30 A7 97 35 33 32 38 31 2C 36 3A 97 35 33 |).0..53281,6:.53|
00001A40: 32 38 30 2C 31 34 00 51 22 EA 03 55 47 24 B2 22 |280,14.Q"..UG$."|
00001A50: 22 00 5B 22 ED 03 89 31 31 31 30 00 8A 22 F2 03 |".["...1110.."..|
00001A60: 99 20 22 93 11 11 11 11 11 11 11 11 11 11 1D 1D |. ".............|
00001A70: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 D3 D4 CF C3 |................|
00001A80: CB A0 CD C1 D2 CB C5 D4 22 3A 00 AA 22 FC 03 99 |........":.."...|
00001A90: 20 A3 31 30 29 3B 22 C3 D2 C5 C1 D4 C9 D6 C5 A0 | .10);".........|
00001AA0: C3 CF CD D0 D5 D4 C9 CE C7 22 00 C6 22 06 04 99 |.........".."...|
00001AB0: 20 A3 31 32 29 3B 22 D0 2E CF 2E 20 C2 CF D8 20 | .12);".... ... |
00001AC0: 37 38 39 2D CD 22 00 EF 22 10 04 99 20 A3 35 29 |789-.".."... .5)|
00001AD0: 3B 22 CD CF D2 D2 C9 D3 D4 CF D7 CE 2C 20 CE C5 |;".........., ..|
00001AE0: D7 A0 CA C5 D2 D3 C5 D9 20 30 37 39 36 30 22 00 |........ 07960".|
00001AF0: F8 22 1A 04 4B B2 54 49 00 1A 23 24 04 8B 20 54 |."..K.TI..#$.. T|
00001B00: 49 20 B3 20 4B AA 32 30 30 20 AF 20 4B 20 B3 B2 |I . K.200 . K ..|
00001B10: 20 54 49 20 A7 20 31 30 36 30 00 25 23 2E 04 99 | TI . 1060.%#...|
00001B20: 20 22 93 22 3B 00 4A 23 38 04 8F 20 2A 2A 2A 2A | ".";.J#8.. ****|
00001B30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001B40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 6F 23 42 04 8F |**********.o#B..|
00001B50: 20 2A 54 48 49 53 20 50 52 4F 47 52 41 4D 20 55 | *THIS PROGRAM U|
00001B60: 53 45 53 20 4C 4F 57 45 52 20 43 41 53 45 2A 00 |SES LOWER CASE*.|
00001B70: 94 23 4C 04 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.#L.. **********|
00001B80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001B90: 2A 2A 2A 2A 00 A1 23 56 04 97 20 55 54 2C 55 4C |****..#V.. UT,UL|
00001BA0: 25 00 A9 23 6A 04 58 B2 31 00 C7 23 74 04 41 B2 |%..#j.X.1..#t.A.|
00001BB0: B5 28 28 BB 28 31 29 AD 31 30 29 AC 31 30 30 AA |.((.(1).10).100.|
00001BC0: 2E 35 29 AD 31 30 30 00 D0 23 7E 04 54 35 B2 30 |.5).100..#~.T5.0|
00001BD0: 00 ED 23 88 04 58 39 B2 30 3A 4E 31 B2 30 3A 4E |..#..X9.0:N1.0:N|
00001BE0: 32 B2 30 3A 45 31 B2 30 3A 45 32 B2 30 00 01 24 |2.0:E1.0:E2.0..$|
00001BF0: 92 04 55 50 B2 30 3A 8D 38 35 30 3A 89 31 34 30 |..UP.0:.850:.140|
00001C00: 30 00 32 24 9C 04 A1 20 5A 24 3A 8B 20 5A 24 B2 |0.2$... Z$:. Z$.|
00001C10: 22 22 20 B0 20 28 5A 24 20 B3 B1 20 22 59 22 20 |"" . (Z$ .. "Y" |
00001C20: AF 20 5A 24 B3 B1 20 22 4E 22 29 20 A7 20 31 31 |. Z$.. "N") . 11|
00001C30: 38 30 00 3B 24 A6 04 99 20 5A 24 00 4F 24 B0 04 |80.;$... Z$.O$..|
00001C40: 8B 20 5A 24 B2 22 4E 22 20 A7 20 31 34 30 30 00 |. Z$."N" . 1400.|
00001C50: 67 24 64 05 55 50 B2 30 3A 55 47 24 B2 22 44 41 |g$d.UP.0:UG$."DA|
00001C60: 59 22 3A 8D 38 35 30 00 6D 24 78 05 8F 00 73 24 |Y":.850.m$x...s$|
00001C70: 82 05 8F 00 A3 24 8C 05 53 28 31 29 B2 31 30 30 |.....$..S(1).100|
00001C80: 3A 53 28 32 29 B2 38 35 3A 53 28 33 29 B2 31 35 |:S(2).85:S(3).15|
00001C90: 30 3A 53 28 34 29 B2 31 34 30 3A 53 28 35 29 B2 |0:S(4).140:S(5).|
00001CA0: 31 31 30 00 A9 24 96 05 99 00 AF 24 A0 05 8F 00 |110..$.....$....|
00001CB0: C5 24 AA 05 54 38 B2 B5 28 34 2E 39 39 AC BB 28 |.$..T8..(4.99..(|
00001CC0: 31 29 AA 31 29 00 CB 24 B4 05 8F 00 E2 24 BE 05 |1).1)..$.....$..|
00001CD0: 8B 20 BB 28 31 29 20 B1 20 2E 32 20 A7 20 31 34 |. .(1) . .2 . 14|
00001CE0: 39 30 00 EB 24 C8 05 41 B2 AB 41 00 F1 24 D2 05 |90..$..A..A..$..|
00001CF0: 8F 00 FC 24 DC 05 8D 20 32 35 36 30 00 02 25 E6 |...$... 2560..%.|
00001D00: 05 8F 00 10 25 F0 05 81 20 49 B2 31 20 A4 20 35 |....%... I.1 . 5|
00001D10: 00 22 25 FA 05 50 28 49 29 B2 30 3A 5A 28 49 29 |."%..P(I).0:Z(I)|
00001D20: B2 30 00 2A 25 04 06 82 20 49 00 30 25 0E 06 99 |.0.*%... I.0%...|
00001D30: 00 36 25 18 06 8F 00 42 25 22 06 43 B2 31 30 30 |.6%....B%".C.100|
00001D40: 30 30 00 48 25 2C 06 8F 00 6C 25 36 06 99 20 22 |00.H%,...l%6.. "|
00001D50: 91 91 20 D3 D4 CF C3 CB 22 3B A3 32 38 29 3B 22 |.. .....";.28);"|
00001D60: D0 D2 C9 C3 C5 2F D3 C8 C1 D2 C5 22 00 97 25 40 |...../....."..%@|
00001D70: 06 99 20 22 20 C9 4E 54 2E A0 C2 41 4C 4C 49 53 |.. " .NT...ALLIS|
00001D80: 54 49 43 A0 CD 49 53 53 49 4C 45 53 22 3B A3 32 |TIC..ISSILES";.2|
00001D90: 39 29 3B 53 28 31 29 00 BF 25 4A 06 99 20 22 20 |9);S(1)..%J.. " |
00001DA0: D2 45 44 A0 C3 52 4F 53 53 A0 4F 46 A0 C1 4D 45 |.ED..ROSS.OF..ME|
00001DB0: 52 49 43 41 22 3B A3 32 39 29 3B 53 28 32 29 00 |RICA";.29);S(2).|
00001DC0: EF 25 54 06 99 20 22 20 CC 49 43 48 54 45 4E 53 |.%T.. " .ICHTENS|
00001DD0: 54 45 49 4E 2C A0 C2 55 4D 52 41 50 2C 20 26 20 |TEIN,..UMRAP, & |
00001DE0: CA 4F 4B 45 22 3B A3 32 39 29 3B 53 28 33 29 00 |.OKE";.29);S(3).|
00001DF0: 18 26 5E 06 99 20 22 20 C1 4D 45 52 49 43 41 4E |.&^.. " .MERICAN|
00001E00: A0 C2 41 4E 4B 52 55 50 54 A0 C3 4F 2E 22 3B A3 |..ANKRUPT..O.";.|
00001E10: 32 39 29 3B 53 28 34 29 00 40 26 68 06 99 20 22 |29);S(4).@&h.. "|
00001E20: 20 C3 45 4E 53 55 52 45 44 20 C2 4F 4F 4B 53 A0 | .ENSURED .OOKS.|
00001E30: D3 54 4F 52 45 22 3B A3 32 39 29 3B 53 28 35 29 |.TORE";.29);S(5)|
00001E40: 00 46 26 72 06 8F 00 4C 26 7C 06 8F 00 5B 26 86 |.F&r...L&|...[&.|
00001E50: 06 5A 34 B2 5A 35 3A 5A 35 B2 30 00 63 26 90 06 |.Z4.Z5:Z5.0.c&..|
00001E60: 54 B2 30 00 71 26 9A 06 81 20 49 B2 31 20 A4 20 |T.0.q&... I.1 . |
00001E70: 35 00 80 26 A4 06 5A 35 B2 5A 35 AA 53 28 49 29 |5..&..Z5.Z5.S(I)|
00001E80: 00 92 26 AE 06 54 B2 54 AA 53 28 49 29 AC 50 28 |..&..T.T.S(I).P(|
00001E90: 49 29 00 9A 26 B8 06 82 20 49 00 B6 26 C2 06 5A |I)..&... I..&..Z|
00001EA0: 35 B2 B5 28 31 30 30 AC 28 5A 35 AD 35 29 AA 2E |5..(100.(Z5.5)..|
00001EB0: 35 29 AD 31 30 30 00 D3 26 CC 06 5A 36 B2 B5 28 |5).100..&..Z6..(|
00001EC0: 28 5A 35 AB 5A 34 29 AC 31 30 30 AA 2E 35 29 AD |(Z5.Z4).100..5).|
00001ED0: 31 30 30 00 D9 26 D6 06 8F 00 E3 26 E0 06 44 B2 |100..&.....&..D.|
00001EE0: 54 AA 43 00 F7 26 EA 06 8B 20 58 39 20 B1 20 30 |T.C..&... X9 . 0|
00001EF0: 20 A7 20 31 38 30 30 00 24 27 F4 06 99 20 22 11 | . 1800.$'... ".|
00001F00: 20 D4 4F 52 4F 4E 54 4F A0 D3 54 4F 43 4B A0 C5 | .ORONTO..TOCK..|
00001F10: 58 43 48 41 4E 47 45 A0 C1 56 45 52 41 47 45 3A |XCHANGE..VERAGE:|
00001F20: 22 3B 5A 35 00 2F 27 FE 06 89 20 31 38 31 30 00 |";Z5./'... 1810.|
00001F30: 6F 27 08 07 99 20 22 11 20 D4 4F 52 4F 4E 54 4F |o'... ". .ORONTO|
00001F40: A0 D3 54 4F 43 4B A0 C5 58 43 48 41 4E 47 45 A0 |..TOCK..XCHANGE.|
00001F50: 41 56 45 52 41 47 45 3A 22 3B 5A 35 3A 99 22 20 |AVERAGE:";Z5:." |
00001F60: CE 45 54 A0 43 48 41 4E 47 45 3A 22 3B 5A 36 00 |.ET.CHANGE:";Z6.|
00001F70: 75 27 12 07 8F 00 8B 27 1C 07 54 B2 B5 28 31 30 |u'.....'..T..(10|
00001F80: 30 AC 54 AA 2E 35 29 AD 31 30 30 00 B1 27 26 07 |0.T..5).100..'&.|
00001F90: 99 20 22 20 D4 4F 54 41 4C A0 53 54 4F 43 4B A0 |. " .OTAL.STOCK.|
00001FA0: 41 53 53 45 54 53 A0 41 52 45 A0 20 20 24 22 3B |ASSETS.ARE. $";|
00001FB0: 54 00 C7 27 30 07 43 B2 B5 28 31 30 30 AC 43 AA |T..'0.C..(100.C.|
00001FC0: 2E 35 29 AD 31 30 30 00 ED 27 3A 07 99 20 22 20 |.5).100..':.. " |
00001FD0: D4 4F 54 41 4C A0 43 41 53 48 A0 41 53 53 45 54 |.OTAL.CASH.ASSET|
00001FE0: 53 A0 41 52 45 20 20 20 20 24 22 3B 43 00 03 28 |S.ARE $";C..(|
00001FF0: 44 07 44 B2 B5 28 31 30 30 AC 44 AA 2E 35 29 AD |D.D..(100.D..5).|
00002000: 31 30 30 00 29 28 4E 07 99 20 22 20 D4 4F 54 41 |100.)(N.. " .OTA|
00002010: 4C A0 41 53 53 45 54 53 A0 41 52 45 20 20 20 20 |L.ASSETS.ARE |
00002020: 20 20 20 20 20 24 22 3B 44 00 3B 28 62 07 8B 20 | $";D.;(b.. |
00002030: 58 39 B2 30 20 A7 20 31 39 34 30 00 57 28 94 07 |X9.0 . 1940.W(..|
00002040: 55 53 24 B2 22 2D 30 31 32 33 34 35 36 37 38 39 |US$."-0123456789|
00002050: 48 22 3A 55 4C B2 34 00 7C 28 9E 07 99 20 22 20 |H":UL.4.|(... " |
00002060: D7 48 41 54 A0 49 53 A0 59 4F 55 52 A0 54 52 41 |.HAT.IS.YOUR.TRA|
00002070: 4E 53 41 43 54 49 4F 4E A0 49 4E 22 00 94 28 A8 |NSACTION.IN"..(.|
00002080: 07 99 20 22 20 C9 C2 CD 3F 20 20 20 20 20 9D 9D |.. " ...? ..|
00002090: 9D 9D 22 3B 00 A8 28 B2 07 8D 33 35 3A 5A 28 31 |..";..(...35:Z(1|
000020A0: 29 B2 C5 28 55 52 24 29 00 C0 28 BC 07 99 20 22 |)..(UR$)..(... "|
000020B0: 20 D2 C3 C1 3F 20 20 20 20 20 9D 9D 9D 9D 22 3B | ...? ....";|
000020C0: 00 D4 28 C6 07 8D 33 35 3A 5A 28 32 29 B2 C5 28 |..(...35:Z(2)..(|
000020D0: 55 52 24 29 00 EC 28 D0 07 99 20 22 20 CC C2 CA |UR$)..(... " ...|
000020E0: 3F 20 20 20 20 20 9D 9D 9D 9D 22 3B 00 00 29 DA |? ....";..).|
000020F0: 07 8D 33 35 3A 5A 28 33 29 B2 C5 28 55 52 24 29 |..35:Z(3)..(UR$)|
00002100: 00 18 29 E4 07 99 20 22 20 C1 C2 C3 3F 20 20 20 |..)... " ...? |
00002110: 20 20 9D 9D 9D 9D 22 3B 00 2C 29 EE 07 8D 33 35 | ....";.,)...35|
00002120: 3A 5A 28 34 29 B2 C5 28 55 52 24 29 00 44 29 F8 |:Z(4)..(UR$).D).|
00002130: 07 99 20 22 20 C3 C2 D3 3F 20 20 20 20 20 9D 9D |.. " ...? ..|
00002140: 9D 9D 22 3B 00 58 29 02 08 8D 33 35 3A 5A 28 35 |..";.X)...35:Z(5|
00002150: 29 B2 C5 28 55 52 24 29 00 5E 29 0C 08 99 00 64 |)..(UR$).^)....d|
00002160: 29 16 08 8F 00 6D 29 20 08 50 35 B2 30 00 73 29 |)....m) .P5.0.s)|
00002170: 2A 08 8F 00 7C 29 34 08 53 35 B2 30 00 8A 29 3E |*...|)4.S5.0..)>|
00002180: 08 81 20 49 B2 31 20 A4 20 35 00 9E 29 48 08 5A |.. I.1 . 5..)H.Z|
00002190: 28 49 29 B2 B5 28 5A 28 49 29 AA 2E 35 29 00 B5 |(I)..(Z(I)..5)..|
000021A0: 29 52 08 8B 20 5A 28 49 29 20 B3 B2 20 30 20 A7 |)R.. Z(I) .. 0 .|
000021B0: 20 32 31 36 30 00 C9 29 5C 08 50 35 B2 50 35 AA | 2160..)\.P5.P5.|
000021C0: 5A 28 49 29 AC 53 28 49 29 00 D3 29 66 08 89 32 |Z(I).S(I)..)f..2|
000021D0: 32 30 30 00 E7 29 70 08 53 35 B2 53 35 AB 5A 28 |200..)p.S5.S5.Z(|
000021E0: 49 29 AC 53 28 49 29 00 02 2A 7A 08 8B 20 AB 5A |I).S(I)..*z.. .Z|
000021F0: 28 49 29 20 B3 B2 20 50 28 49 29 20 A7 20 32 32 |(I) .. P(I) . 22|
00002200: 30 30 00 0C 2A 84 08 99 22 91 91 22 00 3B 2A 86 |00..*..."..".;*.|
00002210: 08 99 20 22 20 D9 4F 55 A0 48 41 56 45 A0 4F 56 |.. " .OU.HAVE.OV|
00002220: 45 52 53 4F 4C 44 A0 41 A0 53 54 4F 43 4B 3B 20 |ERSOLD.A.STOCK; |
00002230: 54 52 59 A0 41 47 41 49 4E 2E 22 00 4B 2A 87 08 |TRY.AGAIN.".K*..|
00002240: 99 22 91 91 91 91 91 91 91 91 22 00 56 2A 8E 08 |."........".V*..|
00002250: 89 20 31 39 35 30 00 5E 2A 98 08 82 20 49 00 64 |. 1950.^*... I.d|
00002260: 2A A2 08 8F 00 71 2A AC 08 54 35 B2 50 35 AA 53 |*....q*..T5.P5.S|
00002270: 35 00 77 2A B6 08 8F 00 93 2A C0 08 42 35 B2 B5 |5.w*.....*..B5..|
00002280: 28 2E 30 31 AC 54 35 AC 31 30 30 AA 2E 35 29 AD |(.01.T5.100..5).|
00002290: 31 30 30 00 99 2A CA 08 8F 00 9F 2A D4 08 8F 00 |100..*.....*....|
000022A0: B1 2A DE 08 43 35 B2 43 AB 50 35 AB 42 35 AA 53 |.*..C5.C.P5.B5.S|
000022B0: 35 00 C6 2A E8 08 8B 20 43 35 20 B1 B2 20 30 20 |5..*... C5 .. 0 |
000022C0: A7 20 32 33 31 30 00 D8 2A ED 08 99 22 91 22 55 |. 2310..*..."."U|
000022D0: 50 24 3A 99 22 91 91 22 00 00 2B F2 08 99 22 20 |P$:.".."..+..." |
000022E0: D9 4F 55 A0 48 41 56 45 A0 55 53 45 44 20 22 3B |.OU.HAVE.USED ";|
000022F0: AB 43 35 3B 20 22 54 4F 4F 20 4D 55 43 48 2E 22 |.C5; "TOO MUCH."|
00002300: 00 16 2B FC 08 99 22 91 91 91 91 91 91 91 91 22 |..+..."........"|
00002310: 3A 89 31 39 35 30 00 1F 2B 06 09 43 B2 43 35 00 |:.1950..+..C.C5.|
00002320: 25 2B 10 09 8F 00 33 2B 1A 09 81 20 49 B2 31 20 |%+....3+... I.1 |
00002330: A4 20 35 00 46 2B 24 09 50 28 49 29 B2 50 28 49 |. 5.F+$.P(I).P(I|
00002340: 29 AA 5A 28 49 29 00 4E 2B 2E 09 82 20 49 00 54 |).Z(I).N+... I.T|
00002350: 2B 38 09 8F 00 5F 2B 42 09 8D 20 32 35 36 30 00 |+8..._+B.. 2560.|
00002360: 65 2B 4C 09 8F 00 78 2B 56 09 55 47 24 B2 22 44 |e+L...x+V.UG$."D|
00002370: 41 59 22 3A 8D 38 35 30 00 7E 2B 60 09 8F 00 84 |AY":.850.~+`....|
00002380: 2B 74 09 8F 00 A8 2B 7E 09 99 20 A3 34 29 3B 22 |+t....+~.. .4);"|
00002390: D0 D2 C9 C3 C5 2F 22 3B A3 33 30 29 3B 22 CE C5 |...../";.30);"..|
000023A0: D4 20 D0 D2 C9 C3 C5 22 00 E4 2B 88 09 99 20 22 |. ....."..+... "|
000023B0: 20 D3 D4 CB 22 3B A3 35 29 3B 22 D3 C8 C1 D2 C5 | ...";.5);".....|
000023C0: 22 3B A3 31 31 29 3B 22 C8 CF CC C4 C9 CE C7 D3 |";.11);"........|
000023D0: 22 3B A3 32 31 29 3B 22 D6 C1 CC D5 C5 22 3B A3 |";.21);".....";.|
000023E0: 33 30 29 3B 00 F5 2B 92 09 99 20 22 C3 C8 C1 CE |30);..+... "....|
000023F0: C7 C5 22 3A 99 00 2E 2C 9C 09 99 20 22 20 C9 C2 |..":...,... " ..|
00002400: CD 22 3B A3 34 29 3B 53 28 31 29 3B A3 31 33 29 |.";.4);S(1);.13)|
00002410: 3B 50 28 31 29 3B A3 32 30 29 3B 53 28 31 29 AC |;P(1);.20);S(1).|
00002420: 50 28 31 29 3B A3 33 31 29 3B 43 28 31 29 00 67 |P(1);.31);C(1).g|
00002430: 2C A6 09 99 20 22 20 D2 C3 C1 22 3B A3 34 29 3B |,... " ...";.4);|
00002440: 53 28 32 29 3B A3 31 33 29 3B 50 28 32 29 3B A3 |S(2);.13);P(2);.|
00002450: 32 30 29 3B 53 28 32 29 AC 50 28 32 29 3B A3 33 |20);S(2).P(2);.3|
00002460: 31 29 3B 43 28 32 29 00 A0 2C B0 09 99 20 22 20 |1);C(2)..,... " |
00002470: CC C2 CA 22 3B A3 34 29 3B 53 28 33 29 3B A3 31 |...";.4);S(3);.1|
00002480: 33 29 3B 50 28 33 29 3B A3 32 30 29 3B 53 28 33 |3);P(3);.20);S(3|
00002490: 29 AC 50 28 33 29 3B A3 33 31 29 3B 43 28 33 29 |).P(3);.31);C(3)|
000024A0: 00 D9 2C BA 09 99 20 22 20 C1 C2 C3 22 3B A3 34 |..,... " ...";.4|
000024B0: 29 3B 53 28 34 29 3B A3 31 33 29 3B 50 28 34 29 |);S(4);.13);P(4)|
000024C0: 3B A3 32 30 29 3B 53 28 34 29 AC 50 28 34 29 3B |;.20);S(4).P(4);|
000024D0: A3 33 31 29 3B 43 28 34 29 00 12 2D C4 09 99 20 |.31);C(4)..-... |
000024E0: 22 20 C3 C2 D3 22 3B A3 34 29 3B 53 28 35 29 3B |" ...";.4);S(5);|
000024F0: A3 31 33 29 3B 50 28 35 29 3B A3 32 30 29 3B 53 |.13);P(5);.20);S|
00002500: 28 35 29 AC 50 28 35 29 3B A3 33 31 29 3B 43 28 |(5).P(5);.31);C(|
00002510: 35 29 00 1B 2D CE 09 58 39 B2 31 00 25 2D EC 09 |5)..-..X9.1.%-..|
00002520: 89 31 36 35 30 00 2B 2D F6 09 8F 00 31 2D 00 0A |.1650.+-....1-..|
00002530: 8F 00 37 2D 0A 0A 8F 00 3D 2D 14 0A 8F 00 43 2D |..7-....=-....C-|
00002540: 1E 0A 8F 00 49 2D 28 0A 8F 00 4F 2D 32 0A 8F 00 |....I-(...O-2...|
00002550: 65 2D 3C 0A 8B 20 4E 31 20 B1 20 B2 20 30 20 A7 |e-<.. N1 . . 0 .|
00002560: 20 32 36 36 30 00 7B 2D 46 0A 49 31 B2 B5 28 34 | 2660.{-F.I1..(4|
00002570: 2E 39 39 AC BB 28 31 29 AA 31 29 00 91 2D 50 0A |.99..(1).1)..-P.|
00002580: 4E 31 B2 B5 28 34 2E 39 39 AC BB 28 31 29 AA 31 |N1..(4.99..(1).1|
00002590: 29 00 9A 2D 5A 0A 45 31 B2 31 00 A0 2D 64 0A 8F |)..-Z.E1.1..-d..|
000025A0: 00 B4 2D 6E 0A 8B 20 4E 32 20 B1 20 30 20 A7 20 |..-n.. N2 . 0 . |
000025B0: 32 37 31 30 00 CA 2D 78 0A 49 32 B2 B5 28 34 2E |2710..-x.I2..(4.|
000025C0: 39 39 AC BB 28 31 29 AA 31 29 00 E0 2D 82 0A 4E |99..(1).1)..-..N|
000025D0: 32 B2 B5 28 34 2E 39 39 AC BB 28 31 29 AA 31 29 |2..(4.99..(1).1)|
000025E0: 00 E9 2D 8C 0A 45 32 B2 31 00 EF 2D 96 0A 8F 00 |..-..E2.1..-....|
000025F0: FB 2D A0 0A 4E 31 B2 4E 31 AB 31 00 07 2E AA 0A |.-..N1.N1.1.....|
00002600: 4E 32 B2 4E 32 AB 31 00 0D 2E B4 0A 8F 00 1B 2E |N2.N2.1.........|
00002610: BE 0A 81 20 49 B2 31 20 A4 20 35 00 27 2E C8 0A |... I.1 . 5.'...|
00002620: 58 31 B2 BB 28 31 29 00 3C 2E D2 0A 8B 20 58 20 |X1..(1).<.... X |
00002630: B1 20 2E 32 35 20 A7 20 32 38 30 30 00 47 2E DC |. .25 . 2800.G..|
00002640: 0A 58 31 B2 2E 32 35 00 52 2E E6 0A 89 20 32 38 |.X1..25.R.... 28|
00002650: 38 30 00 68 2E F0 0A 8B 20 58 31 20 B1 20 2E 35 |80.h.... X1 . .5|
00002660: 30 20 A7 20 32 38 33 30 00 72 2E FA 0A 58 31 B2 |0 . 2830.r...X1.|
00002670: 2E 35 00 7D 2E 04 0B 89 20 32 38 38 30 00 93 2E |.5.}.... 2880...|
00002680: 0E 0B 8B 20 58 31 20 B1 20 2E 37 35 20 A7 20 32 |... X1 . .75 . 2|
00002690: 38 36 30 00 9E 2E 18 0B 58 31 B2 2E 37 35 00 A8 |860.....X1..75..|
000026A0: 2E 22 0B 89 32 38 38 30 00 B1 2E 2C 0B 58 31 B2 |."..2880...,.X1.|
000026B0: 30 00 B7 2E 36 0B 8F 00 C0 2E 40 0B 57 33 B2 30 |0...6.....@.W3.0|
000026C0: 00 D4 2E 4A 0B 8B 20 45 31 20 B3 20 31 20 A7 20 |...J.. E1 . 1 . |
000026D0: 32 39 34 30 00 F5 2E 54 0B 8B 20 B5 28 49 31 AA |2940...T.. .(I1.|
000026E0: 2E 35 29 20 B3 B1 20 B5 28 49 AA 2E 35 29 20 A7 |.5) .. .(I..5) .|
000026F0: 20 32 39 34 30 00 FB 2E 5E 0B 8F 00 05 2F 68 0B | 2940...^..../h.|
00002700: 57 33 B2 31 30 00 0E 2F 72 0B 45 31 B2 30 00 22 |W3.10../r.E1.0."|
00002710: 2F 7C 0B 8B 20 45 32 20 B3 20 31 20 A7 20 33 30 |/|.. E2 . 1 . 30|
00002720: 30 30 00 43 2F 86 0B 8B 20 B5 28 49 32 AA 2E 35 |00.C/... .(I2..5|
00002730: 29 20 B3 B1 20 B5 28 49 AA 2E 35 29 20 A7 20 33 |) .. .(I..5) . 3|
00002740: 30 30 30 00 49 2F 90 0B 8F 00 56 2F 9A 0B 57 33 |000.I/....V/..W3|
00002750: B2 57 33 AB 31 30 00 5F 2F A4 0B 45 32 B2 30 00 |.W3.10._/..E2.0.|
00002760: 65 2F AE 0B 8F 00 8D 2F B8 0B 43 28 49 29 B2 B5 |e/...../..C(I)..|
00002770: 28 41 AC 53 28 49 29 29 AA 58 31 AA B5 28 33 AB |(A.S(I)).X1..(3.|
00002780: 36 AC BB 28 31 29 AA 2E 35 29 AA 57 33 00 A9 2F |6..(1)..5).W3../|
00002790: C2 0B 43 28 49 29 B2 B5 28 31 30 30 AC 43 28 49 |..C(I)..(100.C(I|
000027A0: 29 AA 2E 35 29 AD 31 30 30 00 BC 2F CC 0B 53 28 |)..5).100../..S(|
000027B0: 49 29 B2 53 28 49 29 AA 43 28 49 29 00 D2 2F D6 |I).S(I).C(I)../.|
000027C0: 0B 8B 20 53 28 49 29 20 B1 20 30 20 A7 20 33 30 |.. S(I) . 0 . 30|
000027D0: 37 30 00 DD 2F E0 0B 43 28 49 29 B2 30 00 E8 2F |70../..C(I).0../|
000027E0: EA 0B 53 28 49 29 B2 30 00 F2 2F F4 0B 89 33 30 |..S(I).0../...30|
000027F0: 38 30 00 0E 30 FE 0B 53 28 49 29 B2 B5 28 31 30 |80..0..S(I)..(10|
00002800: 30 AC 53 28 49 29 AA 2E 35 29 AD 31 30 30 00 16 |0.S(I)..5).100..|
00002810: 30 08 0C 82 20 49 00 1C 30 12 0C 8F 00 28 30 1C |0... I..0....(0.|
00002820: 0C 54 38 B2 54 38 AB 31 00 3C 30 26 0C 8B 20 54 |.T8.T8.1.<0&.. T|
00002830: 38 20 B3 20 31 20 A7 20 33 31 33 30 00 42 30 30 |8 . 1 . 3130.B00|
00002840: 0C 8E 00 48 30 3A 0C 8F 00 4E 30 44 0C 8F 00 64 |...H0:...N0D...d|
00002850: 30 4E 0C 54 38 B2 B5 28 34 2E 39 39 AC BB 28 31 |0N.T8..(4.99..(1|
00002860: 29 AA 31 29 00 82 30 58 0C 41 B2 B5 28 28 BB 28 |).1)..0X.A..((.(|
00002870: 31 29 AD 31 30 29 AC 31 30 30 AA 2E 35 29 AD 31 |1).10).100..5).1|
00002880: 30 30 00 8E 30 62 0C 53 34 B2 BB 28 31 29 00 A4 |00..0b.S4..(1)..|
00002890: 30 6C 0C 8B 20 53 34 20 B3 B2 20 2E 35 20 A7 20 |0l.. S4 .. .5 . |
000028A0: 33 32 30 30 00 AD 30 76 0C 41 B2 AB 41 00 B3 30 |3200..0v.A..A..0|
000028B0: 80 0C 8E 00 CF 30 8A 0C 99 20 22 20 C8 CF D0 C5 |.....0... " ....|
000028C0: 20 D9 CF D5 20 C8 C1 C4 20 C6 D5 CE 21 21 22 00 | ... ... ...!!".|
000028D0: DA 30 94 0C 8D 38 33 35 3A 8E 00 FC 30 9E 0C 8B |.0...835:...0...|
000028E0: 20 54 49 20 B3 20 4B AA 33 30 30 20 AF 20 4B 20 | TI . K.300 . K |
000028F0: B3 B2 20 54 49 20 A7 20 33 32 33 30 00 0A 31 A8 |.. TI . 3230..1.|
00002900: 0C 99 20 22 93 20 C2 D9 C5 22 00 10 31 B2 0C 80 |.. ". ..."..1...|
00002910: 00 00 00 30 |...0 |
.......910.*.... ** ML STOP KEY DISABLE
**.U...."X.=........X` ......L4.X.1.....
...X`.T...."XHHH.H.HHHHHHH.H.HX`111"....
.."HHHHHHH`1"...... ** 4 - POP ML SUBROU
TINE **.H.... **GENERAL INPUT ROUTINE **
.N...:.T...:...#.. +++ INPUT SECTION +++
...(..UO,0:UR$."":UI$.""...*..UL.0.UL.80
.+.-.." ..";:.UC,0.?.2..UI$:.UI$."".50.
I.7..UI$.G(13).C(UR$)..1..UC,1:." .";:.8
5.|.<..UI$.G(20).105...>.. C(UR$)..UL.50
...A..120:. CHECK FOR VALID CHARACTER.E.
F.UR$.UR$.UI$.O.K..UI$;.W.P..50...U.. ++
+ CHECK FOR HELP REQUEST +++.$.Z..UR$.UX
$.195:. EXIT TO HELP ROUTINE.3._..UF.1..
240.@.D.UF.0:.:..Y.F.. ++ CHECK DELETE +
+.J.I..C(UR$).1.50...N.UR$.H(UR$,C(UR$).
1)...S..". ..";:.50...X.. ++ CHECK FOR
VALID CHARACTERS ++.M.}..C(US$).0.150...
...US.1.C(US$)......UI$.J(US$,US,1).....
........UI$."":..#.... ** STANDARD INPUT
**.4....F(UI$).46...E....UI$.G(32)...B.
..F(UI$).48.F(UI$).57.170.H..........F(
UI$).65.F(UI$).90.180............F(UI$).
193.F(UI$).218.UI$."":..R....B(UT).UU%.U
I$.G(F(UI$).128):..X.........UI$."":....
C.UF.1:. +++ HELP ROUTINE EXIT +++...E..
250...H..245.;.M..UQ.UB.(U2%.256.U1%.U3%
.2).W.R.UQ%(UQ.UB).B(UQ):.:.".".J.W.UZ.1
:UV%.B(UT).S.X..300...Y.UZ.0:US$.UJ$:UG$
.UK$:UP.UJ:UL.UK.O.Z..B(50003).0..53281,
1:.".";:.53281,6:.53280,14:.220.Y...."."
;.....UT$.UL$:.UT,UV%:.UQ.UB.(U2%.256.U1
%.U3%.3)......UQ,UQ%(UQ.UB):..)....U1,U1
%.5....U2,U2%.A....U4,U4%.O....U3,U3%.1.
W....35.....UD%.((U2%.256.U1%.U3%).UB).4
0:.H(UD$,UD%.1):..D....H(UD$,24);"
. HELP COMING . ":.....
.U1%.B(U1):U2%.B(U2):U3%.B(U3):U4%.B(U4)
.....UJ$.US$:UK$.UG$:UL$.UT$:UJ.UP:UK.UL
......./.,.. ** MENU **.5.-.:.D....".":.
UT,UU%:.B(50003).0..53281,9:.53280,8.J./
.:...1..". MENU"...6.." -
-------------------------------------"..
.;..".. 1. BEGIN STOCK MARKET 2"
...@..".. 2. STUDENT INSTRUCTION
S".4.E..".. 3. TEACHER INSTRUCTI
ONS".P.O..".. 4. QUIT.."..T.."
--------------------------------------".
..Y..".. PRESS A NUMBER KEY (1-4)
";.R.^.UL.1:US$."1234":.35:. INPUT ROUTI
NE...`.US$.""...C..E(UR$).1000,400,500,3
96...H..300.*.... ** RE-ENABLE STOP KEY
AND END **.Y....B(50003)..1.B(50003)..16
0.B(50003)..0.399......UU.71:.B(50003).0
..53281,6:.53280,14......"..":.......875
:....... ** STUDENT INSTRUCTIONS **.....
.".":.UT,UL%:.B(50003).0..53281,0:.53280
,0.....UP.0:UG$."STUDENT INST":.850.;...
. ". THIS GAME PLAYS THE STOCK MARKET. Y
OU".J.... ". WILL BE GIVEN $10,000 AND M
AY BUY OR"...... ". SELL STOCKS. THE STO
CK PRICES WILL".E. .. ". BE GENERATED RA
NDOMLY AND THEREFORE"...... ". THIS MODE
L DOES NOT REPRESENT EXACTLY"...... ". W
HAT HAPPENS ON THE EXCHANGE. ".,....835:
.850.X....". A TABLE OF AVAILABLE STOCKS
, THEIR"......". PRICES AND THE NUMBER O
F SHARES IN"......". YOUR PORTFOLIO WILL
BE PRINTED..Z....". FOLLOWING THIS, THE
INITIALS OF EACH"......". STOCK WILL BE
PRINTED WITH A QUESTION".9....". MARK.
HERE YOU INDICATE A TRANSACTION.".D...."
. TO BUY A STOCK TYPE +NNN, TO SELL"....
.. ". TYPE -NNN, WHERE NNN IS THE NUMBER
OF"......". SHARES."......835:.850.....
.". A BROKERAGE FEE OF 1% WILL BE ".....
.". CHARGED ON ALL TRANSACTIONS..,....".
NOTE THAT IF A STOCKS VALUE DROPS ".Z..
..". TO ZERO IT MAY REBOUND TO A POSITIV
E".P....". VALUE AGAIN.".Y....835......U
Z.1..UP%:.217............ ** TEACHER INS
TRUCTIONS **......".":.UT,UL%:.B(50003).
0..53281,2:.53280,10.....UP.0:UG$."TEACH
ER INST":.850.3....".. TO THE BEST
OF OUR KNOWLEDGE,.".\...." THIS PROGRA
M IS IN THE PUBLIC."......" DOMAIN. I
F THIS IS NOT THE CASE."......" PLEASE
CONTACT:...".O...." COMMODORE BUSI
NESS MACHINES."......" 3370 PHA
RMACY AVE......." AGINCOURT, ON
TARIO".8...." CANADA M1W 2K4"
.X...." (416) 499-4292".N...UP.
1:. 835:. 850:......" ..PROGRAM NAME
: STOCK MARKET 2......." WRITTEN BY
: UNKNOWN......." UPGRADED BY :
......." .THIS PROGRAM WILL RU
N ON ANY...*...." PET 64 COMPUTE
R..O...." COMMODORE 64 COMPUTER.
X....835.L.N..UZ.1..UP%:.217.R.W.....X..
** PROGRAM MODIFICATION INST **...Y..".
":.UT,UL%.I.].UP.0:UG$."PROGRAM MOD":.85
0.R....835......UZ.1..UP%:.217..........
.. ** TO USE 8032 LOAD CBM4032 **.G.F.."
.....BEFORE RUNNING THIS PROGRAM ON AN 8
032 ...}.P.." LOAD THE 'CBM 4032'
PROGRAM............."...Z..UU.71........
. .. ** T I T L E P A G E **...".."...
.";:.UT,UU%:.B(50003).0..53280,14:.53281
,6...$..I.1.38:."...";:....&..I.1.22:.".
....";:..(.(..I.1.37:.".....";:..@.*..I.
1.22:.".....";:..E.,..".................
.......... ......."...................
. . .....0.."................... . ...
.F.2..".................... ....4.."...
...........C O M M O D O R E.....6.."...
............EDUCATIONAL...0.8.."........
........SOFTWARE.K.:.. ** COMMODORE LOGO
**...;..H(UD$,24);"..........PRESS SPAC
E BAR OR WAIT.":I.0...<..A$:.A$.." ".I.I
.1:.I.250.828.I.>.T1$."":T2$."":T3$."":T
4$."":I.0.R.@..300...C.. ** SPACE BAR PR
ESS **.).H..UO,0:.H(UD$,24);".......PRES
S SPACE BAR TO CONTINUE.".@.L..UI$:.UI$.
." ".844.F.N...F.R.. ** PAGE DESIGN ROUT
INE **.R.T.UP.UP.1...W.."."H(UT$.UP$,21)
;I(UP$.UG$.D(UP),18).K.\.." ------------
--------------------------".Z.`..UH..0.8
70...A..PRINTLEFT$(UD$,24);LEFT$(UP$,7);
"HELP - PRESS H <RETURN>".,.F.UH.0:.".
.":..K.K.. ** PLEASE WAIT REMARK **...P.
.H(UD$,24);" ONE MOMENT PLEASE
... "...U........ ** SET UP VARIABLE
S **.....UX$."H":.UQ%(1000):UB.32768:U1.
196:U2.197:U3.198:U4.216:UC.167:UU.1024.
-...UT.59468:UU%.12:UL%.14:UP%.1146:UM.3
2768:UO.158:. 50003,0.P....B(50003).0.UB
.1024:U1.209:U2.210:U3.211:U4.214:UC.204
:UU.2048......B(50003).0.UT.53272:UU%.21
:UL%.23:UP%.2139:UM.1024:UO.198.S...UD$.
".........................".....UP$."
".S.
..UT$." STOCK MARKET 2 ":. PLACE PROG
RAM TITLE HERE !!!!!!!!!!!!!!!!!***.Y...
..S.... ** SET VARIABLES **.|....900....
.. ** CHECK FOR 8032 **......".":." ":.
SHIFTED SPACE.L....B(UB.40)..96..700....
.. ** MEMORY CHECK **...... .(0).2000.93
7.'...."....THIS MACHINE DOES NOT HAVE E
NOUGH.".K...."MEMORY TO RUN THIS PROGRAM
!".V....UU.71.\.....V...."..":.B(50003)
.0.962...... ** BASIC 2.0 OR 4.0 OR
C-64 SETUP **......1075,133:.1076,144:.1
077,234:.1079,4:.1080,133:.1081,145.. ..
.1091,155:.1098,133:.1099,144:.1100,234:
.1103,133.; ...1104,145:.1105,234:.1082,
234.R ...B(50003)..160.955.. ...1093,88:
.1094,228:.1097,85:.1102,228:.965.. ...B
(50003)..1.990.E ...1093,49:.1094,230:.1
097,46:.1102,230:.965.. B..2099,141:.210
0,20:.2101,3:.2103,8:.2104,141:.2105,21.
;!C..2106,3:.2115,145:.2117,52:.2118,234
:.2121,49:.2122,141.U!D..2123,20:.2124,3
:.2126,234:.2127,141:.2128,21:.2129,3..!
E..UU.48:. DISABLE STOP KEY..!J..800:. T
ITLE..!T..300:. MENU..!...".THE PGM WILL
NOT WORK ON THIS MACHINE!":..."...UZ.1.
.UP%:.UP%:UZ.0:. ** PROGRAM STARTS HERE
**.F"..."..";:.:.B(50003).0..53281,6:.53
280,14.Q"..UG$."".["...1110.."... ".....
....................STOCK MARKET":.."...
.10);"CREATIVE COMPUTING".F"... .12);"P
.O. BOX 789-M".."... .5);"MORRISTOWN, NE
W JERSEY 07960".."..K.TI..#$.. TI . K.20
0 . K .. TI . 1060.%#... ".";.J#8.. ****
**************************.O#B.. *THIS P
ROGRAM USES LOWER CASE*..#L.. **********
********************..#V.. UT,UL%..#J.X.
1.G#T.A..((.(1).10).100..5).100.P#~.T5.0
..#..X9.0:N1.0:N2.0:E1.0:E2.0..$..UP.0:.
850:.1400.2$... Z$:. Z$."" . (Z$ .. "Y"
. Z$.. "N") . 1180.;$... Z$.O$... Z$."N"
. 1400.G$D.UP.0:UG$."DAY":.850.M$X...S$
.....$..S(1).100:S(2).85:S(3).150:S(4).1
40:S(5).110..$.....$ ...E$..T8..(4.99..(
1).1).K$.....$... .(1) . .2 . 1490..$H.A
..A..$R....$... 2560..%.....%... I.1 . 5
."%..P(I).0:Z(I).0.*%... I.0%....6%....B
%".C.10000.H%,...L%6.. ".. STOCK";.28);"
PRICE/SHARE"..%@.. " INT. BALLISTIC MISS
ILES";.29);S(1)..%J.. " RED CROSS OF AME
RICA";.29);S(2)..%T.. " LICHTENSTEIN, BU
MRAP, & JOKE";.29);S(3)..&^.. " AMERICAN
BANKRUPT CO.";.29);S(4).@&H.. " CENSURE
D BOOKS STORE";.29);S(5).F&R...L&|...[&.
.Z4.Z5:Z5.0.C&..T.0.Q&... I.1 . 5..&..Z5
.Z5.S(I)..&..T.T.S(I).P(I)..&... I..&B.Z
5..(100.(Z5.5)..5).100.S&L.Z6..((Z5.Z4).
100..5).100.Y&V....&..D.T.C..&... X9 . 0
. 1800.$'... ". TORONTO STOCK EXCHANGE
AVERAGE:";Z5./'... 1810.O'... ". TORONTO
STOCK EXCHANGE AVERAGE:";Z5:." NET CHAN
GE:";Z6.U'.....'..T..(100.T..5).100..'&.
. " TOTAL STOCK ASSETS ARE $";T.G'0.C.
.(100.C..5).100..':.. " TOTAL CASH ASSET
S ARE $";C..(D.D..(100.D..5).100.)(N.
. " TOTAL ASSETS ARE $";D.;(B..
X9.0 . 1940.W(..US$."-0123456789H":UL.4.
|(... " WHAT IS YOUR TRANSACTION IN"..(.
.. " IBM? ....";..(...35:Z(1).E(UR$)
..(... " RCA? ....";.T(F..35:Z(2).E(
UR$)..(P.. " LBJ? ....";..)Z..35:Z(3
).E(UR$)..)... " ABC? ....";.,)...35
:Z(4).E(UR$).D)... " CBS? ....";.X).
..35:Z(5).E(UR$).^)....D)....M) .P5.0.S)
*...|)4.S5.0..)>.. I.1 . 5..)H.Z(I)..(Z(
I)..5)..)R.. Z(I) .. 0 . 2160.I)\.P5.P5.
Z(I).S(I).S)F..2200..)P.S5.S5.Z(I).S(I).
.*Z.. .Z(I) .. P(I) . 2200..*..."..".;*.
.. " YOU HAVE OVERSOLD A STOCK; TRY AGAI
N.".K*..."........".V*... 1950.^*... I.D
*....Q*..T5.P5.S5.W*.....*..B5..(.01.T5.
100..5).100..*J....*T....*..C5.C.P5.B5.S
5.F*... C5 .. 0 . 2310.X*..."."UP$:.".."
..+..." YOU HAVE USED ";.C5; "TOO MUCH."
..+..."........":.1950..+..C.C5.%+....3+
... I.1 . 5.F+$.P(I).P(I).Z(I).N+... I.T
+8..._+B.. 2560.E+L...X+V.UG$."DAY":.850
.~+`....+T....+~.. .4);"PRICE/";.30);"NE
T PRICE"..+... " STK";.5);"SHARE";.11);"
HOLDINGS";.21);"VALUE";.30);..+... "CHAN
GE":...,... " IBM";.4);S(1);.13);P(1);.2
0);S(1).P(1);.31);C(1).G,... " RCA";.4);
S(2);.13);P(2);.20);S(2).P(2);.31);C(2).
,... " LBJ";.4);S(3);.13);P(3);.20);S(3
).P(3);.31);C(3).Y,... " ABC";.4);S(4);.
13);P(4);.20);S(4).P(4);.31);C(4)..-D..
" CBS";.4);S(5);.13);P(5);.20);S(5).P(5)
;.31);C(5)..-N.X9.1.%-...1650.+-....1-..
..7-....=-....C-....I-(...O-2...E-<.. N1
. . 0 . 2660.{-F.I1..(4.99..(1).1)..-P.
N1..(4.99..(1).1)..-Z.E1.1. -D....-N.. N
2 . 0 . 2710.J-X.I2..(4.99..(1).1)..-..N
2..(4.99..(1).1)..-..E2.1..-.....- .N1.N
1.1.....N2.N2.1............ I.1 . 5.'.H.
X1..(1).<.R.. X . .25 . 2800.G...X1..25.
R.... 2880.H.... X1 . .50 . 2830.R...X1.
.5.}.... 2880...... X1 . .75 . 2860.....
X1..75..."..2880...,.X1.0...6.....@.W3.0
.T.J.. E1 . 1 . 2940...T.. .(I1..5) .. .
(I..5) . 2940...^..../H.W3.10../R.E1.0."
/|.. E2 . 1 . 3000.C/... .(I2..5) .. .(I
..5) . 3000.I/....V/..W3.W3.10._/..E2.0.
E/...../..C(I)..(A.S(I)).X1..(3.6..(1)..
5).W3../B.C(I)..(100.C(I)..5).100../L.S(
I).S(I).C(I).R/V.. S(I) . 0 . 3070../..C
(I).0../..S(I).0../...3080..0..S(I)..(10
0.S(I)..5).100..0... I..0....(0..T8.T8.1
.<0&.. T8 . 1 . 3130.B00...H0:...N0D...D
0N.T8..(4.99..(1).1)..0X.A..((.(1).10).1
00..5).100..0B.S4..(1)..0L.. S4 .. .5 .
3200..0V.A..A..0....O0... " HOPE YOU HAD
FUN!!".Z0...835:...0... TI . K.300 . K
.. TI . 3230..1... ". BYE"..1......0
> CLICK IMAGE PREVIEW FOR FULL MODAL