MARKET.CV+
FILE INFORMATION
FILENAME(S): MARKET.CV+
FILE TYPE(S): PRG
FILE SIZE: 10.6K
FIRST SEEN: 2025-11-02 16:57:19
APPEARS ON: 1 disk(s)
FILE HASH
cd9160f5ac5a081b870f7440831933b744ccb4982e62e0e6522028c46403464c
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| ANWENDER | MARKET.CV+ | PRG | Treasure Chest - Romfreak | 2 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 10 37 10 01 00 97 36 35 33 30 31 2C 38 3A 97 |..7....65301,8:.|
00000010: 36 35 33 30 35 2C 31 36 3A 97 36 35 32 39 37 2C |65305,16:.65297,|
00000020: 31 35 3A 99 C7 28 31 34 29 3A DA 31 2C 39 30 30 |15:..(14):.1,900|
00000030: 2C 37 3A 89 38 30 30 00 57 10 02 00 8F 20 2A 2A |,7:.800.W.... **|
00000040: 20 4D 4C 20 53 54 4F 50 20 4B 45 59 20 44 49 53 | ML STOP KEY DIS|
00000050: 41 42 4C 45 20 2A 2A 00 82 10 03 00 99 22 78 A9 |ABLE **......"x.|
00000060: 3D 85 90 EA A9 04 85 91 EA 58 60 20 EA FF A9 FF |=........X` ....|
00000070: 85 9B 4C 58 E4 78 A9 55 85 90 EA A9 E4 85 91 EA |..LX.x.U........|
00000080: 58 60 00 A1 10 04 00 99 22 78 68 68 68 AA 68 A8 |X`......"xhhh.h.|
00000090: 68 68 68 68 68 68 68 98 48 8A 48 58 60 31 31 31 |hhhhhhh.H.HX`111|
000000A0: 22 00 B2 10 05 00 99 22 68 68 68 68 68 68 68 60 |"......"hhhhhhh`|
000000B0: 31 22 00 D4 10 06 00 8F 20 2A 2A 20 34 20 2D 20 |1"...... ** 4 - |
000000C0: 50 4F 50 20 4D 4C 20 53 55 42 52 4F 55 54 49 4E |POP ML SUBROUTIN|
000000D0: 45 20 2A 2A 00 F5 10 0A 00 8F 20 2A 2A 47 45 4E |E **...... **GEN|
000000E0: 45 52 41 4C 20 49 4E 50 55 54 20 52 4F 55 54 49 |ERAL INPUT ROUTI|
000000F0: 4E 45 20 2A 2A 00 FB 10 0F 00 3A 00 01 11 1E 00 |NE **.....:.....|
00000100: 3A 00 1D 11 23 00 8F 20 2B 2B 2B 20 49 4E 50 55 |:...#.. +++ INPU|
00000110: 54 20 53 45 43 54 49 4F 4E 20 2B 2B 2B 00 35 11 |T SECTION +++.5.|
00000120: 28 00 97 55 4F 2C 30 3A 55 52 24 B2 22 22 3A 55 |(..UO,0:UR$."":U|
00000130: 49 24 B2 22 22 00 45 11 2A 00 8B 55 4C B2 30 A7 |I$."".E.*..UL.0.|
00000140: 55 4C B2 38 30 00 4F 11 2D 00 97 55 43 2C 30 00 |UL.80.O.-..UC,0.|
00000150: 63 11 32 00 A1 55 49 24 3A 8B 55 49 24 B2 22 22 |c.2..UI$:.UI$.""|
00000160: A7 35 30 00 8D 11 37 00 8B 55 49 24 B2 C7 28 31 |.50...7..UI$..(1|
00000170: 33 29 AF C3 28 55 52 24 29 B1 B2 31 A7 97 55 43 |3)..(UR$)..1..UC|
00000180: 2C 31 3A 99 22 20 9D 22 3B 3A 89 38 35 00 A0 11 |,1:." .";:.85...|
00000190: 3C 00 8B 55 49 24 B2 C7 28 32 30 29 A7 31 30 35 |<..UI$..(20).105|
000001A0: 00 B4 11 3E 00 8B 20 C3 28 55 52 24 29 B2 B1 55 |...>.. .(UR$)..U|
000001B0: 4C A7 35 30 00 D9 11 41 00 8D 31 32 30 3A 8F 20 |L.50...A..120:. |
000001C0: 43 48 45 43 4B 20 46 4F 52 20 56 41 4C 49 44 20 |CHECK FOR VALID |
000001D0: 43 48 41 52 41 43 54 45 52 00 E9 11 46 00 55 52 |CHARACTER...F.UR|
000001E0: 24 B2 55 52 24 AA 55 49 24 00 F3 11 4B 00 99 55 |$.UR$.UI$...K..U|
000001F0: 49 24 3B 00 FB 11 50 00 89 35 30 00 20 12 55 00 |I$;...P..50. .U.|
00000200: 8F 20 2B 2B 2B 20 43 48 45 43 4B 20 46 4F 52 20 |. +++ CHECK FOR |
00000210: 48 45 4C 50 20 52 45 51 55 45 53 54 20 2B 2B 2B |HELP REQUEST +++|
00000220: 00 48 12 5A 00 8B 55 52 24 B2 55 58 24 A7 31 39 |.H.Z..UR$.UX$.19|
00000230: 35 3A 8F 20 45 58 49 54 20 54 4F 20 48 45 4C 50 |5:. EXIT TO HELP|
00000240: 20 52 4F 55 54 49 4E 45 00 57 12 5F 00 8B 55 46 | ROUTINE.W._..UF|
00000250: B2 31 A7 8D 32 34 30 00 64 12 64 00 55 46 B2 30 |.1..240.d.d.UF.0|
00000260: 3A 99 3A 8E 00 7D 12 66 00 8F 20 2B 2B 20 43 48 |:.:..}.f.. ++ CH|
00000270: 45 43 4B 20 44 45 4C 45 54 45 20 2B 2B 00 8E 12 |ECK DELETE ++...|
00000280: 69 00 8B C3 28 55 52 24 29 B3 31 A7 35 30 00 A6 |i...(UR$).1.50..|
00000290: 12 6E 00 55 52 24 B2 C8 28 55 52 24 2C C3 28 55 |.n.UR$..(UR$,.(U|
000002A0: 52 24 29 AB 31 29 00 B8 12 73 00 99 22 9D 20 20 |R$).1)...s..". |
000002B0: 9D 9D 22 3B 3A 89 35 30 00 DF 12 78 00 8F 20 2B |..";:.50...x.. +|
000002C0: 2B 20 43 48 45 43 4B 20 46 4F 52 20 56 41 4C 49 |+ CHECK FOR VALI|
000002D0: 44 20 43 48 41 52 41 43 54 45 52 53 20 2B 2B 00 |D CHARACTERS ++.|
000002E0: F1 12 7D 00 8B C3 28 55 53 24 29 B2 30 A7 31 35 |..}...(US$).0.15|
000002F0: 30 00 02 13 82 00 81 55 53 B2 31 A4 C3 28 55 53 |0......US.1..(US|
00000300: 24 29 00 19 13 87 00 8B 55 49 24 B2 CA 28 55 53 |$)......UI$..(US|
00000310: 24 2C 55 53 2C 31 29 A7 8E 00 1F 13 8C 00 82 00 |$,US,1).........|
00000320: 2C 13 91 00 55 49 24 B2 22 22 3A 8E 00 47 13 96 |,...UI$."":..G..|
00000330: 00 8F 20 2A 2A 20 53 54 41 4E 44 41 52 44 20 49 |.. ** STANDARD I|
00000340: 4E 50 55 54 20 2A 2A 00 58 13 98 00 8B C6 28 55 |NPUT **.X.....(U|
00000350: 49 24 29 B2 34 36 A7 8E 00 69 13 9B 00 8B 55 49 |I$).46...i....UI|
00000360: 24 B2 C7 28 33 32 29 A7 8E 00 86 13 A0 00 8B C6 |$..(32).........|
00000370: 28 55 49 24 29 B3 34 38 B0 C6 28 55 49 24 29 B1 |(UI$).48..(UI$).|
00000380: 35 37 A7 31 37 30 00 8C 13 A5 00 8E 00 A9 13 AA |57.170..........|
00000390: 00 8B C6 28 55 49 24 29 B3 36 35 B0 C6 28 55 49 |...(UI$).65..(UI|
000003A0: 24 29 B1 39 30 A7 31 38 30 00 AF 13 AF 00 8E 00 |$).90.180.......|
000003B0: D3 13 B4 00 8B C6 28 55 49 24 29 B3 31 39 33 B0 |......(UI$).193.|
000003C0: C6 28 55 49 24 29 B1 32 31 38 A7 55 49 24 B2 22 |.(UI$).218.UI$."|
000003D0: 22 3A 8E 00 F6 13 B9 00 8B C2 28 55 54 29 B2 55 |":........(UT).U|
000003E0: 55 25 A7 55 49 24 B2 C7 28 C6 28 55 49 24 29 AB |U%.UI$..(.(UI$).|
000003F0: 31 32 38 29 3A 8E 00 FC 13 BB 00 8E 00 09 14 BE |128):...........|
00000400: 00 55 49 24 B2 22 22 3A 8E 00 2E 14 C3 00 55 46 |.UI$."":......UF|
00000410: B2 31 3A 8F 20 2B 2B 2B 20 48 45 4C 50 20 52 4F |.1:. +++ HELP RO|
00000420: 55 54 49 4E 45 20 45 58 49 54 20 2B 2B 2B 00 37 |UTINE EXIT +++.7|
00000430: 14 C5 00 8D 32 35 30 00 40 14 C8 00 8D 32 34 35 |....250.@....245|
00000440: 00 5F 14 CD 00 81 55 51 B2 55 42 A4 28 55 32 25 |._....UQ.UB.(U2%|
00000450: AC 32 35 36 AA 55 31 25 AA 55 33 25 AB 32 29 00 |.256.U1%.U3%.2).|
00000460: 7B 14 D2 00 55 51 25 28 55 51 AB 55 42 29 B2 C2 |{...UQ%(UQ.UB)..|
00000470: 28 55 51 29 3A 82 3A 99 22 93 22 00 8E 14 D7 00 |(UQ):.:.".".....|
00000480: 55 5A B2 31 3A 55 56 25 B2 C2 28 55 54 29 00 97 |UZ.1:UV%..(UT)..|
00000490: 14 D8 00 89 33 30 30 00 DB 14 D9 00 55 5A B2 30 |....300.....UZ.0|
000004A0: 3A 55 53 24 B2 55 4A 24 3A 55 47 24 B2 55 4B 24 |:US$.UJ$:UG$.UK$|
000004B0: 3A 55 50 B2 55 4A 3A 55 4C B2 55 4B 3A 8B C2 28 |:UP.UJ:UL.UK:..(|
000004C0: 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C |50003).0..53281,|
000004D0: 36 3A 97 35 33 32 38 30 2C 31 34 00 10 15 DC 00 |6:.53280,14.....|
000004E0: 55 54 24 B2 55 4C 24 3A 99 22 93 22 3B 3A 97 55 |UT$.UL$:.".";:.U|
000004F0: 54 2C 55 56 25 3A 81 55 51 B2 55 42 A4 28 55 32 |T,UV%:.UQ.UB.(U2|
00000500: 25 AC 32 35 36 AA 55 31 25 AA 55 33 25 AB 33 29 |%.256.U1%.U3%.3)|
00000510: 00 25 15 E1 00 97 55 51 2C 55 51 25 28 55 51 AB |.%....UQ,UQ%(UQ.|
00000520: 55 42 29 3A 82 00 31 15 E6 00 97 55 31 2C 55 31 |UB):..1....U1,U1|
00000530: 25 00 3D 15 E8 00 97 55 32 2C 55 32 25 00 49 15 |%.=....U2,U2%.I.|
00000540: E9 00 97 55 34 2C 55 34 25 00 57 15 EA 00 97 55 |...U4,U4%.W....U|
00000550: 33 2C 55 33 25 AB 31 00 5F 15 EB 00 89 33 35 00 |3,U3%.1._....35.|
00000560: 91 15 F0 00 55 44 25 B2 28 28 55 32 25 AC 32 35 |....UD%.((U2%.25|
00000570: 36 AA 55 31 25 AA 55 33 25 29 AB 55 42 29 AD 34 |6.U1%.U3%).UB).4|
00000580: 30 3A 99 C8 28 55 44 24 2C 55 44 25 AA 31 29 3A |0:..(UD$,UD%.1):|
00000590: 8E 00 CC 15 F5 00 99 C8 28 55 44 24 2C 32 34 29 |........(UD$,24)|
000005A0: 3B 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |;" |
000005B0: 20 20 20 20 20 20 20 20 12 20 48 45 4C 50 20 43 | . HELP C|
000005C0: 4F 4D 49 4E 47 20 92 20 20 22 3A 8E 00 F8 15 FA |OMING . ":.....|
000005D0: 00 55 31 25 B2 C2 28 55 31 29 3A 55 32 25 B2 C2 |.U1%..(U1):U2%..|
000005E0: 28 55 32 29 3A 55 33 25 B2 C2 28 55 33 29 3A 55 |(U2):U3%..(U3):U|
000005F0: 34 25 B2 C2 28 55 34 29 00 20 16 FB 00 55 4A 24 |4%..(U4). ...UJ$|
00000600: B2 55 53 24 3A 55 4B 24 B2 55 47 24 3A 55 4C 24 |.US$:UK$.UG$:UL$|
00000610: B2 55 54 24 3A 55 4A B2 55 50 3A 55 4B B2 55 4C |.UT$:UJ.UP:UK.UL|
00000620: 00 26 16 FF 00 8E 00 37 16 2C 01 8F 20 2A 2A 20 |.&.....7.,.. ** |
00000630: 4D 45 4E 55 20 2A 2A 00 3D 16 2D 01 3A 00 6C 16 |MENU **.=.-.:.l.|
00000640: 2E 01 99 22 93 22 3A 97 55 54 2C 55 55 25 3A 8B |...".":.UT,UU%:.|
00000650: C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 |.(50003).0..5328|
00000660: 31 2C 39 3A 97 35 33 32 38 30 2C 38 00 72 16 2F |1,9:.53280,8.r./|
00000670: 01 3A 00 8F 16 31 01 99 22 13 20 20 20 20 20 20 |.:...1..". |
00000680: 20 20 20 20 20 20 20 20 20 20 4D 45 4E 55 22 00 | MENU".|
00000690: BE 16 36 01 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D |..6.." ---------|
000006A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000006B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 DF |-------------"..|
000006C0: 16 3B 01 99 22 11 11 20 20 20 20 20 20 20 31 2E |.;..".. 1.|
000006D0: 20 20 20 42 45 47 49 4E 20 4D 41 52 4B 45 54 00 | BEGIN MARKET.|
000006E0: 09 17 40 01 99 22 11 11 20 20 20 20 20 20 20 32 |..@..".. 2|
000006F0: 2E 20 20 20 53 54 55 44 45 4E 54 20 49 4E 53 54 |. STUDENT INST|
00000700: 52 55 43 54 49 4F 4E 53 22 00 33 17 45 01 99 22 |RUCTIONS".3.E.."|
00000710: 11 11 20 20 20 20 20 20 20 33 2E 20 20 20 54 45 |.. 3. TE|
00000720: 41 43 48 45 52 20 49 4E 53 54 52 55 43 54 49 4F |ACHER INSTRUCTIO|
00000730: 4E 53 22 00 4F 17 4F 01 99 22 11 11 20 20 20 20 |NS".O.O..".. |
00000740: 20 20 20 34 2E 20 20 20 51 55 49 54 11 11 22 00 | 4. QUIT..".|
00000750: 7E 17 54 01 99 22 20 2D 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 22 00 A9 |-------------"..|
00000780: 17 59 01 99 22 11 11 20 20 20 20 20 20 20 50 52 |.Y..".. PR|
00000790: 45 53 53 20 41 20 4E 55 4D 42 45 52 20 4B 45 59 |ESS A NUMBER KEY|
000007A0: 20 28 31 2D 34 29 20 22 3B 00 D1 17 5E 01 55 4C | (1-4) ";...^.UL|
000007B0: B2 31 3A 55 53 24 B2 22 31 32 33 34 22 3A 8D 33 |.1:US$."1234":.3|
000007C0: 35 3A 8F 20 49 4E 50 55 54 20 52 4F 55 54 49 4E |5:. INPUT ROUTIN|
000007D0: 45 00 DC 17 60 01 55 53 24 B2 22 22 00 F9 17 63 |E...`.US$.""...c|
000007E0: 01 91 C5 28 55 52 24 29 8D 31 30 30 30 2C 34 30 |...(UR$).1000,40|
000007F0: 30 2C 35 30 30 2C 33 39 36 00 02 18 68 01 89 33 |0,500,396...h..3|
00000800: 30 30 00 29 18 8B 01 8F 20 2A 2A 20 52 45 2D 45 |00.).... ** RE-E|
00000810: 4E 41 42 4C 45 20 53 54 4F 50 20 4B 45 59 20 41 |NABLE STOP KEY A|
00000820: 4E 44 20 45 4E 44 20 2A 2A 00 58 18 8C 01 8B C2 |ND END **.X.....|
00000830: 28 35 30 30 30 33 29 B3 B1 31 AF C2 28 35 30 30 |(50003)..1..(500|
00000840: 30 33 29 B3 B1 31 36 30 AF C2 28 35 30 30 30 33 |03)..160..(50003|
00000850: 29 B3 B1 30 A7 33 39 39 00 82 18 8D 01 9E 55 55 |)..0.399......UU|
00000860: AA 37 31 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 |.71:..(50003).0.|
00000870: 97 35 33 32 38 31 2C 36 3A 97 35 33 32 38 30 2C |.53281,6:.53280,|
00000880: 31 34 00 8E 18 8E 01 99 22 9A 93 22 3A 80 00 99 |14......"..":...|
00000890: 18 8F 01 8D 38 37 35 3A 8E 00 BA 18 90 01 8F 20 |....875:....... |
000008A0: 2A 2A 20 53 54 55 44 45 4E 54 20 49 4E 53 54 52 |** STUDENT INSTR|
000008B0: 55 43 54 49 4F 4E 53 20 2A 2A 00 E9 18 95 01 99 |UCTIONS **......|
000008C0: 22 93 22 3A 97 55 54 2C 55 4C 25 3A 8B C2 28 35 |".":.UT,UL%:..(5|
000008D0: 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 30 |0003).0..53281,0|
000008E0: 3A 97 35 33 32 38 30 2C 30 00 18 19 9A 01 55 54 |:.53280,0.....UT|
000008F0: 24 B2 22 A0 CD 41 52 4B 45 54 22 3A 55 50 B2 31 |$."..ARKET":UP.1|
00000900: 3A 55 47 24 B2 22 D3 54 55 44 45 4E 54 20 C9 4E |:UG$.".TUDENT .N|
00000910: 53 54 22 3A 8D 38 35 30 00 45 19 9F 01 99 3A 99 |ST":.850.E....:.|
00000920: 22 20 20 20 D4 48 49 53 20 50 52 4F 47 52 41 4D |" .HIS PROGRAM|
00000930: 20 49 53 20 44 45 53 49 47 4E 45 44 20 54 4F 20 | IS DESIGNED TO |
00000940: 54 45 53 54 22 00 6F 19 A0 01 99 3A 99 22 20 59 |TEST".o....:." Y|
00000950: 4F 55 52 20 41 42 49 4C 49 54 59 20 54 4F 20 4D |OUR ABILITY TO M|
00000960: 41 4E 41 47 45 20 41 20 53 54 4F 52 45 2E 22 00 |ANAGE A STORE.".|
00000970: 9D 19 A1 01 99 3A 99 22 20 20 20 CF 4E 43 45 20 |.....:." .NCE |
00000980: 59 4F 55 20 43 48 4F 4F 53 45 20 54 48 45 20 4E |YOU CHOOSE THE N|
00000990: 41 4D 45 20 4F 46 20 59 4F 55 52 20 22 00 CB 19 |AME OF YOUR "...|
000009A0: A2 01 99 3A 99 22 20 53 54 4F 52 45 20 59 4F 55 |...:." STORE YOU|
000009B0: 20 57 49 4C 4C 20 53 45 45 20 41 20 43 48 41 52 | WILL SEE A CHAR|
000009C0: 54 20 4F 46 20 59 4F 55 52 20 22 00 F8 19 A3 01 |T OF YOUR ".....|
000009D0: 99 3A 99 22 20 48 4F 4C 44 49 4E 47 53 2E 20 20 |.:." HOLDINGS. |
000009E0: 27 D3 48 41 52 45 27 20 52 45 46 45 52 53 20 54 |'.HARE' REFERS T|
000009F0: 4F 20 54 48 45 20 25 22 00 23 1A A4 01 99 3A 99 |O THE %".#....:.|
00000A00: 22 20 4F 46 20 54 48 45 20 4D 41 52 4B 45 54 20 |" OF THE MARKET |
00000A10: 57 48 49 43 48 20 59 4F 55 20 43 4F 4E 54 52 4F |WHICH YOU CONTRO|
00000A20: 4C 2E 22 00 51 1A A5 01 99 3A 99 22 20 20 20 D4 |L.".Q....:." .|
00000A30: 48 45 4E 20 59 4F 55 20 4D 55 53 54 20 44 45 43 |HEN YOU MUST DEC|
00000A40: 49 44 45 20 48 4F 57 20 4D 55 43 48 20 4F 46 20 |IDE HOW MUCH OF |
00000A50: 22 00 82 1A A6 01 99 3A 99 22 20 59 4F 55 52 20 |"......:." YOUR |
00000A60: 50 52 4F 44 55 43 54 20 54 4F 20 50 52 4F 44 55 |PRODUCT TO PRODU|
00000A70: 43 45 20 41 4E 44 20 57 48 41 54 20 50 52 49 43 |CE AND WHAT PRIC|
00000A80: 45 22 00 9C 1A A7 01 99 3A 99 22 20 54 4F 20 53 |E"......:." TO S|
00000A90: 45 4C 4C 20 49 54 20 46 4F 52 2E 22 00 AF 1A AE |ELL IT FOR."....|
00000AA0: 01 8D 38 33 35 3A 55 50 B2 32 3A 8D 38 35 30 00 |..835:UP.2:.850.|
00000AB0: DE 1A AF 01 99 3A 99 22 20 20 20 D4 48 45 20 46 |.....:." .HE F|
00000AC0: 49 52 53 54 20 50 4C 41 59 45 52 20 54 4F 20 52 |IRST PLAYER TO R|
00000AD0: 45 41 43 48 20 31 32 30 30 30 20 49 4E 22 00 FE |EACH 12000 IN"..|
00000AE0: 1A B0 01 99 3A 99 22 20 41 53 53 45 54 53 20 57 |....:." ASSETS W|
00000AF0: 49 4E 53 20 54 48 45 20 47 41 4D 45 2E 22 00 07 |INS THE GAME."..|
00000B00: 1B E5 01 8D 38 33 35 00 1B 1B EA 01 8B 55 5A B2 |....835......UZ.|
00000B10: 31 A7 9E 55 50 25 3A 89 32 31 37 00 21 1B F3 01 |1..UP%:.217.!...|
00000B20: 8E 00 42 1B F4 01 8F 20 2A 2A 20 54 45 41 43 48 |..B.... ** TEACH|
00000B30: 45 52 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 20 |ER INSTRUCTIONS |
00000B40: 2A 2A 00 72 1B F5 01 99 22 93 22 3A 97 55 54 2C |**.r....".":.UT,|
00000B50: 55 4C 25 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 |UL%:..(50003).0.|
00000B60: 97 35 33 32 38 31 2C 32 3A 97 35 33 32 38 30 2C |.53281,2:.53280,|
00000B70: 31 30 00 A1 1B F6 01 55 54 24 B2 22 20 CD 41 52 |10.....UT$." .AR|
00000B80: 4B 45 54 22 3A 55 50 B2 31 3A 55 47 24 B2 22 D4 |KET":UP.1:UG$.".|
00000B90: 45 41 43 48 45 52 20 C9 4E 53 54 22 3A 8D 38 35 |EACHER .NST":.85|
00000BA0: 30 00 CF 1B F7 01 99 22 11 11 20 20 20 20 20 20 |0......".. |
00000BB0: D4 4F 20 54 48 45 20 42 45 53 54 20 4F 46 20 4F |.O THE BEST OF O|
00000BC0: 55 52 20 4B 4E 4F 57 4C 45 44 47 45 2C 11 22 00 |UR KNOWLEDGE,.".|
00000BD0: F8 1B F8 01 99 22 20 20 20 54 48 49 53 20 50 52 |....." THIS PR|
00000BE0: 4F 47 52 41 4D 20 49 53 20 49 4E 20 54 48 45 20 |OGRAM IS IN THE |
00000BF0: 50 55 42 4C 49 43 11 22 00 24 1C F9 01 99 22 20 |PUBLIC.".$...." |
00000C00: 20 20 44 4F 4D 41 49 4E 2E 20 20 C9 46 20 54 48 | DOMAIN. .F TH|
00000C10: 49 53 20 49 53 20 4E 4F 54 20 54 48 45 20 43 41 |IS IS NOT THE CA|
00000C20: 53 45 11 22 00 41 1C FA 01 99 22 20 20 20 50 4C |SE.".A...." PL|
00000C30: 45 41 53 45 20 43 4F 4E 54 41 43 54 3A 11 11 11 |EASE CONTACT:...|
00000C40: 22 00 6B 1C FB 01 99 22 20 20 20 20 20 20 C3 4F |".k...." .O|
00000C50: 4D 4D 4F 44 4F 52 45 20 C2 55 53 49 4E 45 53 53 |MMODORE .USINESS|
00000C60: 20 CD 41 43 48 49 4E 45 53 11 22 00 8E 1C FC 01 | .ACHINES.".....|
00000C70: 99 22 20 20 20 20 20 20 20 20 20 20 33 33 37 30 |." 3370|
00000C80: 20 D0 48 41 52 4D 41 43 59 20 C1 56 45 2E 00 B2 | .HARMACY .VE...|
00000C90: 1C FD 01 99 22 20 20 20 20 20 20 20 20 20 20 C1 |...." .|
00000CA0: 47 49 4E 43 4F 55 52 54 2C 20 CF 4E 54 41 52 49 |GINCOURT, .NTARI|
00000CB0: 4F 22 00 D4 1C FE 01 99 22 20 20 20 20 20 20 20 |O"......" |
00000CC0: 20 20 20 C3 41 4E 41 44 41 20 20 20 CD 31 D7 20 | .ANADA .1. |
00000CD0: 32 CB 34 22 00 F4 1C FF 01 99 22 20 20 20 20 20 |2.4"......" |
00000CE0: 20 20 20 20 20 28 34 31 36 29 20 34 39 39 2D 34 | (416) 499-4|
00000CF0: 32 39 32 22 00 0A 1D 00 02 55 50 B2 32 3A 8D 20 |292".....UP.2:. |
00000D00: 38 33 35 3A 8D 20 38 35 30 3A 00 34 1D 01 02 99 |835:. 850:.4....|
00000D10: 22 20 20 20 20 20 11 11 D0 52 4F 47 52 41 4D 20 |" ...ROGRAM |
00000D20: CE 41 4D 45 3A 20 CD 41 52 4B 45 54 20 20 20 20 |.AME: .ARKET |
00000D30: 20 20 20 11 00 56 1D 02 02 99 22 20 20 20 20 20 | ..V...." |
00000D40: D7 52 49 54 54 45 4E 20 C2 59 20 20 3A 20 D5 4E |.RITTEN .Y : .N|
00000D50: 4B 4E 4F 57 4E 11 00 7A 1D 03 02 99 22 20 20 20 |KNOWN..z...." |
00000D60: 20 20 D5 50 47 52 41 44 45 44 20 C2 59 20 3A 20 | .PGRADED .Y : |
00000D70: 20 20 20 20 20 20 20 20 20 11 00 A5 1D 04 02 99 | .......|
00000D80: 22 20 20 20 20 20 11 D4 48 49 53 20 50 52 4F 47 |" ..HIS PROG|
00000D90: 52 41 4D 20 57 49 4C 4C 20 52 55 4E 20 4F 4E 20 |RAM WILL RUN ON |
00000DA0: 41 4E 59 11 11 00 CC 1D 05 02 99 22 20 20 20 20 |ANY........" |
00000DB0: 20 20 20 20 20 C2 C1 D3 C9 C3 A0 32 2E 30 20 D0 | ......2.0 .|
00000DC0: C5 D4 20 C3 CF CD D0 D5 D4 C5 D2 11 00 F3 1D 06 |.. .............|
00000DD0: 02 99 22 20 20 20 20 20 20 20 20 20 C2 C1 D3 C9 |.." ....|
00000DE0: C3 20 34 2E 30 20 D0 C5 D4 A0 C3 CF CD D0 D5 D4 |. 4.0 ..........|
00000DF0: C5 D2 11 00 15 1E 07 02 99 22 20 20 20 20 20 20 |........." |
00000E00: 20 20 20 38 30 33 32 20 C3 C2 CD 20 C3 CF CD D0 | 8032 ... ....|
00000E10: D5 D4 C5 D2 11 00 3A 1E 08 02 99 22 20 20 20 20 |......:...." |
00000E20: 20 20 20 20 20 C3 CF CD CD CF C4 CF D2 C5 20 36 | ......... 6|
00000E30: 34 20 C3 CF CD D0 D5 D4 C5 D2 00 43 1E 09 02 8D |4 .........C....|
00000E40: 38 33 35 00 57 1E 4E 02 8B 55 5A B2 31 A7 9E 55 |835.W.N..UZ.1..U|
00000E50: 50 25 3A 89 32 31 37 00 5D 1E 57 02 8E 00 83 1E |P%:.217.].W.....|
00000E60: 58 02 8F 20 2A 2A 20 50 52 4F 47 52 41 4D 20 4D |X.. ** PROGRAM M|
00000E70: 4F 44 49 46 49 43 41 54 49 4F 4E 20 49 4E 53 54 |ODIFICATION INST|
00000E80: 20 2A 2A 00 94 1E 59 02 99 22 93 22 3A 97 55 54 | **...Y..".":.UT|
00000E90: 2C 55 4C 25 00 B4 1E 5D 02 55 50 B2 30 3A 55 47 |,UL%...].UP.0:UG|
00000EA0: 24 B2 22 D0 52 4F 47 52 41 4D 20 CD 4F 44 22 3A |$.".ROGRAM .OD":|
00000EB0: 8D 38 35 30 00 BD 1E 94 02 8D 38 33 35 00 D1 1E |.850......835...|
00000EC0: B2 02 8B 55 5A B2 31 A7 9E 55 50 25 3A 89 32 31 |...UZ.1..UP%:.21|
00000ED0: 37 00 D7 1E BB 02 8E 00 FC 1E BC 02 8F 20 2A 2A |7............ **|
00000EE0: 20 54 4F 20 55 53 45 20 38 30 33 32 20 4C 4F 41 | TO USE 8032 LOA|
00000EF0: 44 20 43 42 4D 34 30 33 32 20 2A 2A 00 32 1F C6 |D CBM4032 **.2..|
00000F00: 02 99 22 93 11 11 11 05 42 45 46 4F 52 45 20 52 |..".....BEFORE R|
00000F10: 55 4E 4E 49 4E 47 20 54 48 49 53 20 50 52 4F 47 |UNNING THIS PROG|
00000F20: 52 41 4D 20 4F 4E 20 41 4E 20 38 30 33 32 20 20 |RAM ON AN 8032 |
00000F30: 11 11 00 68 1F D0 02 99 22 20 20 20 20 20 20 4C |...h...." L|
00000F40: 4F 41 44 20 54 48 45 20 27 43 42 4D 20 34 30 33 |OAD THE 'CBM 403|
00000F50: 32 27 20 50 52 4F 47 52 41 4D 11 11 11 11 11 11 |2' PROGRAM......|
00000F60: 11 11 11 11 11 11 11 22 00 73 1F DA 02 9E 55 55 |.......".s....UU|
00000F70: AA 37 31 00 79 1F E4 02 80 00 99 1F 20 03 8F 20 |.71.y....... .. |
00000F80: 2A 2A 20 54 20 49 20 54 20 4C 20 45 20 20 20 50 |** T I T L E P|
00000F90: 20 41 20 47 20 45 20 2A 2A 00 CD 1F 22 03 99 22 | A G E **...".."|
00000FA0: 93 11 1D 05 22 3B 3A 97 55 54 2C 55 55 25 3A 8B |....";:.UT,UU%:.|
00000FB0: C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 |.(50003).0..5328|
00000FC0: 30 2C 31 34 3A 97 35 33 32 38 31 2C 36 00 E3 1F |0,14:.53281,6...|
00000FD0: 24 03 81 49 B2 31 A4 33 38 3A 99 22 12 A6 92 22 |$..I.1.38:."..."|
00000FE0: 3B 3A 82 00 FB 1F 26 03 81 49 B2 31 A4 32 32 3A |;:....&..I.1.22:|
00000FF0: 99 22 11 9D 12 A6 92 22 3B 3A 82 00 13 20 28 03 |.".....";:... (.|
00001000: 81 49 B2 31 A4 33 37 3A 99 22 9D 9D 12 A6 92 22 |.I.1.37:."....."|
00001010: 3B 3A 82 00 2B 20 2A 03 81 49 B2 31 A4 32 32 3A |;:..+ *..I.1.22:|
00001020: 99 22 91 9D 12 A6 92 22 3B 3A 82 00 50 20 2C 03 |.".....";:..P ,.|
00001030: 99 22 13 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D |."..............|
00001040: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 A9 20 20 92 |............. .|
00001050: 00 72 20 2E 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D |.r ...".........|
00001060: 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 20 92 20 20 12 20 |.......... . . |
00001070: 92 A9 00 93 20 30 03 99 22 1D 1D 1D 1D 1D 1D 1D |.... 0..".......|
00001080: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 20 92 20 20 |............ . |
00001090: 12 A3 DF 00 B1 20 32 03 99 22 1D 1D 1D 1D 1D 1D |..... 2.."......|
000010A0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D DF 12 20 20 |.............. |
000010B0: 92 00 D9 20 34 03 99 22 11 11 1D 1D 1D 1D 1D 1D |... 4.."........|
000010C0: 1D 1D 1D 1D 1D 1D 43 20 4F 20 4D 20 4D 20 4F 20 |......C O M M O |
000010D0: 44 20 4F 20 52 20 45 11 11 00 FC 20 36 03 99 22 |D O R E.... 6.."|
000010E0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 45 |...............E|
000010F0: 44 55 43 41 54 49 4F 4E 41 4C 11 11 00 1B 21 38 |DUCATIONAL....!8|
00001100: 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..".............|
00001110: 1D 1D 1D 53 4F 46 54 57 41 52 45 00 36 21 3A 03 |...SOFTWARE.6!:.|
00001120: 8F 20 2A 2A 20 43 4F 4D 4D 4F 44 4F 52 45 20 4C |. ** COMMODORE L|
00001130: 4F 47 4F 20 2A 2A 00 6E 21 3B 03 99 C8 28 55 44 |OGO **.n!;...(UD|
00001140: 24 2C 32 34 29 3B 22 1D 1D 1D 1D 1D 1D 1D 1D 1D |$,24);".........|
00001150: 12 50 52 45 53 53 20 53 50 41 43 45 20 42 41 52 |.PRESS SPACE BAR|
00001160: 20 4F 52 20 57 41 49 54 92 22 3A 49 B2 30 00 90 | OR WAIT.":I.0..|
00001170: 21 3C 03 A1 41 24 3A 8B 41 24 B3 B1 22 20 22 A7 |!<..A$:.A$.." ".|
00001180: 49 B2 49 AA 31 3A 8B 49 B3 32 35 30 A7 38 32 38 |I.I.1:.I.250.828|
00001190: 00 B4 21 3E 03 54 31 24 B2 22 22 3A 54 32 24 B2 |..!>.T1$."":T2$.|
000011A0: 22 22 3A 54 33 24 B2 22 22 3A 54 34 24 B2 22 22 |"":T3$."":T4$.""|
000011B0: 3A 49 B2 30 00 BD 21 40 03 89 33 30 30 00 D9 21 |:I.0..!@..300..!|
000011C0: 43 03 8F 20 2A 2A 20 53 50 41 43 45 20 42 41 52 |C.. ** SPACE BAR|
000011D0: 20 50 52 45 53 53 20 2A 2A 00 1D 22 48 03 97 55 | PRESS **.."H..U|
000011E0: 4F 2C 30 3A 99 C8 28 55 44 24 2C 32 34 29 3B 22 |O,0:..(UD$,24);"|
000011F0: 1D 1D 1D 1D 1D 1D 12 50 52 45 53 53 20 53 50 41 |.......PRESS SPA|
00001200: 43 45 20 42 41 52 20 54 4F 20 43 4F 4E 54 49 4E |CE BAR TO CONTIN|
00001210: 55 45 92 22 3A DA 32 2C 39 30 30 2C 32 00 34 22 |UE.":.2,900,2.4"|
00001220: 4C 03 A1 55 49 24 3A 8B 55 49 24 B3 B1 22 20 22 |L..UI$:.UI$.." "|
00001230: A7 38 34 34 00 3A 22 4E 03 8E 00 5A 22 52 03 8F |.844.:"N...Z"R..|
00001240: 20 2A 2A 20 50 41 47 45 20 44 45 53 49 47 4E 20 | ** PAGE DESIGN |
00001250: 52 4F 55 54 49 4E 45 20 2A 2A 00 60 22 54 03 8F |ROUTINE **.`"T..|
00001260: 00 8A 22 57 03 99 22 93 22 C8 28 55 54 24 AA 55 |.."W..".".(UT$.U|
00001270: 50 24 2C 32 31 29 3B C9 28 55 50 24 AA 55 47 24 |P$,21);.(UP$.UG$|
00001280: AA C4 28 55 50 29 2C 31 38 29 00 B9 22 5C 03 99 |..(UP),18).."\..|
00001290: 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |" --------------|
000012A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000012B0: 2D 2D 2D 2D 2D 2D 2D 2D 22 00 C8 22 60 03 8B 55 |--------".."`..U|
000012C0: 48 B3 B1 30 A7 38 37 30 00 FC 22 61 03 99 C8 28 |H..0.870.."a...(|
000012D0: 55 44 24 2C 32 34 29 3B C8 28 55 50 24 2C 37 29 |UD$,24);.(UP$,7)|
000012E0: 3B 22 48 45 4C 50 20 2D 20 50 52 45 53 53 20 20 |;"HELP - PRESS |
000012F0: 20 48 20 3C 52 45 54 55 52 4E 3E 22 00 15 23 66 | H <RETURN>"..#f|
00001300: 03 55 48 B2 30 3A 99 22 13 11 22 3A 55 50 B2 55 |.UH.0:."..":UP.U|
00001310: 50 AA 31 3A 8E 00 34 23 6B 03 8F 20 2A 2A 20 50 |P.1:..4#k.. ** P|
00001320: 4C 45 41 53 45 20 57 41 49 54 20 52 45 4D 41 52 |LEASE WAIT REMAR|
00001330: 4B 20 2A 2A 00 6A 23 70 03 99 C8 28 55 44 24 2C |K **.j#p...(UD$,|
00001340: 32 34 29 3B 22 20 20 20 20 20 20 20 20 20 20 20 |24);" |
00001350: 4F 4E 45 20 4D 4F 4D 45 4E 54 20 50 4C 45 41 53 |ONE MOMENT PLEAS|
00001360: 45 2E 2E 2E 20 20 20 20 20 22 00 70 23 75 03 8E |E... ".p#u..|
00001370: 00 8D 23 84 03 8F 20 2A 2A 20 53 45 54 20 55 50 |..#... ** SET UP|
00001380: 20 56 41 52 49 41 42 4C 45 53 20 2A 2A 00 D8 23 | VARIABLES **..#|
00001390: 85 03 55 58 24 B2 22 48 22 3A 86 55 51 25 28 31 |..UX$."H":.UQ%(1|
000013A0: 30 30 30 29 3A 55 42 B2 33 32 37 36 38 3A 55 31 |000):UB.32768:U1|
000013B0: B2 31 39 36 3A 55 32 B2 31 39 37 3A 55 33 B2 31 |.196:U2.197:U3.1|
000013C0: 39 38 3A 55 34 B2 32 31 36 3A 55 43 B2 31 36 37 |98:U4.216:UC.167|
000013D0: 3A 55 55 B2 31 30 32 34 00 16 24 86 03 55 54 B2 |:UU.1024..$..UT.|
000013E0: 35 39 34 36 38 3A 55 55 25 B2 31 32 3A 55 4C 25 |59468:UU%.12:UL%|
000013F0: B2 31 34 3A 55 50 25 B2 31 31 34 36 3A 55 4D B2 |.14:UP%.1146:UM.|
00001400: 33 32 37 36 38 3A 55 4F B2 31 35 38 3A 97 20 35 |32768:UO.158:. 5|
00001410: 30 30 30 33 2C 30 00 59 24 87 03 8B C2 28 35 30 |0003,0.Y$....(50|
00001420: 30 30 33 29 B2 30 A7 55 42 B2 31 30 32 34 3A 55 |003).0.UB.1024:U|
00001430: 31 B2 32 30 39 3A 55 32 B2 32 31 30 3A 55 33 B2 |1.209:U2.210:U3.|
00001440: 32 31 31 3A 55 34 B2 32 31 34 3A 55 43 B2 32 30 |211:U4.214:UC.20|
00001450: 34 3A 55 55 B2 32 30 34 38 00 98 24 88 03 8B C2 |4:UU.2048..$....|
00001460: 28 35 30 30 30 33 29 B2 30 A7 55 54 B2 35 33 32 |(50003).0.UT.532|
00001470: 37 32 3A 55 55 25 B2 32 31 3A 55 4C 25 B2 32 33 |72:UU%.21:UL%.23|
00001480: 3A 55 50 25 B2 32 31 33 39 3A 55 4D B2 31 30 32 |:UP%.2139:UM.102|
00001490: 34 3A 55 4F B2 31 39 38 00 BC 24 89 03 55 44 24 |4:UO.198..$..UD$|
000014A0: B2 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 |."..............|
000014B0: 11 11 11 11 11 11 11 11 11 11 11 22 00 EE 24 8A |..........."..$.|
000014C0: 03 55 50 24 B2 22 20 20 20 20 20 20 20 20 20 20 |.UP$." |
000014D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000014E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 3C | ".<|
000014F0: 25 8B 03 55 54 24 B2 22 20 CD 41 52 4B 45 54 20 |%..UT$." .ARKET |
00001500: 20 20 20 20 20 20 A0 A0 A0 A0 A0 22 3A 8F 20 50 | .....":. P|
00001510: 4C 41 43 45 20 50 52 4F 47 52 41 4D 20 54 49 54 |LACE PROGRAM TIT|
00001520: 4C 45 20 48 45 52 45 20 21 21 21 21 21 21 21 21 |LE HERE !!!!!!!!|
00001530: 21 21 21 21 21 21 21 21 21 2A 2A 2A 00 42 25 8C |!!!!!!!!!***.B%.|
00001540: 03 8E 00 5C 25 8E 03 8F 20 2A 2A 20 53 45 54 20 |...\%... ** SET |
00001550: 56 41 52 49 41 42 4C 45 53 20 2A 2A 00 65 25 93 |VARIABLES **.e%.|
00001560: 03 8D 39 30 30 00 80 25 98 03 8F 20 2A 2A 20 43 |..900..%... ** C|
00001570: 48 45 43 4B 20 46 4F 52 20 38 30 33 32 20 2A 2A |HECK FOR 8032 **|
00001580: 00 9E 25 9D 03 99 22 93 22 3A 99 22 A0 22 3A 8F |..%...".":.".":.|
00001590: 20 53 48 49 46 54 45 44 20 53 50 41 43 45 00 B5 | SHIFTED SPACE..|
000015A0: 25 A2 03 8B C2 28 55 42 AA 34 30 29 B3 B1 39 36 |%....(UB.40)..96|
000015B0: A7 8D 37 30 30 00 CE 25 A3 03 8F 20 2A 2A 20 4D |..700..%... ** M|
000015C0: 45 4D 4F 52 59 20 43 48 45 43 4B 20 2A 2A 00 E2 |EMORY CHECK **..|
000015D0: 25 A4 03 8B 20 B8 28 30 29 B1 32 30 30 30 A7 39 |%... .(0).2000.9|
000015E0: 33 37 00 10 26 A5 03 99 22 93 11 11 05 54 48 49 |37..&..."....THI|
000015F0: 53 20 4D 41 43 48 49 4E 45 20 44 4F 45 53 20 4E |S MACHINE DOES N|
00001600: 4F 54 20 48 41 56 45 20 45 4E 4F 55 47 48 11 22 |OT HAVE ENOUGH."|
00001610: 00 34 26 A6 03 99 22 4D 45 4D 4F 52 59 20 54 4F |.4&..."MEMORY TO|
00001620: 20 52 55 4E 20 54 48 49 53 20 50 52 4F 47 52 41 | RUN THIS PROGRA|
00001630: 4D 20 21 22 00 3F 26 A7 03 9E 55 55 AA 37 31 00 |M !".?&...UU.71.|
00001640: 45 26 A8 03 80 00 5F 26 A9 03 99 22 93 05 22 3A |E&...._&..."..":|
00001650: 8B C2 28 35 30 30 30 33 29 B2 30 A7 39 36 32 00 |..(50003).0.962.|
00001660: 8E 26 AC 03 8F 20 2A 2A 20 42 41 53 49 43 20 32 |.&... ** BASIC 2|
00001670: 2E 30 20 20 4F 52 20 20 34 2E 30 20 20 4F 52 20 |.0 OR 4.0 OR |
00001680: 20 43 2D 36 34 20 53 45 54 55 50 20 2A 2A 00 CC | C-64 SETUP **..|
00001690: 26 AD 03 97 31 30 37 35 2C 31 33 33 3A 97 31 30 |&...1075,133:.10|
000016A0: 37 36 2C 31 34 34 3A 97 31 30 37 37 2C 32 33 34 |76,144:.1077,234|
000016B0: 3A 97 31 30 37 39 2C 34 3A 97 31 30 38 30 2C 31 |:.1079,4:.1080,1|
000016C0: 33 33 3A 97 31 30 38 31 2C 31 34 35 00 02 27 AE |33:.1081,145..'.|
000016D0: 03 97 31 30 39 31 2C 31 35 35 3A 97 31 30 39 38 |..1091,155:.1098|
000016E0: 2C 31 33 33 3A 97 31 30 39 39 2C 31 34 34 3A 97 |,133:.1099,144:.|
000016F0: 31 31 30 30 2C 32 33 34 3A 97 31 31 30 33 2C 31 |1100,234:.1103,1|
00001700: 33 33 00 24 27 AF 03 97 31 31 30 34 2C 31 34 35 |33.$'...1104,145|
00001710: 3A 97 31 31 30 35 2C 32 33 34 3A 97 31 30 38 32 |:.1105,234:.1082|
00001720: 2C 32 33 34 00 3B 27 B1 03 8B C2 28 35 30 30 30 |,234.;'....(5000|
00001730: 33 29 B3 B1 31 36 30 A7 39 35 35 00 6A 27 B6 03 |3)..160.955.j'..|
00001740: 97 31 30 39 33 2C 38 38 3A 97 31 30 39 34 2C 32 |.1093,88:.1094,2|
00001750: 32 38 3A 97 31 30 39 37 2C 38 35 3A 97 31 31 30 |28:.1097,85:.110|
00001760: 32 2C 32 32 38 3A 89 39 36 35 00 7F 27 BB 03 8B |2,228:.965..'...|
00001770: C2 28 35 30 30 30 33 29 B3 B1 31 A7 39 39 30 00 |.(50003)..1.990.|
00001780: AE 27 C0 03 97 31 30 39 33 2C 34 39 3A 97 31 30 |.'...1093,49:.10|
00001790: 39 34 2C 32 33 30 3A 97 31 30 39 37 2C 34 36 3A |94,230:.1097,46:|
000017A0: 97 31 31 30 32 2C 32 33 30 3A 89 39 36 35 00 E8 |.1102,230:.965..|
000017B0: 27 C2 03 97 32 30 39 39 2C 31 34 31 3A 97 32 31 |'...2099,141:.21|
000017C0: 30 30 2C 32 30 3A 97 32 31 30 31 2C 33 3A 97 32 |00,20:.2101,3:.2|
000017D0: 31 30 33 2C 38 3A 97 32 31 30 34 2C 31 34 31 3A |103,8:.2104,141:|
000017E0: 97 32 31 30 35 2C 32 31 00 24 28 C3 03 97 32 31 |.2105,21.$(...21|
000017F0: 30 36 2C 33 3A 97 32 31 31 35 2C 31 34 35 3A 97 |06,3:.2115,145:.|
00001800: 32 31 31 37 2C 35 32 3A 97 32 31 31 38 2C 32 33 |2117,52:.2118,23|
00001810: 34 3A 97 32 31 32 31 2C 34 39 3A 97 32 31 32 32 |4:.2121,49:.2122|
00001820: 2C 31 34 31 00 5E 28 C4 03 97 32 31 32 33 2C 32 |,141.^(...2123,2|
00001830: 30 3A 97 32 31 32 34 2C 33 3A 97 32 31 32 36 2C |0:.2124,3:.2126,|
00001840: 32 33 34 3A 97 32 31 32 37 2C 31 34 31 3A 97 32 |234:.2127,141:.2|
00001850: 31 32 38 2C 32 31 3A 97 32 31 32 39 2C 33 00 7C |128,21:.2129,3.||
00001860: 28 C5 03 9E 55 55 AA 34 38 3A 8F 20 44 49 53 41 |(...UU.48:. DISA|
00001870: 42 4C 45 20 53 54 4F 50 20 4B 45 59 00 8D 28 CA |BLE STOP KEY..(.|
00001880: 03 8D 38 30 30 3A 8F 20 54 49 54 4C 45 00 9D 28 |..800:. TITLE..(|
00001890: D4 03 89 33 30 30 3A 8F 20 4D 45 4E 55 00 CE 28 |...300:. MENU..(|
000018A0: DE 03 99 22 93 54 48 45 20 50 47 4D 20 57 49 4C |...".THE PGM WIL|
000018B0: 4C 20 4E 4F 54 20 57 4F 52 4B 20 4F 4E 20 54 48 |L NOT WORK ON TH|
000018C0: 49 53 20 4D 41 43 48 49 4E 45 21 22 3A 80 00 03 |IS MACHINE!":...|
000018D0: 29 E8 03 8B 55 5A B2 31 A7 9E 55 50 25 3A 9E 55 |)...UZ.1..UP%:.U|
000018E0: 50 25 3A 55 5A B2 30 3A 8F 20 2A 2A 20 50 52 4F |P%:UZ.0:. ** PRO|
000018F0: 47 52 41 4D 20 53 54 41 52 54 53 20 48 45 52 45 |GRAM STARTS HERE|
00001900: 20 2A 2A 00 2F 29 E9 03 99 22 93 05 22 3B 3A 8C | **./)..."..";:.|
00001910: 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 |:..(50003).0..53|
00001920: 32 38 31 2C 36 3A 97 35 33 32 38 30 2C 31 34 00 |281,6:.53280,14.|
00001930: 3A 29 EA 03 55 47 24 B2 22 22 00 4C 29 EB 03 55 |:)..UG$."".L)..U|
00001940: 54 24 B2 22 20 4D 41 52 4B 45 54 22 00 87 29 FC |T$." MARKET"..).|
00001950: 03 87 20 4B 32 2C 4E 2C 4B 2C 4B 33 2C 43 28 31 |.. K2,N,K,K3,C(1|
00001960: 29 2C 43 28 32 29 2C 49 28 31 29 2C 49 28 32 29 |),C(2),I(1),I(2)|
00001970: 2C 46 2C 55 2C 52 2C 47 31 2C 47 32 2C 47 33 2C |,F,U,R,G1,G2,G3,|
00001980: 4D 31 2C 4B 34 3A 8C 00 9F 29 2E 04 51 B2 30 3A |M1,K4:...)..Q.0:|
00001990: 57 32 B2 30 3A 57 34 B2 30 3A 57 33 B2 30 3A 00 |W2.0:W4.0:W3.0:.|
000019A0: AA 29 38 04 89 20 31 32 36 30 00 E4 29 EC 04 55 |.)8.. 1260..)..U|
000019B0: 47 24 B2 22 53 45 54 20 55 50 22 3A 55 50 B2 31 |G$."SET UP":UP.1|
000019C0: 3A 8D 38 35 30 3A 99 3A 99 22 20 54 48 45 52 45 |:.850:.:." THERE|
000019D0: 20 41 52 45 20 54 57 4F 20 43 4F 4D 50 41 4E 49 | ARE TWO COMPANI|
000019E0: 45 53 3A 22 00 10 2A ED 04 81 49 B2 31 A4 32 3A |ES:"..*...I.1.2:|
000019F0: 99 3A 99 22 20 45 4E 54 45 52 20 4E 41 4D 45 20 |.:." ENTER NAME |
00001A00: 4F 46 20 43 4F 4D 50 41 4E 59 20 23 22 3B 49 3B |OF COMPANY #";I;|
00001A10: 00 32 2A EE 04 55 4C B2 31 30 3A 55 53 24 B2 22 |.2*..UL.10:US$."|
00001A20: 22 3A 8D 33 35 3A 4E 24 28 49 29 B2 55 52 24 3A |":.35:N$(I).UR$:|
00001A30: 82 49 00 56 2A 46 05 99 3A 99 22 20 50 52 4F 44 |.I.V*F..:." PROD|
00001A40: 55 43 54 49 4F 4E 20 43 4F 53 54 3A 20 24 32 35 |UCTION COST: $25|
00001A50: 2F 55 4E 49 54 22 00 89 2A 50 05 99 3A 99 22 20 |/UNIT"..*P..:." |
00001A60: 57 41 52 45 48 4F 55 53 45 20 43 48 41 52 47 45 |WAREHOUSE CHARGE|
00001A70: 53 3A 20 22 3B 52 AC 31 30 30 3B 22 9D 25 20 20 |S: ";R.100;".% |
00001A80: 4F 46 20 56 41 4C 55 45 22 00 AF 2A 5A 05 99 3A |OF VALUE"..*Z..:|
00001A90: 99 22 20 49 4E 54 45 52 45 53 54 20 52 41 54 45 |." INTEREST RATE|
00001AA0: 3A 20 22 3B 4B 33 AC 31 30 30 3B 22 9D 25 22 00 |: ";K3.100;".%".|
00001AB0: B8 2A 82 05 8D 38 33 35 00 D1 2A 8C 05 81 20 4A |.*...835..*... J|
00001AC0: B2 31 20 A4 20 35 3A 45 28 4A 29 B2 30 3A 82 20 |.1 . 5:E(J).0:. |
00001AD0: 4A 00 DB 2A 96 05 50 34 B2 30 3A 00 FE 2A A0 05 |J..*..P4.0:..*..|
00001AE0: 81 20 4A B2 31 20 A4 20 32 3A 57 28 4A 29 B2 30 |. J.1 . 2:W(J).0|
00001AF0: 3A 44 28 4A 29 B2 30 3A 54 28 4A 29 B2 30 00 15 |:D(J).0:T(J).0..|
00001B00: 2B AA 05 42 28 4A 29 B2 55 AC 49 28 4A 29 AA 43 |+..B(J).U.I(J).C|
00001B10: 28 4A 29 3A 82 00 20 2B B4 05 8D 20 31 39 39 30 |(J):.. +... 1990|
00001B20: 00 26 2B BE 05 99 00 3F 2B C8 05 51 B2 51 AA 31 |.&+....?+..Q.Q.1|
00001B30: 3A 8D 20 32 32 31 30 3A 8D 20 31 37 38 30 3A 00 |:. 2210:. 1780:.|
00001B40: 7D 2B D2 05 81 20 4A B2 31 20 A4 20 32 3A 44 28 |}+... J.1 . 2:D(|
00001B50: 4A 29 B2 28 31 AB 45 28 35 29 29 AC 2E 35 AC 28 |J).(1.E(5))..5.(|
00001B60: 4B 32 AA 32 AC 56 28 4A 29 AC 44 31 29 AD 28 50 |K2.2.V(J).D1).(P|
00001B70: 28 4A 29 AD 35 30 29 AE 4E 3A 82 20 4A 00 92 2B |(J).50).N:. J..+|
00001B80: DC 05 8D 20 32 31 32 30 3A 81 20 4A B2 31 20 A4 |... 2120:. J.1 .|
00001B90: 20 32 00 A9 2B E6 05 8B 20 44 28 4A 29 B1 49 28 | 2..+... D(J).I(|
00001BA0: 4A 29 20 89 20 31 35 33 30 00 BE 2B F0 05 54 28 |J) . 1530..+..T(|
00001BB0: 4A 29 B2 44 28 4A 29 3A 89 20 31 35 34 30 00 CC |J).D(J):. 1540..|
00001BC0: 2B FA 05 54 28 4A 29 B2 49 28 4A 29 00 F1 2B 04 |+..T(J).I(J)..+.|
00001BD0: 06 54 28 4A 29 B2 B5 28 54 28 4A 29 29 3A 43 28 |.T(J)..(T(J)):C(|
00001BE0: 4A 29 B2 43 28 4A 29 AA 54 28 4A 29 AC 50 28 4A |J).C(J).T(J).P(J|
00001BF0: 29 00 08 2C 0E 06 49 28 4A 29 B2 49 28 4A 29 AB |)..,..I(J).I(J).|
00001C00: 54 28 4A 29 3A 82 20 4A 00 16 2C 18 06 81 20 4A |T(J):. J..,... J|
00001C10: B2 31 20 A4 20 32 00 58 2C 22 06 43 28 4A 29 B2 |.1 . 2.X,".C(J).|
00001C20: 43 28 4A 29 AB 52 AC 49 28 4A 29 AC 55 AB 4B 33 |C(J).R.I(J).U.K3|
00001C30: AC 43 28 4A 29 AC 28 B4 28 43 28 4A 29 29 AB B4 |.C(J).(.(C(J))..|
00001C40: 28 43 28 4A 29 29 AE 32 29 AD 32 3A 43 28 4A 29 |(C(J)).2).2:C(J)|
00001C50: B2 B5 28 43 28 4A 29 29 00 6C 2C 2C 06 8B 20 45 |..(C(J)).l,,.. E|
00001C60: 28 35 29 B2 30 20 A7 20 31 36 30 30 00 7E 2C 36 |(5).0 . 1600.~,6|
00001C70: 06 57 28 4A 29 B2 30 3A 89 20 31 36 32 30 00 97 |.W(J).0:. 1620..|
00001C80: 2C 40 06 8B 20 54 28 31 29 AA 54 28 32 29 B2 30 |,@.. T(1).T(2).0|
00001C90: 20 A7 20 31 35 39 30 00 BE 2C 4A 06 57 28 4A 29 | . 1590..,J.W(J)|
00001CA0: B2 B5 28 31 30 30 30 30 AC 54 28 4A 29 AD 28 54 |..(10000.T(J).(T|
00001CB0: 28 31 29 AA 54 28 32 29 29 29 AD 31 30 30 00 C6 |(1).T(2))).100..|
00001CC0: 2C 54 06 82 20 4A 00 D0 2C 5E 06 8D 31 39 39 30 |,T.. J..,^..1990|
00001CD0: 00 04 2D 68 06 81 4A B2 31 A4 32 3A 20 20 20 20 |..-h..J.1.2: |
00001CE0: 20 20 42 28 4A 29 B2 43 28 4A 29 AA 55 AC 49 28 | B(J).C(J).U.I(|
00001CF0: 4A 29 3A 8B 20 42 28 4A 29 B1 30 20 A7 20 31 36 |J):. B(J).0 . 16|
00001D00: 36 30 3A 82 00 13 2D 72 06 99 3A 8D 20 32 30 39 |60:...-r..:. 209|
00001D10: 30 3A 99 00 30 2D 7C 06 81 4A B2 31 A4 32 20 3A |0:..0-|..J.1.2 :|
00001D20: 8B 20 42 28 4A 29 B3 4D 31 20 89 20 31 37 33 30 |. B(J).M1 . 1730|
00001D30: 00 53 2D 86 06 8B 20 42 28 4A 29 B3 B2 43 28 33 |.S-... B(J)..C(3|
00001D40: AB 4A 29 AA 55 AC 49 28 33 AB 4A 29 20 89 20 31 |.J).U.I(3.J) . 1|
00001D50: 37 33 30 00 5F 2D 90 06 50 34 B2 31 37 3A 99 00 |730._-..P4.17:..|
00001D60: 80 2D 9A 06 99 20 A3 31 30 29 22 20 2D 2D 2D 2D |.-... .10)" ----|
00001D70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 |---------------"|
00001D80: 00 BD 2D A4 06 99 22 20 22 4E 24 28 4A 29 22 20 |..-..." "N$(J)" |
00001D90: 20 59 4F 55 20 48 41 56 45 20 52 45 41 43 48 45 | YOU HAVE REACHE|
00001DA0: 44 20 24 22 2E 30 30 31 AC 4D 31 22 20 4D 49 4C |D $".001.M1" MIL|
00001DB0: 4C 49 4F 4E 20 41 4E 44 20 57 4F 4E 22 00 DE 2D |LION AND WON"..-|
00001DC0: AE 06 99 20 A3 31 30 29 22 2D 2D 2D 2D 2D 2D 2D |... .10)"-------|
00001DD0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 E4 |-------------"..|
00001DE0: 2D B8 06 99 00 EC 2D C2 06 82 20 4A 00 02 2E CC |-.....-... J....|
00001DF0: 06 99 3A 8B 20 50 34 B3 B1 31 37 20 89 20 31 34 |..:. P4..17 . 14|
00001E00: 38 30 00 17 2E EA 06 8C 3A 8D 38 33 35 3A 9E 55 |80......:.835:.U|
00001E10: 50 25 3A 89 33 30 30 00 23 2E F4 06 81 4A B2 31 |P%:.300.#....J.1|
00001E20: A4 32 3A 00 4B 2E F9 06 3A 20 99 22 13 11 11 11 |.2:.K...: ."....|
00001E30: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 20 |............... |
00001E40: 22 3B 4E 24 28 4A 29 3B 22 3A 22 00 5F 2E FE 06 |";N$(J);":"._...|
00001E50: 3A 20 8B 45 28 32 29 B3 B1 31 A7 31 38 32 30 00 |: .E(2)..1.1820.|
00001E60: 67 2E 08 07 3A 20 8F 00 B1 2E 1C 07 99 22 13 11 |g...: ......."..|
00001E70: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00001E80: 11 11 11 20 45 4E 54 45 52 20 59 4F 55 52 20 50 |... ENTER YOUR P|
00001E90: 52 4F 44 55 43 54 49 4F 4E 20 4C 45 56 45 4C 3A |RODUCTION LEVEL:|
00001EA0: 20 20 20 20 20 20 20 20 9D 9D 9D 9D 9D 9D 9D 22 | ......."|
00001EB0: 3B 00 CC 2E 20 07 55 53 24 B2 22 30 31 32 33 34 |;... .US$."01234|
00001EC0: 35 36 37 38 39 22 3A 55 4C B2 33 3A 00 E0 2E 21 |56789":UL.3:...!|
00001ED0: 07 8D 33 35 3A 4C 28 4A 29 B2 C5 28 55 52 24 29 |..35:L(J)..(UR$)|
00001EE0: 00 0E 2F 23 07 99 22 91 20 20 20 20 20 20 20 20 |../#..". |
00001EF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001F00: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 33 | ".3|
00001F10: 2F 26 07 99 22 91 20 45 4E 54 45 52 20 41 44 56 |/&..". ENTER ADV|
00001F20: 45 52 54 49 53 49 4E 47 20 42 55 44 47 45 54 3A |ERTISING BUDGET:|
00001F30: 20 22 3B 00 49 2F 2B 07 8D 33 35 3A 41 28 4A 29 | ";.I/+..35:A(J)|
00001F40: B2 C5 28 55 52 24 29 3A 99 00 75 2F 30 07 43 28 |..(UR$):..u/0.C(|
00001F50: 4A 29 B2 43 28 4A 29 AB 46 AB 4C 28 4A 29 AC 55 |J).C(J).F.L(J).U|
00001F60: AB 41 28 4A 29 3A 8B 20 45 28 32 29 B2 31 20 89 |.A(J):. E(2).1 .|
00001F70: 20 31 38 36 30 00 88 2F 3A 07 49 28 4A 29 B2 49 | 1860../:.I(J).I|
00001F80: 28 4A 29 AA 4C 28 4A 29 00 B9 2F 3F 07 99 22 91 |(J).L(J)../?..".|
00001F90: 91 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
00001FA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001FB0: 20 20 20 20 20 20 20 20 22 00 F4 2F 44 07 99 22 | "../D.."|
00001FC0: 91 20 45 4E 54 45 52 20 55 4E 49 54 20 50 52 49 |. ENTER UNIT PRI|
00001FD0: 43 45 3A 20 20 20 20 20 20 20 20 20 9D 9D 9D 9D |CE: ....|
00001FE0: 9D 9D 9D 9D 22 3B 3A 8D 33 35 3A 41 B2 C5 28 55 |....";:.35:A..(U|
00001FF0: 52 24 29 3A 00 06 30 49 07 8B 45 28 31 29 B3 B1 |R$):..0I..E(1)..|
00002000: 31 A7 31 39 30 30 00 1B 30 4E 07 8B 20 41 B3 B2 |1.1900..0N.. A..|
00002010: 50 28 4A 29 20 89 20 31 39 30 30 00 55 30 58 07 |P(J) . 1900.U0X.|
00002020: 99 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 |."..............|
00002030: 11 11 11 11 11 11 11 20 43 4F 4E 54 52 4F 4C 53 |....... CONTROLS|
00002040: 2D 44 4F 20 4E 4F 54 20 52 41 49 53 45 20 50 52 |-DO NOT RAISE PR|
00002050: 49 43 45 53 22 00 8D 30 62 07 99 22 91 20 20 20 |ICES"..0b..". |
00002060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002080: 20 20 20 20 20 22 3B 3A 89 31 38 36 30 00 C9 30 | ";:.1860..0|
00002090: 6C 07 50 28 4A 29 B2 41 3A 8B 20 41 B1 32 30 30 |l.P(J).A:. A.200|
000020A0: A7 99 22 91 20 20 20 20 20 20 20 20 20 20 20 20 |..". |
000020B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000020C0: 20 22 20 3A 89 31 38 36 30 00 DE 30 76 07 8B 20 | " :.1860..0v.. |
000020D0: 50 28 4A 29 B3 B2 30 20 A7 20 31 38 36 30 00 10 |P(J)..0 . 1860..|
000020E0: 31 7A 07 42 4C 24 B2 22 20 20 20 20 20 20 20 20 |1z.BL$." |
000020F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "|
00002110: 00 25 31 7B 07 99 22 13 11 11 11 11 11 11 11 11 |.%1{..".........|
00002120: 11 11 11 11 22 00 38 31 7C 07 81 49 B2 31 A4 31 |....".81|..I.1.1|
00002130: 30 3A 99 42 4C 24 3A 82 00 40 31 80 07 82 20 4A |0:.BL$:..@1... J|
00002140: 00 51 31 8A 07 41 32 B2 41 28 31 29 AA 41 28 32 |.Q1..A2.A(1).A(2|
00002150: 29 00 63 31 94 07 8B 20 41 32 B1 30 20 A7 20 31 |).c1... A2.0 . 1|
00002160: 39 36 30 00 7C 31 9E 07 56 28 31 29 B2 30 3A 56 |960.|1..V(1).0:V|
00002170: 28 32 29 B2 30 3A 89 20 31 39 37 30 00 9A 31 A8 |(2).0:. 1970..1.|
00002180: 07 56 28 31 29 B2 41 28 31 29 AD 41 32 3A 56 28 |.V(1).A(1).A2:V(|
00002190: 32 29 B2 41 28 32 29 AD 41 32 00 B7 31 B2 07 44 |2).A(2).A2..1..D|
000021A0: 31 B2 28 4B 32 AB 4B 32 AC BD 28 AB 4B AC 41 32 |1.(K2.K2..(.K.A2|
000021B0: 29 29 AC 4B 34 3A 8E 00 BD 31 BC 07 8F 00 D7 31 |)).K4:...1.....1|
000021C0: C6 07 55 47 24 B2 22 43 48 41 52 54 22 3A 55 50 |..UG$."CHART":UP|
000021D0: B2 31 3A 8D 38 35 30 00 06 32 D0 07 99 22 B0 C0 |.1:.850..2..."..|
000021E0: C0 C0 C0 C0 C0 C0 C0 C0 C0 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 AE 22 00 35 32 D1 07 99 22 DD 50 52 |.....".52...".PR|
00002210: 4F 46 49 54 DD 53 48 41 52 45 DD 43 41 53 48 20 |OFIT.SHARE.CASH |
00002220: DD 23 53 4F 4C 44 DD 49 4E 56 2E 20 DD 41 53 53 |.#SOLD.INV. .ASS|
00002230: 45 54 53 DD 22 00 41 32 D2 07 81 49 B2 31 A4 32 |ETS.".A2...I.1.2|
00002240: 3A 00 70 32 D4 07 99 22 AB C0 C0 C0 C0 C0 C0 C0 |:.p2..."........|
00002250: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00002260: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 B3 22 |..............."|
00002270: 00 A8 32 D5 07 99 22 DD 22 3B 55 AC 49 28 49 29 |..2...".";U.I(I)|
00002280: AA 43 28 49 29 AB 42 28 49 29 3B A3 37 29 3B 57 |.C(I).B(I);.7);W|
00002290: 28 49 29 3B A3 31 33 29 3B 43 28 49 29 3B A3 31 |(I);.13);C(I);.1|
000022A0: 39 29 3B 54 28 49 29 3B 00 D1 32 D6 07 99 A3 32 |9);T(I);..2....2|
000022B0: 35 29 3B 49 28 49 29 3B A3 33 31 29 3B 55 AC 49 |5);I(I);.31);U.I|
000022C0: 28 49 29 AA 43 28 49 29 3B A3 33 38 29 3B 22 DD |(I).C(I);.38);".|
000022D0: 22 00 D8 32 D7 07 82 49 00 07 33 D8 07 99 22 AD |"..2...I..3...".|
000022E0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000022F0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00002300: C0 C0 C0 C0 C0 BD 22 00 0D 33 0C 08 8E 00 51 33 |......"..3....Q3|
00002310: 16 08 83 20 35 30 2C 32 2C 2E 30 30 31 2C 2E 30 |... 50,2,.001,.0|
00002320: 35 2C 35 30 30 30 2C 35 30 30 30 2C 31 30 30 2C |5,5000,5000,100,|
00002330: 31 30 30 2C 32 35 30 2C 32 30 2C 2E 30 35 2C 2E |100,250,20,.05,.|
00002340: 32 2C 2E 34 2C 2E 34 2C 31 32 30 30 30 2C 31 2E |2,.4,.4,12000,1.|
00002350: 35 00 79 33 2A 08 99 22 20 22 4E 24 28 4A 29 22 |5.y3*.." "N$(J)"|
00002360: 3A 20 59 4F 55 20 48 41 56 45 20 47 4F 4E 45 20 |: YOU HAVE GONE |
00002370: 42 41 4E 4B 52 55 50 54 22 00 92 33 3E 08 50 34 |BANKRUPT"..3>.P4|
00002380: B2 31 37 3A 8D 38 33 35 3A 9E 55 50 25 3A 89 33 |.17:.835:.UP%:.3|
00002390: 30 30 00 A9 33 48 08 8B 20 50 28 31 29 B3 50 28 |00..3H.. P(1).P(|
000023A0: 32 29 20 89 20 32 31 34 30 00 B8 33 52 08 4D B2 |2) . 2140..3R.M.|
000023B0: 32 3A 89 20 32 31 35 30 00 C0 33 5C 08 4D B2 31 |2:. 2150..3\.M.1|
000023C0: 00 EC 33 66 08 47 34 B2 28 50 28 33 AB 4D 29 AB |..3f.G4.(P(3.M).|
000023D0: 50 28 4D 29 29 AD 50 28 33 AB 4D 29 3A 8B 20 47 |P(M)).P(3.M):. G|
000023E0: 34 B3 B2 47 31 20 89 20 32 32 30 30 00 FF 33 70 |4..G1 . 2200..3p|
000023F0: 08 8B 20 47 34 B3 47 32 20 A7 20 32 31 38 30 00 |.. G4.G2 . 2180.|
00002400: 09 34 7A 08 47 34 B2 47 32 00 3D 34 84 08 47 35 |.4z.G4.G2.=4..G5|
00002410: B2 44 28 33 AB 4D 29 AC 28 28 47 34 AB 47 31 29 |.D(3.M).((G4.G1)|
00002420: AD 28 47 32 AB 47 31 29 29 AC 47 33 3A 44 28 33 |.(G2.G1)).G3:D(3|
00002430: AB 4D 29 B2 44 28 33 AB 4D 29 AB 47 35 00 4E 34 |.M).D(3.M).G5.N4|
00002440: 8E 08 44 28 4D 29 B2 44 28 4D 29 AB 47 35 00 54 |..D(M).D(M).G5.T|
00002450: 34 98 08 8E 00 65 34 A2 08 8B 20 51 B3 36 20 89 |4....e4... Q.6 .|
00002460: 20 32 34 30 30 00 7A 34 AC 08 8B 20 BB 28 31 29 | 2400.z4... .(1)|
00002470: B3 2E 31 20 A7 20 32 32 37 30 00 8F 34 B6 08 8B |..1 . 2270..4...|
00002480: 20 BB 28 31 29 B1 2E 39 20 A7 20 32 32 39 30 00 | .(1)..9 . 2290.|
00002490: A4 34 C0 08 8B 20 BB 28 31 29 B3 2E 31 20 A7 20 |.4... .(1)..1 . |
000024A0: 32 33 35 30 00 B9 34 CA 08 8B 20 BB 28 31 29 B1 |2350..4... .(1).|
000024B0: 2E 39 20 A7 20 32 33 37 30 00 C4 34 D4 08 89 20 |.9 . 2370..4... |
000024C0: 32 34 30 30 00 D8 34 DE 08 8B 20 45 28 31 29 B1 |2400..4... E(1).|
000024D0: 30 20 A7 20 32 32 33 30 00 F6 34 E8 08 8D 20 32 |0 . 2230..4... 2|
000024E0: 34 38 30 3A 45 28 31 29 B2 31 3A 51 31 B2 51 3A |480:E(1).1:Q1.Q:|
000024F0: 89 20 32 32 33 30 00 18 35 F2 08 49 B2 B5 28 BB |. 2230..5..I..(.|
00002500: 28 31 29 AA 31 2E 35 29 3A 8B 20 51 AB 57 32 B3 |(1).1.5):. Q.W2.|
00002510: B2 32 A7 20 32 32 34 30 00 26 35 F7 08 8B 49 B1 |.2. 2240.&5...I.|
00002520: 32 A7 32 32 39 30 00 3B 35 FC 08 8B 20 43 28 49 |2.2290.;5... C(I|
00002530: 29 B3 B2 30 20 89 20 32 32 34 30 00 51 35 06 09 |)..0 . 2240.Q5..|
00002540: 8B 20 43 28 49 29 B1 32 30 30 20 89 20 32 33 33 |. C(I).200 . 233|
00002550: 30 00 6A 35 10 09 43 28 49 29 B2 43 28 49 29 AC |0.j5..C(I).C(I).|
00002560: 2E 37 35 3A 89 20 32 33 34 30 00 7C 35 1A 09 43 |.75:. 2340.|5..C|
00002570: 28 49 29 B2 43 28 49 29 AB 32 30 30 00 93 35 24 |(I).C(I).200..5$|
00002580: 09 8D 20 32 35 31 30 3A 57 32 B2 51 3A 89 20 32 |.. 2510:W2.Q:. 2|
00002590: 32 34 30 00 B7 35 2E 09 4A B2 B5 28 BB 28 31 29 |240..5..J..(.(1)|
000025A0: AA 31 2E 34 39 29 3A 8B 20 51 AB 57 33 B3 B2 32 |.1.49):. Q.W3..2|
000025B0: 20 89 20 32 32 35 30 00 EA 35 38 09 8D 20 32 35 | . 2250..58.. 25|
000025C0: 34 30 3A 43 28 4A 29 B2 43 28 4A 29 AA 55 AC 49 |40:C(J).C(J).U.I|
000025D0: 28 4A 29 AC 2E 37 35 3A 49 28 4A 29 B2 30 3A 57 |(J)..75:I(J).0:W|
000025E0: 33 B2 51 3A 89 20 32 32 35 30 00 FE 35 42 09 8B |3.Q:. 2250..5B..|
000025F0: 20 45 28 31 29 B2 31 20 89 20 32 34 30 30 00 13 | E(1).1 . 2400..|
00002600: 36 4C 09 8B 20 51 AB 57 34 B3 B2 32 20 89 20 32 |6L.. Q.W4..2 . 2|
00002610: 34 30 30 00 2E 36 56 09 57 34 B2 51 3A 8D 32 35 |400..6V.W4.Q:.25|
00002620: 39 30 3A 45 28 35 29 B2 31 3A 51 32 B2 51 00 4D |90:E(5).1:Q2.Q.M|
00002630: 36 60 09 8B 20 B5 28 28 51 AB 31 29 AD 34 29 AC |6`.. .((Q.1).4).|
00002640: 34 B3 B1 51 AB 31 20 89 20 32 36 38 30 00 67 36 |4..Q.1 . 2680.g6|
00002650: 6A 09 8B 20 51 B2 31 20 B0 20 45 28 31 29 B2 31 |j.. Q.1 . E(1).1|
00002660: 20 89 20 32 36 38 30 00 7D 36 74 09 8B 20 BB 28 | . 2680.}6t.. .(|
00002670: 31 29 B1 2E 32 35 20 89 20 32 34 35 30 00 8E 36 |1)..25 . 2450..6|
00002680: 7E 09 8B 20 51 B3 36 20 89 20 32 36 38 30 00 C0 |~.. Q.6 . 2680..|
00002690: 36 88 09 8D 32 35 39 30 3A 45 28 32 29 B2 31 3A |6...2590:E(2).1:|
000026A0: 55 B2 B5 28 55 AC 28 31 2E 31 AA 2E 31 AC BB 28 |U..(U.(1.1..1..(|
000026B0: 31 29 29 29 3A 51 33 B2 51 3A 89 20 32 36 38 30 |1))):Q3.Q:. 2680|
000026C0: 00 05 37 92 09 55 B2 B5 28 55 AC 28 31 2E 30 35 |..7..U..(U.(1.05|
000026D0: AA 2E 31 AC BB 28 31 29 29 29 3A 99 22 11 20 4E |..1..(1))):.". N|
000026E0: 45 57 20 4C 41 42 4F 52 20 43 4F 4E 54 52 41 43 |EW LABOR CONTRAC|
000026F0: 54 2D 56 41 52 49 41 42 4C 45 20 50 52 4F 44 55 |T-VARIABLE PRODU|
00002700: 43 54 49 4F 4E 00 28 37 9C 09 99 22 20 43 4F 53 |CTION.(7..." COS|
00002710: 54 20 4E 4F 57 20 3D 20 24 22 55 3B 22 20 50 45 |T NOW = $"U;" PE|
00002720: 52 20 55 4E 49 54 2E 22 00 33 37 A6 09 89 20 32 |R UNIT.".37... 2|
00002730: 36 38 30 00 5C 37 B0 09 99 22 20 57 41 47 45 20 |680.\7..." WAGE |
00002740: 41 4E 44 20 50 52 49 43 45 20 43 4F 4E 54 52 4F |AND PRICE CONTRO|
00002750: 4C 53 20 49 4D 50 4F 53 45 44 2D 22 00 80 37 C4 |LS IMPOSED-"..7.|
00002760: 09 99 3A 99 22 20 59 4F 55 20 4D 41 59 20 4E 4F |..:." YOU MAY NO|
00002770: 54 20 52 41 49 53 45 20 50 52 49 43 45 53 20 22 |T RAISE PRICES "|
00002780: 00 86 37 C9 09 8E 00 B0 37 CE 09 99 22 20 22 4E |..7.....7..." "N|
00002790: 24 28 49 29 3B 22 3A 20 53 54 41 46 46 20 48 41 |$(I);": STAFF HA|
000027A0: 53 20 45 4D 42 45 5A 5A 4C 45 44 20 24 24 24 22 |S EMBEZZLED $$$"|
000027B0: 00 DF 37 D8 09 99 3A 99 22 20 59 4F 55 20 4E 4F |..7...:." YOU NO|
000027C0: 57 20 48 41 56 45 20 24 22 3B 43 28 49 29 22 20 |W HAVE $";C(I)" |
000027D0: 43 41 53 48 20 4F 4E 20 48 41 4E 44 22 3A 8E 00 |CASH ON HAND":..|
000027E0: 10 38 EC 09 99 22 20 22 4E 24 28 4A 29 3B 22 3A |.8..." "N$(J);":|
000027F0: 59 4F 55 52 20 57 41 52 45 48 4F 55 53 45 20 48 |YOUR WAREHOUSE H|
00002800: 41 53 20 42 55 52 4E 45 44 20 44 4F 57 4E 2D 22 |AS BURNED DOWN-"|
00002810: 00 39 38 F6 09 99 3A 20 99 22 20 41 4C 4C 20 55 |.98...: ." ALL U|
00002820: 4E 49 54 53 20 48 41 56 45 20 42 45 45 4E 20 44 |NITS HAVE BEEN D|
00002830: 45 53 54 52 4F 59 45 44 22 00 65 38 00 0A 99 3A |ESTROYED".e8...:|
00002840: 20 99 22 20 49 4E 53 55 52 41 4E 43 45 20 50 41 | ." INSURANCE PA|
00002850: 59 53 20 59 4F 55 3A 20 24 22 3B 55 AC 55 28 4A |YS YOU: $";U.U(J|
00002860: 29 AC 2E 37 35 00 6B 38 14 0A 8E 00 71 38 1E 0A |)..75.k8....q8..|
00002870: 8F 00 9F 38 28 0A 99 3A 99 22 20 54 52 41 4E 53 |...8(..:." TRANS|
00002880: 50 4F 52 54 20 53 54 52 49 4B 45 3A 20 4E 4F 20 |PORT STRIKE: NO |
00002890: 53 41 4C 45 53 20 50 4F 53 53 49 42 4C 45 22 00 |SALES POSSIBLE".|
000028A0: A6 38 46 0A 3A 8E 00 BB 38 78 0A 8B 20 45 28 31 |.8F.:...8x.. E(1|
000028B0: 29 B3 B1 31 20 A7 20 32 37 31 30 00 CF 38 82 0A |)..1 . 2710..8..|
000028C0: 8B 20 51 B3 51 31 AA 32 20 A7 20 32 37 31 30 00 |. Q.Q1.2 . 2710.|
000028D0: 03 39 8C 0A 45 28 31 29 B2 32 3A 99 3A 99 22 20 |.9..E(1).2:.:." |
000028E0: 54 48 45 20 57 41 47 45 2D 50 52 49 43 45 20 46 |THE WAGE-PRICE F|
000028F0: 52 45 45 5A 45 20 48 41 53 20 45 4E 44 45 44 2E |REEZE HAS ENDED.|
00002900: 22 3A 99 00 19 39 96 0A 8B 20 45 28 35 29 B3 B1 |":...9... E(5)..|
00002910: 20 31 20 A7 20 32 37 35 30 00 2B 39 A0 0A 8B 20 | 1 . 2750.+9... |
00002920: 51 32 B2 51 20 A7 20 32 37 35 30 00 5A 39 AA 0A |Q2.Q . 2750.Z9..|
00002930: 45 28 35 29 B2 30 3A 99 3A 99 22 20 20 20 20 20 |E(5).0:.:." |
00002940: 20 54 52 41 4E 53 50 4F 52 54 20 53 54 52 49 4B | TRANSPORT STRIK|
00002950: 45 20 53 45 54 54 4C 45 44 22 00 6F 39 BE 0A 8B |E SETTLED".o9...|
00002960: 20 45 28 32 29 B3 B1 31 20 89 20 32 38 30 30 00 | E(2)..1 . 2800.|
00002970: 81 39 C8 0A 8B 20 51 33 B2 51 20 89 20 32 38 30 |.9... Q3.Q . 280|
00002980: 30 00 AF 39 D2 0A 99 22 20 53 54 52 49 4B 45 20 |0..9..." STRIKE |
00002990: 53 45 54 54 4C 45 44 2E 20 4E 4F 52 4D 41 4C 20 |SETTLED. NORMAL |
000029A0: 50 52 4F 44 55 43 54 49 4F 4E 20 48 41 53 22 00 |PRODUCTION HAS".|
000029B0: D7 39 DC 0A 99 22 20 42 45 45 4E 20 52 45 53 55 |.9..." BEEN RESU|
000029C0: 4D 45 44 2E 20 4E 45 57 20 56 41 52 49 41 42 4C |MED. NEW VARIABL|
000029D0: 45 20 55 4E 49 54 22 00 15 3A E6 0A 99 22 20 43 |E UNIT"..:..." C|
000029E0: 4F 53 54 20 3D 20 24 22 55 3B 22 2F 55 4E 49 54 |OST = $"U;"/UNIT|
000029F0: 20 44 55 45 20 54 4F 20 49 4E 43 52 45 41 53 45 | DUE TO INCREASE|
00002A00: 44 22 3A 99 22 20 57 41 47 45 53 22 3A 99 3A 45 |D":." WAGES":.:E|
00002A10: 28 32 29 B2 30 00 1B 3A F0 0A 8E 00 34 3A FA 0A |(2).0..:....4:..|
00002A20: 99 22 20 48 4F 50 45 20 59 4F 55 20 48 41 44 20 |." HOPE YOU HAD |
00002A30: 46 55 4E 22 00 3A 3A 56 0E 8E 00 00 00 |FUN".::V..... |
..7....65301,8:.65305,16:.65297,15:.G(14
):Z1,900,7:.800.W.... ** ML STOP KEY DIS
ABLE **......"X.=........X` ......LX.X.U
........X`......"XHHH.H.HHHHHHH.H.HX`111
"......"HHHHHHH`1".T.... ** 4 - POP ML S
UBROUTINE **...... **GENERAL INPUT ROUTI
NE **.....:.....:...#.. +++ INPUT SECTIO
N +++.5.(..UO,0:UR$."":UI$."".E.*..UL.0.
UL.80.O.-..UC,0.C.2..UI$:.UI$."".50...7.
.UI$.G(13).C(UR$)..1..UC,1:." .";:.85. .
<..UI$.G(20).105...>.. C(UR$)..UL.50.Y.A
..120:. CHECK FOR VALID CHARACTER...F.UR
$.UR$.UI$...K..UI$;...P..50. .U.. +++ CH
ECK FOR HELP REQUEST +++.H.Z..UR$.UX$.19
5:. EXIT TO HELP ROUTINE.W._..UF.1..240.
D.D.UF.0:.:..}.F.. ++ CHECK DELETE ++...
I..C(UR$).1.50...N.UR$.H(UR$,C(UR$).1)..
.S..". ..";:.50...X.. ++ CHECK FOR VALI
D CHARACTERS ++...}..C(US$).0.150......U
S.1.C(US$)......UI$.J(US$,US,1).........
,...UI$."":..G.... ** STANDARD INPUT **.
X....F(UI$).46...I....UI$.G(32)..... ..F
(UI$).48.F(UI$).57.170............F(UI$)
.65.F(UI$).90.180.......S....F(UI$).193.
F(UI$).218.UI$."":.......B(UT).UU%.UI$.G
(F(UI$).128):............UI$."":....C.UF
.1:. +++ HELP ROUTINE EXIT +++.7.E..250.
@.H..245._.M..UQ.UB.(U2%.256.U1%.U3%.2).
{.R.UQ%(UQ.UB).B(UQ):.:."."...W.UZ.1:UV%
.B(UT)...X..300...Y.UZ.0:US$.UJ$:UG$.UK$
:UP.UJ:UL.UK:.B(50003).0..53281,6:.53280
,14.....UT$.UL$:.".";:.UT,UV%:.UQ.UB.(U2
%.256.U1%.U3%.3).%....UQ,UQ%(UQ.UB):..1.
...U1,U1%.=....U2,U2%.I....U4,U4%.W....U
3,U3%.1._....35.....UD%.((U2%.256.U1%.U3
%).UB).40:.H(UD$,UD%.1):..L....H(UD$,24)
;" . HELP COMING .
":......U1%.B(U1):U2%.B(U2):U3%.B(U3):U
4%.B(U4). ...UJ$.US$:UK$.UG$:UL$.UT$:UJ.
UP:UK.UL.&.....7.,.. ** MENU **.=.-.:.L.
...".":.UT,UU%:.B(50003).0..53281,9:.532
80,8.R./.:...1..". MENU".
..6.." ---------------------------------
-----"...;..".. 1. BEGIN MARKET.
..@..".. 2. STUDENT INSTRUCTIONS
".3.E..".. 3. TEACHER INSTRUCTIO
NS".O.O..".. 4. QUIT..".~.T.." -
-------------------------------------"..
.Y..".. PRESS A NUMBER KEY (1-4) "
;.Q.^.UL.1:US$."1234":.35:. INPUT ROUTIN
E...`.US$.""...C..E(UR$).1000,400,500,39
6...H..300.).... ** RE-ENABLE STOP KEY A
ND END **.X....B(50003)..1.B(50003)..160
.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.....UT$." MARKET":UP.1:UG$."STUDENT IN
ST":.850.E....:." THIS PROGRAM IS DESI
GNED TO TEST".O. ..:." YOUR ABILITY TO M
ANAGE A STORE."......:." ONCE YOU CHOO
SE THE NAME OF YOUR ".K....:." STORE YOU
WILL SEE A CHART OF YOUR "......:." HOL
DINGS. 'SHARE' REFERS TO THE %".#....:.
" OF THE MARKET WHICH YOU CONTROL.".Q...
.:." THEN YOU MUST DECIDE HOW MUCH OF
"......:." YOUR PRODUCT TO PRODUCE AND W
HAT PRICE"......:." TO SELL IT FOR."....
..835:UP.2:.850......:." THE FIRST PLA
YER TO REACH 12000 IN"......:." ASSETS W
INS THE GAME."......835......UZ.1..UP%:.
217.!.....B.... ** TEACHER INSTRUCTIONS
**.R....".":.UT,UL%:.B(50003).0..53281,2
:.53280,10.....UT$." MARKET":UP.1:UG$."T
EACHER INST":.850.O....".. TO THE B
EST OF OUR KNOWLEDGE,."......" THIS PR
OGRAM IS IN THE PUBLIC.".$...." DOMAIN
. IF THIS IS NOT THE CASE.".A...." PL
EASE CONTACT:...".K...." COMMODORE
BUSINESS MACHINES."......" 3370
PHARMACY AVE......." AGINCOURT
, ONTARIO".T...." CANADA M1W
2K4"......" (416) 499-4292"....
.UP.2:. 835:. 850:.4...." ..PROGRAM
NAME: MARKET ..V...." WRITTEN
BY : UNKNOWN..Z...." UPGRADED BY :
......." .THIS PROGRAM WILL
RUN ON ANY...L...." BASIC 2.0 P
ET COMPUTER......." BASIC 4.0 PE
T COMPUTER......." 8032 CBM COMP
UTER..:...." COMMODORE 64 COMPUT
ER.C....835.W.N..UZ.1..UP%:.217.].W.....
X.. ** PROGRAM MODIFICATION INST **...Y.
.".":.UT,UL%...].UP.0:UG$."PROGRAM MOD":
.850......835.Q....UZ.1..UP%:.217.W.....
..... ** TO USE 8032 LOAD CBM4032 **.2.F
..".....BEFORE RUNNING THIS PROGRAM ON A
N 8032 ...H.P.." LOAD THE 'CBM 403
2' PROGRAM.............".S.Z..UU.71.Y...
.... .. ** T I T L E P A G E **.M.".."
....";:.UT,UU%:.B(50003).0..53280,14:.53
281,6...$..I.1.38:."...";:....&..I.1.22:
.".....";:... (..I.1.37:.".....";:..+ *.
.I.1.22:.".....";:..P ,.."..............
............. ..R ...".................
.. . . .... 0.."................... .
..... 2..".................... ..Y 4.."
..............C O M M O D O R E.... 6.."
...............EDUCATIONAL....!8..".....
...........SOFTWARE.6!:.. ** COMMODORE L
OGO **.N!;..H(UD$,24);"..........PRESS S
PACE BAR OR WAIT.":I.0..!<..A$:.A$.." ".
I.I.1:.I.250.828..!>.T1$."":T2$."":T3$."
":T4$."":I.0..!@..300.Y!C.. ** SPACE BAR
PRESS **.."H..UO,0:.H(UD$,24);".......P
RESS SPACE BAR TO CONTINUE.":Z2,900,2.4"
L..UI$:.UI$.." ".844.:"N...Z"R.. ** PAGE
DESIGN ROUTINE **.`"T...."W.."."H(UT$.U
P$,21);I(UP$.UG$.D(UP),18).."\.." ------
--------------------------------".H"`..U
H..0.870.."A..H(UD$,24);H(UP$,7);"HELP -
PRESS H <RETURN>"..#F.UH.0:."..":UP.U
P.1:..4#K.. ** PLEASE WAIT REMARK **.J#P
..H(UD$,24);" ONE MOMENT PLEAS
E... ".P#U....#... ** SET UP VARIABL
ES **.X#..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.
32768:UO.158:. 50003,0.Y$...B(50003).0.U
B.1024:U1.209:U2.210:U3.211:U4.214:UC.20
4:UU.2048..$...B(50003).0.UT.53272:UU%.2
1:UL%.23:UP%.2139:UM.1024:UO.198..$..UD$
."........................."..$..UP$."
".<
%..UT$." MARKET ":. PLACE PRO
GRAM TITLE HERE !!!!!!!!!!!!!!!!!***.B%.
...\%... ** SET VARIABLES **.E%...900..%
... ** CHECK FOR 8032 **..%...".":." ":.
SHIFTED SPACE..%...B(UB.40)..96..700.N%
... ** MEMORY CHECK **..%... .(0).2000.9
37..&..."....THIS MACHINE DOES NOT HAVE
ENOUGH.".4&..."MEMORY TO RUN THIS PROGRA
M !".?&...UU.71.E&...._&..."..":.B(50003
).0.962..&... ** BASIC 2.0 OR 4.0 OR
C-64 SETUP **.L&...1075,133:.1076,144:.
1077,234:.1079,4:.1080,133:.1081,145..'.
..1091,155:.1098,133:.1099,144:.1100,234
:.1103,133.$'...1104,145:.1105,234:.1082
,234.;'...B(50003)..160.955.J'...1093,88
:.1094,228:.1097,85:.1102,228:.965.'...
B(50003)..1.990..'...1093,49:.1094,230:.
1097,46:.1102,230:.965..'B..2099,141:.21
00,20:.2101,3:.2103,8:.2104,141:.2105,21
.$(C..2106,3:.2115,145:.2117,52:.2118,23
4:.2121,49:.2122,141.^(D..2123,20:.2124,
3:.2126,234:.2127,141:.2128,21:.2129,3.|
(E..UU.48:. DISABLE STOP KEY..(J..800:.
TITLE..(T..300:. MENU.N(...".THE PGM WIL
L NOT WORK ON THIS MACHINE!":...)...UZ.1
..UP%:.UP%:UZ.0:. ** PROGRAM STARTS HERE
**./)..."..";:.:.B(50003).0..53281,6:.5
3280,14.:)..UG$."".L)..UT$." MARKET"..).
.. K2,N,K,K3,C(1),C(2),I(1),I(2),F,U,R,G
1,G2,G3,M1,K4:...)..Q.0:W2.0:W4.0:W3.0:.
.)8.. 1260..)..UG$."SET UP":UP.1:.850:.:
." THERE ARE TWO COMPANIES:"..*...I.1.2:
.:." ENTER NAME OF COMPANY #";I;.2*..UL.
10:US$."":.35:N$(I).UR$:.I.V*F..:." PROD
UCTION COST: $25/UNIT"..*P..:." WAREHOUS
E CHARGES: ";R.100;".% OF VALUE"..*Z..:
." INTEREST RATE: ";K3.100;".%"..*...835
.Q*... J.1 . 5:E(J).0:. J..*..P4.0:..* .
. J.1 . 2:W(J).0:D(J).0:T(J).0..+..B(J).
U.I(J).C(J):.. +... 1990.&+....?+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..+
... 2120:. J.1 . 2..+... D(J).I(J) . 153
0..+..T(J).D(J):. 1540.L+..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.X,".C(J).
C(J).R.I(J).U.K3.C(J).(.(C(J))..(C(J)).2
).2:C(J)..(C(J)).L,,.. E(5).0 . 1600.~,6
.W(J).0:. 1620..,@.. T(1).T(2).0 . 1590.
.,J.W(J)..(10000.T(J).(T(1).T(2))).100.F
,T.. J.P,^..1990..-H..J.1.2: B(J).C
(J).U.I(J):. B(J).0 . 1660:...-R..:. 209
0:..0-|..J.1.2 :. B(J).M1 . 1730.S-... B
(J)..C(3.J).U.I(3.J) . 1730._-..P4.17:..
.-... .10)" -------------------"..-..."
"N$(J)" YOU HAVE REACHED $".001.M1" MIL
LION AND WON"..-... .10)"---------------
-----"..-.....-B.. J...L..:. P4..17 . 14
80......:.835:.UP%:.300.#....J.1.2:.K...
: ."................... ";N$(J);":"._...
: .E(2)..1.1820.G...: ......."..........
........... ENTER YOUR PRODUCTION LEVEL:
.......";.L. .US$."0123456789":U
L.3:...!..35:L(J).E(UR$)../#..".
".3/&..". E
NTER ADVERTISING BUDGET: ";.I/+..35:A(J)
.E(UR$):..U/0.C(J).C(J).F.L(J).U.A(J):.
E(2).1 . 1860../:.I(J).I(J).L(J)../?..".
.
"../D..". ENTER UNIT PRICE: ....
....";:.35:A.E(UR$):..0I..E(1)..1.1900..
0N.. A..P(J) . 1900.U0X.."..............
....... CONTROLS-DO NOT RAISE PRICES"..0
B..".
";:.1860.I0L.P(J).A:. A.200..".
" :.1860..0V..
P(J)..0 . 1860..1Z.BL$."
".%1{..".........
....".81|..I.1.10:.BL$:..@1... J.Q1..A2.
A(1).A(2).C1... A2.0 . 1960.|1..V(1).0:V
(2).0:. 1970..1..V(1).A(1).A2:V(2).A(2).
A2..1..D1.(K2.K2..(.K.A2)).K4:...1....W1
F.UG$."CHART":UP.1:.850..2P.."..........
.............................".52Q..".PR
OFIT.SHARE.CASH .#SOLD.INV. .ASSETS.".A2
R..I.1.2:.P2T.."........................
..............."..2U..".";U.I(I).C(I).B(
I);.7);W(I);.13);C(I);.19);T(I);.Q2V...2
5);I(I);.31);U.I(I).C(I);.38);".".X2W..I
..3X..".................................
......"..3....Q3... 50,2,.001,.05,5000,5
000,100,100,250,20,.05,.2,.4,.4,12000,1.
5.Y3*.." "N$(J)": YOU HAVE GONE BANKRUPT
"..3>.P4.17:.835:.UP%:.300..3H.. P(1).P(
2) . 2140..3R.M.2:. 2150..3\.M.1..3F.G4.
(P(3.M).P(M)).P(3.M):. G4..G1 . 2200..3P
.. G4.G2 . 2180..4Z.G4.G2.=4..G5.D(3.M).
((G4.G1).(G2.G1)).G3:D(3.M).D(3.M).G5.N4
..D(M).D(M).G5.T4....E4... Q.6 . 2400.Z4
... .(1)..1 . 2270..4... .(1)..9 . 2290.
.4... .(1)..1 . 2350..4J.. .(1)..9 . 237
0.D4T.. 2400.X4... E(1).0 . 2230..4... 2
480:E(1).1:Q1.Q:. 2230..5..I..(.(1).1.5)
:. Q.W2..2. 2240.&5...I.2.2290.;5... C(I
)..0 . 2240.Q5... C(I).200 . 2330.J5..C(
I).C(I)..75:. 2340.|5..C(I).C(I).200..5$
.. 2510:W2.Q:. 2240..5..J..(.(1).1.49):.
Q.W3..2 . 2250..58.. 2540:C(J).C(J).U.I
(J)..75:I(J).0:W3.Q:. 2250..5B.. E(1).1
. 2400..6L.. Q.W4..2 . 2400..6V.W4.Q:.25
90:E(5).1:Q2.Q.M6`.. .((Q.1).4).4..Q.1 .
2680.G6J.. Q.1 . E(1).1 . 2680.}6T.. .(
1)..25 . 2450..6~.. Q.6 . 2680..6...2590
:E(2).1:U..(U.(1.1..1..(1))):Q3.Q:. 2680
..7..U..(U.(1.05..1..(1))):.". NEW LABOR
CONTRACT-VARIABLE PRODUCTION.(7..." COS
T NOW = $"U;" PER UNIT.".37... 2680.\7..
." WAGE AND PRICE CONTROLS IMPOSED-"..7D
..:." YOU MAY NOT RAISE PRICES "..7I....
7N.." "N$(I);": STAFF HAS EMBEZZLED $$$"
..7X..:." YOU NOW HAVE $";C(I)" CASH ON
HAND":...8..." "N$(J);":YOUR WAREHOUSE H
AS BURNED DOWN-".98...: ." ALL UNITS HAV
E BEEN DESTROYED".E8...: ." INSURANCE PA
YS YOU: $";U.U(J)..75.K8....Q8.....8(..:
." TRANSPORT STRIKE: NO SALES POSSIBLE".
.8F.:...8X.. E(1)..1 . 2710.O8... Q.Q1.2
. 2710..9..E(1).2:.:." THE WAGE-PRICE F
REEZE HAS ENDED.":...9... E(5).. 1 . 275
0.+9 .. Q2.Q . 2750.Z9..E(5).0:.:."
TRANSPORT STRIKE SETTLED".O9... E(2)..1
. 2800..9H.. Q3.Q . 2800..9R.." STRIKE
SETTLED. NORMAL PRODUCTION HAS".W9..." B
EEN RESUMED. NEW VARIABLE UNIT"..:..." C
OST = $"U;"/UNIT DUE TO INCREASED":." WA
GES":.:E(2).0..:....4:..." HOPE YOU HAD
FUN".::V.....
> CLICK IMAGE PREVIEW FOR FULL MODAL