MARKET
FILE INFORMATION
FILENAME(S): MARKET
FILE TYPE(S): PRG
FILE SIZE: 10.5K
FIRST SEEN: 2025-11-30 01:08:00
APPEARS ON: 2 disk(s)
FILE HASH
a681733c87c8340c5221cd1e2b6cddf0305bf9810f13931bf1dc8cb4d1b7c5e5
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FREESOFT DISK NR | MARKET | PRG | Treasure Chest - Wolfgang Rauprich | 10 | 1 | DOWNLOAD FILE |
| FREESOFT NR | MARKET | PRG | Treasure Chest - Wolfgang Rauprich | 10 | 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 D7 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 4D 41 52 4B 45 54 00 01 0F 40 01 99 22 11 11 | MARKET...@.."..|
000006E0: 20 20 20 20 20 20 20 32 2E 20 20 20 53 54 55 44 | 2. STUD|
000006F0: 45 4E 54 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 |ENT INSTRUCTIONS|
00000700: 22 00 2B 0F 45 01 99 22 11 11 20 20 20 20 20 20 |".+.E..".. |
00000710: 20 33 2E 20 20 20 54 45 41 43 48 45 52 20 49 4E | 3. TEACHER IN|
00000720: 53 54 52 55 43 54 49 4F 4E 53 22 00 47 0F 4F 01 |STRUCTIONS".G.O.|
00000730: 99 22 11 11 20 20 20 20 20 20 20 34 2E 20 20 20 |.".. 4. |
00000740: 51 55 49 54 11 11 22 00 76 0F 54 01 99 22 20 2D |QUIT..".v.T.." -|
00000750: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000760: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000770: 2D 2D 2D 2D 2D 22 00 A1 0F 59 01 99 22 11 11 20 |-----"...Y..".. |
00000780: 20 20 20 20 20 20 50 52 45 53 53 20 41 20 4E 55 | PRESS A NU|
00000790: 4D 42 45 52 20 4B 45 59 20 28 31 2D 34 29 20 22 |MBER KEY (1-4) "|
000007A0: 3B 00 C9 0F 5E 01 55 4C B2 31 3A 55 53 24 B2 22 |;...^.UL.1:US$."|
000007B0: 31 32 33 34 22 3A 8D 33 35 3A 8F 20 49 4E 50 55 |1234":.35:. INPU|
000007C0: 54 20 52 4F 55 54 49 4E 45 00 D4 0F 60 01 55 53 |T ROUTINE...`.US|
000007D0: 24 B2 22 22 00 F1 0F 63 01 91 C5 28 55 52 24 29 |$.""...c...(UR$)|
000007E0: 8D 31 30 30 30 2C 34 30 30 2C 35 30 30 2C 33 39 |.1000,400,500,39|
000007F0: 36 00 FA 0F 68 01 89 33 30 30 00 21 10 8B 01 8F |6...h..300.!....|
00000800: 20 2A 2A 20 52 45 2D 45 4E 41 42 4C 45 20 53 54 | ** RE-ENABLE ST|
00000810: 4F 50 20 4B 45 59 20 41 4E 44 20 45 4E 44 20 2A |OP KEY AND END *|
00000820: 2A 00 50 10 8C 01 8B C2 28 35 30 30 30 33 29 B3 |*.P.....(50003).|
00000830: B1 31 AF C2 28 35 30 30 30 33 29 B3 B1 31 36 30 |.1..(50003)..160|
00000840: AF C2 28 35 30 30 30 33 29 B3 B1 30 A7 33 39 39 |..(50003)..0.399|
00000850: 00 7A 10 8D 01 9E 55 55 AA 37 31 3A 8B C2 28 35 |.z....UU.71:..(5|
00000860: 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 36 |0003).0..53281,6|
00000870: 3A 97 35 33 32 38 30 2C 31 34 00 86 10 8E 01 99 |:.53280,14......|
00000880: 22 9A 93 22 3A 80 00 91 10 8F 01 8D 38 37 35 3A |"..":.......875:|
00000890: 8E 00 B2 10 90 01 8F 20 2A 2A 20 53 54 55 44 45 |....... ** STUDE|
000008A0: 4E 54 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 20 |NT INSTRUCTIONS |
000008B0: 2A 2A 00 E1 10 95 01 99 22 93 22 3A 97 55 54 2C |**......".":.UT,|
000008C0: 55 4C 25 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 |UL%:..(50003).0.|
000008D0: 97 35 33 32 38 31 2C 30 3A 97 35 33 32 38 30 2C |.53281,0:.53280,|
000008E0: 30 00 10 11 9A 01 55 54 24 B2 22 A0 CD 41 52 4B |0.....UT$."..ARK|
000008F0: 45 54 22 3A 55 50 B2 31 3A 55 47 24 B2 22 D3 54 |ET":UP.1:UG$.".T|
00000900: 55 44 45 4E 54 20 C9 4E 53 54 22 3A 8D 38 35 30 |UDENT .NST":.850|
00000910: 00 3D 11 9F 01 99 3A 99 22 20 20 20 D4 48 49 53 |.=....:." .HIS|
00000920: 20 50 52 4F 47 52 41 4D 20 49 53 20 44 45 53 49 | PROGRAM IS DESI|
00000930: 47 4E 45 44 20 54 4F 20 54 45 53 54 22 00 67 11 |GNED TO TEST".g.|
00000940: A0 01 99 3A 99 22 20 59 4F 55 52 20 41 42 49 4C |...:." YOUR ABIL|
00000950: 49 54 59 20 54 4F 20 4D 41 4E 41 47 45 20 41 20 |ITY TO MANAGE A |
00000960: 53 54 4F 52 45 2E 22 00 95 11 A1 01 99 3A 99 22 |STORE."......:."|
00000970: 20 20 20 CF 4E 43 45 20 59 4F 55 20 43 48 4F 4F | .NCE YOU CHOO|
00000980: 53 45 20 54 48 45 20 4E 41 4D 45 20 4F 46 20 59 |SE THE NAME OF Y|
00000990: 4F 55 52 20 22 00 C3 11 A2 01 99 3A 99 22 20 53 |OUR "......:." S|
000009A0: 54 4F 52 45 20 59 4F 55 20 57 49 4C 4C 20 53 45 |TORE YOU WILL SE|
000009B0: 45 20 41 20 43 48 41 52 54 20 4F 46 20 59 4F 55 |E A CHART OF YOU|
000009C0: 52 20 22 00 F0 11 A3 01 99 3A 99 22 20 48 4F 4C |R "......:." HOL|
000009D0: 44 49 4E 47 53 2E 20 20 27 D3 48 41 52 45 27 20 |DINGS. '.HARE' |
000009E0: 52 45 46 45 52 53 20 54 4F 20 54 48 45 20 25 22 |REFERS TO THE %"|
000009F0: 00 1B 12 A4 01 99 3A 99 22 20 4F 46 20 54 48 45 |......:." OF THE|
00000A00: 20 4D 41 52 4B 45 54 20 57 48 49 43 48 20 59 4F | MARKET WHICH YO|
00000A10: 55 20 43 4F 4E 54 52 4F 4C 2E 22 00 49 12 A5 01 |U CONTROL.".I...|
00000A20: 99 3A 99 22 20 20 20 D4 48 45 4E 20 59 4F 55 20 |.:." .HEN YOU |
00000A30: 4D 55 53 54 20 44 45 43 49 44 45 20 48 4F 57 20 |MUST DECIDE HOW |
00000A40: 4D 55 43 48 20 4F 46 20 22 00 7A 12 A6 01 99 3A |MUCH OF ".z....:|
00000A50: 99 22 20 59 4F 55 52 20 50 52 4F 44 55 43 54 20 |." YOUR PRODUCT |
00000A60: 54 4F 20 50 52 4F 44 55 43 45 20 41 4E 44 20 57 |TO PRODUCE AND W|
00000A70: 48 41 54 20 50 52 49 43 45 22 00 94 12 A7 01 99 |HAT PRICE"......|
00000A80: 3A 99 22 20 54 4F 20 53 45 4C 4C 20 49 54 20 46 |:." TO SELL IT F|
00000A90: 4F 52 2E 22 00 A7 12 AE 01 8D 38 33 35 3A 55 50 |OR."......835:UP|
00000AA0: B2 32 3A 8D 38 35 30 00 D6 12 AF 01 99 3A 99 22 |.2:.850......:."|
00000AB0: 20 20 20 D4 48 45 20 46 49 52 53 54 20 50 4C 41 | .HE FIRST PLA|
00000AC0: 59 45 52 20 54 4F 20 52 45 41 43 48 20 31 32 30 |YER TO REACH 120|
00000AD0: 30 30 20 49 4E 22 00 F6 12 B0 01 99 3A 99 22 20 |00 IN"......:." |
00000AE0: 41 53 53 45 54 53 20 57 49 4E 53 20 54 48 45 20 |ASSETS WINS THE |
00000AF0: 47 41 4D 45 2E 22 00 FF 12 E5 01 8D 38 33 35 00 |GAME."......835.|
00000B00: 13 13 EA 01 8B 55 5A B2 31 A7 9E 55 50 25 3A 89 |.....UZ.1..UP%:.|
00000B10: 32 31 37 00 19 13 F3 01 8E 00 3A 13 F4 01 8F 20 |217.......:.... |
00000B20: 2A 2A 20 54 45 41 43 48 45 52 20 49 4E 53 54 52 |** TEACHER INSTR|
00000B30: 55 43 54 49 4F 4E 53 20 2A 2A 00 6A 13 F5 01 99 |UCTIONS **.j....|
00000B40: 22 93 22 3A 97 55 54 2C 55 4C 25 3A 8B C2 28 35 |".":.UT,UL%:..(5|
00000B50: 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 32 |0003).0..53281,2|
00000B60: 3A 97 35 33 32 38 30 2C 31 30 00 99 13 F6 01 55 |:.53280,10.....U|
00000B70: 54 24 B2 22 20 CD 41 52 4B 45 54 22 3A 55 50 B2 |T$." .ARKET":UP.|
00000B80: 31 3A 55 47 24 B2 22 D4 45 41 43 48 45 52 20 C9 |1:UG$.".EACHER .|
00000B90: 4E 53 54 22 3A 8D 38 35 30 00 C7 13 F7 01 99 22 |NST":.850......"|
00000BA0: 11 11 20 20 20 20 20 20 D4 4F 20 54 48 45 20 42 |.. .O THE B|
00000BB0: 45 53 54 20 4F 46 20 4F 55 52 20 4B 4E 4F 57 4C |EST OF OUR KNOWL|
00000BC0: 45 44 47 45 2C 11 22 00 F0 13 F8 01 99 22 20 20 |EDGE,."......" |
00000BD0: 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 49 53 | THIS PROGRAM IS|
00000BE0: 20 49 4E 20 54 48 45 20 50 55 42 4C 49 43 11 22 | IN THE PUBLIC."|
00000BF0: 00 1C 14 F9 01 99 22 20 20 20 44 4F 4D 41 49 4E |......" DOMAIN|
00000C00: 2E 20 20 C9 46 20 54 48 49 53 20 49 53 20 4E 4F |. .F THIS IS NO|
00000C10: 54 20 54 48 45 20 43 41 53 45 11 22 00 39 14 FA |T THE CASE.".9..|
00000C20: 01 99 22 20 20 20 50 4C 45 41 53 45 20 43 4F 4E |.." PLEASE CON|
00000C30: 54 41 43 54 3A 11 11 11 22 00 63 14 FB 01 99 22 |TACT:...".c...."|
00000C40: 20 20 20 20 20 20 C3 4F 4D 4D 4F 44 4F 52 45 20 | .OMMODORE |
00000C50: C2 55 53 49 4E 45 53 53 20 CD 41 43 48 49 4E 45 |.USINESS .ACHINE|
00000C60: 53 11 22 00 86 14 FC 01 99 22 20 20 20 20 20 20 |S."......" |
00000C70: 20 20 20 20 33 33 37 30 20 D0 48 41 52 4D 41 43 | 3370 .HARMAC|
00000C80: 59 20 C1 56 45 2E 00 AA 14 FD 01 99 22 20 20 20 |Y .VE......." |
00000C90: 20 20 20 20 20 20 20 C1 47 49 4E 43 4F 55 52 54 | .GINCOURT|
00000CA0: 2C 20 CF 4E 54 41 52 49 4F 22 00 CC 14 FE 01 99 |, .NTARIO"......|
00000CB0: 22 20 20 20 20 20 20 20 20 20 20 C3 41 4E 41 44 |" .ANAD|
00000CC0: 41 20 20 20 CD 31 D7 20 32 CB 34 22 00 EC 14 FF |A .1. 2.4"....|
00000CD0: 01 99 22 20 20 20 20 20 20 20 20 20 20 28 34 31 |.." (41|
00000CE0: 36 29 20 34 39 39 2D 34 32 39 32 22 00 02 15 00 |6) 499-4292"....|
00000CF0: 02 55 50 B2 32 3A 8D 20 38 33 35 3A 8D 20 38 35 |.UP.2:. 835:. 85|
00000D00: 30 3A 00 2C 15 01 02 99 22 20 20 20 20 20 11 11 |0:.,...." ..|
00000D10: D0 52 4F 47 52 41 4D 20 CE 41 4D 45 3A 20 CD 41 |.ROGRAM .AME: .A|
00000D20: 52 4B 45 54 20 20 20 20 20 20 20 11 00 4E 15 02 |RKET ..N..|
00000D30: 02 99 22 20 20 20 20 20 D7 52 49 54 54 45 4E 20 |.." .RITTEN |
00000D40: C2 59 20 20 3A 20 D5 4E 4B 4E 4F 57 4E 11 00 72 |.Y : .NKNOWN..r|
00000D50: 15 03 02 99 22 20 20 20 20 20 D5 50 47 52 41 44 |...." .PGRAD|
00000D60: 45 44 20 C2 59 20 3A 20 20 20 20 20 20 20 20 20 |ED .Y : |
00000D70: 20 11 00 9D 15 04 02 99 22 20 20 20 20 20 11 D4 | ......." ..|
00000D80: 48 49 53 20 50 52 4F 47 52 41 4D 20 57 49 4C 4C |HIS PROGRAM WILL|
00000D90: 20 52 55 4E 20 4F 4E 20 41 4E 59 11 11 00 BD 15 | RUN ON ANY.....|
00000DA0: 07 02 99 22 20 20 20 20 20 20 20 20 20 D0 C5 D4 |..." ...|
00000DB0: 20 36 34 20 C3 CF CD D0 D5 D4 C5 D2 11 00 E2 15 | 64 ............|
00000DC0: 08 02 99 22 20 20 20 20 20 20 20 20 20 C3 CF CD |..." ...|
00000DD0: CD CF C4 CF D2 C5 20 36 34 20 C3 CF CD D0 D5 D4 |...... 64 ......|
00000DE0: C5 D2 00 EB 15 09 02 8D 38 33 35 00 FF 15 4E 02 |........835...N.|
00000DF0: 8B 55 5A B2 31 A7 9E 55 50 25 3A 89 32 31 37 00 |.UZ.1..UP%:.217.|
00000E00: 05 16 57 02 8E 00 2B 16 58 02 8F 20 2A 2A 20 50 |..W...+.X.. ** P|
00000E10: 52 4F 47 52 41 4D 20 4D 4F 44 49 46 49 43 41 54 |ROGRAM MODIFICAT|
00000E20: 49 4F 4E 20 49 4E 53 54 20 2A 2A 00 3C 16 59 02 |ION INST **.<.Y.|
00000E30: 99 22 93 22 3A 97 55 54 2C 55 4C 25 00 5C 16 5D |.".":.UT,UL%.\.]|
00000E40: 02 55 50 B2 30 3A 55 47 24 B2 22 D0 52 4F 47 52 |.UP.0:UG$.".ROGR|
00000E50: 41 4D 20 CD 4F 44 22 3A 8D 38 35 30 00 65 16 94 |AM .OD":.850.e..|
00000E60: 02 8D 38 33 35 00 79 16 B2 02 8B 55 5A B2 31 A7 |..835.y....UZ.1.|
00000E70: 9E 55 50 25 3A 89 32 31 37 00 7F 16 BB 02 8E 00 |.UP%:.217.......|
00000E80: A4 16 BC 02 8F 20 2A 2A 20 54 4F 20 55 53 45 20 |..... ** TO USE |
00000E90: 38 30 33 32 20 4C 4F 41 44 20 43 42 4D 34 30 33 |8032 LOAD CBM403|
00000EA0: 32 20 2A 2A 00 DA 16 C6 02 99 22 93 11 11 11 05 |2 **......".....|
00000EB0: 42 45 46 4F 52 45 20 52 55 4E 4E 49 4E 47 20 54 |BEFORE RUNNING T|
00000EC0: 48 49 53 20 50 52 4F 47 52 41 4D 20 4F 4E 20 41 |HIS PROGRAM ON A|
00000ED0: 4E 20 38 30 33 32 20 20 11 11 00 10 17 D0 02 99 |N 8032 ........|
00000EE0: 22 20 20 20 20 20 20 4C 4F 41 44 20 54 48 45 20 |" LOAD THE |
00000EF0: 27 43 42 4D 20 34 30 33 32 27 20 50 52 4F 47 52 |'CBM 4032' PROGR|
00000F00: 41 4D 11 11 11 11 11 11 11 11 11 11 11 11 11 22 |AM............."|
00000F10: 00 1B 17 DA 02 9E 55 55 AA 37 31 00 21 17 E4 02 |......UU.71.!...|
00000F20: 80 00 41 17 20 03 8F 20 2A 2A 20 54 20 49 20 54 |..A. .. ** T I T|
00000F30: 20 4C 20 45 20 20 20 50 20 41 20 47 20 45 20 2A | L E P A G E *|
00000F40: 2A 00 75 17 22 03 99 22 93 11 1D 05 22 3B 3A 97 |*.u.".."....";:.|
00000F50: 55 54 2C 55 55 25 3A 8B C2 28 35 30 30 30 33 29 |UT,UU%:..(50003)|
00000F60: B2 30 A7 97 35 33 32 38 30 2C 31 34 3A 97 35 33 |.0..53280,14:.53|
00000F70: 32 38 31 2C 36 00 8B 17 24 03 81 49 B2 31 A4 33 |281,6...$..I.1.3|
00000F80: 38 3A 99 22 12 A6 92 22 3B 3A 82 00 A3 17 26 03 |8:."...";:....&.|
00000F90: 81 49 B2 31 A4 32 32 3A 99 22 11 9D 12 A6 92 22 |.I.1.22:."....."|
00000FA0: 3B 3A 82 00 BB 17 28 03 81 49 B2 31 A4 33 37 3A |;:....(..I.1.37:|
00000FB0: 99 22 9D 9D 12 A6 92 22 3B 3A 82 00 D3 17 2A 03 |.".....";:....*.|
00000FC0: 81 49 B2 31 A4 32 32 3A 99 22 91 9D 12 A6 92 22 |.I.1.22:."....."|
00000FD0: 3B 3A 82 00 F8 17 2C 03 99 22 13 11 11 11 11 11 |;:....,.."......|
00000FE0: 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000FF0: 1D 1D 1D 12 A9 20 20 92 00 1A 18 2E 03 99 22 1D |..... .......".|
00001000: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001010: 1D 12 20 92 20 20 12 20 92 A9 00 3B 18 30 03 99 |.. . . ...;.0..|
00001020: 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |"...............|
00001030: 1D 1D 1D 12 20 92 20 20 12 A3 DF 00 59 18 32 03 |.... . ....Y.2.|
00001040: 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |."..............|
00001050: 1D 1D 1D 1D DF 12 20 20 92 00 81 18 34 03 99 22 |...... ....4.."|
00001060: 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 43 20 |..............C |
00001070: 4F 20 4D 20 4D 20 4F 20 44 20 4F 20 52 20 45 11 |O M M O D O R E.|
00001080: 11 00 A4 18 36 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D |....6.."........|
00001090: 1D 1D 1D 1D 1D 1D 1D 45 44 55 43 41 54 49 4F 4E |.......EDUCATION|
000010A0: 41 4C 11 11 00 C3 18 38 03 99 22 1D 1D 1D 1D 1D |AL.....8..".....|
000010B0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 53 4F 46 54 57 |...........SOFTW|
000010C0: 41 52 45 00 DE 18 3A 03 8F 20 2A 2A 20 43 4F 4D |ARE...:.. ** COM|
000010D0: 4D 4F 44 4F 52 45 20 4C 4F 47 4F 20 2A 2A 00 16 |MODORE LOGO **..|
000010E0: 19 3B 03 99 C8 28 55 44 24 2C 32 34 29 3B 22 1D |.;...(UD$,24);".|
000010F0: 1D 1D 1D 1D 1D 1D 1D 1D 12 50 52 45 53 53 20 53 |.........PRESS S|
00001100: 50 41 43 45 20 42 41 52 20 4F 52 20 57 41 49 54 |PACE BAR OR WAIT|
00001110: 92 22 3A 49 B2 30 00 38 19 3C 03 A1 41 24 3A 8B |.":I.0.8.<..A$:.|
00001120: 41 24 B3 B1 22 20 22 A7 49 B2 49 AA 31 3A 8B 49 |A$.." ".I.I.1:.I|
00001130: B3 32 35 30 A7 38 32 38 00 5C 19 3E 03 54 31 24 |.250.828.\.>.T1$|
00001140: B2 22 22 3A 54 32 24 B2 22 22 3A 54 33 24 B2 22 |."":T2$."":T3$."|
00001150: 22 3A 54 34 24 B2 22 22 3A 49 B2 30 00 65 19 40 |":T4$."":I.0.e.@|
00001160: 03 89 33 30 30 00 81 19 43 03 8F 20 2A 2A 20 53 |..300...C.. ** S|
00001170: 50 41 43 45 20 42 41 52 20 50 52 45 53 53 20 2A |PACE BAR PRESS *|
00001180: 2A 00 BC 19 48 03 97 55 4F 2C 30 3A 99 C8 28 55 |*...H..UO,0:..(U|
00001190: 44 24 2C 32 34 29 3B 22 1D 1D 1D 1D 1D 1D 12 50 |D$,24);".......P|
000011A0: 52 45 53 53 20 53 50 41 43 45 20 42 41 52 20 54 |RESS SPACE BAR T|
000011B0: 4F 20 43 4F 4E 54 49 4E 55 45 92 22 00 D3 19 4C |O CONTINUE."...L|
000011C0: 03 A1 55 49 24 3A 8B 55 49 24 B3 B1 22 20 22 A7 |..UI$:.UI$.." ".|
000011D0: 38 34 34 00 D9 19 4E 03 8E 00 F9 19 52 03 8F 20 |844...N.....R.. |
000011E0: 2A 2A 20 50 41 47 45 20 44 45 53 49 47 4E 20 52 |** PAGE DESIGN R|
000011F0: 4F 55 54 49 4E 45 20 2A 2A 00 FF 19 54 03 8F 00 |OUTINE **...T...|
00001200: 29 1A 57 03 99 22 93 22 C8 28 55 54 24 AA 55 50 |).W..".".(UT$.UP|
00001210: 24 2C 32 31 29 3B C9 28 55 50 24 AA 55 47 24 AA |$,21);.(UP$.UG$.|
00001220: C4 28 55 50 29 2C 31 38 29 00 58 1A 5C 03 99 22 |.(UP),18).X.\.."|
00001230: 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D | ---------------|
00001240: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001250: 2D 2D 2D 2D 2D 2D 2D 22 00 67 1A 60 03 8B 55 48 |-------".g.`..UH|
00001260: B3 B1 30 A7 38 37 30 00 9B 1A 61 03 99 C8 28 55 |..0.870...a...(U|
00001270: 44 24 2C 32 34 29 3B C8 28 55 50 24 2C 37 29 3B |D$,24);.(UP$,7);|
00001280: 22 48 45 4C 50 20 2D 20 50 52 45 53 53 20 20 20 |"HELP - PRESS |
00001290: 48 20 3C 52 45 54 55 52 4E 3E 22 00 B4 1A 66 03 |H <RETURN>"...f.|
000012A0: 55 48 B2 30 3A 99 22 13 11 22 3A 55 50 B2 55 50 |UH.0:."..":UP.UP|
000012B0: AA 31 3A 8E 00 D3 1A 6B 03 8F 20 2A 2A 20 50 4C |.1:....k.. ** PL|
000012C0: 45 41 53 45 20 57 41 49 54 20 52 45 4D 41 52 4B |EASE WAIT REMARK|
000012D0: 20 2A 2A 00 09 1B 70 03 99 C8 28 55 44 24 2C 32 | **...p...(UD$,2|
000012E0: 34 29 3B 22 20 20 20 20 20 20 20 20 20 20 20 4F |4);" O|
000012F0: 4E 45 20 4D 4F 4D 45 4E 54 20 50 4C 45 41 53 45 |NE MOMENT PLEASE|
00001300: 2E 2E 2E 20 20 20 20 20 22 00 0F 1B 75 03 8E 00 |... "...u...|
00001310: 2C 1B 84 03 8F 20 2A 2A 20 53 45 54 20 55 50 20 |,.... ** SET UP |
00001320: 56 41 52 49 41 42 4C 45 53 20 2A 2A 00 77 1B 85 |VARIABLES **.w..|
00001330: 03 55 58 24 B2 22 48 22 3A 86 55 51 25 28 31 30 |.UX$."H":.UQ%(10|
00001340: 30 30 29 3A 55 42 B2 33 32 37 36 38 3A 55 31 B2 |00):UB.32768:U1.|
00001350: 31 39 36 3A 55 32 B2 31 39 37 3A 55 33 B2 31 39 |196:U2.197:U3.19|
00001360: 38 3A 55 34 B2 32 31 36 3A 55 43 B2 31 36 37 3A |8:U4.216:UC.167:|
00001370: 55 55 B2 31 30 32 34 00 B5 1B 86 03 55 54 B2 35 |UU.1024.....UT.5|
00001380: 39 34 36 38 3A 55 55 25 B2 31 32 3A 55 4C 25 B2 |9468:UU%.12:UL%.|
00001390: 31 34 3A 55 50 25 B2 31 31 34 36 3A 55 4D B2 33 |14:UP%.1146:UM.3|
000013A0: 32 37 36 38 3A 55 4F B2 31 35 38 3A 97 20 35 30 |2768:UO.158:. 50|
000013B0: 30 30 33 2C 30 00 F8 1B 87 03 8B C2 28 35 30 30 |003,0.......(500|
000013C0: 30 33 29 B2 30 A7 55 42 B2 31 30 32 34 3A 55 31 |03).0.UB.1024:U1|
000013D0: B2 32 30 39 3A 55 32 B2 32 31 30 3A 55 33 B2 32 |.209:U2.210:U3.2|
000013E0: 31 31 3A 55 34 B2 32 31 34 3A 55 43 B2 32 30 34 |11:U4.214:UC.204|
000013F0: 3A 55 55 B2 32 30 34 38 00 37 1C 88 03 8B C2 28 |:UU.2048.7.....(|
00001400: 35 30 30 30 33 29 B2 30 A7 55 54 B2 35 33 32 37 |50003).0.UT.5327|
00001410: 32 3A 55 55 25 B2 32 31 3A 55 4C 25 B2 32 33 3A |2:UU%.21:UL%.23:|
00001420: 55 50 25 B2 32 31 33 39 3A 55 4D B2 31 30 32 34 |UP%.2139:UM.1024|
00001430: 3A 55 4F B2 31 39 38 00 5B 1C 89 03 55 44 24 B2 |:UO.198.[...UD$.|
00001440: 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |"...............|
00001450: 11 11 11 11 11 11 11 11 11 11 22 00 8D 1C 8A 03 |..........".....|
00001460: 55 50 24 B2 22 20 20 20 20 20 20 20 20 20 20 20 |UP$." |
00001470: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001480: 20 20 20 20 20 20 20 20 20 20 20 20 22 00 DB 1C | "...|
00001490: 8B 03 55 54 24 B2 22 20 CD 41 52 4B 45 54 20 20 |..UT$." .ARKET |
000014A0: 20 20 20 20 20 A0 A0 A0 A0 A0 22 3A 8F 20 50 4C | .....":. PL|
000014B0: 41 43 45 20 50 52 4F 47 52 41 4D 20 54 49 54 4C |ACE PROGRAM TITL|
000014C0: 45 20 48 45 52 45 20 21 21 21 21 21 21 21 21 21 |E HERE !!!!!!!!!|
000014D0: 21 21 21 21 21 21 21 21 2A 2A 2A 00 E1 1C 8C 03 |!!!!!!!!***.....|
000014E0: 8E 00 FB 1C 8E 03 8F 20 2A 2A 20 53 45 54 20 56 |....... ** SET V|
000014F0: 41 52 49 41 42 4C 45 53 20 2A 2A 00 04 1D 93 03 |ARIABLES **.....|
00001500: 8D 39 30 30 00 1F 1D 98 03 8F 20 2A 2A 20 43 48 |.900...... ** CH|
00001510: 45 43 4B 20 46 4F 52 20 38 30 33 32 20 2A 2A 00 |ECK FOR 8032 **.|
00001520: 3D 1D 9D 03 99 22 93 22 3A 99 22 A0 22 3A 8F 20 |=....".":.".":. |
00001530: 53 48 49 46 54 45 44 20 53 50 41 43 45 00 54 1D |SHIFTED SPACE.T.|
00001540: A2 03 8B C2 28 55 42 AA 34 30 29 B3 B1 39 36 A7 |....(UB.40)..96.|
00001550: 8D 37 30 30 00 6D 1D A3 03 8F 20 2A 2A 20 4D 45 |.700.m.... ** ME|
00001560: 4D 4F 52 59 20 43 48 45 43 4B 20 2A 2A 00 81 1D |MORY CHECK **...|
00001570: A4 03 8B 20 B8 28 30 29 B1 32 30 30 30 A7 39 33 |... .(0).2000.93|
00001580: 37 00 AF 1D A5 03 99 22 93 11 11 05 54 48 49 53 |7......"....THIS|
00001590: 20 4D 41 43 48 49 4E 45 20 44 4F 45 53 20 4E 4F | MACHINE DOES NO|
000015A0: 54 20 48 41 56 45 20 45 4E 4F 55 47 48 11 22 00 |T HAVE ENOUGH.".|
000015B0: D3 1D A6 03 99 22 4D 45 4D 4F 52 59 20 54 4F 20 |....."MEMORY TO |
000015C0: 52 55 4E 20 54 48 49 53 20 50 52 4F 47 52 41 4D |RUN THIS PROGRAM|
000015D0: 20 21 22 00 DE 1D A7 03 9E 55 55 AA 37 31 00 E4 | !"......UU.71..|
000015E0: 1D A8 03 80 00 FE 1D A9 03 99 22 93 05 22 3A 8B |.........."..":.|
000015F0: C2 28 35 30 30 30 33 29 B2 30 A7 39 36 32 00 2D |.(50003).0.962.-|
00001600: 1E AC 03 8F 20 2A 2A 20 42 41 53 49 43 20 32 2E |.... ** BASIC 2.|
00001610: 30 20 20 4F 52 20 20 34 2E 30 20 20 4F 52 20 20 |0 OR 4.0 OR |
00001620: 43 2D 36 34 20 53 45 54 55 50 20 2A 2A 00 6B 1E |C-64 SETUP **.k.|
00001630: AD 03 97 31 30 37 35 2C 31 33 33 3A 97 31 30 37 |...1075,133:.107|
00001640: 36 2C 31 34 34 3A 97 31 30 37 37 2C 32 33 34 3A |6,144:.1077,234:|
00001650: 97 31 30 37 39 2C 34 3A 97 31 30 38 30 2C 31 33 |.1079,4:.1080,13|
00001660: 33 3A 97 31 30 38 31 2C 31 34 35 00 A1 1E AE 03 |3:.1081,145.....|
00001670: 97 31 30 39 31 2C 31 35 35 3A 97 31 30 39 38 2C |.1091,155:.1098,|
00001680: 31 33 33 3A 97 31 30 39 39 2C 31 34 34 3A 97 31 |133:.1099,144:.1|
00001690: 31 30 30 2C 32 33 34 3A 97 31 31 30 33 2C 31 33 |100,234:.1103,13|
000016A0: 33 00 C3 1E AF 03 97 31 31 30 34 2C 31 34 35 3A |3......1104,145:|
000016B0: 97 31 31 30 35 2C 32 33 34 3A 97 31 30 38 32 2C |.1105,234:.1082,|
000016C0: 32 33 34 00 DA 1E B1 03 8B C2 28 35 30 30 30 33 |234.......(50003|
000016D0: 29 B3 B1 31 36 30 A7 39 35 35 00 09 1F B6 03 97 |)..160.955......|
000016E0: 31 30 39 33 2C 38 38 3A 97 31 30 39 34 2C 32 32 |1093,88:.1094,22|
000016F0: 38 3A 97 31 30 39 37 2C 38 35 3A 97 31 31 30 32 |8:.1097,85:.1102|
00001700: 2C 32 32 38 3A 89 39 36 35 00 1E 1F BB 03 8B C2 |,228:.965.......|
00001710: 28 35 30 30 30 33 29 B3 B1 31 A7 39 39 30 00 4D |(50003)..1.990.M|
00001720: 1F C0 03 97 31 30 39 33 2C 34 39 3A 97 31 30 39 |....1093,49:.109|
00001730: 34 2C 32 33 30 3A 97 31 30 39 37 2C 34 36 3A 97 |4,230:.1097,46:.|
00001740: 31 31 30 32 2C 32 33 30 3A 89 39 36 35 00 87 1F |1102,230:.965...|
00001750: C2 03 97 32 30 39 39 2C 31 34 31 3A 97 32 31 30 |...2099,141:.210|
00001760: 30 2C 32 30 3A 97 32 31 30 31 2C 33 3A 97 32 31 |0,20:.2101,3:.21|
00001770: 30 33 2C 38 3A 97 32 31 30 34 2C 31 34 31 3A 97 |03,8:.2104,141:.|
00001780: 32 31 30 35 2C 32 31 00 C3 1F C3 03 97 32 31 30 |2105,21......210|
00001790: 36 2C 33 3A 97 32 31 31 35 2C 31 34 35 3A 97 32 |6,3:.2115,145:.2|
000017A0: 31 31 37 2C 35 32 3A 97 32 31 31 38 2C 32 33 34 |117,52:.2118,234|
000017B0: 3A 97 32 31 32 31 2C 34 39 3A 97 32 31 32 32 2C |:.2121,49:.2122,|
000017C0: 31 34 31 00 FD 1F C4 03 97 32 31 32 33 2C 32 30 |141......2123,20|
000017D0: 3A 97 32 31 32 34 2C 33 3A 97 32 31 32 36 2C 32 |:.2124,3:.2126,2|
000017E0: 33 34 3A 97 32 31 32 37 2C 31 34 31 3A 97 32 31 |34:.2127,141:.21|
000017F0: 32 38 2C 32 31 3A 97 32 31 32 39 2C 33 00 1B 20 |28,21:.2129,3.. |
00001800: C5 03 9E 55 55 AA 34 38 3A 8F 20 44 49 53 41 42 |...UU.48:. DISAB|
00001810: 4C 45 20 53 54 4F 50 20 4B 45 59 00 2C 20 CA 03 |LE STOP KEY., ..|
00001820: 8D 38 30 30 3A 8F 20 54 49 54 4C 45 00 3C 20 D4 |.800:. TITLE.< .|
00001830: 03 89 33 30 30 3A 8F 20 4D 45 4E 55 00 6D 20 DE |..300:. MENU.m .|
00001840: 03 99 22 93 54 48 45 20 50 47 4D 20 57 49 4C 4C |..".THE PGM WILL|
00001850: 20 4E 4F 54 20 57 4F 52 4B 20 4F 4E 20 54 48 49 | NOT WORK ON THI|
00001860: 53 20 4D 41 43 48 49 4E 45 21 22 3A 80 00 A2 20 |S MACHINE!":... |
00001870: E8 03 8B 55 5A B2 31 A7 9E 55 50 25 3A 9E 55 50 |...UZ.1..UP%:.UP|
00001880: 25 3A 55 5A B2 30 3A 8F 20 2A 2A 20 50 52 4F 47 |%:UZ.0:. ** PROG|
00001890: 52 41 4D 20 53 54 41 52 54 53 20 48 45 52 45 20 |RAM STARTS HERE |
000018A0: 2A 2A 00 CE 20 E9 03 99 22 93 05 22 3B 3A 8C 3A |**.. ..."..";:.:|
000018B0: 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 |..(50003).0..532|
000018C0: 38 31 2C 36 3A 97 35 33 32 38 30 2C 31 34 00 D9 |81,6:.53280,14..|
000018D0: 20 EA 03 55 47 24 B2 22 22 00 EB 20 EB 03 55 54 | ..UG$."".. ..UT|
000018E0: 24 B2 22 20 4D 41 52 4B 45 54 22 00 26 21 FC 03 |$." MARKET".&!..|
000018F0: 87 20 4B 32 2C 4E 2C 4B 2C 4B 33 2C 43 28 31 29 |. K2,N,K,K3,C(1)|
00001900: 2C 43 28 32 29 2C 49 28 31 29 2C 49 28 32 29 2C |,C(2),I(1),I(2),|
00001910: 46 2C 55 2C 52 2C 47 31 2C 47 32 2C 47 33 2C 4D |F,U,R,G1,G2,G3,M|
00001920: 31 2C 4B 34 3A 8C 00 3E 21 2E 04 51 B2 30 3A 57 |1,K4:..>!..Q.0:W|
00001930: 32 B2 30 3A 57 34 B2 30 3A 57 33 B2 30 3A 00 49 |2.0:W4.0:W3.0:.I|
00001940: 21 38 04 89 20 31 32 36 30 00 83 21 EC 04 55 47 |!8.. 1260..!..UG|
00001950: 24 B2 22 53 45 54 20 55 50 22 3A 55 50 B2 31 3A |$."SET UP":UP.1:|
00001960: 8D 38 35 30 3A 99 3A 99 22 20 54 48 45 52 45 20 |.850:.:." THERE |
00001970: 41 52 45 20 54 57 4F 20 43 4F 4D 50 41 4E 49 45 |ARE TWO COMPANIE|
00001980: 53 3A 22 00 AF 21 ED 04 81 49 B2 31 A4 32 3A 99 |S:"..!...I.1.2:.|
00001990: 3A 99 22 20 45 4E 54 45 52 20 4E 41 4D 45 20 4F |:." ENTER NAME O|
000019A0: 46 20 43 4F 4D 50 41 4E 59 20 23 22 3B 49 3B 00 |F COMPANY #";I;.|
000019B0: D1 21 EE 04 55 4C B2 31 30 3A 55 53 24 B2 22 22 |.!..UL.10:US$.""|
000019C0: 3A 8D 33 35 3A 4E 24 28 49 29 B2 55 52 24 3A 82 |:.35:N$(I).UR$:.|
000019D0: 49 00 F5 21 46 05 99 3A 99 22 20 50 52 4F 44 55 |I..!F..:." PRODU|
000019E0: 43 54 49 4F 4E 20 43 4F 53 54 3A 20 24 32 35 2F |CTION COST: $25/|
000019F0: 55 4E 49 54 22 00 28 22 50 05 99 3A 99 22 20 57 |UNIT".("P..:." W|
00001A00: 41 52 45 48 4F 55 53 45 20 43 48 41 52 47 45 53 |AREHOUSE CHARGES|
00001A10: 3A 20 22 3B 52 AC 31 30 30 3B 22 9D 25 20 20 4F |: ";R.100;".% O|
00001A20: 46 20 56 41 4C 55 45 22 00 4E 22 5A 05 99 3A 99 |F VALUE".N"Z..:.|
00001A30: 22 20 49 4E 54 45 52 45 53 54 20 52 41 54 45 3A |" INTEREST RATE:|
00001A40: 20 22 3B 4B 33 AC 31 30 30 3B 22 9D 25 22 00 57 | ";K3.100;".%".W|
00001A50: 22 82 05 8D 38 33 35 00 70 22 8C 05 81 20 4A B2 |"...835.p"... J.|
00001A60: 31 20 A4 20 35 3A 45 28 4A 29 B2 30 3A 82 20 4A |1 . 5:E(J).0:. J|
00001A70: 00 7A 22 96 05 50 34 B2 30 3A 00 9D 22 A0 05 81 |.z"..P4.0:.."...|
00001A80: 20 4A B2 31 20 A4 20 32 3A 57 28 4A 29 B2 30 3A | J.1 . 2:W(J).0:|
00001A90: 44 28 4A 29 B2 30 3A 54 28 4A 29 B2 30 00 B4 22 |D(J).0:T(J).0.."|
00001AA0: AA 05 42 28 4A 29 B2 55 AC 49 28 4A 29 AA 43 28 |..B(J).U.I(J).C(|
00001AB0: 4A 29 3A 82 00 BF 22 B4 05 8D 20 31 39 39 30 00 |J):..."... 1990.|
00001AC0: C5 22 BE 05 99 00 DE 22 C8 05 51 B2 51 AA 31 3A |."....."..Q.Q.1:|
00001AD0: 8D 20 32 32 31 30 3A 8D 20 31 37 38 30 3A 00 1C |. 2210:. 1780:..|
00001AE0: 23 D2 05 81 20 4A B2 31 20 A4 20 32 3A 44 28 4A |#... J.1 . 2:D(J|
00001AF0: 29 B2 28 31 AB 45 28 35 29 29 AC 2E 35 AC 28 4B |).(1.E(5))..5.(K|
00001B00: 32 AA 32 AC 56 28 4A 29 AC 44 31 29 AD 28 50 28 |2.2.V(J).D1).(P(|
00001B10: 4A 29 AD 35 30 29 AE 4E 3A 82 20 4A 00 31 23 DC |J).50).N:. J.1#.|
00001B20: 05 8D 20 32 31 32 30 3A 81 20 4A B2 31 20 A4 20 |.. 2120:. J.1 . |
00001B30: 32 00 48 23 E6 05 8B 20 44 28 4A 29 B1 49 28 4A |2.H#... D(J).I(J|
00001B40: 29 20 89 20 31 35 33 30 00 5D 23 F0 05 54 28 4A |) . 1530.]#..T(J|
00001B50: 29 B2 44 28 4A 29 3A 89 20 31 35 34 30 00 6B 23 |).D(J):. 1540.k#|
00001B60: FA 05 54 28 4A 29 B2 49 28 4A 29 00 90 23 04 06 |..T(J).I(J)..#..|
00001B70: 54 28 4A 29 B2 B5 28 54 28 4A 29 29 3A 43 28 4A |T(J)..(T(J)):C(J|
00001B80: 29 B2 43 28 4A 29 AA 54 28 4A 29 AC 50 28 4A 29 |).C(J).T(J).P(J)|
00001B90: 00 A7 23 0E 06 49 28 4A 29 B2 49 28 4A 29 AB 54 |..#..I(J).I(J).T|
00001BA0: 28 4A 29 3A 82 20 4A 00 B5 23 18 06 81 20 4A B2 |(J):. J..#... J.|
00001BB0: 31 20 A4 20 32 00 F7 23 22 06 43 28 4A 29 B2 43 |1 . 2..#".C(J).C|
00001BC0: 28 4A 29 AB 52 AC 49 28 4A 29 AC 55 AB 4B 33 AC |(J).R.I(J).U.K3.|
00001BD0: 43 28 4A 29 AC 28 B4 28 43 28 4A 29 29 AB B4 28 |C(J).(.(C(J))..(|
00001BE0: 43 28 4A 29 29 AE 32 29 AD 32 3A 43 28 4A 29 B2 |C(J)).2).2:C(J).|
00001BF0: B5 28 43 28 4A 29 29 00 0B 24 2C 06 8B 20 45 28 |.(C(J))..$,.. E(|
00001C00: 35 29 B2 30 20 A7 20 31 36 30 30 00 1D 24 36 06 |5).0 . 1600..$6.|
00001C10: 57 28 4A 29 B2 30 3A 89 20 31 36 32 30 00 36 24 |W(J).0:. 1620.6$|
00001C20: 40 06 8B 20 54 28 31 29 AA 54 28 32 29 B2 30 20 |@.. T(1).T(2).0 |
00001C30: A7 20 31 35 39 30 00 5D 24 4A 06 57 28 4A 29 B2 |. 1590.]$J.W(J).|
00001C40: B5 28 31 30 30 30 30 AC 54 28 4A 29 AD 28 54 28 |.(10000.T(J).(T(|
00001C50: 31 29 AA 54 28 32 29 29 29 AD 31 30 30 00 65 24 |1).T(2))).100.e$|
00001C60: 54 06 82 20 4A 00 6F 24 5E 06 8D 31 39 39 30 00 |T.. J.o$^..1990.|
00001C70: A3 24 68 06 81 4A B2 31 A4 32 3A 20 20 20 20 20 |.$h..J.1.2: |
00001C80: 20 42 28 4A 29 B2 43 28 4A 29 AA 55 AC 49 28 4A | B(J).C(J).U.I(J|
00001C90: 29 3A 8B 20 42 28 4A 29 B1 30 20 A7 20 31 36 36 |):. B(J).0 . 166|
00001CA0: 30 3A 82 00 B2 24 72 06 99 3A 8D 20 32 30 39 30 |0:...$r..:. 2090|
00001CB0: 3A 99 00 CF 24 7C 06 81 4A B2 31 A4 32 20 3A 8B |:...$|..J.1.2 :.|
00001CC0: 20 42 28 4A 29 B3 4D 31 20 89 20 31 37 33 30 00 | B(J).M1 . 1730.|
00001CD0: F2 24 86 06 8B 20 42 28 4A 29 B3 B2 43 28 33 AB |.$... B(J)..C(3.|
00001CE0: 4A 29 AA 55 AC 49 28 33 AB 4A 29 20 89 20 31 37 |J).U.I(3.J) . 17|
00001CF0: 33 30 00 FE 24 90 06 50 34 B2 31 37 3A 99 00 1F |30..$..P4.17:...|
00001D00: 25 9A 06 99 20 A3 31 30 29 22 20 2D 2D 2D 2D 2D |%... .10)" -----|
00001D10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 |--------------".|
00001D20: 5C 25 A4 06 99 22 20 22 4E 24 28 4A 29 22 20 20 |\%..." "N$(J)" |
00001D30: 59 4F 55 20 48 41 56 45 20 52 45 41 43 48 45 44 |YOU HAVE REACHED|
00001D40: 20 24 22 2E 30 30 31 AC 4D 31 22 20 4D 49 4C 4C | $".001.M1" MILL|
00001D50: 49 4F 4E 20 41 4E 44 20 57 4F 4E 22 00 7D 25 AE |ION AND WON".}%.|
00001D60: 06 99 20 A3 31 30 29 22 2D 2D 2D 2D 2D 2D 2D 2D |.. .10)"--------|
00001D70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 83 25 |------------"..%|
00001D80: B8 06 99 00 8B 25 C2 06 82 20 4A 00 A1 25 CC 06 |.....%... J..%..|
00001D90: 99 3A 8B 20 50 34 B3 B1 31 37 20 89 20 31 34 38 |.:. P4..17 . 148|
00001DA0: 30 00 B6 25 EA 06 8C 3A 8D 38 33 35 3A 9E 55 50 |0..%...:.835:.UP|
00001DB0: 25 3A 89 33 30 30 00 C2 25 F4 06 81 4A B2 31 A4 |%:.300..%...J.1.|
00001DC0: 32 3A 00 EA 25 F9 06 3A 20 99 22 13 11 11 11 11 |2:..%..: .".....|
00001DD0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 20 22 |.............. "|
00001DE0: 3B 4E 24 28 4A 29 3B 22 3A 22 00 FE 25 FE 06 3A |;N$(J);":"..%..:|
00001DF0: 20 8B 45 28 32 29 B3 B1 31 A7 31 38 32 30 00 06 | .E(2)..1.1820..|
00001E00: 26 08 07 3A 20 8F 00 50 26 1C 07 99 22 13 11 11 |&..: ..P&..."...|
00001E10: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00001E20: 11 11 20 45 4E 54 45 52 20 59 4F 55 52 20 50 52 |.. ENTER YOUR PR|
00001E30: 4F 44 55 43 54 49 4F 4E 20 4C 45 56 45 4C 3A 20 |ODUCTION LEVEL: |
00001E40: 20 20 20 20 20 20 20 9D 9D 9D 9D 9D 9D 9D 22 3B | .......";|
00001E50: 00 6C 26 20 07 55 53 24 B2 22 48 30 31 32 33 34 |.l& .US$."H01234|
00001E60: 35 36 37 38 39 22 3A 55 4C B2 33 3A 00 80 26 21 |56789":UL.3:..&!|
00001E70: 07 8D 33 35 3A 4C 28 4A 29 B2 C5 28 55 52 24 29 |..35:L(J)..(UR$)|
00001E80: 00 AE 26 23 07 99 22 91 20 20 20 20 20 20 20 20 |..&#..". |
00001E90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001EA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 D3 | "..|
00001EB0: 26 26 07 99 22 91 20 45 4E 54 45 52 20 41 44 56 |&&..". ENTER ADV|
00001EC0: 45 52 54 49 53 49 4E 47 20 42 55 44 47 45 54 3A |ERTISING BUDGET:|
00001ED0: 20 22 3B 00 E9 26 2B 07 8D 33 35 3A 41 28 4A 29 | ";..&+..35:A(J)|
00001EE0: B2 C5 28 55 52 24 29 3A 99 00 15 27 30 07 43 28 |..(UR$):...'0.C(|
00001EF0: 4A 29 B2 43 28 4A 29 AB 46 AB 4C 28 4A 29 AC 55 |J).C(J).F.L(J).U|
00001F00: AB 41 28 4A 29 3A 8B 20 45 28 32 29 B2 31 20 89 |.A(J):. E(2).1 .|
00001F10: 20 31 38 36 30 00 28 27 3A 07 49 28 4A 29 B2 49 | 1860.(':.I(J).I|
00001F20: 28 4A 29 AA 4C 28 4A 29 00 59 27 3F 07 99 22 91 |(J).L(J).Y'?..".|
00001F30: 91 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
00001F40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001F50: 20 20 20 20 20 20 20 20 22 00 94 27 44 07 99 22 | "..'D.."|
00001F60: 91 20 45 4E 54 45 52 20 55 4E 49 54 20 50 52 49 |. ENTER UNIT PRI|
00001F70: 43 45 3A 20 20 20 20 20 20 20 20 20 9D 9D 9D 9D |CE: ....|
00001F80: 9D 9D 9D 9D 22 3B 3A 8D 33 35 3A 41 B2 C5 28 55 |....";:.35:A..(U|
00001F90: 52 24 29 3A 00 A6 27 49 07 8B 45 28 31 29 B3 B1 |R$):..'I..E(1)..|
00001FA0: 31 A7 31 39 30 30 00 BB 27 4E 07 8B 20 41 B3 B2 |1.1900..'N.. A..|
00001FB0: 50 28 4A 29 20 89 20 31 39 30 30 00 F5 27 58 07 |P(J) . 1900..'X.|
00001FC0: 99 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 |."..............|
00001FD0: 11 11 11 11 11 11 11 20 43 4F 4E 54 52 4F 4C 53 |....... CONTROLS|
00001FE0: 2D 44 4F 20 4E 4F 54 20 52 41 49 53 45 20 50 52 |-DO NOT RAISE PR|
00001FF0: 49 43 45 53 22 00 2D 28 62 07 99 22 91 20 20 20 |ICES".-(b..". |
00002000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002020: 20 20 20 20 20 22 3B 3A 89 31 38 36 30 00 69 28 | ";:.1860.i(|
00002030: 6C 07 50 28 4A 29 B2 41 3A 8B 20 41 B1 32 30 30 |l.P(J).A:. A.200|
00002040: A7 99 22 91 20 20 20 20 20 20 20 20 20 20 20 20 |..". |
00002050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002060: 20 22 20 3A 89 31 38 36 30 00 7E 28 76 07 8B 20 | " :.1860.~(v.. |
00002070: 50 28 4A 29 B3 B2 30 20 A7 20 31 38 36 30 00 B0 |P(J)..0 . 1860..|
00002080: 28 7A 07 42 4C 24 B2 22 20 20 20 20 20 20 20 20 |(z.BL$." |
00002090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000020A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "|
000020B0: 00 C5 28 7B 07 99 22 13 11 11 11 11 11 11 11 11 |..({..".........|
000020C0: 11 11 11 11 22 00 D8 28 7C 07 81 49 B2 31 A4 31 |...."..(|..I.1.1|
000020D0: 30 3A 99 42 4C 24 3A 82 00 E0 28 80 07 82 20 4A |0:.BL$:...(... J|
000020E0: 00 F1 28 8A 07 41 32 B2 41 28 31 29 AA 41 28 32 |..(..A2.A(1).A(2|
000020F0: 29 00 03 29 94 07 8B 20 41 32 B1 30 20 A7 20 31 |)..)... A2.0 . 1|
00002100: 39 36 30 00 1C 29 9E 07 56 28 31 29 B2 30 3A 56 |960..)..V(1).0:V|
00002110: 28 32 29 B2 30 3A 89 20 31 39 37 30 00 3A 29 A8 |(2).0:. 1970.:).|
00002120: 07 56 28 31 29 B2 41 28 31 29 AD 41 32 3A 56 28 |.V(1).A(1).A2:V(|
00002130: 32 29 B2 41 28 32 29 AD 41 32 00 57 29 B2 07 44 |2).A(2).A2.W)..D|
00002140: 31 B2 28 4B 32 AB 4B 32 AC BD 28 AB 4B AC 41 32 |1.(K2.K2..(.K.A2|
00002150: 29 29 AC 4B 34 3A 8E 00 5D 29 BC 07 8F 00 77 29 |)).K4:..])....w)|
00002160: C6 07 55 47 24 B2 22 43 48 41 52 54 22 3A 55 50 |..UG$."CHART":UP|
00002170: B2 31 3A 8D 38 35 30 00 A6 29 D0 07 99 22 B0 C0 |.1:.850..)..."..|
00002180: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00002190: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000021A0: C0 C0 C0 C0 AE 22 00 D5 29 D1 07 99 22 DD 50 52 |....."..)...".PR|
000021B0: 4F 46 49 54 DD 53 48 41 52 45 DD 43 41 53 48 20 |OFIT.SHARE.CASH |
000021C0: DD 23 53 4F 4C 44 DD 49 4E 56 2E 20 DD 41 53 53 |.#SOLD.INV. .ASS|
000021D0: 45 54 53 DD 22 00 E1 29 D2 07 81 49 B2 31 A4 32 |ETS."..)...I.1.2|
000021E0: 3A 00 10 2A D4 07 99 22 AB C0 C0 C0 C0 C0 C0 C0 |:..*..."........|
000021F0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00002200: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 B3 22 |..............."|
00002210: 00 48 2A D5 07 99 22 DD 22 3B 55 AC 49 28 49 29 |.H*...".";U.I(I)|
00002220: AA 43 28 49 29 AB 42 28 49 29 3B A3 37 29 3B 57 |.C(I).B(I);.7);W|
00002230: 28 49 29 3B A3 31 33 29 3B 43 28 49 29 3B A3 31 |(I);.13);C(I);.1|
00002240: 39 29 3B 54 28 49 29 3B 00 71 2A D6 07 99 A3 32 |9);T(I);.q*....2|
00002250: 35 29 3B 49 28 49 29 3B A3 33 31 29 3B 55 AC 49 |5);I(I);.31);U.I|
00002260: 28 49 29 AA 43 28 49 29 3B A3 33 38 29 3B 22 DD |(I).C(I);.38);".|
00002270: 22 00 78 2A D7 07 82 49 00 A7 2A D8 07 99 22 AD |".x*...I..*...".|
00002280: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00002290: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000022A0: C0 C0 C0 C0 C0 BD 22 00 AD 2A 0C 08 8E 00 F1 2A |......"..*.....*|
000022B0: 16 08 83 20 35 30 2C 32 2C 2E 30 30 31 2C 2E 30 |... 50,2,.001,.0|
000022C0: 35 2C 35 30 30 30 2C 35 30 30 30 2C 31 30 30 2C |5,5000,5000,100,|
000022D0: 31 30 30 2C 32 35 30 2C 32 30 2C 2E 30 35 2C 2E |100,250,20,.05,.|
000022E0: 32 2C 2E 34 2C 2E 34 2C 31 32 30 30 30 2C 31 2E |2,.4,.4,12000,1.|
000022F0: 35 00 19 2B 2A 08 99 22 20 22 4E 24 28 4A 29 22 |5..+*.." "N$(J)"|
00002300: 3A 20 59 4F 55 20 48 41 56 45 20 47 4F 4E 45 20 |: YOU HAVE GONE |
00002310: 42 41 4E 4B 52 55 50 54 22 00 32 2B 3E 08 50 34 |BANKRUPT".2+>.P4|
00002320: B2 31 37 3A 8D 38 33 35 3A 9E 55 50 25 3A 89 33 |.17:.835:.UP%:.3|
00002330: 30 30 00 49 2B 48 08 8B 20 50 28 31 29 B3 50 28 |00.I+H.. P(1).P(|
00002340: 32 29 20 89 20 32 31 34 30 00 58 2B 52 08 4D B2 |2) . 2140.X+R.M.|
00002350: 32 3A 89 20 32 31 35 30 00 60 2B 5C 08 4D B2 31 |2:. 2150.`+\.M.1|
00002360: 00 8C 2B 66 08 47 34 B2 28 50 28 33 AB 4D 29 AB |..+f.G4.(P(3.M).|
00002370: 50 28 4D 29 29 AD 50 28 33 AB 4D 29 3A 8B 20 47 |P(M)).P(3.M):. G|
00002380: 34 B3 B2 47 31 20 89 20 32 32 30 30 00 9F 2B 70 |4..G1 . 2200..+p|
00002390: 08 8B 20 47 34 B3 47 32 20 A7 20 32 31 38 30 00 |.. G4.G2 . 2180.|
000023A0: A9 2B 7A 08 47 34 B2 47 32 00 DD 2B 84 08 47 35 |.+z.G4.G2..+..G5|
000023B0: B2 44 28 33 AB 4D 29 AC 28 28 47 34 AB 47 31 29 |.D(3.M).((G4.G1)|
000023C0: AD 28 47 32 AB 47 31 29 29 AC 47 33 3A 44 28 33 |.(G2.G1)).G3:D(3|
000023D0: AB 4D 29 B2 44 28 33 AB 4D 29 AB 47 35 00 EE 2B |.M).D(3.M).G5..+|
000023E0: 8E 08 44 28 4D 29 B2 44 28 4D 29 AB 47 35 00 F4 |..D(M).D(M).G5..|
000023F0: 2B 98 08 8E 00 05 2C A2 08 8B 20 51 B3 36 20 89 |+.....,... Q.6 .|
00002400: 20 32 34 30 30 00 1A 2C AC 08 8B 20 BB 28 31 29 | 2400..,... .(1)|
00002410: B3 2E 31 20 A7 20 32 32 37 30 00 2F 2C B6 08 8B |..1 . 2270./,...|
00002420: 20 BB 28 31 29 B1 2E 39 20 A7 20 32 32 39 30 00 | .(1)..9 . 2290.|
00002430: 44 2C C0 08 8B 20 BB 28 31 29 B3 2E 31 20 A7 20 |D,... .(1)..1 . |
00002440: 32 33 35 30 00 59 2C CA 08 8B 20 BB 28 31 29 B1 |2350.Y,... .(1).|
00002450: 2E 39 20 A7 20 32 33 37 30 00 64 2C D4 08 89 20 |.9 . 2370.d,... |
00002460: 32 34 30 30 00 78 2C DE 08 8B 20 45 28 31 29 B1 |2400.x,... E(1).|
00002470: 30 20 A7 20 32 32 33 30 00 96 2C E8 08 8D 20 32 |0 . 2230..,... 2|
00002480: 34 38 30 3A 45 28 31 29 B2 31 3A 51 31 B2 51 3A |480:E(1).1:Q1.Q:|
00002490: 89 20 32 32 33 30 00 B8 2C F2 08 49 B2 B5 28 BB |. 2230..,..I..(.|
000024A0: 28 31 29 AA 31 2E 35 29 3A 8B 20 51 AB 57 32 B3 |(1).1.5):. Q.W2.|
000024B0: B2 32 A7 20 32 32 34 30 00 C6 2C F7 08 8B 49 B1 |.2. 2240..,...I.|
000024C0: 32 A7 32 32 39 30 00 DB 2C FC 08 8B 20 43 28 49 |2.2290..,... C(I|
000024D0: 29 B3 B2 30 20 89 20 32 32 34 30 00 F1 2C 06 09 |)..0 . 2240..,..|
000024E0: 8B 20 43 28 49 29 B1 32 30 30 20 89 20 32 33 33 |. C(I).200 . 233|
000024F0: 30 00 0A 2D 10 09 43 28 49 29 B2 43 28 49 29 AC |0..-..C(I).C(I).|
00002500: 2E 37 35 3A 89 20 32 33 34 30 00 1C 2D 1A 09 43 |.75:. 2340..-..C|
00002510: 28 49 29 B2 43 28 49 29 AB 32 30 30 00 33 2D 24 |(I).C(I).200.3-$|
00002520: 09 8D 20 32 35 31 30 3A 57 32 B2 51 3A 89 20 32 |.. 2510:W2.Q:. 2|
00002530: 32 34 30 00 57 2D 2E 09 4A B2 B5 28 BB 28 31 29 |240.W-..J..(.(1)|
00002540: AA 31 2E 34 39 29 3A 8B 20 51 AB 57 33 B3 B2 32 |.1.49):. Q.W3..2|
00002550: 20 89 20 32 32 35 30 00 8A 2D 38 09 8D 20 32 35 | . 2250..-8.. 25|
00002560: 34 30 3A 43 28 4A 29 B2 43 28 4A 29 AA 55 AC 49 |40:C(J).C(J).U.I|
00002570: 28 4A 29 AC 2E 37 35 3A 49 28 4A 29 B2 30 3A 57 |(J)..75:I(J).0:W|
00002580: 33 B2 51 3A 89 20 32 32 35 30 00 9E 2D 42 09 8B |3.Q:. 2250..-B..|
00002590: 20 45 28 31 29 B2 31 20 89 20 32 34 30 30 00 B3 | E(1).1 . 2400..|
000025A0: 2D 4C 09 8B 20 51 AB 57 34 B3 B2 32 20 89 20 32 |-L.. Q.W4..2 . 2|
000025B0: 34 30 30 00 CE 2D 56 09 57 34 B2 51 3A 8D 32 35 |400..-V.W4.Q:.25|
000025C0: 39 30 3A 45 28 35 29 B2 31 3A 51 32 B2 51 00 ED |90:E(5).1:Q2.Q..|
000025D0: 2D 60 09 8B 20 B5 28 28 51 AB 31 29 AD 34 29 AC |-`.. .((Q.1).4).|
000025E0: 34 B3 B1 51 AB 31 20 89 20 32 36 38 30 00 07 2E |4..Q.1 . 2680...|
000025F0: 6A 09 8B 20 51 B2 31 20 B0 20 45 28 31 29 B2 31 |j.. Q.1 . E(1).1|
00002600: 20 89 20 32 36 38 30 00 1D 2E 74 09 8B 20 BB 28 | . 2680...t.. .(|
00002610: 31 29 B1 2E 32 35 20 89 20 32 34 35 30 00 2E 2E |1)..25 . 2450...|
00002620: 7E 09 8B 20 51 B3 36 20 89 20 32 36 38 30 00 60 |~.. Q.6 . 2680.`|
00002630: 2E 88 09 8D 32 35 39 30 3A 45 28 32 29 B2 31 3A |....2590:E(2).1:|
00002640: 55 B2 B5 28 55 AC 28 31 2E 31 AA 2E 31 AC BB 28 |U..(U.(1.1..1..(|
00002650: 31 29 29 29 3A 51 33 B2 51 3A 89 20 32 36 38 30 |1))):Q3.Q:. 2680|
00002660: 00 A5 2E 92 09 55 B2 B5 28 55 AC 28 31 2E 30 35 |.....U..(U.(1.05|
00002670: AA 2E 31 AC BB 28 31 29 29 29 3A 99 22 11 20 4E |..1..(1))):.". N|
00002680: 45 57 20 4C 41 42 4F 52 20 43 4F 4E 54 52 41 43 |EW LABOR CONTRAC|
00002690: 54 2D 56 41 52 49 41 42 4C 45 20 50 52 4F 44 55 |T-VARIABLE PRODU|
000026A0: 43 54 49 4F 4E 00 C8 2E 9C 09 99 22 20 43 4F 53 |CTION......" COS|
000026B0: 54 20 4E 4F 57 20 3D 20 24 22 55 3B 22 20 50 45 |T NOW = $"U;" PE|
000026C0: 52 20 55 4E 49 54 2E 22 00 D3 2E A6 09 89 20 32 |R UNIT."...... 2|
000026D0: 36 38 30 00 FC 2E B0 09 99 22 20 57 41 47 45 20 |680......" WAGE |
000026E0: 41 4E 44 20 50 52 49 43 45 20 43 4F 4E 54 52 4F |AND PRICE CONTRO|
000026F0: 4C 53 20 49 4D 50 4F 53 45 44 2D 22 00 20 2F C4 |LS IMPOSED-". /.|
00002700: 09 99 3A 99 22 20 59 4F 55 20 4D 41 59 20 4E 4F |..:." YOU MAY NO|
00002710: 54 20 52 41 49 53 45 20 50 52 49 43 45 53 20 22 |T RAISE PRICES "|
00002720: 00 26 2F C9 09 8E 00 50 2F CE 09 99 22 20 22 4E |.&/....P/..." "N|
00002730: 24 28 49 29 3B 22 3A 20 53 54 41 46 46 20 48 41 |$(I);": STAFF HA|
00002740: 53 20 45 4D 42 45 5A 5A 4C 45 44 20 24 24 24 22 |S EMBEZZLED $$$"|
00002750: 00 7F 2F D8 09 99 3A 99 22 20 59 4F 55 20 4E 4F |../...:." YOU NO|
00002760: 57 20 48 41 56 45 20 24 22 3B 43 28 49 29 22 20 |W HAVE $";C(I)" |
00002770: 43 41 53 48 20 4F 4E 20 48 41 4E 44 22 3A 8E 00 |CASH ON HAND":..|
00002780: B0 2F EC 09 99 22 20 22 4E 24 28 4A 29 3B 22 3A |./..." "N$(J);":|
00002790: 59 4F 55 52 20 57 41 52 45 48 4F 55 53 45 20 48 |YOUR WAREHOUSE H|
000027A0: 41 53 20 42 55 52 4E 45 44 20 44 4F 57 4E 2D 22 |AS BURNED DOWN-"|
000027B0: 00 D9 2F F6 09 99 3A 20 99 22 20 41 4C 4C 20 55 |../...: ." ALL U|
000027C0: 4E 49 54 53 20 48 41 56 45 20 42 45 45 4E 20 44 |NITS HAVE BEEN D|
000027D0: 45 53 54 52 4F 59 45 44 22 00 05 30 00 0A 99 3A |ESTROYED"..0...:|
000027E0: 20 99 22 20 49 4E 53 55 52 41 4E 43 45 20 50 41 | ." INSURANCE PA|
000027F0: 59 53 20 59 4F 55 3A 20 24 22 3B 55 AC 55 28 4A |YS YOU: $";U.U(J|
00002800: 29 AC 2E 37 35 00 0B 30 14 0A 8E 00 11 30 1E 0A |)..75..0.....0..|
00002810: 8F 00 3F 30 28 0A 99 3A 99 22 20 54 52 41 4E 53 |..?0(..:." TRANS|
00002820: 50 4F 52 54 20 53 54 52 49 4B 45 3A 20 4E 4F 20 |PORT STRIKE: NO |
00002830: 53 41 4C 45 53 20 50 4F 53 53 49 42 4C 45 22 00 |SALES POSSIBLE".|
00002840: 46 30 46 0A 3A 8E 00 5B 30 78 0A 8B 20 45 28 31 |F0F.:..[0x.. E(1|
00002850: 29 B3 B1 31 20 A7 20 32 37 31 30 00 6F 30 82 0A |)..1 . 2710.o0..|
00002860: 8B 20 51 B3 51 31 AA 32 20 A7 20 32 37 31 30 00 |. Q.Q1.2 . 2710.|
00002870: A3 30 8C 0A 45 28 31 29 B2 32 3A 99 3A 99 22 20 |.0..E(1).2:.:." |
00002880: 54 48 45 20 57 41 47 45 2D 50 52 49 43 45 20 46 |THE WAGE-PRICE F|
00002890: 52 45 45 5A 45 20 48 41 53 20 45 4E 44 45 44 2E |REEZE HAS ENDED.|
000028A0: 22 3A 99 00 B9 30 96 0A 8B 20 45 28 35 29 B3 B1 |":...0... E(5)..|
000028B0: 20 31 20 A7 20 32 37 35 30 00 CB 30 A0 0A 8B 20 | 1 . 2750..0... |
000028C0: 51 32 B2 51 20 A7 20 32 37 35 30 00 FA 30 AA 0A |Q2.Q . 2750..0..|
000028D0: 45 28 35 29 B2 30 3A 99 3A 99 22 20 20 20 20 20 |E(5).0:.:." |
000028E0: 20 54 52 41 4E 53 50 4F 52 54 20 53 54 52 49 4B | TRANSPORT STRIK|
000028F0: 45 20 53 45 54 54 4C 45 44 22 00 0F 31 BE 0A 8B |E SETTLED"..1...|
00002900: 20 45 28 32 29 B3 B1 31 20 89 20 32 38 30 30 00 | E(2)..1 . 2800.|
00002910: 21 31 C8 0A 8B 20 51 33 B2 51 20 89 20 32 38 30 |!1... Q3.Q . 280|
00002920: 30 00 4F 31 D2 0A 99 22 20 53 54 52 49 4B 45 20 |0.O1..." STRIKE |
00002930: 53 45 54 54 4C 45 44 2E 20 4E 4F 52 4D 41 4C 20 |SETTLED. NORMAL |
00002940: 50 52 4F 44 55 43 54 49 4F 4E 20 48 41 53 22 00 |PRODUCTION HAS".|
00002950: 77 31 DC 0A 99 22 20 42 45 45 4E 20 52 45 53 55 |w1..." BEEN RESU|
00002960: 4D 45 44 2E 20 4E 45 57 20 56 41 52 49 41 42 4C |MED. NEW VARIABL|
00002970: 45 20 55 4E 49 54 22 00 B5 31 E6 0A 99 22 20 43 |E UNIT"..1..." C|
00002980: 4F 53 54 20 3D 20 24 22 55 3B 22 2F 55 4E 49 54 |OST = $"U;"/UNIT|
00002990: 20 44 55 45 20 54 4F 20 49 4E 43 52 45 41 53 45 | DUE TO INCREASE|
000029A0: 44 22 3A 99 22 20 57 41 47 45 53 22 3A 99 3A 45 |D":." WAGES":.:E|
000029B0: 28 32 29 B2 30 00 BB 31 F0 0A 8E 00 D4 31 FA 0A |(2).0..1.....1..|
000029C0: 99 22 20 48 4F 50 45 20 59 4F 55 20 48 41 44 20 |." HOPE YOU HAD |
000029D0: 46 55 4E 22 00 DA 31 56 0E 8E 00 00 00 29 |FUN"..1V.....) |
.......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.." -
-------------------------------------".W
.;..".. 1. BEGIN MARKET...@.."..
2. STUDENT INSTRUCTIONS".+.E.."
.. 3. TEACHER INSTRUCTIONS".G.O.
.".. 4. QUIT..".V.T.." ---------
-----------------------------"...Y.."..
PRESS A NUMBER KEY (1-4) ";.I.^.UL
.1:US$."1234":.35:. INPUT ROUTINE.T.`.US
$.""...C..E(UR$).1000,400,500,396...H..3
00.!.... ** RE-ENABLE STOP KEY AND END *
*.P....B(50003)..1.B(50003)..160.B(50003
)..0.399.Z....UU.71:.B(50003).0..53281,6
:.53280,14......"..":.......875:.......
** STUDENT INSTRUCTIONS **......".":.UT,
UL%:.B(50003).0..53281,0:.53280,0.....UT
$." MARKET":UP.1:UG$."STUDENT INST":.850
.=....:." THIS PROGRAM IS DESIGNED TO
TEST".G. ..:." YOUR ABILITY TO MANAGE A
STORE."......:." ONCE YOU CHOOSE THE N
AME OF YOUR ".C....:." STORE YOU WILL SE
E A CHART OF YOUR "......:." HOLDINGS.
'SHARE' REFERS TO THE %"......:." OF THE
MARKET WHICH YOU CONTROL.".I....:." T
HEN YOU MUST DECIDE HOW MUCH OF ".Z....:
." YOUR PRODUCT TO PRODUCE AND WHAT PRIC
E"......:." TO SELL IT FOR."......835:UP
.2:.850.V....:." THE FIRST PLAYER TO R
EACH 12000 IN"......:." ASSETS WINS THE
GAME."......835......UZ.1..UP%:.217.....
..:.... ** TEACHER INSTRUCTIONS **.J....
".":.UT,UL%:.B(50003).0..53281,2:.53280,
10.....UT$." MARKET":UP.1:UG$."TEACHER I
NST":.850.G....".. TO THE BEST OF O
UR KNOWLEDGE,."......" THIS PROGRAM IS
IN THE PUBLIC."......" DOMAIN. IF TH
IS IS NOT THE CASE.".9...." PLEASE CON
TACT:...".C...." COMMODORE BUSINESS
MACHINES."......" 3370 PHARMAC
Y AVE......." AGINCOURT, ONTARI
O".L...." CANADA M1W 2K4"....
.." (416) 499-4292".....UP.2:.
835:. 850:.,...." ..PROGRAM NAME: MA
RKET ..N...." WRITTEN BY : UN
KNOWN..R...." UPGRADED BY :
......." .THIS PROGRAM WILL RUN ON
ANY........" PET 64 COMPUTER....
..." COMMODORE 64 COMPUTER......
835...N..UZ.1..UP%:.217...W...+.X.. ** P
ROGRAM MODIFICATION INST **.<.Y..".":.UT
,UL%.\.].UP.0:UG$."PROGRAM MOD":.850.E..
..835.Y....UZ.1..UP%:.217........... **
TO USE 8032 LOAD CBM4032 **.Z.F..".....
BEFORE RUNNING THIS PROGRAM ON AN 8032
.....P.." LOAD THE 'CBM 4032' PROGR
AM............."...Z..UU.71.!.....A. ..
** T I T L E P A G E **.U.".."....";:.
UT,UU%:.B(50003).0..53280,14:.53281,6...
$..I.1.38:."...";:....&..I.1.22:."....."
;:....(..I.1.37:.".....";:..S.*..I.1.22:
.".....";:....,.."......................
..... ......."................... . .
...;.0.."................... . ....Y.2.
.".................... ....4.."........
......C O M M O D O R E.....6.."........
.......EDUCATIONAL...C.8..".............
...SOFTWARE...:.. ** COMMODORE LOGO **..
.;..H(UD$,24);"..........PRESS SPACE BAR
OR WAIT.":I.0.8.<..A$:.A$.." ".I.I.1:.I
.250.828.\.>.T1$."":T2$."":T3$."":T4$.""
:I.0.E.@..300...C.. ** SPACE BAR PRESS *
*...H..UO,0:.H(UD$,24);".......PRESS SPA
CE BAR TO CONTINUE.".S.L..UI$:.UI$.." ".
844.Y.N.....R.. ** PAGE DESIGN ROUTINE *
*...T...).W.."."H(UT$.UP$,21);I(UP$.UG$.
D(UP),18).X.\.." -----------------------
---------------".G.`..UH..0.870...A..H(U
D$,24);H(UP$,7);"HELP - PRESS H <RETUR
N>"...F.UH.0:."..":UP.UP.1:..S.K.. ** PL
EASE WAIT REMARK **...P..H(UD$,24);"
ONE MOMENT PLEASE... "...U...
,.... ** SET UP VARIABLES **.W...UX$."H"
:.UQ%(1000):UB.32768:U1.196:U2.197:U3.19
8:U4.216:UC.167:UU.1024.....UT.59468:UU%
.12:UL%.14:UP%.1146:UM.32768:UO.158:. 50
003,0......B(50003).0.UB.1024:U1.209:U2.
210:U3.211:U4.214:UC.204:UU.2048.7....B(
50003).0.UT.53272:UU%.21:UL%.23:UP%.2139
:UM.1024:UO.198.[...UD$."...............
..........".....UP$."
".....UT$." MARKET
":. PLACE PROGRAM TITLE HERE !
!!!!!!!!!!!!!!!!***............ ** SET V
ARIABLES **......900...... ** CHECK FOR
8032 **.=....".":." ":. SHIFTED SPACE.T.
...B(UB.40)..96..700.M.... ** MEMORY CHE
CK **...... .(0).2000.937......"....THIS
MACHINE DOES NOT HAVE ENOUGH.".S...."ME
MORY TO RUN THIS PROGRAM !"......UU.71..
.........."..":.B(50003).0.962.-.... **
BASIC 2.0 OR 4.0 OR C-64 SETUP **.K.
...1075,133:.1076,144:.1077,234:.1079,4:
.1080,133:.1081,145......1091,155:.1098,
133:.1099,144:.1100,234:.1103,133.C....1
104,145:.1105,234:.1082,234.Z....B(50003
)..160.955......1093,88:.1094,228:.1097,
85:.1102,228:.965......B(50003)..1.990.M
....1093,49:.1094,230:.1097,46:.1102,230
:.965...B..2099,141:.2100,20:.2101,3:.21
03,8:.2104,141:.2105,21.C.C..2106,3:.211
5,145:.2117,52:.2118,234:.2121,49:.2122,
141...D..2123,20:.2124,3:.2126,234:.2127
,141:.2128,21:.2129,3.. E..UU.48:. DISAB
LE STOP KEY., J..800:. TITLE.< T..300:.
MENU.M ...".THE PGM WILL NOT WORK ON THI
S MACHINE!":... ...UZ.1..UP%:.UP%:UZ.0:.
** PROGRAM STARTS HERE **.N ..."..";:.:
.B(50003).0..53281,6:.53280,14.Y ..UG$."
".. ..UT$." MARKET".&!... K2,N,K,K3,C(1)
,C(2),I(1),I(2),F,U,R,G1,G2,G3,M1,K4:..>
!..Q.0:W2.0:W4.0:W3.0:.I!8.. 1260..!..UG
$."SET UP":UP.1:.850:.:." THERE ARE TWO
COMPANIES:"..!...I.1.2:.:." ENTER NAME O
F COMPANY #";I;.Q!..UL.10:US$."":.35:N$(
I).UR$:.I..!F..:." PRODUCTION COST: $25/
UNIT".("P..:." WAREHOUSE CHARGES: ";R.10
0;".% OF VALUE".N"Z..:." INTEREST RATE:
";K3.100;".%".W"...835.P"... J.1 . 5:E(
J).0:. J.Z"..P4.0:.." .. J.1 . 2:W(J).0:
D(J).0:T(J).0.."..B(J).U.I(J).C(J):...".
.. 1990.E"....."H.Q.Q.1:. 2210:. 1780:..
#R.. J.1 . 2:D(J).(1.E(5))..5.(K2.2.V(J)
.D1).(P(J).50).N:. J.1#... 2120:. J.1 .
2.H#... D(J).I(J) . 1530.]#..T(J).D(J):.
1540.K#..T(J).I(J)..#..T(J)..(T(J)):C(J
).C(J).T(J).P(J)..#..I(J).I(J).T(J):. J.
.#... J.1 . 2..#".C(J).C(J).R.I(J).U.K3.
C(J).(.(C(J))..(C(J)).2).2:C(J)..(C(J)).
.$,.. E(5).0 . 1600..$6.W(J).0:. 1620.6$
@.. T(1).T(2).0 . 1590.]$J.W(J)..(10000.
T(J).(T(1).T(2))).100.E$T.. J.O$^..1990.
.$H..J.1.2: B(J).C(J).U.I(J):. B(J)
.0 . 1660:...$R..:. 2090:..O$|..J.1.2 :.
B(J).M1 . 1730..$... B(J)..C(3.J).U.I(3
.J) . 1730..$..P4.17:...%... .10)" -----
--------------".\%..." "N$(J)" YOU HAVE
REACHED $".001.M1" MILLION AND WON".}%.
.. .10)"--------------------"..%.....%B.
. J..%L..:. P4..17 . 1480..%...:.835:.UP
%:.300.B%...J.1.2:..%..: .".............
...... ";N$(J);":"..%..: .E(2)..1.1820..
&..: ..P&..."..................... ENTER
YOUR PRODUCTION LEVEL: .......";
.L& .US$."H0123456789":UL.3:..&!..35:L(J
).E(UR$)..&#..".
".S&&..". ENTER ADVERTISING
BUDGET: ";..&+..35:A(J).E(UR$):...'0.C(
J).C(J).F.L(J).U.A(J):. E(2).1 . 1860.('
:.I(J).I(J).L(J).Y'?.."..
"..'D..". ENTER
UNIT PRICE: ........";:.35:A.E(U
R$):..'I..E(1)..1.1900..'N.. A..P(J) . 1
900..'X.."..................... CONTROLS
-DO NOT RAISE PRICES".-(B..".
";:.1860.I(
L.P(J).A:. A.200..".
" :.1860.~(V.. P(J)..0 . 1860..
(Z.BL$."
".E({..".............".X(|..I.1.1
0:.BL$:...(... J..(..A2.A(1).A(2)..)...
A2.0 . 1960..)..V(1).0:V(2).0:. 1970.:).
.V(1).A(1).A2:V(2).A(2).A2.W)..D1.(K2.K2
..(.K.A2)).K4:..])....W)F.UG$."CHART":UP
.1:.850..)P.."..........................
.............".U)Q..".PROFIT.SHARE.CASH
.#SOLD.INV. .ASSETS."..)R..I.1.2:..*T.."
......................................."
.H*U..".";U.I(I).C(I).B(I);.7);W(I);.13)
;C(I);.19);T(I);.Q*V...25);I(I);.31);U.I
(I).C(I);.38);".".X*W..I..*X..".........
.............................."..*.....*
... 50,2,.001,.05,5000,5000,100,100,250,
20,.05,.2,.4,.4,12000,1.5..+*.." "N$(J)"
: YOU HAVE GONE BANKRUPT".2+>.P4.17:.835
:.UP%:.300.I+H.. P(1).P(2) . 2140.X+R.M.
2:. 2150.`+\.M.1..+F.G4.(P(3.M).P(M)).P(
3.M):. G4..G1 . 2200..+P.. G4.G2 . 2180.
.+Z.G4.G2..+..G5.D(3.M).((G4.G1).(G2.G1)
).G3:D(3.M).D(3.M).G5..+..D(M).D(M).G5..
+.....,... Q.6 . 2400..,... .(1)..1 . 22
70./,... .(1)..9 . 2290.D,... .(1)..1 .
2350.Y,J.. .(1)..9 . 2370.D,T.. 2400.X,.
.. E(1).0 . 2230..,... 2480:E(1).1:Q1.Q:
. 2230..,..I..(.(1).1.5):. Q.W2..2. 2240
.F,...I.2.2290..,... C(I)..0 . 2240..,..
. C(I).200 . 2330..-..C(I).C(I)..75:. 23
40..-..C(I).C(I).200.3-$.. 2510:W2.Q:. 2
240.W-..J..(.(1).1.49):. Q.W3..2 . 2250.
.-8.. 2540:C(J).C(J).U.I(J)..75:I(J).0:W
3.Q:. 2250..-B.. E(1).1 . 2400..-L.. Q.W
4..2 . 2400.N-V.W4.Q:.2590:E(5).1:Q2.Q..
-`.. .((Q.1).4).4..Q.1 . 2680...J.. Q.1
. E(1).1 . 2680...T.. .(1)..25 . 2450...
~.. Q.6 . 2680.`....2590:E(2).1:U..(U.(1
.1..1..(1))):Q3.Q:. 2680.....U..(U.(1.05
..1..(1))):.". NEW LABOR CONTRACT-VARIAB
LE PRODUCTION.H...." COST NOW = $"U;" PE
R UNIT.".S.... 2680......" WAGE AND PRIC
E CONTROLS IMPOSED-". /D..:." YOU MAY NO
T RAISE PRICES ".&/I...P/N.." "N$(I);":
STAFF HAS EMBEZZLED $$$"./X..:." YOU NO
W HAVE $";C(I)" CASH ON HAND":.../..." "
N$(J);":YOUR WAREHOUSE HAS BURNED DOWN-"
.Y/...: ." ALL UNITS HAVE BEEN DESTROYED
"..0...: ." INSURANCE PAYS YOU: $";U.U(J
)..75..0.....0....?0(..:." TRANSPORT STR
IKE: NO SALES POSSIBLE".F0F.:..[0X.. E(1
)..1 . 2710.O0... Q.Q1.2 . 2710..0..E(1)
.2:.:." THE WAGE-PRICE FREEZE HAS ENDED.
":...0... E(5).. 1 . 2750.K0 .. Q2.Q . 2
750..0..E(5).0:.:." TRANSPORT STRIK
E SETTLED"..1... E(2)..1 . 2800.!1H.. Q3
.Q . 2800.O1R.." STRIKE SETTLED. NORMAL
PRODUCTION HAS".W1..." BEEN RESUMED. NEW
VARIABLE UNIT"..1..." COST = $"U;"/UNIT
DUE TO INCREASED":." WAGES":.:E(2).0..1
....T1..." HOPE YOU HAD FUN".Z1V.....)
> CLICK IMAGE PREVIEW FOR FULL MODAL