EQUATIONS 2.C3
FILE INFORMATION
FILENAME(S): EQUATIONS 2.C3
FILE TYPE(S): PRG
FILE SIZE: 13.7K
FIRST SEEN: 2025-11-02 16:26:33
APPEARS ON: 1 disk(s)
FILE HASH
6edc33d417a55a644586bf3fdf7b772c6914b1e134c24045e5bedc3b96bcebc2
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SCHU LERN 13 | EQUATIONS 2.C3 | PRG | Treasure Chest - Murdock | 23 | 9 | 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 C9 08 0A 00 8F 2D 2D 2D |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 2D 2D 2D 2D 00 CF 08 0F 00 3A 00 |UTINE----.....:.|
000000D0: EF 08 14 00 8F 2D 2D 2D 2D 2D 53 45 54 20 55 50 |.....-----SET UP|
000000E0: 20 56 41 52 49 41 42 4C 45 53 2D 2D 2D 2D 2D 00 | VARIABLES-----.|
000000F0: 02 09 18 00 AB 53 55 42 54 52 41 43 54 20 42 41 |.....SUBTRACT BA|
00000100: 47 53 00 08 09 19 00 3A 00 0E 09 1E 00 3A 00 2B |GS.....:.....:.+|
00000110: 09 23 00 8F 2D 2D 2D 2D 2D 49 4E 50 55 54 20 53 |.#..-----INPUT S|
00000120: 45 43 54 49 4F 4E 2D 2D 2D 2D 2D 00 40 09 28 00 |ECTION-----.@.(.|
00000130: 3A 20 20 55 52 24 B2 22 22 3A 55 49 24 B2 22 22 |: UR$."":UI$.""|
00000140: 00 54 09 2A 00 3A 20 20 8B 20 55 4C B2 30 A7 55 |.T.*.: . UL.0.U|
00000150: 4C B2 38 30 00 67 09 2D 00 99 22 20 20 9D 9D 22 |L.80.g.-.." .."|
00000160: 3B 3A 97 55 43 2C 30 00 7E 09 32 00 3A 20 20 A1 |;:.UC,0.~.2.: .|
00000170: 55 49 24 3A 8B 55 49 24 B2 22 22 A7 35 30 00 AB |UI$:.UI$."".50..|
00000180: 09 37 00 3A 20 20 8B 55 49 24 B2 C7 28 31 33 29 |.7.: .UI$..(13)|
00000190: AF C3 28 55 52 24 29 B1 B2 31 A7 97 55 43 2C 31 |..(UR$)..1..UC,1|
000001A0: 3A 99 22 20 9D 22 3B 3A 89 38 35 00 C1 09 3C 00 |:." .";:.85...<.|
000001B0: 3A 20 20 8B 55 49 24 B2 C7 28 32 30 29 A7 31 30 |: .UI$..(20).10|
000001C0: 35 00 D9 09 3E 00 3A 20 20 8B 20 C3 28 55 52 24 |5...>.: . .(UR$|
000001D0: 29 B2 B1 55 4C 20 A7 35 30 00 01 0A 41 00 3A 20 |)..UL .50...A.: |
000001E0: 20 8D 31 32 30 3A 8F 20 43 48 45 43 4B 20 46 4F | .120:. CHECK FO|
000001F0: 52 20 56 41 4C 49 44 20 43 48 41 52 41 43 54 45 |R VALID CHARACTE|
00000200: 52 00 14 0A 46 00 3A 20 20 55 52 24 B2 55 52 24 |R...F.: UR$.UR$|
00000210: AA 55 49 24 00 21 0A 4B 00 3A 20 20 99 55 49 24 |.UI$.!.K.: .UI$|
00000220: 3B 00 2C 0A 50 00 3A 20 20 89 35 30 00 52 0A 55 |;.,.P.: .50.R.U|
00000230: 00 8F 2D 2D 2D 2D 2D 43 48 45 43 4B 20 46 4F 52 |..-----CHECK FOR|
00000240: 20 48 45 4C 50 20 52 45 51 55 45 53 54 2D 2D 2D | HELP REQUEST---|
00000250: 2D 2D 00 7D 0A 5A 00 3A 20 20 8B 55 52 24 B2 55 |--.}.Z.: .UR$.U|
00000260: 58 24 A7 31 39 35 3A 8F 20 45 58 49 54 20 54 4F |X$.195:. EXIT TO|
00000270: 20 48 45 4C 50 20 52 4F 55 54 49 4E 45 00 8F 0A | HELP ROUTINE...|
00000280: 5F 00 3A 20 20 8B 55 46 B2 31 A7 8D 32 34 30 00 |_.: .UF.1..240.|
00000290: 9E 0A 64 00 3A 20 55 46 B2 30 3A 99 3A 8E 00 BA |..d.: UF.0:.:...|
000002A0: 0A 66 00 8F 2D 2D 2D 2D 2D 43 48 45 43 4B 20 44 |.f..-----CHECK D|
000002B0: 45 4C 45 54 45 2D 2D 2D 2D 2D 00 CD 0A 69 00 3A |ELETE-----...i.:|
000002C0: 20 8B C3 28 55 52 24 29 B3 31 A7 35 30 00 E7 0A | ..(UR$).1.50...|
000002D0: 6E 00 3A 20 55 52 24 B2 C8 28 55 52 24 2C C3 28 |n.: UR$..(UR$,.(|
000002E0: 55 52 24 29 AB 31 29 00 FB 0A 73 00 3A 20 99 22 |UR$).1)...s.: ."|
000002F0: 9D 20 20 9D 9D 22 3B 3A 89 35 30 00 25 0B 78 00 |. ..";:.50.%.x.|
00000300: 8F 2D 2D 2D 2D 2D 43 48 45 43 4B 20 46 4F 52 20 |.-----CHECK FOR |
00000310: 56 41 4C 49 44 20 43 48 41 52 41 43 54 45 52 53 |VALID CHARACTERS|
00000320: 2D 2D 2D 2D 2D 00 3A 0B 7D 00 3A 20 20 8B C3 28 |-----.:.}.: ..(|
00000330: 55 53 24 29 B2 30 A7 31 35 30 00 4E 0B 82 00 3A |US$).0.150.N...:|
00000340: 20 20 81 55 53 B2 31 A4 C3 28 55 53 24 29 00 6A | .US.1..(US$).j|
00000350: 0B 87 00 3A 20 20 20 20 8B 55 49 24 B2 CA 28 55 |...: .UI$..(U|
00000360: 53 24 2C 55 53 2C 31 29 A7 8E 00 73 0B 8C 00 3A |S$,US,1)...s...:|
00000370: 20 20 82 00 83 0B 91 00 3A 20 20 55 49 24 B2 22 | ......: UI$."|
00000380: 22 3A 8E 00 A1 0B 96 00 8F 2D 2D 2D 2D 2D 53 54 |":.......-----ST|
00000390: 41 4E 44 41 52 44 20 49 4E 50 55 54 2D 2D 2D 2D |ANDARD INPUT----|
000003A0: 2D 00 B6 0B 98 00 3A 20 20 8B C6 28 55 49 24 29 |-.....: ..(UI$)|
000003B0: B2 34 36 A7 20 8E 00 CB 0B 9B 00 3A 20 20 8B 55 |.46. ......: .U|
000003C0: 49 24 B2 C7 28 33 32 29 A7 20 8E 00 ED 0B A0 00 |I$..(32). ......|
000003D0: 3A 20 20 8B C6 28 55 49 24 29 B3 34 38 20 B0 20 |: ..(UI$).48 . |
000003E0: C6 28 55 49 24 29 B1 35 37 A7 31 37 30 00 F6 0B |.(UI$).57.170...|
000003F0: A5 00 3A 20 20 8E 00 18 0C AA 00 3A 20 20 8B C6 |..: ......: ..|
00000400: 28 55 49 24 29 B3 36 35 20 B0 20 C6 28 55 49 24 |(UI$).65 . .(UI$|
00000410: 29 B1 39 30 A7 31 38 30 00 21 0C AF 00 3A 20 20 |).90.180.!...: |
00000420: 8E 00 4A 0C B4 00 3A 20 20 8B C6 28 55 49 24 29 |..J...: ..(UI$)|
00000430: B3 31 39 33 20 B0 20 C6 28 55 49 24 29 B1 32 31 |.193 . .(UI$).21|
00000440: 38 A7 55 49 24 B2 22 22 3A 8E 00 78 0C B9 00 3A |8.UI$."":..x...:|
00000450: 20 20 8B C2 28 55 54 29 B2 31 32 B0 C2 28 55 54 | ..(UT).12..(UT|
00000460: 29 B2 32 31 A7 55 49 24 B2 C7 28 C6 28 55 49 24 |).21.UI$..(.(UI$|
00000470: 29 AB 31 32 38 29 3A 8E 00 81 0C BB 00 3A 20 20 |).128):......: |
00000480: 8E 00 91 0C BE 00 3A 20 20 55 49 24 B2 22 22 3A |......: UI$."":|
00000490: 8E 00 BA 0C C3 00 3A 20 20 55 46 B2 31 3A 8F 2D |......: UF.1:.-|
000004A0: 2D 2D 2D 2D 48 45 4C 50 20 52 4F 55 54 49 4E 45 |----HELP ROUTINE|
000004B0: 20 45 58 49 54 2D 2D 2D 2D 2D 00 C6 0C C5 00 3A | EXIT-----.....:|
000004C0: 20 20 8D 32 35 30 00 D2 0C C8 00 3A 20 20 8D 32 | .250.....: .2|
000004D0: 34 35 00 F4 0C CD 00 3A 20 20 81 55 51 B2 55 42 |45.....: .UQ.UB|
000004E0: A4 28 55 32 25 AC 32 35 36 AA 55 31 25 AA 55 33 |.(U2%.256.U1%.U3|
000004F0: 25 AB 32 29 00 13 0D D2 00 3A 20 20 55 51 25 28 |%.2).....: UQ%(|
00000500: 55 51 AB 55 42 29 B2 C2 28 55 51 29 3A 82 3A 99 |UQ.UB)..(UQ):.:.|
00000510: 22 93 22 00 29 0D D7 00 3A 20 20 55 5A B2 31 3A |".".)...: UZ.1:|
00000520: 55 56 25 B2 C2 28 55 54 29 00 35 0D D8 00 3A 20 |UV%..(UT).5...: |
00000530: 20 89 33 30 30 00 5A 0D D9 00 55 5A B2 30 3A 55 | .300.Z...UZ.0:U|
00000540: 53 24 B2 55 4A 24 3A 55 47 24 B2 55 4B 24 3A 55 |S$.UJ$:UG$.UK$:U|
00000550: 50 B2 55 4A 3A 55 4C B2 55 4B 00 91 0D DA 00 8B |P.UJ:UL.UK......|
00000560: C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 |.(50003).0..5328|
00000570: 31 2C 31 3A 99 22 93 22 3B 3A 97 35 33 32 38 31 |1,1:.".";:.53281|
00000580: 2C 36 3A 97 35 33 32 38 30 2C 31 34 3A 89 32 32 |,6:.53280,14:.22|
00000590: 30 00 9B 0D DB 00 99 22 93 22 3B 00 CA 0D DC 00 |0......".";.....|
000005A0: 55 54 24 B2 55 4C 24 3A 97 55 54 2C 55 56 25 3A |UT$.UL$:.UT,UV%:|
000005B0: 81 55 51 B2 55 42 A4 28 55 32 25 AC 32 35 36 AA |.UQ.UB.(U2%.256.|
000005C0: 55 31 25 AA 55 33 25 AB 33 29 00 E2 0D E1 00 3A |U1%.U3%.3).....:|
000005D0: 20 20 97 55 51 2C 55 51 25 28 55 51 AB 55 42 29 | .UQ,UQ%(UQ.UB)|
000005E0: 3A 82 00 F1 0D E6 00 3A 20 20 97 55 31 2C 55 31 |:......: .U1,U1|
000005F0: 25 00 00 0E E8 00 3A 20 20 97 55 32 2C 55 32 25 |%.....: .U2,U2%|
00000600: 00 0F 0E E9 00 3A 20 20 97 55 34 2C 55 34 25 00 |.....: .U4,U4%.|
00000610: 20 0E EA 00 3A 20 20 97 55 33 2C 55 33 25 AB 31 | ...: .U3,U3%.1|
00000620: 00 2B 0E EB 00 3A 20 20 89 33 35 00 60 0E F0 00 |.+...: .35.`...|
00000630: 3A 20 20 55 44 25 B2 28 28 55 32 25 AC 32 35 36 |: UD%.((U2%.256|
00000640: AA 55 31 25 AA 55 33 25 29 AB 55 42 29 AD 34 30 |.U1%.U3%).UB).40|
00000650: 3A 99 C8 28 55 44 24 2C 55 44 25 AA 31 29 3A 8E |:..(UD$,UD%.1):.|
00000660: 00 9E 0E F5 00 3A 20 20 99 C8 28 55 44 24 2C 32 |.....: ..(UD$,2|
00000670: 34 29 3B 22 20 20 20 20 20 20 20 20 20 20 20 20 |4);" |
00000680: 20 20 20 20 20 20 20 20 20 20 12 20 48 45 4C 50 | . HELP|
00000690: 20 43 4F 4D 49 4E 47 20 92 20 20 22 3A 8E 00 CD | COMING . ":...|
000006A0: 0E FA 00 3A 20 20 55 31 25 B2 C2 28 55 31 29 3A |...: U1%..(U1):|
000006B0: 55 32 25 B2 C2 28 55 32 29 3A 55 33 25 B2 C2 28 |U2%..(U2):U3%..(|
000006C0: 55 33 29 3A 55 34 25 B2 C2 28 55 34 29 00 DF 0E |U3):U4%..(U4)...|
000006D0: FB 00 55 4A 24 B2 55 53 24 3A 55 4A B2 55 4C 00 |..UJ$.US$:UJ.UL.|
000006E0: 02 0F FC 00 3A 20 20 55 4A 24 B2 55 53 24 3A 55 |....: UJ$.US$:U|
000006F0: 4B 24 B2 55 47 24 3A 55 4A B2 55 50 3A 55 4B B2 |K$.UG$:UJ.UP:UK.|
00000700: 55 4C 00 0B 0F FF 00 3A 20 20 8E 00 1F 0F 2C 01 |UL.....: ....,.|
00000710: 8F 2D 2D 2D 2D 2D 4D 45 4E 55 2D 2D 2D 2D 2D 00 |.-----MENU-----.|
00000720: 25 0F 2D 01 3A 00 57 0F 2E 01 3A 20 20 99 22 93 |%.-.:.W...: .".|
00000730: 22 3A 97 55 54 2C 55 55 25 3A 8B C2 28 35 30 30 |":.UT,UU%:..(500|
00000740: 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 39 3A 97 |03).0..53281,9:.|
00000750: 35 33 32 38 30 2C 38 00 5D 0F 2F 01 3A 00 7D 0F |53280,8.]./.:.}.|
00000760: 31 01 3A 20 20 99 22 93 20 20 20 20 20 20 20 20 |1.: .". |
00000770: 20 20 20 20 20 20 20 20 4D 45 4E 55 22 00 AF 0F | MENU"...|
00000780: 36 01 3A 20 20 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D |6.: ." --------|
00000790: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000007A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 |--------------".|
000007B0: D8 0F 3B 01 3A 20 20 99 22 11 11 20 20 20 20 20 |..;.: .".. |
000007C0: 20 20 31 2E 20 20 20 45 51 55 41 54 49 4F 4E 20 | 1. EQUATION |
000007D0: 45 58 45 52 43 49 53 45 00 05 10 40 01 3A 20 20 |EXERCISE...@.: |
000007E0: 99 22 11 11 20 20 20 20 20 20 20 32 2E 20 20 20 |.".. 2. |
000007F0: 53 54 55 44 45 4E 54 20 49 4E 53 54 52 55 43 54 |STUDENT INSTRUCT|
00000800: 49 4F 4E 53 22 00 32 10 45 01 3A 20 20 99 22 11 |IONS".2.E.: .".|
00000810: 11 20 20 20 20 20 20 20 33 2E 20 20 20 54 45 41 |. 3. TEA|
00000820: 43 48 45 52 20 49 4E 53 54 52 55 43 54 49 4F 4E |CHER INSTRUCTION|
00000830: 53 22 00 62 10 4A 01 3A 20 20 99 22 11 11 20 20 |S".b.J.: .".. |
00000840: 20 20 20 20 20 34 2E 20 20 20 4D 4F 44 49 46 49 | 4. MODIFI|
00000850: 43 41 54 49 4F 4E 20 4F 46 20 50 52 4F 47 52 41 |CATION OF PROGRA|
00000860: 4D 22 00 81 10 4F 01 3A 20 20 99 22 11 11 20 20 |M"...O.: .".. |
00000870: 20 20 20 20 20 35 2E 20 20 20 51 55 49 54 11 11 | 5. QUIT..|
00000880: 22 00 B3 10 54 01 3A 20 20 99 22 20 2D 2D 2D 2D |"...T.: ." ----|
00000890: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000008A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000008B0: 2D 2D 22 00 E1 10 59 01 3A 20 20 99 22 11 11 20 |--"...Y.: .".. |
000008C0: 20 20 20 20 20 20 50 52 45 53 53 20 41 20 4E 55 | PRESS A NU|
000008D0: 4D 42 45 52 20 4B 45 59 20 28 31 2D 35 29 20 22 |MBER KEY (1-5) "|
000008E0: 3B 00 12 11 5E 01 3A 20 20 55 4C B2 31 3A 55 53 |;...^.: UL.1:US|
000008F0: 24 B2 22 31 32 33 34 35 22 3A 8D 33 35 3A 8F 2D |$."12345":.35:.-|
00000900: 2D 2D 49 4E 50 55 54 20 52 4F 55 54 49 4E 45 2D |--INPUT ROUTINE-|
00000910: 2D 2D 00 20 11 60 01 3A 20 20 55 53 24 B2 22 22 |--. .`.: US$.""|
00000920: 00 44 11 63 01 3A 20 20 91 C5 28 55 52 24 29 8D |.D.c.: ..(UR$).|
00000930: 31 30 30 30 2C 34 30 30 2C 35 30 30 2C 36 30 30 |1000,400,500,600|
00000940: 2C 33 39 36 00 50 11 68 01 3A 20 20 89 33 30 30 |,396.P.h.: .300|
00000950: 00 7A 11 8B 01 8F 2D 2D 2D 2D 2D 52 45 2D 45 4E |.z....-----RE-EN|
00000960: 41 42 4C 45 20 53 54 4F 50 20 4B 45 59 20 41 4E |ABLE STOP KEY AN|
00000970: 44 20 45 4E 44 2D 2D 2D 2D 2D 00 AC 11 8C 01 3A |D END-----.....:|
00000980: 20 20 8B C2 28 35 30 30 30 33 29 B3 B1 31 AF C2 | ..(50003)..1..|
00000990: 28 35 30 30 30 33 29 B3 B1 31 36 30 AF C2 28 35 |(50003)..160..(5|
000009A0: 30 30 30 33 29 B3 B1 30 A7 33 39 39 00 D9 11 8D |0003)..0.399....|
000009B0: 01 3A 20 20 9E 55 55 AA 37 31 3A 8B C2 28 35 30 |.: .UU.71:..(50|
000009C0: 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 36 3A |003).0..53281,6:|
000009D0: 97 35 33 32 38 30 2C 31 34 00 E8 11 8E 01 3A 20 |.53280,14.....: |
000009E0: 20 99 22 9A 93 22 3A 80 00 F6 11 8F 01 3A 20 20 | ."..":......: |
000009F0: 8D 38 37 35 3A 8E 00 1A 12 90 01 8F 2D 2D 2D 2D |.875:.......----|
00000A00: 2D 53 54 55 44 45 4E 54 20 49 4E 53 54 52 55 43 |-STUDENT INSTRUC|
00000A10: 54 49 4F 4E 53 2D 2D 2D 2D 2D 00 4C 12 95 01 3A |TIONS-----.L...:|
00000A20: 20 20 99 22 93 22 3A 97 55 54 2C 55 4C 25 3A 8B | .".":.UT,UL%:.|
00000A30: C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 |.(50003).0..5328|
00000A40: 31 2C 30 3A 97 35 33 32 38 30 2C 30 00 6D 12 9A |1,0:.53280,0.m..|
00000A50: 01 55 50 B2 30 3A 55 47 24 B2 22 D3 54 55 44 45 |.UP.0:UG$.".TUDE|
00000A60: 4E 54 20 C9 4E 53 54 22 3A 8D 38 35 30 00 9B 12 |NT .NST":.850...|
00000A70: 9C 01 3A 20 20 99 22 11 11 11 20 20 20 C9 27 4D |..: ."... .'M|
00000A80: 20 47 4F 49 4E 47 20 54 4F 20 50 52 49 4E 54 20 | GOING TO PRINT |
00000A90: 55 50 20 41 20 53 43 41 4C 45 22 00 CB 12 9E 01 |UP A SCALE".....|
00000AA0: 3A 20 20 99 22 20 20 42 41 4C 41 4E 43 45 44 20 |: ." BALANCED |
00000AB0: 57 49 54 48 20 4D 41 52 42 4C 45 53 2E 20 20 D3 |WITH MARBLES. .|
00000AC0: 4F 4D 45 20 4F 46 20 54 48 45 22 00 FC 12 9F 01 |OME OF THE".....|
00000AD0: 3A 20 20 99 22 20 20 4D 41 52 42 4C 45 53 20 41 |: ." MARBLES A|
00000AE0: 52 45 20 49 4E 20 55 4E 4D 41 52 4B 45 44 20 42 |RE IN UNMARKED B|
00000AF0: 41 47 53 20 41 4E 44 20 41 4C 4C 22 00 2C 13 A2 |AGS AND ALL".,..|
00000B00: 01 3A 20 20 99 22 20 20 4F 46 20 54 48 45 20 42 |.: ." OF THE B|
00000B10: 41 47 53 20 43 4F 4E 54 41 49 4E 20 54 48 45 20 |AGS CONTAIN THE |
00000B20: 53 41 4D 45 20 4E 55 4D 42 45 52 22 00 57 13 A4 |SAME NUMBER".W..|
00000B30: 01 3A 20 20 99 22 20 20 4F 46 20 4D 41 52 42 4C |.: ." OF MARBL|
00000B40: 45 53 2E 20 20 D9 4F 55 20 4D 55 53 54 A0 46 49 |ES. .OU MUST.FI|
00000B50: 4E 44 20 4F 55 54 22 00 85 13 A6 01 3A 20 20 99 |ND OUT".....: .|
00000B60: 22 20 20 48 4F 57 20 4D 41 4E 59 20 4D 41 52 42 |" HOW MANY MARB|
00000B70: 4C 45 53 20 41 52 45 20 49 4E 20 45 41 43 48 20 |LES ARE IN EACH |
00000B80: 42 41 47 2E 22 00 B5 13 A8 01 3A 20 20 99 22 20 |BAG.".....: ." |
00000B90: 20 D4 4F 20 44 4F 20 54 48 49 53 20 59 4F 55 20 | .O DO THIS YOU |
00000BA0: 4D 55 53 54 20 47 45 54 20 52 49 44 20 4F 46 20 |MUST GET RID OF |
00000BB0: 4D 4F 53 54 22 00 E5 13 AA 01 3A 20 20 99 22 20 |MOST".....: ." |
00000BC0: 20 4F 46 20 54 48 45 20 42 41 47 53 20 41 4E 44 | OF THE BAGS AND|
00000BD0: 20 4D 41 52 42 4C 45 53 2C 20 55 4E 54 49 4C 20 | MARBLES, UNTIL |
00000BE0: 4F 4E 4C 59 22 00 17 14 AC 01 3A 20 20 99 22 20 |ONLY".....: ." |
00000BF0: 20 4F 4E 45 20 42 41 47 20 41 4E 44 20 41 20 50 | ONE BAG AND A P|
00000C00: 49 4C 45 20 4F 46 20 4D 41 52 42 4C 45 53 20 52 |ILE OF MARBLES R|
00000C10: 45 4D 41 49 4E 2E 22 00 47 14 AE 01 3A 20 20 99 |EMAIN.".G...: .|
00000C20: 22 11 20 20 C2 C5 20 D3 D5 D2 C5 20 D4 CF 20 CB |". .. .... .. .|
00000C30: C5 C5 D0 A0 D4 C8 C5 A0 D3 C3 C1 CC C5 A0 C2 C1 |................|
00000C40: CC C1 CE C3 C5 C4 22 00 53 14 B0 01 3A 20 20 8D |......".S...: .|
00000C50: 38 33 35 00 5F 14 B2 01 3A 20 20 8D 38 35 30 00 |835._...: .850.|
00000C60: 91 14 B4 01 3A 20 20 99 22 13 11 11 11 11 11 20 |....: ."...... |
00000C70: 20 20 D2 45 4D 45 4D 42 45 52 20 54 4F 20 48 49 | .EMEMBER TO HI|
00000C80: 54 20 3C 52 45 54 55 52 4E 3E 20 41 46 54 45 52 |T <RETURN> AFTER|
00000C90: 22 00 BD 14 B6 01 3A 20 20 99 22 20 20 54 59 50 |".....: ." TYP|
00000CA0: 49 4E 47 20 59 4F 55 52 20 41 4E 53 57 45 52 2E |ING YOUR ANSWER.|
00000CB0: 20 20 D4 48 49 53 20 54 45 4C 4C 53 22 00 E9 14 | .HIS TELLS"...|
00000CC0: B8 01 3A 20 20 99 22 20 20 54 48 45 20 43 4F 4D |..: ." THE COM|
00000CD0: 50 55 54 45 52 20 54 4F 20 41 43 43 45 50 54 20 |PUTER TO ACCEPT |
00000CE0: 57 48 41 54 20 59 4F 55 22 00 02 15 BA 01 3A 20 |WHAT YOU".....: |
00000CF0: 20 99 22 20 20 48 41 56 45 20 54 59 50 45 44 2E | ." HAVE TYPED.|
00000D00: 11 22 00 2E 15 BC 01 3A 20 20 99 22 20 20 20 D4 |.".....: ." .|
00000D10: 59 50 45 20 3C 48 3E 20 41 54 20 41 4E 59 20 54 |YPE <H> AT ANY T|
00000D20: 49 4D 45 20 54 4F 20 52 45 54 55 52 4E 22 00 5A |IME TO RETURN".Z|
00000D30: 15 BE 01 3A 20 20 99 22 20 20 54 4F 20 54 48 45 |...: ." TO THE|
00000D40: 20 4D 45 4E 55 20 46 4F 52 20 48 45 4C 50 2E 20 | MENU FOR HELP. |
00000D50: 20 D9 4F 55 20 57 49 4C 4C 22 00 86 15 C0 01 3A | .OU WILL".....:|
00000D60: 20 20 99 22 20 20 42 45 20 52 45 54 55 52 4E 45 | ." BE RETURNE|
00000D70: 44 20 54 4F 20 54 48 45 20 50 4C 41 43 45 20 49 |D TO THE PLACE I|
00000D80: 4E 20 54 48 45 22 00 B0 15 C2 01 3A 20 20 99 22 |N THE".....: ."|
00000D90: 20 20 50 52 4F 47 52 41 4D 20 57 48 45 52 45 20 | PROGRAM WHERE |
00000DA0: 59 4F 55 20 4C 45 46 54 20 4F 46 46 20 41 53 22 |YOU LEFT OFF AS"|
00000DB0: 00 DD 15 C4 01 3A 20 20 99 22 20 20 53 4F 4F 4E |.....: ." SOON|
00000DC0: 20 41 53 20 54 48 45 20 4F 50 54 49 4F 4E 20 46 | AS THE OPTION F|
00000DD0: 52 4F 4D 20 54 48 45 20 4D 45 4E 55 22 00 F6 15 |ROM THE MENU"...|
00000DE0: C6 01 3A 20 20 99 22 20 20 49 53 20 43 4F 4D 50 |..: ." IS COMP|
00000DF0: 4C 45 54 45 2E 22 00 02 16 E5 01 3A 20 20 8D 38 |LETE.".....: .8|
00000E00: 33 35 00 19 16 EA 01 3A 20 20 8B 55 5A B2 31 A7 |35.....: .UZ.1.|
00000E10: 9E 55 50 25 3A 89 32 31 37 00 22 16 F3 01 3A 20 |.UP%:.217."...: |
00000E20: 20 8E 00 46 16 F4 01 8F 2D 2D 2D 2D 2D 54 45 41 | ..F....-----TEA|
00000E30: 43 48 45 52 20 49 4E 53 54 52 55 43 54 49 4F 4E |CHER INSTRUCTION|
00000E40: 53 2D 2D 2D 2D 2D 00 79 16 F5 01 3A 20 20 99 22 |S-----.y...: ."|
00000E50: 93 22 3A 97 55 54 2C 55 4C 25 3A 8B C2 28 35 30 |.":.UT,UL%:..(50|
00000E60: 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 32 3A |003).0..53281,2:|
00000E70: 97 35 33 32 38 30 2C 31 30 00 9E 16 F6 01 3A 20 |.53280,10.....: |
00000E80: 20 55 50 B2 30 3A 55 47 24 B2 22 D4 45 41 43 48 | UP.0:UG$.".EACH|
00000E90: 45 52 20 C9 4E 53 54 2E 22 3A 8D 38 35 30 00 CF |ER .NST.":.850..|
00000EA0: 16 F7 01 3A 20 20 99 22 11 11 20 20 20 20 20 20 |...: .".. |
00000EB0: D4 4F 20 54 48 45 20 42 45 53 54 20 4F 46 20 4F |.O THE BEST OF O|
00000EC0: 55 52 20 4B 4E 4F 57 4C 45 44 47 45 2C 11 22 00 |UR KNOWLEDGE,.".|
00000ED0: FB 16 F8 01 3A 20 20 99 22 20 20 20 54 48 49 53 |....: ." THIS|
00000EE0: 20 50 52 4F 47 52 41 4D 20 49 53 20 49 4E 20 54 | PROGRAM IS IN T|
00000EF0: 48 45 20 50 55 42 4C 49 43 11 22 00 2A 17 F9 01 |HE PUBLIC.".*...|
00000F00: 3A 20 20 99 22 20 20 20 44 4F 4D 41 49 4E 2E 20 |: ." DOMAIN. |
00000F10: 20 C9 46 20 54 48 49 53 20 49 53 20 4E 4F 54 20 | .F THIS IS NOT |
00000F20: 54 48 45 20 43 41 53 45 11 22 00 4A 17 FA 01 3A |THE CASE.".J...:|
00000F30: 20 20 99 22 20 20 20 50 4C 45 41 53 45 20 43 4F | ." PLEASE CO|
00000F40: 4E 54 41 43 54 3A 11 11 11 22 00 77 17 FB 01 3A |NTACT:...".w...:|
00000F50: 20 20 99 22 20 20 20 20 20 20 C3 4F 4D 4D 4F 44 | ." .OMMOD|
00000F60: 4F 52 45 20 C2 55 53 49 4E 45 53 53 20 CD 41 43 |ORE .USINESS .AC|
00000F70: 48 49 4E 45 53 11 22 00 9D 17 FC 01 3A 20 20 99 |HINES.".....: .|
00000F80: 22 20 20 20 20 20 20 20 20 20 20 33 33 37 30 20 |" 3370 |
00000F90: D0 48 41 52 4D 41 43 59 20 C1 56 45 2E 00 C4 17 |.HARMACY .VE....|
00000FA0: FD 01 3A 20 20 99 22 20 20 20 20 20 20 20 20 20 |..: ." |
00000FB0: 20 C1 47 49 4E 43 4F 55 52 54 2C 20 CF 4E 54 41 | .GINCOURT, .NTA|
00000FC0: 52 49 4F 22 00 E9 17 FE 01 3A 20 20 99 22 20 20 |RIO".....: ." |
00000FD0: 20 20 20 20 20 20 20 20 C3 41 4E 41 44 41 20 20 | .ANADA |
00000FE0: 20 CD 31 D7 20 32 CB 34 22 00 0C 18 FF 01 3A 20 | .1. 2.4".....: |
00000FF0: 20 99 22 20 20 20 20 20 20 20 20 20 20 28 34 31 | ." (41|
00001000: 36 29 20 34 39 39 2D 34 32 39 32 22 00 22 18 00 |6) 499-4292"."..|
00001010: 02 55 50 B2 31 3A 8D 20 38 33 35 3A 8D 20 38 35 |.UP.1:. 835:. 85|
00001020: 30 3A 00 51 18 01 02 99 22 20 20 20 20 20 11 11 |0:.Q...." ..|
00001030: D0 52 4F 47 52 41 4D 20 CE 41 4D 45 3A 20 C5 51 |.ROGRAM .AME: .Q|
00001040: 55 41 54 49 4F 4E 20 45 58 45 52 43 49 53 45 11 |UATION EXERCISE.|
00001050: 22 00 77 18 02 02 99 22 20 20 20 20 20 D7 52 49 |".w...." .RI|
00001060: 54 54 45 4E 20 C2 59 20 20 3A 20 D6 49 4E 43 45 |TTEN .Y : .INCE|
00001070: 20 CD 49 4C 4C 53 11 00 9F 18 03 02 99 22 20 20 | .ILLS......." |
00001080: 20 20 20 D5 50 47 52 41 44 45 44 20 C2 59 20 3A | .PGRADED .Y :|
00001090: 20 CC 59 4E 44 41 20 C2 4F 4E 41 4E 4E 4F 11 00 | .YNDA .ONANNO..|
000010A0: CA 18 04 02 99 22 20 20 20 20 20 11 D4 48 49 53 |....." ..HIS|
000010B0: 20 50 52 4F 47 52 41 4D 20 57 49 4C 4C 20 52 55 | PROGRAM WILL RU|
000010C0: 4E 20 4F 4E 20 41 4E 59 11 11 00 E9 18 07 02 99 |N ON ANY........|
000010D0: 22 20 20 20 20 20 20 20 20 20 D0 C5 D4 20 36 34 |" ... 64|
000010E0: 20 C3 CF CD D0 D5 D4 C5 D2 00 0E 19 08 02 99 22 | .............."|
000010F0: 20 20 20 20 20 20 20 20 20 C3 CF CD CD CF C4 CF | .......|
00001100: D2 C5 20 36 34 20 C3 CF CD D0 D5 D4 C5 D2 00 1F |.. 64 ..........|
00001110: 19 09 02 3A 20 20 8D 38 33 35 3A 8D 38 35 32 00 |...: .835:.852.|
00001120: 4C 19 0A 02 3A 20 20 99 22 11 20 20 20 20 C9 27 |L...: .". .'|
00001130: 4D 20 47 4F 49 4E 47 20 54 4F 20 50 52 49 4E 54 |M GOING TO PRINT|
00001140: 20 55 50 20 41 20 53 43 41 4C 45 22 00 7B 19 0C | UP A SCALE".{..|
00001150: 02 3A 20 20 99 22 11 20 42 41 4C 41 4E 43 45 44 |.: .". BALANCED|
00001160: 20 57 49 54 48 20 4D 41 52 42 4C 45 53 2E 20 D3 | WITH MARBLES. .|
00001170: 4F 4D 45 20 4F 46 20 54 48 45 22 00 AC 19 0E 02 |OME OF THE".....|
00001180: 3A 20 20 99 22 11 20 4D 41 52 42 4C 45 53 20 41 |: .". MARBLES A|
00001190: 52 45 20 49 4E 20 55 4E 4D 41 52 4B 45 44 20 42 |RE IN UNMARKED B|
000011A0: 41 47 53 20 41 4E 44 20 41 4C 4C 22 00 DC 19 10 |AGS AND ALL"....|
000011B0: 02 3A 20 20 99 22 11 20 4F 46 20 54 48 45 20 42 |.: .". OF THE B|
000011C0: 41 47 53 20 43 4F 4E 54 41 49 4E 20 54 48 45 20 |AGS CONTAIN THE |
000011D0: 53 41 4D 45 20 4E 55 4D 42 45 52 22 00 07 1A 12 |SAME NUMBER"....|
000011E0: 02 3A 20 20 99 22 11 20 4F 46 20 4D 41 52 42 4C |.: .". OF MARBL|
000011F0: 45 53 2E 20 20 D9 4F 55 20 4D 55 53 54 20 46 49 |ES. .OU MUST FI|
00001200: 4E 44 20 4F 55 54 22 00 35 1A 16 02 3A 20 20 99 |ND OUT".5...: .|
00001210: 22 11 20 48 4F 57 20 4D 41 4E 59 20 4D 41 52 42 |". HOW MANY MARB|
00001220: 4C 45 53 20 41 52 45 20 49 4E 20 45 41 43 48 20 |LES ARE IN EACH |
00001230: 42 41 47 2E 22 00 65 1A 18 02 3A 20 20 99 22 11 |BAG.".e...: .".|
00001240: 20 D4 4F 20 44 4F 20 54 48 49 53 20 59 4F 55 20 | .O DO THIS YOU |
00001250: 4D 55 53 54 20 47 45 54 20 52 49 44 20 4F 46 20 |MUST GET RID OF |
00001260: 4D 4F 53 54 22 00 95 1A 1A 02 3A 20 20 99 22 11 |MOST".....: .".|
00001270: 20 4F 46 20 54 48 45 20 42 41 47 53 20 41 4E 44 | OF THE BAGS AND|
00001280: 20 4D 41 52 42 4C 45 53 2C 20 55 4E 54 49 4C 20 | MARBLES, UNTIL |
00001290: 4F 4E 4C 59 22 00 C7 1A 1C 02 3A 20 20 99 22 11 |ONLY".....: .".|
000012A0: 20 4F 4E 45 20 42 41 47 20 41 4E 44 20 41 20 50 | ONE BAG AND A P|
000012B0: 49 4C 45 20 4F 46 20 4D 41 52 42 4C 45 53 20 52 |ILE OF MARBLES R|
000012C0: 45 4D 41 49 4E 2E 22 00 D3 1A 2A 02 3A 20 20 8D |EMAIN."...*.: .|
000012D0: 38 33 35 00 EA 1A 4E 02 3A 20 20 8B 55 5A B2 31 |835...N.: .UZ.1|
000012E0: A7 9E 55 50 25 3A 89 32 31 37 00 F3 1A 57 02 3A |..UP%:.217...W.:|
000012F0: 20 20 8E 00 1C 1B 58 02 8F 2D 2D 2D 2D 2D 50 52 | ....X..-----PR|
00001300: 4F 47 52 41 4D 20 4D 4F 44 49 46 49 43 41 54 49 |OGRAM MODIFICATI|
00001310: 4F 4E 20 49 4E 53 54 2D 2D 2D 2D 2D 00 30 1B 59 |ON INST-----.0.Y|
00001320: 02 3A 20 20 99 22 93 22 3A 97 55 54 2C 55 4C 25 |.: .".":.UT,UL%|
00001330: 00 53 1B 5D 02 3A 20 20 55 50 B2 30 3A 55 47 24 |.S.].: UP.0:UG$|
00001340: B2 22 D0 52 4F 47 52 41 4D 20 CD 4F 44 22 3A 8D |.".ROGRAM .OD":.|
00001350: 38 35 30 00 7E 1B 62 02 3A 20 20 99 22 11 11 11 |850.~.b.: ."...|
00001360: 20 20 20 D4 48 49 53 20 50 52 4F 47 52 41 4D 20 | .HIS PROGRAM |
00001370: 44 4F 45 53 20 4E 4F 54 20 4C 45 4E 44 22 00 AA |DOES NOT LEND"..|
00001380: 1B 64 02 3A 20 20 99 22 11 20 20 49 54 53 45 4C |.d.: .". ITSEL|
00001390: 46 20 54 4F 20 53 49 4D 50 4C 45 20 4D 4F 44 49 |F TO SIMPLE MODI|
000013A0: 46 49 43 41 54 49 4F 4E 2E 22 00 D8 1B 66 02 3A |FICATION."...f.:|
000013B0: 20 20 99 22 11 20 20 D9 4F 55 20 4D 41 59 2C 20 | .". .OU MAY, |
000013C0: 48 4F 57 45 56 45 52 2C 20 57 49 53 48 20 54 4F |HOWEVER, WISH TO|
000013D0: 20 43 48 41 4E 47 45 22 00 07 1C 68 02 3A 20 20 | CHANGE"...h.: |
000013E0: 99 22 11 20 20 53 4F 4D 45 20 4F 46 20 54 48 45 |.". SOME OF THE|
000013F0: 20 53 54 55 44 45 4E 54 20 49 4E 53 54 52 55 43 | STUDENT INSTRUC|
00001400: 54 49 4F 4E 53 2E 22 00 38 1C 6A 02 3A 20 20 99 |TIONS.".8.j.: .|
00001410: 22 11 20 20 D4 48 49 53 20 49 53 20 53 49 4D 50 |". .HIS IS SIMP|
00001420: 4C 59 20 41 20 4D 41 54 54 45 52 20 4F 46 20 43 |LY A MATTER OF C|
00001430: 48 41 4E 47 49 4E 47 22 00 63 1C 6C 02 3A 20 20 |HANGING".c.l.: |
00001440: 99 22 11 20 20 54 48 45 20 50 52 49 4E 54 20 53 |.". THE PRINT S|
00001450: 54 41 54 45 4D 45 4E 54 53 20 49 4E 20 4C 49 4E |TATEMENTS IN LIN|
00001460: 45 53 22 00 80 1C 6E 02 3A 20 20 99 22 11 20 20 |ES"...n.: .". |
00001470: 34 30 30 20 54 48 52 4F 55 47 48 20 34 39 39 2E |400 THROUGH 499.|
00001480: 00 8C 1C 94 02 3A 20 20 8D 38 33 35 00 A3 1C B2 |.....: .835....|
00001490: 02 3A 20 20 8B 55 5A B2 31 A7 9E 55 50 25 3A 89 |.: .UZ.1..UP%:.|
000014A0: 32 31 37 00 AC 1C BB 02 3A 20 20 8E 00 D4 1C BC |217.....: .....|
000014B0: 02 8F 2D 2D 2D 2D 2D 54 4F 20 55 53 45 20 38 30 |..-----TO USE 80|
000014C0: 33 32 20 4C 4F 41 44 20 43 42 4D 34 30 33 32 2D |32 LOAD CBM4032-|
000014D0: 2D 2D 2D 2D 00 0A 1D C6 02 99 22 93 11 11 11 05 |----......".....|
000014E0: 42 45 46 4F 52 45 20 52 55 4E 4E 49 4E 47 20 54 |BEFORE RUNNING T|
000014F0: 48 49 53 20 50 52 4F 47 52 41 4D 20 4F 4E 20 41 |HIS PROGRAM ON A|
00001500: 4E 20 38 30 33 32 20 20 11 11 00 40 1D D0 02 99 |N 8032 ...@....|
00001510: 22 20 20 20 20 20 20 4C 4F 41 44 20 54 48 45 20 |" LOAD THE |
00001520: 27 43 42 4D 20 34 30 33 32 27 20 50 52 4F 47 52 |'CBM 4032' PROGR|
00001530: 41 4D 11 11 11 11 11 11 11 11 11 11 11 11 11 22 |AM............."|
00001540: 00 4E 1D DA 02 3A 20 20 9E 55 55 AA 37 31 00 57 |.N...: .UU.71.W|
00001550: 1D E4 02 3A 20 20 80 00 77 1D 20 03 8F 20 2A 2A |...: ..w. .. **|
00001560: 20 54 20 49 20 54 20 4C 20 45 20 20 20 50 20 41 | T I T L E P A|
00001570: 20 47 20 45 20 2A 2A 00 AB 1D 22 03 99 22 93 11 | G E **...".."..|
00001580: 1D 05 22 3B 3A 97 55 54 2C 55 55 25 3A 8B C2 28 |..";:.UT,UU%:..(|
00001590: 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 30 2C |50003).0..53280,|
000015A0: 31 34 3A 97 35 33 32 38 31 2C 36 00 C1 1D 24 03 |14:.53281,6...$.|
000015B0: 81 49 B2 31 A4 33 38 3A 99 22 12 A6 92 22 3B 3A |.I.1.38:."...";:|
000015C0: 82 00 D9 1D 26 03 81 49 B2 31 A4 32 32 3A 99 22 |....&..I.1.22:."|
000015D0: 11 9D 12 A6 92 22 3B 3A 82 00 F1 1D 28 03 81 49 |.....";:....(..I|
000015E0: B2 31 A4 33 37 3A 99 22 9D 9D 12 A6 92 22 3B 3A |.1.37:.".....";:|
000015F0: 82 00 09 1E 2A 03 81 49 B2 31 A4 32 32 3A 99 22 |....*..I.1.22:."|
00001600: 91 9D 12 A6 92 22 3B 3A 82 00 2E 1E 2C 03 99 22 |.....";:....,.."|
00001610: 13 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001620: 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 A9 20 20 92 00 50 |........... ..P|
00001630: 1E 2E 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |...."...........|
00001640: 1D 1D 1D 1D 1D 1D 1D 12 20 92 20 20 12 20 92 A9 |........ . . ..|
00001650: 00 71 1E 30 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D |.q.0..".........|
00001660: 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 20 92 20 20 12 A3 |.......... . ..|
00001670: DF 00 8F 1E 32 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D |....2.."........|
00001680: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D DF 12 20 20 92 00 |............ ..|
00001690: B7 1E 34 03 99 22 11 11 1D 1D 1D 1D 1D 1D 1D 1D |..4.."..........|
000016A0: 1D 1D 1D 1D 43 20 4F 20 4D 20 4D 20 4F 20 44 20 |....C O M M O D |
000016B0: 4F 20 52 20 45 11 11 00 DA 1E 36 03 99 22 1D 1D |O R E.....6.."..|
000016C0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 45 44 55 |.............EDU|
000016D0: 43 41 54 49 4F 4E 41 4C 11 11 00 F9 1E 38 03 99 |CATIONAL.....8..|
000016E0: 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |"...............|
000016F0: 1D 53 4F 46 54 57 41 52 45 00 14 1F 3A 03 8F 20 |.SOFTWARE...:.. |
00001700: 2A 2A 20 43 4F 4D 4D 4F 44 4F 52 45 20 4C 4F 47 |** COMMODORE LOG|
00001710: 4F 20 2A 2A 00 4C 1F 3B 03 99 C8 28 55 44 24 2C |O **.L.;...(UD$,|
00001720: 32 34 29 3B 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 50 |24);"..........P|
00001730: 52 45 53 53 20 53 50 41 43 45 20 42 41 52 20 4F |RESS SPACE BAR O|
00001740: 52 20 57 41 49 54 92 22 3A 49 B2 30 00 6E 1F 3C |R WAIT.":I.0.n.<|
00001750: 03 A1 41 24 3A 8B 41 24 B3 B1 22 20 22 A7 49 B2 |..A$:.A$.." ".I.|
00001760: 49 AA 31 3A 8B 49 B3 32 35 30 A7 38 32 38 00 95 |I.1:.I.250.828..|
00001770: 1F 3E 03 3A 20 20 54 31 24 B2 22 22 3A 54 32 24 |.>.: T1$."":T2$|
00001780: B2 22 22 3A 54 33 24 B2 22 22 3A 54 34 24 B2 22 |."":T3$."":T4$."|
00001790: 22 3A 49 B2 30 00 A1 1F 40 03 3A 20 20 89 33 30 |":I.0...@.: .30|
000017A0: 30 00 C0 1F 43 03 8F 2D 2D 2D 2D 2D 53 50 41 43 |0...C..-----SPAC|
000017B0: 45 20 42 41 52 20 50 52 45 53 53 2D 2D 2D 2D 2D |E BAR PRESS-----|
000017C0: 00 F8 1F 48 03 3A 20 20 99 C8 28 55 44 24 2C 32 |...H.: ..(UD$,2|
000017D0: 34 29 3B 22 1D 1D 1D 1D 1D 1D 12 50 52 45 53 53 |4);".......PRESS|
000017E0: 20 53 50 41 43 45 20 42 41 52 20 54 4F 20 43 4F | SPACE BAR TO CO|
000017F0: 4E 54 49 4E 55 45 92 22 00 12 20 4C 03 3A 20 20 |NTINUE.".. L.: |
00001800: A1 55 49 24 3A 8B 55 49 24 B3 B1 22 20 22 A7 38 |.UI$:.UI$.." ".8|
00001810: 34 34 00 1B 20 4E 03 3A 20 20 8E 00 3E 20 52 03 |44.. N.: ..> R.|
00001820: 8F 2D 2D 2D 2D 2D 50 41 47 45 20 44 45 53 49 47 |.-----PAGE DESIG|
00001830: 4E 20 52 4F 55 54 49 4E 45 2D 2D 2D 2D 2D 00 4D |N ROUTINE-----.M|
00001840: 20 54 03 3A 20 20 55 50 B2 55 50 AA 31 00 77 20 | T.: UP.UP.1.w |
00001850: 57 03 3A 20 20 99 22 93 22 C8 28 55 54 24 AA 55 |W.: .".".(UT$.U|
00001860: 50 24 2C 32 31 29 3B C8 28 55 47 24 AA 55 50 24 |P$,21);.(UG$.UP$|
00001870: 2C 31 34 29 3B 55 50 00 A9 20 5C 03 3A 20 20 99 |,14);UP.. \.: .|
00001880: 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |" --------------|
00001890: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000018A0: 2D 2D 2D 2D 2D 2D 2D 2D 22 00 E0 20 61 03 3A 20 |--------".. a.: |
000018B0: 20 99 C8 28 55 44 24 2C 32 34 29 3B C8 28 55 50 | ..(UD$,24);.(UP|
000018C0: 24 2C 36 29 3B 22 48 45 4C 50 20 2D 20 50 52 45 |$,6);"HELP - PRE|
000018D0: 53 53 20 20 20 48 20 3C 52 45 54 55 52 4E 3E 22 |SS H <RETURN>"|
000018E0: 00 EF 20 66 03 3A 20 20 99 22 13 11 22 3A 8E 00 |.. f.: ."..":..|
000018F0: 11 21 6B 03 8F 2D 2D 2D 2D 2D 50 4C 45 41 53 45 |.!k..-----PLEASE|
00001900: 20 57 41 49 54 20 52 45 4D 41 52 4B 2D 2D 2D 2D | WAIT REMARK----|
00001910: 2D 00 4A 21 70 03 3A 20 20 99 C8 28 55 44 24 2C |-.J!p.: ..(UD$,|
00001920: 32 34 29 3B 22 20 20 20 20 20 20 20 20 20 20 20 |24);" |
00001930: 4F 4E 45 20 4D 4F 4D 45 4E 54 20 50 4C 45 41 53 |ONE MOMENT PLEAS|
00001940: 45 2E 2E 2E 20 20 20 20 20 22 00 53 21 75 03 3A |E... ".S!u.:|
00001950: 20 20 8E 00 73 21 84 03 8F 2D 2D 2D 2D 2D 53 45 | ..s!...-----SE|
00001960: 54 20 55 50 20 56 41 52 49 41 42 4C 45 53 2D 2D |T UP VARIABLES--|
00001970: 2D 2D 2D 00 C1 21 85 03 3A 20 20 55 58 24 B2 22 |---..!..: UX$."|
00001980: 48 22 3A 86 55 51 25 28 31 30 30 30 29 3A 55 42 |H":.UQ%(1000):UB|
00001990: B2 33 32 37 36 38 3A 55 31 B2 31 39 36 3A 55 32 |.32768:U1.196:U2|
000019A0: B2 31 39 37 3A 55 33 B2 31 39 38 3A 55 34 B2 32 |.197:U3.198:U4.2|
000019B0: 31 36 3A 55 43 B2 31 36 37 3A 55 55 B2 31 30 32 |16:UC.167:UU.102|
000019C0: 34 00 F1 21 86 03 3A 20 20 55 54 B2 35 39 34 36 |4..!..: UT.5946|
000019D0: 38 3A 55 55 25 B2 31 32 3A 55 4C 25 B2 31 34 3A |8:UU%.12:UL%.14:|
000019E0: 55 50 25 B2 31 31 34 36 3A 55 4D B2 33 32 37 36 |UP%.1146:UM.3276|
000019F0: 38 00 34 22 87 03 8B C2 28 35 30 30 30 33 29 B2 |8.4"....(50003).|
00001A00: 30 A7 55 42 B2 31 30 32 34 3A 55 31 B2 32 30 39 |0.UB.1024:U1.209|
00001A10: 3A 55 32 B2 32 31 30 3A 55 33 B2 32 31 31 3A 55 |:U2.210:U3.211:U|
00001A20: 34 B2 32 31 34 3A 55 43 B2 32 30 34 3A 55 55 B2 |4.214:UC.204:UU.|
00001A30: 32 30 34 38 00 6C 22 88 03 8B C2 28 35 30 30 30 |2048.l"....(5000|
00001A40: 33 29 B2 30 A7 55 54 B2 35 33 32 37 32 3A 55 55 |3).0.UT.53272:UU|
00001A50: 25 B2 32 31 3A 55 4C 25 B2 32 33 3A 55 50 25 B2 |%.21:UL%.23:UP%.|
00001A60: 32 31 33 39 3A 55 4D B2 31 30 32 34 00 93 22 89 |2139:UM.1024..".|
00001A70: 03 3A 20 20 55 44 24 B2 22 13 11 11 11 11 11 11 |.: UD$.".......|
00001A80: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00001A90: 11 11 22 00 C8 22 8A 03 3A 20 20 55 50 24 B2 22 |..".."..: UP$."|
00001AA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001AB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001AC0: 20 20 20 20 20 20 20 22 00 16 23 8B 03 3A 20 20 | "..#..: |
00001AD0: 55 54 24 B2 22 20 C5 D1 D5 C1 D4 C9 CF CE 20 C5 |UT$." ........ .|
00001AE0: D8 C5 D2 C3 C9 D3 C5 A0 22 3A 8F 20 50 4C 41 43 |........":. PLAC|
00001AF0: 45 20 50 52 4F 47 52 41 4D 20 54 49 54 4C 45 20 |E PROGRAM TITLE |
00001B00: 48 45 52 45 21 21 21 21 21 21 21 21 21 21 21 21 |HERE!!!!!!!!!!!!|
00001B10: 21 21 21 2A 2A 2A 00 1F 23 8C 03 3A 20 20 8E 00 |!!!***..#..: ..|
00001B20: 3C 23 8E 03 8F 2D 2D 2D 2D 2D 53 45 54 20 56 41 |<#...-----SET VA|
00001B30: 52 49 41 42 4C 45 53 2D 2D 2D 2D 2D 00 48 23 93 |RIABLES-----.H#.|
00001B40: 03 3A 20 20 8D 39 30 30 00 4E 23 95 03 3A 00 6C |.: .900.N#..:.l|
00001B50: 23 98 03 8F 2D 2D 2D 2D 2D 43 48 45 43 4B 20 46 |#...-----CHECK F|
00001B60: 4F 52 20 38 30 33 32 2D 2D 2D 2D 2D 00 8D 23 9D |OR 8032-----..#.|
00001B70: 03 3A 20 20 99 22 93 22 3A 99 22 A0 22 3A 8F 20 |.: .".":.".":. |
00001B80: 53 48 49 46 54 45 44 20 53 50 41 43 45 00 A7 23 |SHIFTED SPACE..#|
00001B90: A2 03 3A 20 20 8B C2 28 55 42 AA 34 30 29 B3 B1 |..: ..(UB.40)..|
00001BA0: 39 36 A7 8D 37 30 30 00 C3 23 A3 03 8F 2D 2D 2D |96..700..#...---|
00001BB0: 2D 2D 4D 45 4D 4F 52 59 20 43 48 45 43 4B 2D 2D |--MEMORY CHECK--|
00001BC0: 2D 2D 2D 00 DA 23 A4 03 3A 20 20 8B 20 B8 28 30 |---..#..: . .(0|
00001BD0: 29 B1 32 30 30 30 A7 39 33 37 00 0B 24 A5 03 3A |).2000.937..$..:|
00001BE0: 20 20 99 22 93 11 11 05 54 48 49 53 20 4D 41 43 | ."....THIS MAC|
00001BF0: 48 49 4E 45 20 44 4F 45 53 20 4E 4F 54 20 48 41 |HINE DOES NOT HA|
00001C00: 56 45 20 45 4E 4F 55 47 48 11 22 00 32 24 A6 03 |VE ENOUGH.".2$..|
00001C10: 3A 20 20 99 22 4D 45 4D 4F 52 59 20 54 4F 20 52 |: ."MEMORY TO R|
00001C20: 55 4E 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 |UN THIS PROGRAM |
00001C30: 21 22 00 40 24 A7 03 3A 20 20 9E 55 55 AA 37 31 |!".@$..: .UU.71|
00001C40: 00 49 24 A8 03 3A 20 20 80 00 66 24 A9 03 3A 20 |.I$..: ..f$..: |
00001C50: 20 99 22 93 05 22 3A 8B C2 28 35 30 30 30 33 29 | ."..":..(50003)|
00001C60: B2 30 A7 39 36 32 00 98 24 AC 03 8F 2D 2D 2D 2D |.0.962..$...----|
00001C70: 2D 42 41 53 49 43 20 32 2E 30 20 20 4F 52 20 20 |-BASIC 2.0 OR |
00001C80: 34 2E 30 20 20 4F 52 20 20 43 2D 36 34 20 53 45 |4.0 OR C-64 SE|
00001C90: 54 55 50 2D 2D 2D 2D 2D 00 D6 24 AD 03 97 31 30 |TUP-----..$...10|
00001CA0: 37 35 2C 31 33 33 3A 97 31 30 37 36 2C 31 34 34 |75,133:.1076,144|
00001CB0: 3A 97 31 30 37 37 2C 32 33 34 3A 97 31 30 37 39 |:.1077,234:.1079|
00001CC0: 2C 34 3A 97 31 30 38 30 2C 31 33 33 3A 97 31 30 |,4:.1080,133:.10|
00001CD0: 38 31 2C 31 34 35 00 0C 25 AE 03 97 31 30 39 31 |81,145..%...1091|
00001CE0: 2C 31 35 35 3A 97 31 30 39 38 2C 31 33 33 3A 97 |,155:.1098,133:.|
00001CF0: 31 30 39 39 2C 31 34 34 3A 97 31 31 30 30 2C 32 |1099,144:.1100,2|
00001D00: 33 34 3A 97 31 31 30 33 2C 31 33 33 00 2E 25 AF |34:.1103,133..%.|
00001D10: 03 97 31 31 30 34 2C 31 34 35 3A 97 31 31 30 35 |..1104,145:.1105|
00001D20: 2C 32 33 34 3A 97 31 30 38 32 2C 32 33 34 00 48 |,234:.1082,234.H|
00001D30: 25 B1 03 3A 20 20 8B C2 28 35 30 30 30 33 29 B3 |%..: ..(50003).|
00001D40: B1 31 36 30 A7 39 35 35 00 7A 25 B6 03 3A 20 20 |.160.955.z%..: |
00001D50: 97 31 30 39 33 2C 38 38 3A 97 31 30 39 34 2C 32 |.1093,88:.1094,2|
00001D60: 32 38 3A 97 31 30 39 37 2C 38 35 3A 97 31 31 30 |28:.1097,85:.110|
00001D70: 32 2C 32 32 38 3A 89 39 36 35 00 92 25 BB 03 3A |2,228:.965..%..:|
00001D80: 20 20 8B C2 28 35 30 30 30 33 29 B3 B1 31 A7 39 | ..(50003)..1.9|
00001D90: 39 30 00 C4 25 C0 03 3A 20 20 97 31 30 39 33 2C |90..%..: .1093,|
00001DA0: 34 39 3A 97 31 30 39 34 2C 32 33 30 3A 97 31 30 |49:.1094,230:.10|
00001DB0: 39 37 2C 34 36 3A 97 31 31 30 32 2C 32 33 30 3A |97,46:.1102,230:|
00001DC0: 89 39 36 35 00 FE 25 C2 03 97 32 30 39 39 2C 31 |.965..%...2099,1|
00001DD0: 34 31 3A 97 32 31 30 30 2C 32 30 3A 97 32 31 30 |41:.2100,20:.210|
00001DE0: 31 2C 33 3A 97 32 31 30 33 2C 38 3A 97 32 31 30 |1,3:.2103,8:.210|
00001DF0: 34 2C 31 34 31 3A 97 32 31 30 35 2C 32 31 00 3A |4,141:.2105,21.:|
00001E00: 26 C3 03 97 32 31 30 36 2C 33 3A 97 32 31 31 35 |&...2106,3:.2115|
00001E10: 2C 31 34 35 3A 97 32 31 31 37 2C 35 32 3A 97 32 |,145:.2117,52:.2|
00001E20: 31 31 38 2C 32 33 34 3A 97 32 31 32 31 2C 34 39 |118,234:.2121,49|
00001E30: 3A 97 32 31 32 32 2C 31 34 31 00 74 26 C4 03 97 |:.2122,141.t&...|
00001E40: 32 31 32 33 2C 32 30 3A 97 32 31 32 34 2C 33 3A |2123,20:.2124,3:|
00001E50: 97 32 31 32 36 2C 32 33 34 3A 97 32 31 32 37 2C |.2126,234:.2127,|
00001E60: 31 34 31 3A 97 32 31 32 38 2C 32 31 3A 97 32 31 |141:.2128,21:.21|
00001E70: 32 39 2C 33 00 95 26 C5 03 3A 20 20 9E 55 55 AA |29,3..&..: .UU.|
00001E80: 34 38 3A 8F 20 44 49 53 41 42 4C 45 20 53 54 4F |48:. DISABLE STO|
00001E90: 50 20 4B 45 59 00 A9 26 CA 03 3A 20 20 8D 38 30 |P KEY..&..: .80|
00001EA0: 30 3A 8F 20 54 49 54 4C 45 00 BC 26 D4 03 3A 20 |0:. TITLE..&..: |
00001EB0: 20 89 33 30 30 3A 8F 20 4D 45 4E 55 00 F0 26 DE | .300:. MENU..&.|
00001EC0: 03 3A 20 20 99 22 93 54 48 45 20 50 47 4D 20 57 |.: .".THE PGM W|
00001ED0: 49 4C 4C 20 4E 4F 54 20 57 4F 52 4B 20 4F 4E 20 |ILL NOT WORK ON |
00001EE0: 54 48 49 53 20 4D 41 43 48 49 4E 45 21 22 3A 80 |THIS MACHINE!":.|
00001EF0: 00 2A 27 E8 03 3A 20 8B 55 5A B2 31 A7 9E 55 50 |.*'..: .UZ.1..UP|
00001F00: 25 3A 9E 55 50 25 3A 55 5A B2 30 3A 8F 2D 2D 2D |%:.UP%:UZ.0:.---|
00001F10: 2D 2D 50 52 4F 47 52 41 4D 20 53 54 41 52 54 53 |--PROGRAM STARTS|
00001F20: 20 48 45 52 45 2D 2D 2D 2D 2D 00 54 27 E9 03 99 | HERE-----.T'...|
00001F30: 22 93 05 22 3B 3A 8B C2 28 35 30 30 30 33 29 B2 |"..";:..(50003).|
00001F40: 30 A7 97 35 33 32 38 31 2C 36 3A 97 35 33 32 38 |0..53281,6:.5328|
00001F50: 30 2C 31 34 00 7A 27 F2 03 8F 20 47 41 4D 45 2E |0,14.z'... GAME.|
00001F60: 2E 2E 2E 45 51 55 41 54 49 4F 4E 53 2E 2E 2E 2E |...EQUATIONS....|
00001F70: 36 32 20 2D 20 56 31 31 2E 31 00 A0 27 FC 03 8F |62 - V11.1..'...|
00001F80: 20 42 59 20 56 49 4E 43 45 20 4D 49 4C 4C 53 20 | BY VINCE MILLS |
00001F90: 2D 20 28 34 31 35 29 20 35 32 33 2D 37 31 36 33 |- (415) 523-7163|
00001FA0: 00 C6 27 06 04 8F 20 43 4F 50 59 52 49 47 48 54 |..'... COPYRIGHT|
00001FB0: 20 4D 41 59 20 31 39 38 30 20 2D 20 50 45 52 4D | MAY 1980 - PERM|
00001FC0: 49 53 53 49 4F 4E 00 ED 27 10 04 8F 20 52 45 53 |ISSION..'... RES|
00001FD0: 45 52 56 45 44 20 2D 20 4C 49 4D 49 54 45 44 20 |ERVED - LIMITED |
00001FE0: 44 49 53 54 52 49 42 55 54 49 4F 4E 2E 00 FF 27 |DISTRIBUTION...'|
00001FF0: 1A 04 99 22 93 22 3A 97 20 55 54 2C 55 4C 25 00 |...".":. UT,UL%.|
00002000: 15 28 24 04 8B 20 C2 28 38 39 38 29 B2 31 20 A7 |.($.. .(898).1 .|
00002010: 20 31 30 39 30 00 35 28 2E 04 8F 20 2D 2D 2D 20 | 1090.5(... --- |
00002020: 53 45 54 55 50 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |SETUP-----------|
00002030: 2D 2D 2D 2D 2D 00 4B 28 38 04 97 38 39 37 2C 31 |-----.K(8..897,1|
00002040: 3A 97 38 39 38 2C 31 3A 50 B2 31 00 67 28 42 04 |:.898,1:P.1.g(B.|
00002050: 42 31 24 B2 22 12 DF A9 11 9D 9D A9 DF 11 9D 9D |B1$."...........|
00002060: A4 A4 91 91 1D 92 22 00 81 28 4C 04 4D 24 B2 22 |......"..(L.M$."|
00002070: D7 D7 D7 D7 D7 D7 D7 D7 D7 D7 D7 D7 D7 D7 D7 D7 |................|
00002080: 22 00 AB 28 56 04 50 31 24 B2 22 92 20 B7 B7 B7 |"..(V.P1$.". ...|
00002090: B7 B7 B7 12 20 92 B7 B7 B7 B7 B7 B7 9D 9D 9D 9D |.... ...........|
000020A0: 9D 9D 9D 11 12 20 92 11 9D D1 22 00 DD 28 60 04 |..... ...."..(`.|
000020B0: 4D 31 24 B2 22 20 20 20 20 20 20 20 20 20 20 20 |M1$." |
000020C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000020D0: 20 20 20 20 20 20 20 20 20 20 20 20 22 00 F9 28 | "..(|
000020E0: 6A 04 4E 31 24 B2 22 92 20 20 20 20 20 20 20 20 |j.N1$.". |
000020F0: 20 20 20 20 20 20 20 20 22 00 15 29 74 04 4E 32 | "..)t.N2|
00002100: 24 B2 22 11 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |$.".............|
00002110: 9D 9D 9D 9D 22 00 30 29 7E 04 4E 33 24 B2 22 41 |....".0)~.N3$."A|
00002120: 4D 4F 55 4E 54 20 4F 4E 20 54 48 49 53 20 20 22 |MOUNT ON THIS "|
00002130: 00 55 29 88 04 4E 34 24 B2 22 53 49 44 45 20 5B |.U)..N4$."SIDE [|
00002140: 20 20 20 20 20 20 20 20 20 20 9D 9D 9D 9D 9D 9D | ......|
00002150: 9D 9D 9D 9D 22 00 76 29 92 04 4E 36 24 B2 22 1D |....".v)..N6$.".|
00002160: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00002170: 1D 1D 1D 1D 1D 22 00 81 29 9C 04 89 20 31 32 30 |....."..)... 120|
00002180: 30 00 9F 29 A6 04 99 20 C9 28 C4 28 44 30 29 2C |0..)... .(.(D0),|
00002190: C3 28 C4 28 44 30 29 29 AB 31 29 3B 20 3A 8E 00 |.(.(D0)).1); :..|
000021A0: BF 29 B0 04 8F 20 2D 2D 2D 20 49 4E 53 54 52 55 |.)... --- INSTRU|
000021B0: 43 54 49 4F 4E 53 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 |CTIONS---------.|
000021C0: EB 29 BA 04 99 22 93 22 3A 58 B2 31 33 3A 59 B2 |.)...".":X.13:Y.|
000021D0: 30 3A 8D 20 32 39 32 30 3A 99 22 12 B0 C0 C0 C0 |0:. 2920:.".....|
000021E0: C0 C0 C0 C0 C0 C0 C0 C0 AE 22 3B 00 0D 2A C4 04 |.........";..*..|
000021F0: 59 B2 31 3A 8D 20 32 39 32 30 3A 99 22 12 DD 20 |Y.1:. 2920:.".. |
00002200: C5 51 55 41 54 49 4F 4E 53 20 DD 22 3B 00 2E 2A |.QUATIONS .";..*|
00002210: CE 04 59 B2 32 3A 8D 20 32 39 32 30 3A 99 22 12 |..Y.2:. 2920:.".|
00002220: AD C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 BD 22 00 34 |.............".4|
00002230: 2A E2 04 99 00 64 2A 50 05 99 3A 99 22 11 11 11 |*....d*P..:."...|
00002240: 11 20 D7 49 4C 4C 20 59 4F 55 20 44 45 46 49 4E |. .ILL YOU DEFIN|
00002250: 45 20 54 48 45 20 45 51 55 41 54 49 4F 4E 53 20 |E THE EQUATIONS |
00002260: 3F 20 22 3B 00 89 2A 5A 05 55 4C B2 31 3A 55 53 |? ";..*Z.UL.1:US|
00002270: 24 B2 22 59 4E 48 22 3A 8D 33 35 3A 8B 55 52 24 |$."YNH":.35:.UR$|
00002280: B2 22 59 22 A7 31 35 32 30 00 A0 2A 64 05 8F 20 |."Y".1520..*d.. |
00002290: 2D 2D 2D 20 50 49 43 4B 20 50 52 4F 42 4C 45 4D |--- PICK PROBLEM|
000022A0: 00 A9 2A 6E 05 99 22 93 22 00 B5 2A 78 05 43 B2 |..*n.."."..*x.C.|
000022B0: 30 3A 42 B2 30 00 C9 2A 82 05 45 B2 32 AA B5 28 |0:B.0..*..E.2..(|
000022C0: BB 28 30 29 AC 37 2E 39 29 00 E2 2A 8C 05 8B 20 |.(0).7.9)..*... |
000022D0: 50 B2 32 20 A7 20 41 B2 31 20 3A 20 89 20 31 34 |P.2 . A.1 : . 14|
000022E0: 36 30 00 F6 2A 96 05 41 B2 32 AA B5 28 BB 28 30 |60..*..A.2..(.(0|
000022F0: 29 AC 31 2E 39 29 00 07 2B A0 05 8B 20 50 B3 37 |).1.9)..+... P.7|
00002300: 20 A7 20 31 34 36 30 00 1D 2B AA 05 43 B2 31 AA | . 1460..+..C.1.|
00002310: B5 28 BB 28 30 29 AC 28 41 AB 31 29 29 00 2E 2B |.(.(0).(A.1))..+|
00002320: B4 05 8B 20 50 B2 31 20 A7 20 31 35 30 30 00 3B |... P.1 . 1500.;|
00002330: 2B BE 05 42 B2 32 38 AB 39 AC 41 00 4D 2B C8 05 |+..B.28.9.A.M+..|
00002340: 8B 20 41 B3 B1 31 20 A7 20 31 35 30 30 00 67 2B |. A..1 . 1500.g+|
00002350: D2 05 42 B2 32 39 AA B5 28 BB 28 30 29 AC 31 30 |..B.29..(.(0).10|
00002360: 2E 39 29 AB 39 AC 41 00 77 2B DC 05 44 B2 41 AC |.9).9.A.w+..D.A.|
00002370: 45 AA 42 AB 43 AC 45 00 82 2B E6 05 89 20 31 37 |E.B.C.E..+... 17|
00002380: 34 30 00 CA 2B F0 05 8F 20 2D 2D 2D 20 55 53 45 |40..+... --- USE|
00002390: 52 20 50 52 4F 42 4C 45 4D 2D 2D 2D 2D 2D 2D 2D |R PROBLEM-------|
000023A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000023B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000023C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 DE 2B F5 05 55 |----------..+..U|
000023D0: 53 24 B2 22 48 32 33 34 35 36 37 38 39 22 00 E9 |S$."H23456789"..|
000023E0: 2B FA 05 97 38 39 37 2C 30 00 F7 2B 04 06 97 35 |+...897,0..+...5|
000023F0: 39 34 36 38 2C 31 34 00 2F 2C 0E 06 99 20 22 93 |9468,14./,... ".|
00002400: 11 11 11 11 11 11 11 20 C8 4F 57 20 4D 41 4E 59 |....... .OW MANY|
00002410: 20 4D 41 52 42 4C 45 53 20 49 4E 20 45 41 43 48 | MARBLES IN EACH|
00002420: 20 42 41 47 20 5B 32 2D 39 5D 20 3F 20 22 3B 00 | BAG [2-9] ? ";.|
00002430: 3C 2C 18 06 55 4C B2 31 3A 8D 33 35 00 49 2C 22 |<,..UL.1:.35.I,"|
00002440: 06 45 B2 C5 28 55 52 24 29 00 62 2C 2C 06 8B 20 |.E..(UR$).b,,.. |
00002450: 45 B3 32 20 B0 20 45 B1 39 20 A7 20 89 20 31 35 |E.2 . E.9 . . 15|
00002460: 35 30 00 A1 2C 36 06 55 53 24 B2 22 48 31 32 33 |50..,6.US$."H123|
00002470: 22 3A 99 22 20 C8 4F 57 20 4D 41 4E 59 20 42 41 |":." .OW MANY BA|
00002480: 47 53 20 4F 4E 20 54 48 45 20 4C 45 46 54 20 5B |GS ON THE LEFT [|
00002490: 31 2D 33 5D 20 3F 22 3B 3A 55 4C B2 31 3A 8D 33 |1-3] ?";:UL.1:.3|
000024A0: 35 00 AE 2C 40 06 41 B2 C5 28 55 52 24 29 00 C5 |5..,@.A..(UR$)..|
000024B0: 2C 4A 06 8B 20 41 B3 31 20 B0 20 41 B1 33 20 A7 |,J.. A.1 . A.3 .|
000024C0: 20 31 35 39 30 00 E9 2C 54 06 8B 20 41 B2 31 20 | 1590..,T.. A.1 |
000024D0: A7 20 55 53 24 B2 22 30 31 32 33 34 35 36 37 38 |. US$."012345678|
000024E0: 39 48 22 3A 89 31 36 36 30 00 FF 2C 59 06 55 53 |9H":.1660..,Y.US|
000024F0: 24 B2 22 30 31 32 33 34 35 36 37 38 39 48 22 00 |$."0123456789H".|
00002500: 3D 2D 5E 06 99 22 11 1D C8 4F 57 20 4D 41 4E 59 |=-^.."...OW MANY|
00002510: 20 42 41 47 53 20 4F 4E 20 54 48 45 20 52 49 47 | BAGS ON THE RIG|
00002520: 48 54 20 5B 30 2D 22 3B 3A 44 30 B2 41 AB 31 3A |HT [0-";:D0.A.1:|
00002530: 8D 31 31 39 30 3A 99 22 5D 20 3F 22 3B 00 53 2D |.1190:."] ?";.S-|
00002540: 68 06 55 4C B2 32 3A 8D 33 35 3A 43 B2 C5 28 55 |h.UL.2:.35:C..(U|
00002550: 52 24 29 00 74 2D 72 06 8B 20 43 B3 2E 20 B0 20 |R$).t-r.. C.. . |
00002560: 43 B1 41 AB 31 20 A7 20 99 22 91 91 91 22 3A 89 |C.A.1 . ."...":.|
00002570: 31 36 33 30 00 B7 2D 7C 06 99 22 11 1D C8 4F 57 |1630..-|.."...OW|
00002580: 20 4D 41 4E 59 20 4D 41 52 42 4C 45 53 20 4F 4E | MANY MARBLES ON|
00002590: 20 54 48 45 20 4C 45 46 54 20 5B 30 2D 22 3B 3A | THE LEFT [0-";:|
000025A0: 44 30 B2 33 39 AB 39 AC 41 3A 8D 31 31 39 30 3A |D0.39.9.A:.1190:|
000025B0: 99 22 5D 20 3F 22 3B 00 CD 2D 86 06 55 4C B2 32 |."] ?";..-..UL.2|
000025C0: 3A 8D 33 35 3A 42 B2 C5 28 55 52 24 29 00 F2 2D |:.35:B..(UR$)..-|
000025D0: 90 06 8B 20 42 B3 2E 20 B0 20 42 B1 33 39 AB 39 |... B.. . B.39.9|
000025E0: AC 41 20 A7 99 22 91 91 91 91 22 3A 89 20 31 36 |.A .."....":. 16|
000025F0: 36 30 00 02 2E 9A 06 44 B2 41 AC 45 AA 42 AB 43 |60.....D.A.E.B.C|
00002600: AC 45 00 18 2E A4 06 8B 20 44 AB B5 28 44 29 B2 |.E...... D..(D).|
00002610: 30 20 A7 20 31 37 32 30 00 47 2E AE 06 99 20 22 |0 . 1720.G.... "|
00002620: 11 D4 C8 C5 A0 CE D5 CD C2 C5 D2 D3 A0 C4 CF CE |................|
00002630: 27 D4 A0 C1 C4 C4 A0 D5 D0 2E 22 3A 8D 38 33 35 |'.........":.835|
00002640: 3A 89 20 31 35 32 30 00 68 2E B8 06 8F 20 20 57 |:. 1520.h.... W|
00002650: 54 3D 31 3A 47 4F 53 55 42 20 32 38 38 30 3A 50 |T=1:GOSUB 2880:P|
00002660: 52 49 4E 54 22 93 22 3B 00 72 2E C2 06 99 22 93 |RINT".";.r....".|
00002670: 22 3B 00 85 2E CC 06 8F 20 2D 2D 2D 20 52 55 4E |";...... --- RUN|
00002680: 20 47 41 4D 45 00 92 2E D6 06 97 20 55 54 2C 55 | GAME...... UT,U|
00002690: 55 25 00 9D 2E E0 06 8D 20 32 39 37 30 00 B1 2E |U%...... 2970...|
000026A0: EA 06 58 B2 2E 3A 59 B2 31 32 3A 8D 20 32 39 32 |..X..:Y.12:. 292|
000026B0: 30 00 D0 2E F4 06 99 22 20 20 20 20 20 20 20 20 |0......" |
000026C0: 20 20 20 20 46 55 4E 43 54 49 4F 4E 53 3A 11 22 | FUNCTIONS:."|
000026D0: 00 F0 2E FE 06 99 22 20 20 20 20 20 20 20 20 20 |......" |
000026E0: 20 20 20 20 31 2D 41 44 44 20 42 41 4C 4C 53 22 | 1-ADD BALLS"|
000026F0: 00 15 2F 08 07 99 22 20 20 20 20 20 20 20 20 20 |../..." |
00002700: 20 20 20 20 32 2D 53 55 42 54 52 41 43 54 20 42 | 2-SUBTRACT B|
00002710: 41 4C 4C 53 22 00 34 2F 12 07 99 22 20 20 20 20 |ALLS".4/..." |
00002720: 20 20 20 20 20 20 20 20 20 33 2D 41 44 44 20 42 | 3-ADD B|
00002730: 41 47 53 22 00 58 2F 1C 07 99 22 20 20 20 20 20 |AGS".X/..." |
00002740: 20 20 20 20 20 20 20 20 34 2D 53 55 42 54 52 41 | 4-SUBTRA|
00002750: 43 54 20 42 41 47 53 22 00 75 2F 26 07 99 22 20 |CT BAGS".u/&.." |
00002760: 20 20 20 20 20 20 20 20 20 20 20 20 35 2D 44 49 | 5-DI|
00002770: 56 49 44 45 22 00 92 2F 30 07 99 22 20 20 20 20 |VIDE"../0.." |
00002780: 20 20 20 20 20 20 20 20 20 36 2D 53 4F 4C 56 45 | 6-SOLVE|
00002790: 11 22 00 B2 2F 3A 07 99 22 20 20 20 20 20 20 20 |."../:.." |
000027A0: 20 20 20 20 20 46 55 4E 43 54 49 4F 4E 20 3F 20 | FUNCTION ? |
000027B0: 22 3B 00 CD 2F 44 07 55 4C B2 31 3A 55 53 24 B2 |";../D.UL.1:US$.|
000027C0: 22 48 31 32 33 34 35 36 22 3A 8D 33 35 00 DA 2F |"H123456":.35../|
000027D0: 4E 07 46 B2 C5 28 55 52 24 29 00 ED 2F 58 07 58 |N.F..(UR$)../X.X|
000027E0: B2 30 3A 59 B2 31 32 3A 8D 32 39 32 30 00 F9 2F |.0:Y.12:.2920../|
000027F0: 5A 07 81 51 B2 31 A4 31 31 00 2B 30 5C 07 3A 20 |Z..Q.1.11.+0\.: |
00002800: 20 99 22 20 20 20 20 20 20 20 20 20 20 20 20 20 | ." |
00002810: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002820: 20 20 20 20 20 20 20 20 20 20 22 00 32 30 5E 07 | ".20^.|
00002830: 82 51 00 5A 30 6C 07 91 20 46 20 89 20 31 39 31 |.Q.Z0l.. F . 191|
00002840: 30 2C 32 30 32 30 2C 32 31 33 30 2C 32 32 34 30 |0,2020,2130,2240|
00002850: 2C 32 33 35 30 2C 32 34 39 30 00 6E 30 76 07 8F |,2350,2490.n0v..|
00002860: 20 2D 2D 2D 20 41 44 44 20 42 41 4C 4C 53 00 7C | --- ADD BALLS.||
00002870: 30 80 07 57 31 B2 42 3A 57 32 B2 44 00 97 30 8A |0..W1.B:W2.D..0.|
00002880: 07 58 B2 31 3A 59 B2 31 31 3A 8D 20 32 39 32 30 |.X.1:Y.11:. 2920|
00002890: 3A 4E 35 24 B2 22 22 00 B5 30 94 07 4C 30 B2 2E |:N5$.""..0..L0..|
000028A0: 3A 48 30 B2 33 39 AB 28 41 AC 39 AA 52 29 3A 8D |:H0.39.(A.9.R):.|
000028B0: 20 33 34 30 30 00 CC 30 9E 07 57 33 B2 C5 28 42 | 3400..0..W3..(B|
000028C0: 24 29 3A 42 B2 42 AA C5 28 42 24 29 00 D7 30 A8 |$):B.B..(B$)..0.|
000028D0: 07 8D 20 33 34 36 30 00 F4 30 B2 07 58 B2 32 33 |.. 3460..0..X.23|
000028E0: 3A 59 B2 31 31 3A 8D 20 32 39 32 30 3A 4E 35 24 |:Y.11:. 2920:N5$|
000028F0: B2 4E 36 24 00 12 31 BC 07 4C 30 B2 2E 3A 48 30 |.N6$..1..L0..:H0|
00002900: B2 33 39 AB 28 43 AC 39 AA 44 29 3A 8D 20 33 34 |.39.(C.9.D):. 34|
00002910: 30 30 00 29 31 C6 07 57 34 B2 C5 28 42 24 29 3A |00.)1..W4..(B$):|
00002920: 44 B2 44 AA C5 28 42 24 29 00 47 31 D0 07 8B 20 |D.D..(B$).G1... |
00002930: 57 33 B3 B1 57 34 20 A7 42 B2 57 31 3A 44 B2 57 |W3..W4 .B.W1:D.W|
00002940: 32 3A 89 33 33 35 30 00 52 31 DA 07 89 20 31 37 |2:.3350.R1... 17|
00002950: 34 30 00 6B 31 E4 07 8F 20 2D 2D 2D 20 53 55 42 |40.k1... --- SUB|
00002960: 54 52 41 43 54 20 42 41 4C 4C 53 00 79 31 EE 07 |TRACT BALLS.y1..|
00002970: 57 31 B2 42 3A 57 32 B2 44 00 94 31 F8 07 58 B2 |W1.B:W2.D..1..X.|
00002980: 31 3A 59 B2 31 31 3A 8D 20 32 39 32 30 3A 4E 35 |1:Y.11:. 2920:N5|
00002990: 24 B2 22 22 00 A9 31 02 08 4C 30 B2 2E 3A 48 30 |$.""..1..L0..:H0|
000029A0: B2 42 3A 8D 20 33 34 30 30 00 C0 31 0C 08 57 33 |.B:. 3400..1..W3|
000029B0: B2 C5 28 42 24 29 3A 42 B2 42 AB C5 28 42 24 29 |..(B$):B.B..(B$)|
000029C0: 00 CB 31 16 08 8D 20 33 34 36 30 00 E8 31 20 08 |..1... 3460..1 .|
000029D0: 58 B2 32 33 3A 59 B2 31 31 3A 8D 20 32 39 32 30 |X.23:Y.11:. 2920|
000029E0: 3A 4E 35 24 B2 4E 36 24 00 FD 31 2A 08 4C 30 B2 |:N5$.N6$..1*.L0.|
000029F0: 2E 3A 48 30 B2 44 3A 8D 20 33 34 30 30 00 14 32 |.:H0.D:. 3400..2|
00002A00: 34 08 57 34 B2 C5 28 42 24 29 3A 44 B2 44 AB C5 |4.W4..(B$):D.D..|
00002A10: 28 42 24 29 00 32 32 3E 08 8B 20 57 33 B3 B1 57 |(B$).22>.. W3..W|
00002A20: 34 20 A7 42 B2 57 31 3A 44 B2 57 32 3A 89 33 33 |4 .B.W1:D.W2:.33|
00002A30: 35 30 00 3D 32 48 08 89 20 31 37 34 30 00 50 32 |50.=2H.. 1740.P2|
00002A40: 52 08 8F 20 2D 2D 2D 20 41 44 44 20 42 41 47 53 |R.. --- ADD BAGS|
00002A50: 00 5E 32 5C 08 57 31 B2 41 3A 57 32 B2 43 00 79 |.^2\.W1.A:W2.C.y|
00002A60: 32 66 08 58 B2 31 3A 59 B2 31 31 3A 8D 20 32 39 |2f.X.1:Y.11:. 29|
00002A70: 32 30 3A 4E 35 24 B2 22 22 00 9E 32 70 08 4C 30 |20:N5$.""..2p.L0|
00002A80: B2 2E 3A 48 30 B2 B5 28 28 33 39 AB 28 41 AC 39 |..:H0..((39.(A.9|
00002A90: AA 42 29 29 AD 39 29 3A 8D 20 33 34 30 30 00 B5 |.B)).9):. 3400..|
00002AA0: 32 7A 08 57 33 B2 C5 28 42 24 29 3A 41 B2 41 AA |2z.W3..(B$):A.A.|
00002AB0: C5 28 42 24 29 00 C0 32 84 08 8D 20 33 34 36 30 |.(B$)..2... 3460|
00002AC0: 00 DD 32 8E 08 58 B2 32 33 3A 59 B2 31 31 3A 8D |..2..X.23:Y.11:.|
00002AD0: 20 32 39 32 30 3A 4E 35 24 B2 4E 36 24 00 02 33 | 2920:N5$.N6$..3|
00002AE0: 98 08 4C 30 B2 2E 3A 48 30 B2 B5 28 28 33 39 AB |..L0..:H0..((39.|
00002AF0: 28 43 AC 39 AA 44 29 29 AD 39 29 3A 8D 20 33 34 |(C.9.D)).9):. 34|
00002B00: 30 30 00 19 33 A2 08 57 34 B2 C5 28 42 24 29 3A |00..3..W4..(B$):|
00002B10: 43 B2 43 AA C5 28 42 24 29 00 37 33 AC 08 8B 20 |C.C..(B$).73... |
00002B20: 57 33 B3 B1 57 34 20 A7 41 B2 57 31 3A 43 B2 57 |W3..W4 .A.W1:C.W|
00002B30: 32 3A 89 33 33 35 30 00 42 33 B6 08 89 20 31 37 |2:.3350.B3... 17|
00002B40: 34 30 00 5A 33 C0 08 8F 20 2D 2D 2D 20 53 55 42 |40.Z3... --- SUB|
00002B50: 54 52 41 43 54 20 42 41 47 53 00 68 33 CA 08 57 |TRACT BAGS.h3..W|
00002B60: 31 B2 41 3A 57 32 B2 43 00 83 33 D4 08 58 B2 31 |1.A:W2.C..3..X.1|
00002B70: 3A 59 B2 31 31 3A 8D 20 32 39 32 30 3A 4E 35 24 |:Y.11:. 2920:N5$|
00002B80: B2 22 22 00 98 33 DE 08 4C 30 B2 2E 3A 48 30 B2 |.""..3..L0..:H0.|
00002B90: 41 3A 8D 20 33 34 30 30 00 AF 33 E8 08 57 33 B2 |A:. 3400..3..W3.|
00002BA0: C5 28 42 24 29 3A 41 B2 41 AB C5 28 42 24 29 00 |.(B$):A.A..(B$).|
00002BB0: BA 33 F2 08 8D 20 33 34 36 30 00 D7 33 FC 08 58 |.3... 3460..3..X|
00002BC0: B2 32 33 3A 59 B2 31 31 3A 8D 20 32 39 32 30 3A |.23:Y.11:. 2920:|
00002BD0: 4E 35 24 B2 4E 36 24 00 EC 33 06 09 4C 30 B2 2E |N5$.N6$..3..L0..|
00002BE0: 3A 48 30 B2 43 3A 8D 20 33 34 30 30 00 03 34 10 |:H0.C:. 3400..4.|
00002BF0: 09 57 34 B2 C5 28 42 24 29 3A 43 B2 43 AB C5 28 |.W4..(B$):C.C..(|
00002C00: 42 24 29 00 21 34 1A 09 8B 20 57 33 B3 B1 57 34 |B$).!4... W3..W4|
00002C10: 20 A7 41 B2 57 31 3A 43 B2 57 32 3A 89 33 33 35 | .A.W1:C.W2:.335|
00002C20: 30 00 2C 34 24 09 89 20 31 37 34 30 00 3D 34 2E |0.,4$.. 1740.=4.|
00002C30: 09 8F 20 2D 2D 2D 20 44 49 56 49 44 45 00 6E 34 |.. --- DIVIDE.n4|
00002C40: 38 09 58 B2 39 3A 59 B2 31 31 3A 8D 20 32 39 32 |8.X.9:Y.11:. 292|
00002C50: 30 3A 99 22 92 20 20 20 20 20 20 20 20 20 20 20 |0:.". |
00002C60: 20 20 20 20 20 20 20 20 20 20 20 20 22 3B 00 9F | ";..|
00002C70: 34 42 09 59 B2 31 32 3A 8D 20 32 39 32 30 3A 99 |4B.Y.12:. 2920:.|
00002C80: 22 44 49 56 49 44 45 20 42 59 20 57 48 41 54 20 |"DIVIDE BY WHAT |
00002C90: 46 41 43 54 4F 52 20 3F 22 3B 3A 59 B2 31 34 00 |FACTOR ?";:Y.14.|
00002CA0: DF 34 4C 09 8D 32 39 32 30 3A 99 22 20 20 20 20 |.4L..2920:." |
00002CB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002CC0: 20 20 20 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D | .............|
00002CD0: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 20 5B 31 22 3B 00 |.......... [1";.|
00002CE0: F9 34 56 09 96 20 A5 41 28 54 30 29 B2 54 30 AD |.4V.. .A(T0).T0.|
00002CF0: 49 AB B5 28 54 30 AD 49 29 00 18 35 60 09 53 30 |I..(T0.I)..5`.S0|
00002D00: 28 31 29 B2 AB 31 3A 81 20 49 B2 32 20 A4 20 33 |(1)..1:. I.2 . 3|
00002D10: 3A 53 30 28 49 29 B2 30 00 48 35 6A 09 8B 20 A5 |:S0(I).0.H5j.. .|
00002D20: 41 28 41 29 B2 2E AF 20 A5 41 28 42 29 B2 2E AF |A(A)... .A(B)...|
00002D30: A5 41 28 43 29 B2 2E 20 AF 20 A5 41 28 44 29 B2 |.A(C).. . .A(D).|
00002D40: 2E 20 A7 20 32 34 33 30 00 53 35 74 09 89 20 32 |. . 2430.S5t.. 2|
00002D50: 34 34 30 00 73 35 7E 09 99 20 22 2D 22 3B 3A 44 |440.s5~.. "-";:D|
00002D60: 30 B2 49 3A 8D 20 31 31 39 30 3A 53 30 28 49 29 |0.I:. 1190:S0(I)|
00002D70: B2 AB 31 00 7B 35 88 09 82 20 49 00 AC 35 92 09 |..1.{5... I..5..|
00002D80: 99 22 5D 20 3F 22 3B 3A 55 4C B2 31 3A 55 53 24 |."] ?";:UL.1:US$|
00002D90: B2 22 48 31 32 33 34 35 36 37 38 39 30 22 3A 8D |."H1234567890":.|
00002DA0: 33 35 3A 42 30 B2 C5 28 55 52 24 29 00 D7 35 9C |35:B0..(UR$)..5.|
00002DB0: 09 8B 20 42 30 20 B3 20 31 20 B0 20 42 30 20 B1 |.. B0 . 1 . B0 .|
00002DC0: 20 33 20 A7 20 57 54 B2 32 3A 8D 20 32 38 38 30 | 3 . WT.2:. 2880|
00002DD0: 3A 89 20 32 33 38 30 00 F5 35 A6 09 8B 20 A8 20 |:. 2380..5... . |
00002DE0: 53 30 28 42 30 29 20 A7 20 42 30 B2 AB 31 3A 89 |S0(B0) . B0..1:.|
00002DF0: 20 32 34 36 30 00 29 36 B0 09 41 B2 41 AD 42 30 | 2460.)6..A.A.B0|
00002E00: 3A 42 B2 42 AD 42 30 3A 43 B2 43 AD 42 30 3A 44 |:B.B.B0:C.C.B0:D|
00002E10: B2 44 AD 42 30 3A 99 22 93 22 3B 3A 8D 20 33 30 |.D.B0:.".";:. 30|
00002E20: 30 30 3A 89 20 31 37 37 30 00 39 36 BA 09 8F 20 |00:. 1770.96... |
00002E30: 2D 2D 2D 20 53 4F 4C 56 45 00 5A 36 C4 09 8B 20 |--- SOLVE.Z6... |
00002E40: 41 AC 42 B2 2E 20 AF 20 43 AC 44 B2 2E 20 AF 20 |A.B.. . C.D.. . |
00002E50: 41 B2 31 20 A7 20 32 35 33 30 00 8D 36 CE 09 58 |A.1 . 2530..6..X|
00002E60: B2 39 3A 59 B2 31 31 3A 8D 32 39 32 30 3A 99 22 |.9:Y.11:.2920:."|
00002E70: 12 20 53 49 4D 50 4C 49 46 59 20 53 4F 4D 45 20 |. SIMPLIFY SOME |
00002E80: 4D 4F 52 45 20 21 20 22 3A 8D 38 33 35 00 BB 36 |MORE ! ":.835..6|
00002E90: D8 09 58 B2 39 3A 59 B2 31 31 3A 8D 32 39 32 30 |..X.9:Y.11:.2920|
00002EA0: 3A 99 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |:." |
00002EB0: 20 20 20 20 20 20 20 20 20 20 22 00 F5 36 DD 09 | "..6..|
00002EC0: 58 B2 36 3A 59 B2 32 33 3A 8D 32 39 32 30 3A 99 |X.6:Y.23:.2920:.|
00002ED0: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" |
00002EE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3A 89 | ":.|
00002EF0: 20 31 37 37 30 00 2B 37 E2 09 58 B2 39 3A 59 B2 | 1770.+7..X.9:Y.|
00002F00: 31 31 3A 8D 20 32 39 32 30 3A 99 22 92 20 20 20 |11:. 2920:.". |
00002F10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002F20: 20 20 20 20 20 20 20 20 20 22 3B 00 57 37 EC 09 | ";.W7..|
00002F30: 59 B2 31 32 3A 8D 20 32 39 32 30 3A 99 22 20 48 |Y.12:. 2920:." H|
00002F40: 4F 57 20 4D 41 4E 59 20 42 41 4C 4C 53 20 41 52 |OW MANY BALLS AR|
00002F50: 45 20 49 4E 20 22 3B 00 9A 37 F6 09 59 B2 31 33 |E IN ";..7..Y.13|
00002F60: 3A 8D 20 32 39 32 30 3A 99 22 20 20 20 20 20 20 |:. 2920:." |
00002F70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002F80: 20 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D | ...............|
00002F90: 9D 9D 9D 9D 9D 9D 9D 9D 22 3B 00 C9 37 00 0A 99 |........";..7...|
00002FA0: 22 20 54 48 45 20 42 41 47 20 3F 20 22 3B 3A 55 |" THE BAG ? ";:U|
00002FB0: 4C B2 31 3A 55 53 24 B2 22 48 30 31 32 33 34 35 |L.1:US$."H012345|
00002FC0: 36 37 38 39 22 3A 8D 33 35 00 EE 37 0A 0A 8B 20 |6789":.35..7... |
00002FD0: C5 28 55 52 24 29 B3 B1 45 20 A7 20 57 54 B2 32 |.(UR$)..E . WT.2|
00002FE0: 3A 8D 20 32 38 38 30 3A 89 20 32 35 35 30 00 1B |:. 2880:. 2550..|
00002FF0: 38 14 0A 59 B2 31 35 3A 8D 20 32 39 32 30 3A 99 |8..Y.15:. 2920:.|
00003000: 22 92 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |". |
00003010: 20 20 20 20 20 20 20 20 20 22 3B 00 47 38 1E 0A | ";.G8..|
00003020: 59 B2 31 36 3A 8D 20 32 39 32 30 3A 99 22 20 54 |Y.16:. 2920:." T|
00003030: 48 41 54 27 53 20 52 49 47 48 54 20 21 21 21 21 |HAT'S RIGHT !!!!|
00003040: 21 21 21 20 20 22 3B 00 59 38 28 0A 59 B2 31 37 |!!! ";.Y8(.Y.17|
00003050: 3A 8D 20 32 39 32 30 3A 99 00 94 38 32 0A 58 B2 |:. 2920:...82.X.|
00003060: 32 3A 59 B2 32 33 3A 8D 20 32 39 32 30 3A 99 22 |2:Y.23:. 2920:."|
00003070: 20 44 4F 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 | DO YOU WANT TO |
00003080: 54 52 59 20 41 4E 4F 54 48 45 52 3F 20 28 59 2F |TRY ANOTHER? (Y/|
00003090: 4E 29 22 3B 00 B9 38 37 0A 55 4C B2 31 3A 55 53 |N)";..87.UL.1:US|
000030A0: 24 B2 22 48 59 4E 22 3A 8D 33 35 3A 8B 55 52 24 |$."HYN":.35:.UR$|
000030B0: B2 22 59 22 A7 32 36 32 30 00 01 39 39 0A 89 33 |."Y".2620..99..3|
000030C0: 30 30 3A 8F 2D 2D 52 45 54 55 52 4E 20 54 4F 20 |00:.--RETURN TO |
000030D0: 4D 45 4E 55 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |MENU------------|
000030E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000030F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00003100: 2D 00 17 39 3C 0A 8B 20 C2 28 38 39 37 29 B2 30 |-..9<.. .(897).0|
00003110: 20 A7 20 31 35 32 30 00 49 39 46 0A 97 38 39 37 | . 1520.I9F..897|
00003120: 2C C2 28 38 39 37 29 AA 31 3A 50 B2 B5 28 BB 28 |,.(897).1:P..(.(|
00003130: 30 29 AC C2 28 38 39 37 29 AA 2E 39 29 3A 99 22 |0)..(897)..9):."|
00003140: 93 22 3B 3A 89 31 33 38 30 00 6B 39 40 0B 8F 2D |.";:.1380.k9@..-|
00003150: 57 41 49 54 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |WAIT------------|
00003160: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 7A 39 4A 0B |-----------.z9J.|
00003170: 54 B2 54 49 AA 36 30 AC 57 54 00 8C 39 54 0B 8B |T.TI.60.WT..9T..|
00003180: 20 54 B1 54 49 20 A7 20 32 39 30 30 00 92 39 5E | T.TI . 2900..9^|
00003190: 0B 8E 00 B4 39 68 0B 8F 2D 4D 4F 56 45 2D 2D 2D |....9h..-MOVE---|
000031A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000031B0: 2D 2D 2D 2D 00 E4 39 72 0B 44 44 24 B2 22 11 11 |----..9r.DD$."..|
000031C0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
000031D0: 11 11 11 11 11 11 11 11 11 11 11 11 11 22 3A 99 |.............":.|
000031E0: 22 13 22 3B 00 F8 39 7C 0B 8B 20 59 B2 30 20 A7 |".";..9|.. Y.0 .|
000031F0: 20 99 A6 58 29 3B 3A 8E 00 11 3A 86 0B 8B 20 58 | ..X);:...:... X|
00003200: B2 30 20 A7 20 99 C8 28 44 44 24 2C 59 29 3B 3A |.0 . ..(DD$,Y);:|
00003210: 8E 00 25 3A 90 0B 99 C8 28 44 44 24 2C 59 29 A6 |..%:....(DD$,Y).|
00003220: 58 29 3B 3A 8E 00 43 3A 9A 0B 8F 20 2D 2D 20 55 |X);:..C:... -- U|
00003230: 50 44 41 54 45 20 42 41 4C 41 4E 43 45 20 53 43 |PDATE BALANCE SC|
00003240: 41 4C 45 00 4D 3A A4 0B 99 22 13 22 3B 00 63 3A |ALE.M:...".";.c:|
00003250: AE 0B 81 20 49 B2 31 A4 31 36 3A 99 4D 31 24 3A |... I.1.16:.M1$:|
00003260: 82 20 49 00 75 3A B8 0B 5A B2 43 AC 45 AA 44 AB |. I.u:..Z.C.E.D.|
00003270: 41 AC 45 AB 42 00 89 3A C2 0B 58 B2 31 39 3A 59 |A.E.B..:..X.19:Y|
00003280: B2 37 3A 8D 20 32 39 32 30 00 A9 3A CC 0B 99 22 |.7:. 2920..:..."|
00003290: 12 A9 DF 11 9D 9D 9D A9 D2 D2 DF 11 9D 9D 9D 9D |................|
000032A0: 9D A9 20 C4 C4 20 DF 22 3B 00 B5 3A D6 0B 58 B2 |.. .. .";..:..X.|
000032B0: 2E 3A 59 B2 34 00 C5 3A E0 0B 8B 20 5A B1 30 20 |.:Y.4..:... Z.0 |
000032C0: A7 20 59 B2 33 00 D5 3A EA 0B 8B 20 5A B3 30 20 |. Y.3..:... Z.0 |
000032D0: A7 20 59 B2 35 00 E7 3A F4 0B 8D 20 32 39 32 30 |. Y.5..:... 2920|
000032E0: 3A 99 20 50 31 24 3B 00 1C 3B FE 0B 8B 20 5A B2 |:. P1$;..;... Z.|
000032F0: 30 20 A7 20 99 22 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 |0 . ."..........|
00003300: C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 91 91 |................|
00003310: 9D 9D 9D 9D 9D 9D 9D 22 50 31 24 3B 00 51 3B 08 |......."P1$;.Q;.|
00003320: 0C 8B 20 5A B1 30 20 A7 20 99 22 A3 A3 A3 C4 C4 |.. Z.0 . .".....|
00003330: C4 C0 C0 C0 D2 D2 D2 11 A3 A3 A3 C4 C4 C4 C0 C0 |................|
00003340: C0 D2 D2 D2 91 9D 9D 9D 9D 9D 9D 9D 22 50 31 24 |............"P1$|
00003350: 3B 00 88 3B 12 0C 8B 20 5A B3 30 20 A7 20 99 22 |;..;... Z.0 . ."|
00003360: 91 D2 D2 D2 C0 C0 C0 C4 C4 C4 A3 A3 A3 91 D2 D2 |................|
00003370: D2 C0 C0 C0 C4 C4 C4 A3 A3 A3 91 91 9D 9D 9D 9D |................|
00003380: 9D 9D 9D 22 50 31 24 3B 00 94 3B 1C 0C 58 B2 30 |..."P1$;..;..X.0|
00003390: 3A 59 B2 31 00 A4 3B 26 0C 8B 20 5A B1 2E 20 A7 |:Y.1..;&.. Z.. .|
000033A0: 20 59 B2 30 00 B4 3B 30 0C 8B 20 5A B3 2E 20 A7 | Y.0..;0.. Z.. .|
000033B0: 20 59 B2 32 00 C3 3B 3A 0C 58 B2 2E 3A 8D 20 32 | Y.2..;:.X..:. 2|
000033C0: 39 32 30 00 D8 3B 44 0C 51 31 B2 41 3A 51 32 B2 |920..;D.Q1.A:Q2.|
000033D0: 42 3A 8D 20 33 32 31 30 00 E5 3B 4E 0C 58 B2 32 |B:. 3210..;N.X.2|
000033E0: 35 3A 59 B2 31 00 F5 3B 58 0C 8B 20 5A B3 2E 20 |5:Y.1..;X.. Z.. |
000033F0: A7 20 59 B2 30 00 05 3C 62 0C 8B 20 5A B1 2E 20 |. Y.0..<b.. Z.. |
00003400: A7 20 59 B2 32 00 10 3C 6C 0C 8D 20 32 39 32 30 |. Y.2..<l.. 2920|
00003410: 00 25 3C 76 0C 51 31 B2 43 3A 51 32 B2 44 3A 8D |.%<v.Q1.C:Q2.D:.|
00003420: 20 33 32 31 30 00 2B 3C 80 0C 8E 00 42 3C 8A 0C | 3210.+<....B<..|
00003430: 8F 20 2D 2D 20 50 52 49 4E 54 20 41 20 50 4C 41 |. -- PRINT A PLA|
00003440: 54 45 00 4D 3C 94 0C 99 20 22 1D 22 3B 00 61 3C |TE.M<... ".";.a<|
00003450: 9E 0C 8B 20 51 31 B2 2E 20 A7 20 89 20 33 32 35 |... Q1.. . . 325|
00003460: 30 00 79 3C A8 0C 81 20 49 B2 31 A4 51 31 3A 99 |0.y<... I.1.Q1:.|
00003470: 20 42 31 24 3B 3A 82 20 49 00 84 3C B2 0C 99 22 | B1$;:. I..<..."|
00003480: 11 11 22 3B 00 95 3C BC 0C 51 33 B2 31 33 AB 28 |..";..<..Q3.13.(|
00003490: 33 AC 51 31 29 00 A9 3C C6 0C 8B 20 51 33 B1 51 |3.Q1)..<... Q3.Q|
000034A0: 32 20 A7 20 51 33 B2 51 32 00 BB 3C D0 0C 8B 20 |2 . Q3.Q2..<... |
000034B0: 51 33 B2 30 20 A7 20 33 33 34 30 00 C8 3C DA 0C |Q3.0 . 3340..<..|
000034C0: 51 32 B2 51 32 AB 51 33 00 D8 3C E4 0C 99 20 C9 |Q2.Q2.Q3..<... .|
000034D0: 28 4D 24 2C 51 33 29 3B 00 F6 3C EE 0C 99 C9 28 |(M$,Q3);..<....(|
000034E0: 22 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |"...............|
000034F0: 22 2C 51 33 29 3B 00 01 3D F8 0C 99 20 22 91 22 |",Q3);..=... "."|
00003500: 3B 00 0C 3D 02 0D 89 20 33 32 36 30 00 12 3D 0C |;..=... 3260..=.|
00003510: 0D 8E 00 42 3D 16 0D 58 B2 38 3A 59 B2 31 34 3A |...B=..X.8:Y.14:|
00003520: 8D 20 32 39 32 30 3A 99 22 92 A4 A4 A4 A4 A4 A4 |. 2920:.".......|
00003530: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
00003540: A4 22 00 6E 3D 20 0D 59 B2 31 35 3A 8D 20 32 39 |.".n= .Y.15:. 29|
00003550: 32 30 3A 99 22 12 59 4F 55 20 48 41 56 45 20 54 |20:.".YOU HAVE T|
00003560: 4F 20 44 4F 20 54 48 45 20 53 41 4D 45 22 00 9A |O DO THE SAME"..|
00003570: 3D 2A 0D 59 B2 31 36 3A 8D 20 32 39 32 30 3A 99 |=*.Y.16:. 2920:.|
00003580: 22 12 20 54 48 49 4E 47 20 4F 4E 20 42 4F 54 48 |". THING ON BOTH|
00003590: 20 53 49 44 45 53 20 21 20 22 00 AA 3D 34 0D 57 | SIDES ! "..=4.W|
000035A0: 54 B2 33 3A 8D 20 32 38 38 30 00 C3 3D 3E 0D 99 |T.3:. 2880..=>..|
000035B0: 20 22 93 22 3B 3A 8D 20 33 30 30 30 3A 89 20 31 | ".";:. 3000:. 1|
000035C0: 37 37 30 00 DD 3D 48 0D 8F 20 2D 2D 20 47 45 54 |770..=H.. -- GET|
000035D0: 20 41 4D 4F 55 4E 54 53 20 53 55 42 52 00 F4 3D | AMOUNTS SUBR..=|
000035E0: 52 0D 99 20 4E 31 24 4E 32 24 4E 33 24 4E 32 24 |R.. N1$N2$N3$N2$|
000035F0: 4E 34 24 3B 00 23 3E 5C 0D 44 30 B2 4C 30 3A 8D |N4$;.#>\.D0.L0:.|
00003600: 31 31 39 30 3A 99 22 2D 22 3B 3A 44 30 B2 48 30 |1190:."-";:D0.H0|
00003610: 3A 8D 31 31 39 30 3A 99 22 5D 20 3F 22 3B 3A 55 |:.1190:."] ?";:U|
00003620: 4C B2 32 00 63 3E 66 0D 55 53 24 B2 22 48 30 31 |L.2.c>f.US$."H01|
00003630: 32 33 34 35 36 37 38 39 22 3A 8D 33 35 3A 42 24 |23456789":.35:B$|
00003640: B2 55 52 24 3A 8B 20 C5 28 42 24 29 B1 B2 4C 30 |.UR$:. .(B$)..L0|
00003650: 20 AF 20 C5 28 42 24 29 B3 B2 48 30 20 A7 20 33 | . .(B$)..H0 . 3|
00003660: 34 35 30 00 8C 3E 70 0D 99 20 22 1D 91 22 4E 35 |450..>p.. ".."N5|
00003670: 24 4E 34 24 C4 28 4C 30 29 22 2D 22 C4 28 48 30 |$N4$.(L0)"-".(H0|
00003680: 29 22 3E 22 3B 3A 89 20 33 34 33 30 00 92 3E 7A |)">";:. 3430..>z|
00003690: 0D 8E 00 B5 3E 84 0D 99 22 13 22 3B 3A 81 49 B2 |....>...".";:.I.|
000036A0: 31 A4 31 36 3A 99 4D 31 24 3A 82 49 3A 8D 20 33 |1.16:.M1$:.I:. 3|
000036B0: 30 30 30 3A 8E 00 BB 3E 8E 0D 80 00 00 00 00 |000:...>....... |
.......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 **.I....---GENERAL INPUT ROUTINE---
-.O...:......-----SET UP VARIABLES-----.
.....SUBTRACT BAGS.....:.....:.+.#..----
-INPUT SECTION-----.@.(.: UR$."":UI$.""
.T.*.: . UL.0.UL.80.G.-.." ..";:.UC,0.
~.2.: .UI$:.UI$."".50...7.: .UI$.G(13)
.C(UR$)..1..UC,1:." .";:.85.A.<.: .UI$.
G(20).105.Y.>.: . C(UR$)..UL .50...A.:
.120:. CHECK FOR VALID CHARACTER...F.:
UR$.UR$.UI$.!.K.: .UI$;.,.P.: .50.R.U
..-----CHECK FOR HELP REQUEST-----.}.Z.:
.UR$.UX$.195:. EXIT TO HELP ROUTINE...
_.: .UF.1..240...D.: UF.0:.:....F..----
-CHECK DELETE-----.M.I.: .C(UR$).1.50...
N.: UR$.H(UR$,C(UR$).1)...S.: .". ..";:
.50.%.X..-----CHECK FOR VALID CHARACTERS
-----.:.}.: .C(US$).0.150.N...: .US.1.
C(US$).J...: .UI$.J(US$,US,1)...S...:
......: UI$."":.......-----STANDARD I
NPUT-----.....: .F(UI$).46. ..K...: .U
I$.G(32). .... .: .F(UI$).48 . F(UI$).5
7.170.....: ......: .F(UI$).65 . F(UI$
).90.180.!...: ..J...: .F(UI$).193 . F
(UI$).218.UI$."":..X...: .B(UT).12.B(UT
).21.UI$.G(F(UI$).128):......: ......:
UI$."":....C.: UF.1:.-----HELP ROUTINE
EXIT-----.F.E.: .250.R.H.: .245...M.:
.UQ.UB.(U2%.256.U1%.U3%.2)...R.: UQ%(
UQ.UB).B(UQ):.:.".".).W.: UZ.1:UV%.B(UT
).5.X.: .300.Z.Y.UZ.0:US$.UJ$:UG$.UK$:U
P.UJ:UL.UK...Z..B(50003).0..53281,1:."."
;:.53281,6:.53280,14:.220......".";.J...
UT$.UL$:.UT,UV%:.UQ.UB.(U2%.256.U1%.U3%.
3).....: .UQ,UQ%(UQ.UB):......: .U1,U1
%.....: .U2,U2%.....: .U4,U4%. ...: .
U3,U3%.1.+...: .35.`...: UD%.((U2%.256
.U1%.U3%).UB).40:.H(UD$,UD%.1):......:
.H(UD$,24);" . HELP
COMING . ":..M...: U1%.B(U1):U2%.B(U2
):U3%.B(U3):U4%.B(U4).....UJ$.US$:UJ.UL.
....: UJ$.US$:UK$.UG$:UJ.UP:UK.UL.....:
....,..-----MENU-----.%.-.:.W...: .".
":.UT,UU%:.B(50003).0..53281,9:.53280,8.
]./.:.}.1.: .". MENU"...
6.: ." --------------------------------
------".X.;.: .".. 1. EQUATION
EXERCISE...@.: .".. 2. STUDENT
INSTRUCTIONS".2.E.: .".. 3. TEA
CHER INSTRUCTIONS".B.J.: .".. 4.
MODIFICATION OF PROGRAM"...O.: ."..
5. QUIT.."...T.: ." ------------
--------------------------"...Y.: ."..
PRESS A NUMBER KEY (1-5) ";...^.:
UL.1:US$."12345":.35:.---INPUT ROUTINE-
--. .`.: US$."".D.C.: .E(UR$).1000,400
,500,600,396.P.H.: .300.Z....-----RE-EN
ABLE STOP KEY AND END-----.....: .B(500
03)..1.B(50003)..160.B(50003)..0.399.Y..
.: .UU.71:.B(50003).0..53281,6:.53280,1
4.....: ."..":......: .875:.......----
-STUDENT INSTRUCTIONS-----.L...: .".":.
UT,UL%:.B(50003).0..53281,0:.53280,0.M..
.UP.0:UG$."STUDENT INST":.850.....: .".
.. I'M GOING TO PRINT UP A SCALE".K...
: ." BALANCED WITH MARBLES. SOME OF T
HE".....: ." MARBLES ARE IN UNMARKED B
AGS AND ALL".,...: ." OF THE BAGS CONT
AIN THE SAME NUMBER".W...: ." OF MARBL
ES. YOU MUST FIND OUT".....: ." HOW M
ANY MARBLES ARE IN EACH BAG.".....: ."
TO DO THIS YOU MUST GET RID OF MOST"...
..: ." OF THE BAGS AND MARBLES, UNTIL
ONLY".....: ." ONE BAG AND A PILE OF M
ARBLES REMAIN.".G...: .". BE SURE TO K
EEP THE SCALE BALANCED".S...: .835._...
: .850.....: ."...... REMEMBER TO HI
T <RETURN> AFTER".....: ." TYPING YOUR
ANSWER. THIS TELLS".....: ." THE COM
PUTER TO ACCEPT WHAT YOU".....: ." HAV
E TYPED..".....: ." TYPE <H> AT ANY T
IME TO RETURN".Z...: ." TO THE MENU FO
R HELP. YOU WILL".....: ." BE RETURNE
D TO THE PLACE IN THE"...B.: ." PROGRA
M WHERE YOU LEFT OFF AS"...D.: ." SOON
AS THE OPTION FROM THE MENU"...F.: ."
IS COMPLETE.".....: .835.....: .UZ.1.
.UP%:.217."...: ..F....-----TEACHER INS
TRUCTIONS-----.Y...: .".":.UT,UL%:.B(50
003).0..53281,2:.53280,10.....: UP.0:UG
$."TEACHER INST.":.850.O...: ."..
TO THE BEST OF OUR KNOWLEDGE,.".....: .
" THIS PROGRAM IS IN THE PUBLIC.".*...
: ." DOMAIN. IF THIS IS NOT THE CASE
.".J...: ." PLEASE CONTACT:...".W...:
." COMMODORE BUSINESS MACHINES.".
....: ." 3370 PHARMACY AVE..D.
..: ." AGINCOURT, ONTARIO"....
.: ." CANADA M1W 2K4".....:
." (416) 499-4292"."...UP.1:.
835:. 850:.Q...." ..PROGRAM NAME: EQ
UATION EXERCISE.".W...." WRITTEN BY
: VINCE MILLS......." UPGRADED BY :
LYNDA BONANNO..J...." .THIS PROGRAM
WILL RUN ON ANY........" PET 64
COMPUTER......" COMMODORE 64 CO
MPUTER.....: .835:.852.L...: .". I'
M GOING TO PRINT UP A SCALE".{...: .".
BALANCED WITH MARBLES. SOME OF THE".....
: .". MARBLES ARE IN UNMARKED BAGS AND
ALL".....: .". OF THE BAGS CONTAIN THE
SAME NUMBER".....: .". OF MARBLES. YOU
MUST FIND OUT".5...: .". HOW MANY MARB
LES ARE IN EACH BAG.".E...: .". TO DO T
HIS YOU MUST GET RID OF MOST".....: .".
OF THE BAGS AND MARBLES, UNTIL ONLY".G.
..: .". ONE BAG AND A PILE OF MARBLES R
EMAIN.".S.*.: .835...N.: .UZ.1..UP%:.2
17...W.: ....X..-----PROGRAM MODIFICATI
ON INST-----.0.Y.: .".":.UT,UL%.S.].:
UP.0:UG$."PROGRAM MOD":.850.~.B.: ."...
THIS PROGRAM DOES NOT LEND"...D.: ."
. ITSELF TO SIMPLE MODIFICATION.".X.F.:
.". YOU MAY, HOWEVER, WISH TO CHANGE"
...H.: .". SOME OF THE STUDENT INSTRUC
TIONS.".8.J.: .". THIS IS SIMPLY A MAT
TER OF CHANGING".C.L.: .". THE PRINT S
TATEMENTS IN LINES"...N.: .". 400 THRO
UGH 499......: .835.....: .UZ.1..UP%:.
217.....: ..T....-----TO USE 8032 LOAD
CBM4032-----...F..".....BEFORE RUNNING T
HIS PROGRAM ON AN 8032 ...@.P.." L
OAD THE 'CBM 4032' PROGRAM............."
.N.Z.: .UU.71.W...: ..W. .. ** T I T L
E P A G E **...".."....";:.UT,UU%:.B(
50003).0..53280,14:.53281,6.A.$..I.1.38:
."...";:..Y.&..I.1.22:.".....";:....(..I
.1.37:.".....";:....*..I.1.22:.".....";:
....,.."........................... ..P
...."................... . . ...Q.0..".
.................. . ......2.."........
............ ....4.."..............C O
M M O D O R E...Z.6.."...............EDU
CATIONAL.....8.."................SOFTWAR
E...:.. ** COMMODORE LOGO **.L.;..H(UD$,
24);"..........PRESS SPACE BAR OR WAIT."
:I.0.N.<..A$:.A$.." ".I.I.1:.I.250.828..
.>.: T1$."":T2$."":T3$."":T4$."":I.0...
@.: .300...C..-----SPACE BAR PRESS-----
...H.: .H(UD$,24);".......PRESS SPACE B
AR TO CONTINUE.".. L.: .UI$:.UI$.." ".8
44.. N.: ..> R..-----PAGE DESIGN ROUTIN
E-----.M T.: UP.UP.1.W W.: ."."H(UT$.U
P$,21);H(UG$.UP$,14);UP.. \.: ." ------
--------------------------------".. A.:
.H(UD$,24);H(UP$,6);"HELP - PRESS H <
RETURN>".. F.: ."..":...!K..-----PLEASE
WAIT REMARK-----.J!P.: .H(UD$,24);"
ONE MOMENT PLEASE... ".S!U.:
..S!...-----SET UP VARIABLES-----.A!..
: 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.3276
8.4"...B(50003).0.UB.1024:U1.209:U2.210:
U3.211:U4.214:UC.204:UU.2048.L"...B(5000
3).0.UT.53272:UU%.21:UL%.23:UP%.2139:UM.
1024.."..: UD$.".......................
..".H"..: UP$."
"..#..: UT$." EQUATION E
XERCISE ":. PLACE PROGRAM TITLE HERE!!!!
!!!!!!!!!!!***..#..: ..<#...-----SET VA
RIABLES-----.H#..: .900.N#..:.L#...----
-CHECK FOR 8032-----..#..: .".":." ":.
SHIFTED SPACE..#..: .B(UB.40)..96..700.
C#...-----MEMORY CHECK-----.Z#..: . .(0
).2000.937..$..: ."....THIS MACHINE DOE
S NOT HAVE ENOUGH.".2$..: ."MEMORY TO R
UN THIS PROGRAM !".@$..: .UU.71.I$..:
..F$..: ."..":.B(50003).0.962..$...----
-BASIC 2.0 OR 4.0 OR C-64 SETUP-----
.V$...1075,133:.1076,144:.1077,234:.1079
,4:.1080,133:.1081,145..%...1091,155:.10
98,133:.1099,144:.1100,234:.1103,133..%.
..1104,145:.1105,234:.1082,234.H%..: .B
(50003)..160.955.Z%..: .1093,88:.1094,2
28:.1097,85:.1102,228:.965..%..: .B(500
03)..1.990.D%..: .1093,49:.1094,230:.10
97,46:.1102,230:.965..%B..2099,141:.2100
,20:.2101,3:.2103,8:.2104,141:.2105,21.:
&C..2106,3:.2115,145:.2117,52:.2118,234:
.2121,49:.2122,141.T&D..2123,20:.2124,3:
.2126,234:.2127,141:.2128,21:.2129,3..&E
.: .UU.48:. DISABLE STOP KEY..&J.: .80
0:. TITLE..&T.: .300:. MENU..&..: .".T
HE PGM WILL NOT WORK ON THIS MACHINE!":.
.*'..: .UZ.1..UP%:.UP%:UZ.0:.-----PROGRA
M STARTS HERE-----.T'..."..";:.B(50003).
0..53281,6:.53280,14.Z'... GAME....EQUAT
IONS....62 - V11.1. '... BY VINCE MILLS
- (415) 523-7163.F'... COPYRIGHT MAY 198
0 - PERMISSION..'... RESERVED - LIMITED
DISTRIBUTION...'...".":. UT,UL%..($.. B(
898).1 . 1090.5(... --- SETUP-----------
-----.K(8..897,1:.898,1:P.1.G(B.B1$."...
.............."..(L.M$."WWWWWWWWWWWWWWWW
"..(V.P1$.". ....... ................ ..
.Q"..(`.M1$."
"..(J.N1$.".
"..)T.N2$.".................".0)~.N3$."A
MOUNT ON THIS ".U)..N4$."SIDE [
..........".V)..N6$.".................
....."..)... 1200..)... I(D(D0),C(D(D0))
.1); :...)... --- INSTRUCTIONS---------.
.)...".":X.13:Y.0:. 2920:.".............
.";..*D.Y.1:. 2920:.".. EQUATIONS .";..*
N.Y.2:. 2920:."..............".4*....D*P
..:.".... WILL YOU DEFINE THE EQUATIONS
? ";..*Z.UL.1:US$."YNH":.35:.UR$."Y".152
0. *D.. --- PICK PROBLEM..*N.."."..*X.C.
0:B.0.I*..E.2..(.(0).7.9)..*... P.2 . A.
1 : . 1460..*..A.2..(.(0).1.9)..+ .. P.7
. 1460..+..C.1..(.(0).(A.1))..+... P.1
. 1500.;+..B.28.9.A.M+H.. A..1 . 1500.G+
R.B.29..(.(0).10.9).9.A.W+..D.A.E.B.C.E.
.+... 1740.J+... --- USER PROBLEM-------
----------------------------------------
--..+..US$."H23456789"..+...897,0..+...5
9468,14./,... "........ HOW MANY MARBLES
IN EACH BAG [2-9] ? ";.<,..UL.1:.35.I,"
.E.E(UR$).B,,.. E.2 . E.9 . . 1550..,6.U
S$."H123":." HOW MANY BAGS ON THE LEFT [
1-3] ?";:UL.1:.35..,@.A.E(UR$).E,J.. A.1
. A.3 . 1590..,T.. A.1 . US$."012345678
9H":.1660..,Y.US$."0123456789H".=-^.."..
HOW MANY BAGS ON THE RIGHT [0-";:D0.A.1:
.1190:."] ?";.S-H.UL.2:.35:C.E(UR$).T-R.
. C.. . C.A.1 . ."...":.1630..-|.."..HOW
MANY MARBLES ON THE LEFT [0-";:D0.39.9.
A:.1190:."] ?";.M-..UL.2:.35:B.E(UR$)..-
... B.. . B.39.9.A .."....":. 1660.....D
.A.E.B.C.E...... D..(D).0 . 1720.G.... "
.THE NUMBERS DON'T ADD UP.":.835:. 1520.
H.... WT=1:GOSUB 2880:PRINT".";.R.B..".
";...L.. --- RUN GAME...V.. UT,UU%......
2970.....X..:Y.12:. 2920.P...."
FUNCTIONS:."......" 1-AD
D BALLS"../..." 2-SUBTRACT B
ALLS".4/..." 3-ADD BAGS".X/.
.." 4-SUBTRACT BAGS".U/&.."
5-DIVIDE"../0.."
6-SOLVE."../:.." FUNCTION ?
";.M/D.UL.1:US$."H123456":.35.Z/N.F.E(UR
$)../X.X.0:Y.12:.2920../Z..Q.1.11.+0\.:
."
".20^..Q.Z0L.. F . 1910,2020,2130,2240
,2350,2490.N0V.. --- ADD BALLS.|0..W1.B:
W2.D..0..X.1:Y.11:. 2920:N5$.""..0..L0..
:H0.39.(A.9.R):. 3400.L0..W3.E(B$):B.B.E
(B$).W0... 3460..0..X.23:Y.11:. 2920:N5$
.N6$..1..L0..:H0.39.(C.9.D):. 3400.)1F.W
4.E(B$):D.D.E(B$).G1P.. W3..W4 .B.W1:D.W
2:.3350.R1Z.. 1740.K1... --- SUBTRACT BA
LLS.Y1..W1.B:W2.D..1..X.1:Y.11:. 2920:N5
$.""..1..L0..:H0.B:. 3400..1..W3.E(B$):B
.B.E(B$).K1... 3460..1 .X.23:Y.11:. 2920
:N5$.N6$..1*.L0..:H0.D:. 3400..24.W4.E(B
$):D.D.E(B$).22>.. W3..W4 .B.W1:D.W2:.33
50.=2H.. 1740.P2R.. --- ADD BAGS.^2\.W1.
A:W2.C.Y2F.X.1:Y.11:. 2920:N5$.""..2P.L0
..:H0..((39.(A.9.B)).9):. 3400..2Z.W3.E(
B$):A.A.E(B$)..2... 3460..2..X.23:Y.11:.
2920:N5$.N6$..3..L0..:H0..((39.(C.9.D))
.9):. 3400..3..W4.E(B$):C.C.E(B$).73...
W3..W4 .A.W1:C.W2:.3350.B3... 1740.Z3...
--- SUBTRACT BAGS.H3J.W1.A:W2.C..3T.X.1
:Y.11:. 2920:N5$.""..3..L0..:H0.A:. 3400
..3..W3.E(B$):A.A.E(B$)..3... 3460.W3..X
.23:Y.11:. 2920:N5$.N6$..3..L0..:H0.C:.
3400..4..W4.E(B$):C.C.E(B$).!4... W3..W4
.A.W1:C.W2:.3350.,4$.. 1740.=4... --- D
IVIDE.N48.X.9:Y.11:. 2920:.".
";..4B.Y.12:. 2920:."DIVIDE
BY WHAT FACTOR ?";:Y.14..4L..2920:."
.....................
.. [1";..4V.. .A(T0).T0.I..(T0.I)..5`.S0
(1)..1:. I.2 . 3:S0(I).0.H5J.. .A(A)...
.A(B)....A(C).. . .A(D).. . 2430.S5T.. 2
440.S5~.. "-";:D0.I:. 1190:S0(I)..1.{5..
. I..5..."] ?";:UL.1:US$."H1234567890":.
35:B0.E(UR$).W5... B0 . 1 . B0 . 3 . WT.
2:. 2880:. 2380..5... . S0(B0) . B0..1:.
2460.)6..A.A.B0:B.B.B0:C.C.B0:D.D.B0:."
.";:. 3000:. 1770.96... --- SOLVE.Z6D..
A.B.. . C.D.. . A.1 . 2530..6N.X.9:Y.11:
.2920:.". SIMPLIFY SOME MORE ! ":.835..6
X.X.9:Y.11:.2920:."
"..6..X.6:Y.23:.2920:."
":. 1770.+7..X.9:Y.11:. 292
0:.". ";.W7..
Y.12:. 2920:." HOW MANY BALLS ARE IN ";.
.7..Y.13:. 2920:."
.......................";.I7..." THE BA
G ? ";:UL.1:US$."H0123456789":.35..7...
E(UR$)..E . WT.2:. 2880:. 2550..8..Y.15:
. 2920:.". ";.G8..
Y.16:. 2920:." THAT'S RIGHT !!!!!!! ";.
Y8(.Y.17:. 2920:...82.X.2:Y.23:. 2920:."
DO YOU WANT TO TRY ANOTHER? (Y/N)";..87
.UL.1:US$."HYN":.35:.UR$."Y".2620..99..3
00:.--RETURN TO MENU--------------------
-------------------------..9<.. B(897).0
. 1520.I9F..897,B(897).1:P..(.(0).B(897
)..9):.".";:.1380.K9@..-WAIT------------
-----------.Z9J.T.TI.60.WT..9T.. T.TI .
2900..9^....9H..-MOVE-------------------
----..9R.DD$."..........................
.....":.".";..9|.. Y.0 . ..X);:...:... X
.0 . .H(DD$,Y);:..%:...H(DD$,Y).X);:..C:
... -- UPDATE BALANCE SCALE.M:...".";.C:
... I.1.16:.M1$:. I.U:..Z.C.E.D.A.E.B..:
B.X.19:Y.7:. 2920..:L.."........RR......
.. DD .";..:V.X..:Y.4.E:... Z.0 . Y.3.U:
... Z.0 . Y.5..:... 2920:. P1$;..;... Z.
0 . ."EEEEEEEEEEEEEEEEEEEEEEEE........."
P1$;.Q;... Z.0 . ."...DDD...RRR....DDD..
.RRR........"P1$;..;... Z.0 . .".RRR...D
DD....RRR...DDD............"P1$;..;..X.0
:Y.1..;&.. Z.. . Y.0..;0.. Z.. . Y.2.C;:
.X..:. 2920.X;D.Q1.A:Q2.B:. 3210..;N.X.2
5:Y.1..;X.. Z.. . Y.0..<B.. Z.. . Y.2..<
L.. 2920.%<V.Q1.C:Q2.D:. 3210.+<....B<..
. -- PRINT A PLATE.M<... ".";.A<... Q1..
. . 3250.Y<... I.1.Q1:. B1$;:. I..<..."
..";..<..Q3.13.(3.Q1)..<F.. Q3.Q2 . Q3.Q
2..<P.. Q3.0 . 3340.H<Z.Q2.Q2.Q3.X<... I
(M$,Q3);..<...I("...............",Q3);..
=... ".";..=... 3260..=....B=..X.8:Y.14:
. 2920:."........................".N= .Y
.15:. 2920:.".YOU HAVE TO DO THE SAME"..
=*.Y.16:. 2920:.". THING ON BOTH SIDES !
"..=4.WT.3:. 2880.C=>.. ".";:. 3000:. 1
770..=H.. -- GET AMOUNTS SUBR..=R.. N1$N
2$N3$N2$N4$;.#>\.D0.L0:.1190:."-";:D0.H0
:.1190:."] ?";:UL.2.C>F.US$."H0123456789
":.35:B$.UR$:. E(B$)..L0 . E(B$)..H0 . 3
450..>P.. ".."N5$N4$D(L0)"-"D(H0)">";:.
3430..>Z....>...".";:.I.1.16:.M1$:.I:. 3
000:...>.......
> CLICK IMAGE PREVIEW FOR FULL MODAL