STOCK MARKET2.C3
FILE INFORMATION
FILENAME(S): STOCK MARKET2.C3
FILE TYPE(S): PRG
FILE SIZE: 7.4K
FIRST SEEN: 2025-12-01 13:51:02
APPEARS ON: 1 disk(s)
FILE HASH
86ec7989d6bc21d6dc39ec7aa8b215a0ae77cad23c1003313e74c6f57e212e24
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| CX015 | STOCK MARKET2.C3 | PRG | hedning, Knutsson | 34 | 2 |
⚠ CORRUPT 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 01 01 01 01 01 01 01 01 01 01 |1).1)...........| 00001CD0: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................| 00001CE0: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................| 00001CF0: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................| 00001D00: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................| 00001D10: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................| 00001D20: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................| 00001D30: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................| 00001D40: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................| 00001D50: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................| 00001D60: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................| 00001D70: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................| 00001D80: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................| 00001D90: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................| 00001DA0: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................| 00001DB0: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................| 00001DC0: 01 01 01 01 |.... |
.......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)...................................
........................................
........................................
........................................
........................................
........................................
....................
> CLICK IMAGE PREVIEW FOR FULL MODAL