MONOMIAL MULT.C3
FILE INFORMATION
FILENAME(S): MONOMIAL MULT.C3
FILE TYPE(S): PRG
FILE SIZE: 10K
FIRST SEEN: 2025-11-30 01:07:55
APPEARS ON: 1 disk(s)
FILE HASH
50ac8a8acd5388855819ed3b0b3784a82d7e14c7965b39d5278e76cfeb1bdc6a
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FREESOFT DISK NR | MONOMIAL MULT.C3 | PRG | Treasure Chest - Wolfgang Rauprich | 19 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0A 08 01 00 89 39 31 30 00 2A 08 02 00 8F |.......910.*....|
00000010: 20 2A 2A 20 4D 4C 20 53 54 4F 50 20 4B 45 59 20 | ** ML STOP KEY |
00000020: 44 49 53 41 42 4C 45 20 2A 2A 00 55 08 03 00 99 |DISABLE **.U....|
00000030: 22 78 A9 3D 8D 14 03 A9 08 8D 15 03 58 60 20 EA |"x.=........X` .|
00000040: FF A9 FF 85 91 4C 34 EA 78 A9 31 8D 14 03 A9 EA |.....L4.x.1.....|
00000050: 8D 15 03 58 60 00 74 08 04 00 99 22 78 68 68 68 |...X`.t...."xhhh|
00000060: AA 68 A8 68 68 68 68 68 68 68 98 48 8A 48 58 60 |.h.hhhhhhh.H.HX`|
00000070: 31 31 31 22 00 85 08 05 00 99 22 68 68 68 68 68 |111"......"hhhhh|
00000080: 68 68 60 31 22 00 A7 08 06 00 8F 20 2A 2A 20 34 |hh`1"...... ** 4|
00000090: 20 2D 20 50 4F 50 20 4D 4C 20 53 55 42 52 4F 55 | - POP ML SUBROU|
000000A0: 54 49 4E 45 20 2A 2A 00 C8 08 0A 00 8F 20 2A 2A |TINE **...... **|
000000B0: 47 45 4E 45 52 41 4C 20 49 4E 50 55 54 20 52 4F |GENERAL INPUT RO|
000000C0: 55 54 49 4E 45 20 2A 2A 00 CE 08 0F 00 3A 00 D4 |UTINE **.....:..|
000000D0: 08 1E 00 3A 00 F0 08 23 00 8F 20 2B 2B 2B 20 49 |...:...#.. +++ I|
000000E0: 4E 50 55 54 20 53 45 43 54 49 4F 4E 20 2B 2B 2B |NPUT SECTION +++|
000000F0: 00 08 09 28 00 97 55 4F 2C 30 3A 55 52 24 B2 22 |...(..UO,0:UR$."|
00000100: 22 3A 55 49 24 B2 22 22 00 18 09 2A 00 8B 55 4C |":UI$.""...*..UL|
00000110: B2 30 A7 55 4C B2 38 30 00 2B 09 2D 00 99 22 20 |.0.UL.80.+.-.." |
00000120: 20 9D 9D 22 3B 3A 97 55 43 2C 30 00 3F 09 32 00 | ..";:.UC,0.?.2.|
00000130: A1 55 49 24 3A 8B 55 49 24 B2 22 22 A7 35 30 00 |.UI$:.UI$."".50.|
00000140: 69 09 37 00 8B 55 49 24 B2 C7 28 31 33 29 AF C3 |i.7..UI$..(13)..|
00000150: 28 55 52 24 29 B1 B2 31 A7 97 55 43 2C 31 3A 99 |(UR$)..1..UC,1:.|
00000160: 22 20 9D 22 3B 3A 89 38 35 00 7C 09 3C 00 8B 55 |" .";:.85.|.<..U|
00000170: 49 24 B2 C7 28 32 30 29 A7 31 30 35 00 90 09 3E |I$..(20).105...>|
00000180: 00 8B 20 C3 28 55 52 24 29 B2 B1 55 4C A7 35 30 |.. .(UR$)..UL.50|
00000190: 00 B5 09 41 00 8D 31 32 30 3A 8F 20 43 48 45 43 |...A..120:. CHEC|
000001A0: 4B 20 46 4F 52 20 56 41 4C 49 44 20 43 48 41 52 |K FOR VALID CHAR|
000001B0: 41 43 54 45 52 00 C5 09 46 00 55 52 24 B2 55 52 |ACTER...F.UR$.UR|
000001C0: 24 AA 55 49 24 00 CF 09 4B 00 99 55 49 24 3B 00 |$.UI$...K..UI$;.|
000001D0: D7 09 50 00 89 35 30 00 FC 09 55 00 8F 20 2B 2B |..P..50...U.. ++|
000001E0: 2B 20 43 48 45 43 4B 20 46 4F 52 20 48 45 4C 50 |+ CHECK FOR HELP|
000001F0: 20 52 45 51 55 45 53 54 20 2B 2B 2B 00 24 0A 5A | REQUEST +++.$.Z|
00000200: 00 8B 55 52 24 B2 55 58 24 A7 31 39 35 3A 8F 20 |..UR$.UX$.195:. |
00000210: 45 58 49 54 20 54 4F 20 48 45 4C 50 20 52 4F 55 |EXIT TO HELP ROU|
00000220: 54 49 4E 45 00 33 0A 5F 00 8B 55 46 B2 31 A7 8D |TINE.3._..UF.1..|
00000230: 32 34 30 00 40 0A 64 00 55 46 B2 30 3A 99 3A 8E |240.@.d.UF.0:.:.|
00000240: 00 59 0A 66 00 8F 20 2B 2B 20 43 48 45 43 4B 20 |.Y.f.. ++ CHECK |
00000250: 44 45 4C 45 54 45 20 2B 2B 00 6A 0A 69 00 8B C3 |DELETE ++.j.i...|
00000260: 28 55 52 24 29 B3 31 A7 35 30 00 82 0A 6E 00 55 |(UR$).1.50...n.U|
00000270: 52 24 B2 C8 28 55 52 24 2C C3 28 55 52 24 29 AB |R$..(UR$,.(UR$).|
00000280: 31 29 00 94 0A 73 00 99 22 9D 20 20 9D 9D 22 3B |1)...s..". ..";|
00000290: 3A 89 35 30 00 BB 0A 78 00 8F 20 2B 2B 20 43 48 |:.50...x.. ++ CH|
000002A0: 45 43 4B 20 46 4F 52 20 56 41 4C 49 44 20 43 48 |ECK FOR VALID CH|
000002B0: 41 52 41 43 54 45 52 53 20 2B 2B 00 CD 0A 7D 00 |ARACTERS ++...}.|
000002C0: 8B C3 28 55 53 24 29 B2 30 A7 31 35 30 00 DE 0A |..(US$).0.150...|
000002D0: 82 00 81 55 53 B2 31 A4 C3 28 55 53 24 29 00 F5 |...US.1..(US$)..|
000002E0: 0A 87 00 8B 55 49 24 B2 CA 28 55 53 24 2C 55 53 |....UI$..(US$,US|
000002F0: 2C 31 29 A7 8E 00 FB 0A 8C 00 82 00 08 0B 91 00 |,1).............|
00000300: 55 49 24 B2 22 22 3A 8E 00 23 0B 96 00 8F 20 2A |UI$."":..#.... *|
00000310: 2A 20 53 54 41 4E 44 41 52 44 20 49 4E 50 55 54 |* STANDARD INPUT|
00000320: 20 2A 2A 00 34 0B 98 00 8B C6 28 55 49 24 29 B2 | **.4.....(UI$).|
00000330: 34 36 A7 8E 00 45 0B 9B 00 8B 55 49 24 B2 C7 28 |46...E....UI$..(|
00000340: 33 32 29 A7 8E 00 62 0B A0 00 8B C6 28 55 49 24 |32)...b.....(UI$|
00000350: 29 B3 34 38 B0 C6 28 55 49 24 29 B1 35 37 A7 31 |).48..(UI$).57.1|
00000360: 37 30 00 68 0B A5 00 8E 00 85 0B AA 00 8B C6 28 |70.h...........(|
00000370: 55 49 24 29 B3 36 35 B0 C6 28 55 49 24 29 B1 39 |UI$).65..(UI$).9|
00000380: 30 A7 31 38 30 00 8B 0B AF 00 8E 00 AF 0B B4 00 |0.180...........|
00000390: 8B C6 28 55 49 24 29 B3 31 39 33 B0 C6 28 55 49 |..(UI$).193..(UI|
000003A0: 24 29 B1 32 31 38 A7 55 49 24 B2 22 22 3A 8E 00 |$).218.UI$."":..|
000003B0: D2 0B B9 00 8B C2 28 55 54 29 B2 55 55 25 A7 55 |......(UT).UU%.U|
000003C0: 49 24 B2 C7 28 C6 28 55 49 24 29 AB 31 32 38 29 |I$..(.(UI$).128)|
000003D0: 3A 8E 00 D8 0B BB 00 8E 00 E5 0B BE 00 55 49 24 |:............UI$|
000003E0: B2 22 22 3A 8E 00 0A 0C C3 00 55 46 B2 31 3A 8F |."":......UF.1:.|
000003F0: 20 2B 2B 2B 20 48 45 4C 50 20 52 4F 55 54 49 4E | +++ HELP ROUTIN|
00000400: 45 20 45 58 49 54 20 2B 2B 2B 00 13 0C C5 00 8D |E EXIT +++......|
00000410: 32 35 30 00 1C 0C C8 00 8D 32 34 35 00 3B 0C CD |250......245.;..|
00000420: 00 81 55 51 B2 55 42 A4 28 55 32 25 AC 32 35 36 |..UQ.UB.(U2%.256|
00000430: AA 55 31 25 AA 55 33 25 AB 32 29 00 57 0C D2 00 |.U1%.U3%.2).W...|
00000440: 55 51 25 28 55 51 AB 55 42 29 B2 C2 28 55 51 29 |UQ%(UQ.UB)..(UQ)|
00000450: 3A 82 3A 99 22 93 22 00 6A 0C D7 00 55 5A B2 31 |:.:.".".j...UZ.1|
00000460: 3A 55 56 25 B2 C2 28 55 54 29 00 73 0C D8 00 89 |:UV%..(UT).s....|
00000470: 33 30 30 00 98 0C D9 00 55 5A B2 30 3A 55 53 24 |300.....UZ.0:US$|
00000480: B2 55 4A 24 3A 55 47 24 B2 55 4B 24 3A 55 50 B2 |.UJ$:UG$.UK$:UP.|
00000490: 55 4A 3A 55 4C B2 55 4B 00 CF 0C DA 00 8B C2 28 |UJ:UL.UK.......(|
000004A0: 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C |50003).0..53281,|
000004B0: 31 3A 99 22 93 22 3B 3A 97 35 33 32 38 31 2C 36 |1:.".";:.53281,6|
000004C0: 3A 97 35 33 32 38 30 2C 31 34 3A 89 32 32 30 00 |:.53280,14:.220.|
000004D0: D9 0C DB 00 99 22 93 22 3B 00 08 0D DC 00 55 54 |.....".";.....UT|
000004E0: 24 B2 55 4C 24 3A 97 55 54 2C 55 56 25 3A 81 55 |$.UL$:.UT,UV%:.U|
000004F0: 51 B2 55 42 A4 28 55 32 25 AC 32 35 36 AA 55 31 |Q.UB.(U2%.256.U1|
00000500: 25 AA 55 33 25 AB 33 29 00 1D 0D E1 00 97 55 51 |%.U3%.3)......UQ|
00000510: 2C 55 51 25 28 55 51 AB 55 42 29 3A 82 00 29 0D |,UQ%(UQ.UB):..).|
00000520: E6 00 97 55 31 2C 55 31 25 00 35 0D E8 00 97 55 |...U1,U1%.5....U|
00000530: 32 2C 55 32 25 00 41 0D E9 00 97 55 34 2C 55 34 |2,U2%.A....U4,U4|
00000540: 25 00 4F 0D EA 00 97 55 33 2C 55 33 25 AB 31 00 |%.O....U3,U3%.1.|
00000550: 57 0D EB 00 89 33 35 00 89 0D F0 00 55 44 25 B2 |W....35.....UD%.|
00000560: 28 28 55 32 25 AC 32 35 36 AA 55 31 25 AA 55 33 |((U2%.256.U1%.U3|
00000570: 25 29 AB 55 42 29 AD 34 30 3A 99 C8 28 55 44 24 |%).UB).40:..(UD$|
00000580: 2C 55 44 25 AA 31 29 3A 8E 00 C4 0D F5 00 99 C8 |,UD%.1):........|
00000590: 28 55 44 24 2C 32 34 29 3B 22 20 20 20 20 20 20 |(UD$,24);" |
000005A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000005B0: 12 20 48 45 4C 50 20 43 4F 4D 49 4E 47 20 92 20 |. HELP COMING . |
000005C0: 20 22 3A 8E 00 F0 0D FA 00 55 31 25 B2 C2 28 55 | ":......U1%..(U|
000005D0: 31 29 3A 55 32 25 B2 C2 28 55 32 29 3A 55 33 25 |1):U2%..(U2):U3%|
000005E0: B2 C2 28 55 33 29 3A 55 34 25 B2 C2 28 55 34 29 |..(U3):U4%..(U4)|
000005F0: 00 18 0E FB 00 55 4A 24 B2 55 53 24 3A 55 4B 24 |.....UJ$.US$:UK$|
00000600: B2 55 47 24 3A 55 4C 24 B2 55 54 24 3A 55 4A B2 |.UG$:UL$.UT$:UJ.|
00000610: 55 50 3A 55 4B B2 55 4C 00 1E 0E FF 00 8E 00 2F |UP:UK.UL......./|
00000620: 0E 2C 01 8F 20 2A 2A 20 4D 45 4E 55 20 2A 2A 00 |.,.. ** MENU **.|
00000630: 35 0E 2D 01 3A 00 64 0E 2E 01 99 22 93 22 3A 97 |5.-.:.d....".":.|
00000640: 55 54 2C 55 55 25 3A 8B C2 28 35 30 30 30 33 29 |UT,UU%:..(50003)|
00000650: B2 30 A7 97 35 33 32 38 31 2C 39 3A 97 35 33 32 |.0..53281,9:.532|
00000660: 38 30 2C 38 00 6A 0E 2F 01 3A 00 87 0E 31 01 99 |80,8.j./.:...1..|
00000670: 22 13 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |". |
00000680: 20 20 4D 45 4E 55 22 00 B6 0E 36 01 99 22 20 2D | MENU"...6.." -|
00000690: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000006A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000006B0: 2D 2D 2D 2D 2D 22 00 E6 0E 3B 01 99 22 11 11 20 |-----"...;..".. |
000006C0: 20 20 20 31 2E 20 20 20 42 45 47 49 4E 20 4D 4F | 1. BEGIN MO|
000006D0: 4E 4F 4D 49 41 4C 20 4D 55 4C 54 49 50 4C 49 43 |NOMIAL MULTIPLIC|
000006E0: 41 54 49 4F 4E 22 00 0D 0F 40 01 99 22 11 11 20 |ATION"...@..".. |
000006F0: 20 20 20 32 2E 20 20 20 53 54 55 44 45 4E 54 20 | 2. STUDENT |
00000700: 49 4E 53 54 52 55 43 54 49 4F 4E 53 22 00 34 0F |INSTRUCTIONS".4.|
00000710: 45 01 99 22 11 11 20 20 20 20 33 2E 20 20 20 54 |E..".. 3. T|
00000720: 45 41 43 48 45 52 20 49 4E 53 54 52 55 43 54 49 |EACHER INSTRUCTI|
00000730: 4F 4E 53 22 00 4D 0F 4F 01 99 22 11 11 20 20 20 |ONS".M.O..".. |
00000740: 20 34 2E 20 20 20 51 55 49 54 11 11 22 00 7C 0F | 4. QUIT..".|.|
00000750: 54 01 99 22 20 2D 2D 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 22 00 A7 0F 59 |-----------"...Y|
00000780: 01 99 22 11 11 20 20 20 20 20 20 20 50 52 45 53 |..".. PRES|
00000790: 53 20 41 20 4E 55 4D 42 45 52 20 4B 45 59 20 28 |S A NUMBER KEY (|
000007A0: 31 2D 34 29 20 22 3B 00 CF 0F 5E 01 55 4C B2 31 |1-4) ";...^.UL.1|
000007B0: 3A 55 53 24 B2 22 31 32 33 34 22 3A 8D 33 35 3A |:US$."1234":.35:|
000007C0: 8F 20 49 4E 50 55 54 20 52 4F 55 54 49 4E 45 00 |. INPUT ROUTINE.|
000007D0: DA 0F 60 01 55 53 24 B2 22 22 00 F7 0F 63 01 91 |..`.US$.""...c..|
000007E0: C5 28 55 52 24 29 8D 31 30 30 30 2C 34 30 30 2C |.(UR$).1000,400,|
000007F0: 35 30 30 2C 33 39 36 00 00 10 68 01 89 33 30 30 |500,396...h..300|
00000800: 00 27 10 8B 01 8F 20 2A 2A 20 52 45 2D 45 4E 41 |.'.... ** RE-ENA|
00000810: 42 4C 45 20 53 54 4F 50 20 4B 45 59 20 41 4E 44 |BLE STOP KEY AND|
00000820: 20 45 4E 44 20 2A 2A 00 56 10 8C 01 8B C2 28 35 | END **.V.....(5|
00000830: 30 30 30 33 29 B3 B1 31 AF C2 28 35 30 30 30 33 |0003)..1..(50003|
00000840: 29 B3 B1 31 36 30 AF C2 28 35 30 30 30 33 29 B3 |)..160..(50003).|
00000850: B1 30 A7 33 39 39 00 80 10 8D 01 9E 55 55 AA 37 |.0.399......UU.7|
00000860: 31 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 |1:..(50003).0..5|
00000870: 33 32 38 31 2C 36 3A 97 35 33 32 38 30 2C 31 34 |3281,6:.53280,14|
00000880: 00 8C 10 8E 01 99 22 9A 93 22 3A 80 00 97 10 8F |......"..":.....|
00000890: 01 8D 38 37 35 3A 8E 00 B8 10 90 01 8F 20 2A 2A |..875:....... **|
000008A0: 20 53 54 55 44 45 4E 54 20 49 4E 53 54 52 55 43 | STUDENT INSTRUC|
000008B0: 54 49 4F 4E 53 20 2A 2A 00 E7 10 95 01 99 22 93 |TIONS **......".|
000008C0: 22 3A 97 55 54 2C 55 4C 25 3A 8B C2 28 35 30 30 |":.UT,UL%:..(500|
000008D0: 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 30 3A 97 |03).0..53281,0:.|
000008E0: 35 33 32 38 30 2C 30 00 08 11 9A 01 55 50 B2 30 |53280,0.....UP.0|
000008F0: 3A 55 47 24 B2 22 D3 54 55 44 45 4E 54 20 C9 4E |:UG$.".TUDENT .N|
00000900: 53 54 22 3A 8D 38 35 30 00 38 11 9C 01 3A 20 20 |ST":.850.8...: |
00000910: 99 22 11 20 20 20 20 D2 45 4D 45 4D 42 45 52 2C |.". .EMEMBER,|
00000920: 20 48 49 54 20 3C 52 45 54 55 52 4E 3E 20 4B 45 | HIT <RETURN> KE|
00000930: 59 20 41 46 54 45 52 22 00 65 11 9E 01 3A 20 20 |Y AFTER".e...: |
00000940: 99 22 11 20 20 20 54 59 50 49 4E 47 20 59 4F 55 |.". TYPING YOU|
00000950: 52 20 41 4E 53 57 45 52 2E 20 D4 48 49 53 20 54 |R ANSWER. .HIS T|
00000960: 45 4C 4C 53 22 00 93 11 A0 01 3A 20 20 99 22 11 |ELLS".....: .".|
00000970: 20 20 20 54 48 45 20 43 4F 4D 50 55 54 45 52 20 | THE COMPUTER |
00000980: 54 4F 20 41 43 43 45 50 54 20 57 48 41 54 20 59 |TO ACCEPT WHAT Y|
00000990: 4F 55 22 00 AD 11 A2 01 3A 20 20 99 22 11 20 20 |OU".....: .". |
000009A0: 20 48 41 56 45 20 54 59 50 45 44 2E 22 00 DC 11 | HAVE TYPED."...|
000009B0: A4 01 3A 20 20 99 22 11 20 20 20 20 D4 59 50 45 |..: .". .YPE|
000009C0: 20 53 48 49 46 54 45 44 20 3C 51 3E 20 41 54 20 | SHIFTED <Q> AT |
000009D0: 41 4E 59 20 54 49 4D 45 20 54 4F 22 00 0D 12 A6 |ANY TIME TO"....|
000009E0: 01 3A 20 20 99 22 11 20 20 20 51 55 49 54 20 44 |.: .". QUIT D|
000009F0: 4F 49 4E 47 20 51 55 45 53 54 49 4F 4E 53 20 41 |OING QUESTIONS A|
00000A00: 4E 44 20 52 45 54 55 52 4E 20 54 4F 22 00 28 12 |ND RETURN TO".(.|
00000A10: A8 01 3A 20 20 99 22 11 20 20 20 54 48 45 20 4D |..: .". THE M|
00000A20: 45 4E 55 2E 20 20 20 22 00 56 12 AA 01 99 22 11 |ENU. ".V....".|
00000A30: 20 20 20 20 D4 4F 20 53 4B 49 50 20 41 20 51 55 | .O SKIP A QU|
00000A40: 45 53 54 49 4F 4E 2C 20 45 4E 54 45 52 20 53 48 |ESTION, ENTER SH|
00000A50: 49 46 54 45 44 22 00 76 12 AC 01 99 22 11 20 20 |IFTED".v....". |
00000A60: 20 3C 53 3E 20 46 4F 52 20 59 4F 55 52 20 41 4E | <S> FOR YOUR AN|
00000A70: 53 57 45 52 2E 22 00 86 12 B1 01 3A 20 8D 38 33 |SWER.".....: .83|
00000A80: 35 3A 8D 38 35 30 00 B5 12 B8 01 99 22 11 20 D4 |5:.850......". .|
00000A90: 48 49 53 20 50 52 4F 47 52 41 4D 20 47 49 56 45 |HIS PROGRAM GIVE|
00000AA0: 53 20 50 52 41 43 54 49 43 45 20 49 4E 20 4D 55 |S PRACTICE IN MU|
00000AB0: 4C 54 49 2D 22 00 E3 12 B9 01 99 22 11 20 50 4C |LTI-"......". PL|
00000AC0: 59 49 4E 47 20 54 57 4F 20 4F 52 20 54 48 52 45 |YING TWO OR THRE|
00000AD0: 45 20 4D 4F 4E 4F 4D 49 41 4C 20 46 41 43 54 4F |E MONOMIAL FACTO|
00000AE0: 52 53 22 00 12 13 BA 01 99 22 11 20 57 49 54 48 |RS"......". WITH|
00000AF0: 20 45 58 50 4F 4E 45 4E 54 53 2E 20 C9 4E 20 54 | EXPONENTS. .N T|
00000B00: 48 45 20 4D 55 4C 54 49 50 4C 49 43 41 54 49 4F |HE MULTIPLICATIO|
00000B10: 4E 22 00 42 13 BB 01 99 22 11 20 51 55 45 53 54 |N".B....". QUEST|
00000B20: 49 4F 4E 53 20 57 48 49 43 48 20 46 4F 4C 4C 4F |IONS WHICH FOLLO|
00000B30: 57 2C 54 48 45 52 45 20 41 52 45 20 54 48 52 45 |W,THERE ARE THRE|
00000B40: 45 22 00 70 13 BC 01 99 22 11 20 4C 45 56 45 4C |E".p....". LEVEL|
00000B50: 53 20 4F 46 20 44 49 46 46 49 43 55 4C 54 59 20 |S OF DIFFICULTY |
00000B60: 54 4F 20 43 48 4F 4F 53 45 20 46 52 4F 4D 2E 22 |TO CHOOSE FROM."|
00000B70: 00 A0 13 BD 01 99 22 11 20 C5 4E 54 45 52 20 59 |......". .NTER Y|
00000B80: 4F 55 52 20 43 4F 4D 50 4C 45 54 45 20 41 4E 53 |OUR COMPLETE ANS|
00000B90: 57 45 52 20 49 4E 20 54 48 45 20 53 41 4D 45 22 |WER IN THE SAME"|
00000BA0: 00 D4 13 BE 01 99 22 11 20 57 41 59 20 54 48 41 |......". WAY THA|
00000BB0: 54 20 59 4F 55 20 57 4F 55 4C 44 20 57 52 49 54 |T YOU WOULD WRIT|
00000BC0: 45 20 49 54 20 4F 4E 20 50 41 50 45 52 2E 22 3A |E IT ON PAPER.":|
00000BD0: 8D 38 33 35 00 E8 13 EA 01 8B 55 5A B2 31 A7 9E |.835......UZ.1..|
00000BE0: 55 50 25 3A 89 32 31 37 00 EE 13 F3 01 8E 00 0F |UP%:.217........|
00000BF0: 14 F4 01 8F 20 2A 2A 20 54 45 41 43 48 45 52 20 |.... ** TEACHER |
00000C00: 49 4E 53 54 52 55 43 54 49 4F 4E 53 20 2A 2A 00 |INSTRUCTIONS **.|
00000C10: 3F 14 F5 01 99 22 93 22 3A 97 55 54 2C 55 4C 25 |?....".":.UT,UL%|
00000C20: 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 |:..(50003).0..53|
00000C30: 32 38 31 2C 32 3A 97 35 33 32 38 30 2C 31 30 00 |281,2:.53280,10.|
00000C40: 60 14 F6 01 55 50 B2 30 3A 55 47 24 B2 22 D4 45 |`...UP.0:UG$.".E|
00000C50: 41 43 48 45 52 20 C9 4E 53 54 22 3A 8D 38 35 30 |ACHER .NST":.850|
00000C60: 00 8E 14 F7 01 99 22 11 11 20 20 20 20 20 20 D4 |......".. .|
00000C70: 4F 20 54 48 45 20 42 45 53 54 20 4F 46 20 4F 55 |O THE BEST OF OU|
00000C80: 52 20 4B 4E 4F 57 4C 45 44 47 45 2C 11 22 00 B7 |R KNOWLEDGE,."..|
00000C90: 14 F8 01 99 22 20 20 20 54 48 49 53 20 50 52 4F |...." THIS PRO|
00000CA0: 47 52 41 4D 20 49 53 20 49 4E 20 54 48 45 20 50 |GRAM IS IN THE P|
00000CB0: 55 42 4C 49 43 11 22 00 E3 14 F9 01 99 22 20 20 |UBLIC."......" |
00000CC0: 20 44 4F 4D 41 49 4E 2E 20 20 C9 46 20 54 48 49 | DOMAIN. .F THI|
00000CD0: 53 20 49 53 20 4E 4F 54 20 54 48 45 20 43 41 53 |S IS NOT THE CAS|
00000CE0: 45 11 22 00 00 15 FA 01 99 22 20 20 20 50 4C 45 |E."......" PLE|
00000CF0: 41 53 45 20 43 4F 4E 54 41 43 54 3A 11 11 11 22 |ASE CONTACT:..."|
00000D00: 00 2A 15 FB 01 99 22 20 20 20 20 20 20 C3 4F 4D |.*...." .OM|
00000D10: 4D 4F 44 4F 52 45 20 C2 55 53 49 4E 45 53 53 20 |MODORE .USINESS |
00000D20: CD 41 43 48 49 4E 45 53 11 22 00 4D 15 FC 01 99 |.ACHINES.".M....|
00000D30: 22 20 20 20 20 20 20 20 20 20 20 33 33 37 30 20 |" 3370 |
00000D40: D0 48 41 52 4D 41 43 59 20 C1 56 45 2E 00 71 15 |.HARMACY .VE..q.|
00000D50: FD 01 99 22 20 20 20 20 20 20 20 20 20 20 C1 47 |..." .G|
00000D60: 49 4E 43 4F 55 52 54 2C 20 CF 4E 54 41 52 49 4F |INCOURT, .NTARIO|
00000D70: 22 00 93 15 FE 01 99 22 20 20 20 20 20 20 20 20 |"......" |
00000D80: 20 20 C3 41 4E 41 44 41 20 20 20 CD 31 D7 20 32 | .ANADA .1. 2|
00000D90: CB 34 22 00 B3 15 FF 01 99 22 20 20 20 20 20 20 |.4"......" |
00000DA0: 20 20 20 20 28 34 31 36 29 20 34 39 39 2D 34 32 | (416) 499-42|
00000DB0: 39 32 22 00 C9 15 00 02 55 50 B2 31 3A 8D 20 38 |92".....UP.1:. 8|
00000DC0: 33 35 3A 8D 20 38 35 30 3A 00 FA 15 01 02 99 22 |35:. 850:......"|
00000DD0: 20 11 11 D0 52 4F 47 52 41 4D 20 CE 41 4D 45 3A | ...ROGRAM .AME:|
00000DE0: 20 CD 4F 4E 4F 4D 49 41 4C 20 CD 55 4C 54 49 50 | .ONOMIAL .ULTIP|
00000DF0: 4C 49 43 41 54 49 4F 4E 11 22 00 21 16 02 02 99 |LICATION.".!....|
00000E00: 22 20 D7 52 49 54 54 45 4E 20 C2 59 20 20 3A 20 |" .RITTEN .Y : |
00000E10: CA 2E 20 C2 2E 20 CE 49 43 48 4F 4C 53 4F 4E 20 |.. .. .ICHOLSON |
00000E20: 11 00 41 16 03 02 99 22 20 D5 50 47 52 41 44 45 |..A...." .PGRADE|
00000E30: 44 20 C2 59 20 3A 20 20 20 20 20 20 20 20 20 20 |D .Y : |
00000E40: 11 00 6C 16 04 02 99 22 20 20 20 20 20 11 D4 48 |..l...." ..H|
00000E50: 49 53 20 50 52 4F 47 52 41 4D 20 57 49 4C 4C 20 |IS PROGRAM WILL |
00000E60: 52 55 4E 20 4F 4E 20 41 4E 59 11 11 00 8B 16 07 |RUN ON ANY......|
00000E70: 02 99 22 20 20 20 20 20 20 20 20 20 D0 C5 D4 20 |.." ... |
00000E80: 36 34 20 C3 CF CD D0 D5 D4 C5 D2 00 B0 16 08 02 |64 .............|
00000E90: 99 22 20 20 20 20 20 20 20 20 20 C3 CF CD CD CF |." .....|
00000EA0: C4 CF D2 C5 20 36 34 20 C3 CF CD D0 D5 D4 C5 D2 |.... 64 ........|
00000EB0: 00 B9 16 09 02 8D 38 33 35 00 CD 16 4E 02 8B 55 |......835...N..U|
00000EC0: 5A B2 31 A7 9E 55 50 25 3A 89 32 31 37 00 D3 16 |Z.1..UP%:.217...|
00000ED0: 57 02 8E 00 F9 16 58 02 8F 20 2A 2A 20 50 52 4F |W.....X.. ** PRO|
00000EE0: 47 52 41 4D 20 4D 4F 44 49 46 49 43 41 54 49 4F |GRAM MODIFICATIO|
00000EF0: 4E 20 49 4E 53 54 20 2A 2A 00 0A 17 59 02 99 22 |N INST **...Y.."|
00000F00: 93 22 3A 97 55 54 2C 55 4C 25 00 2A 17 5D 02 55 |.":.UT,UL%.*.].U|
00000F10: 50 B2 30 3A 55 47 24 B2 22 D0 52 4F 47 52 41 4D |P.0:UG$.".ROGRAM|
00000F20: 20 CD 4F 44 22 3A 8D 38 35 30 00 33 17 94 02 8D | .OD":.850.3....|
00000F30: 38 33 35 00 47 17 B2 02 8B 55 5A B2 31 A7 9E 55 |835.G....UZ.1..U|
00000F40: 50 25 3A 89 32 31 37 00 4D 17 BB 02 8E 00 72 17 |P%:.217.M.....r.|
00000F50: BC 02 8F 20 2A 2A 20 54 4F 20 55 53 45 20 38 30 |... ** TO USE 80|
00000F60: 33 32 20 4C 4F 41 44 20 43 42 4D 34 30 33 32 20 |32 LOAD CBM4032 |
00000F70: 2A 2A 00 A8 17 C6 02 99 22 93 11 11 11 05 42 45 |**......".....BE|
00000F80: 46 4F 52 45 20 52 55 4E 4E 49 4E 47 20 54 48 49 |FORE RUNNING THI|
00000F90: 53 20 50 52 4F 47 52 41 4D 20 4F 4E 20 41 4E 20 |S PROGRAM ON AN |
00000FA0: 38 30 33 32 20 20 11 11 00 DE 17 D0 02 99 22 20 |8032 ........" |
00000FB0: 20 20 20 20 20 4C 4F 41 44 20 54 48 45 20 27 43 | LOAD THE 'C|
00000FC0: 42 4D 20 34 30 33 32 27 20 50 52 4F 47 52 41 4D |BM 4032' PROGRAM|
00000FD0: 11 11 11 11 11 11 11 11 11 11 11 11 11 22 00 E9 |............."..|
00000FE0: 17 DA 02 9E 55 55 AA 37 31 00 EF 17 E4 02 80 00 |....UU.71.......|
00000FF0: 0F 18 20 03 8F 20 2A 2A 20 54 20 49 20 54 20 4C |.. .. ** T I T L|
00001000: 20 45 20 20 20 50 20 41 20 47 20 45 20 2A 2A 00 | E P A G E **.|
00001010: 43 18 22 03 99 22 93 11 1D 05 22 3B 3A 97 55 54 |C.".."....";:.UT|
00001020: 2C 55 55 25 3A 8B C2 28 35 30 30 30 33 29 B2 30 |,UU%:..(50003).0|
00001030: A7 97 35 33 32 38 30 2C 31 34 3A 97 35 33 32 38 |..53280,14:.5328|
00001040: 31 2C 36 00 59 18 24 03 81 49 B2 31 A4 33 38 3A |1,6.Y.$..I.1.38:|
00001050: 99 22 12 A6 92 22 3B 3A 82 00 71 18 26 03 81 49 |."...";:..q.&..I|
00001060: B2 31 A4 32 32 3A 99 22 11 9D 12 A6 92 22 3B 3A |.1.22:.".....";:|
00001070: 82 00 89 18 28 03 81 49 B2 31 A4 33 37 3A 99 22 |....(..I.1.37:."|
00001080: 9D 9D 12 A6 92 22 3B 3A 82 00 A1 18 2A 03 81 49 |.....";:....*..I|
00001090: B2 31 A4 32 32 3A 99 22 91 9D 12 A6 92 22 3B 3A |.1.22:.".....";:|
000010A0: 82 00 C6 18 2C 03 99 22 13 11 11 11 11 11 11 1D |....,.."........|
000010B0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000010C0: 1D 12 A9 20 20 92 00 E8 18 2E 03 99 22 1D 1D 1D |... ......."...|
000010D0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 |................|
000010E0: 20 92 20 20 12 20 92 A9 00 09 19 30 03 99 22 1D | . . .....0..".|
000010F0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001100: 1D 12 20 92 20 20 12 A3 DF 00 27 19 32 03 99 22 |.. . ....'.2.."|
00001110: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001120: 1D 1D DF 12 20 20 92 00 4F 19 34 03 99 22 11 11 |.... ..O.4.."..|
00001130: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 43 20 4F 20 |............C O |
00001140: 4D 20 4D 20 4F 20 44 20 4F 20 52 20 45 11 11 00 |M M O D O R E...|
00001150: 72 19 36 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |r.6.."..........|
00001160: 1D 1D 1D 1D 1D 45 44 55 43 41 54 49 4F 4E 41 4C |.....EDUCATIONAL|
00001170: 11 11 00 91 19 38 03 99 22 1D 1D 1D 1D 1D 1D 1D |.....8..".......|
00001180: 1D 1D 1D 1D 1D 1D 1D 1D 1D 53 4F 46 54 57 41 52 |.........SOFTWAR|
00001190: 45 00 AC 19 3A 03 8F 20 2A 2A 20 43 4F 4D 4D 4F |E...:.. ** COMMO|
000011A0: 44 4F 52 45 20 4C 4F 47 4F 20 2A 2A 00 E4 19 3B |DORE LOGO **...;|
000011B0: 03 99 C8 28 55 44 24 2C 32 34 29 3B 22 1D 1D 1D |...(UD$,24);"...|
000011C0: 1D 1D 1D 1D 1D 1D 12 50 52 45 53 53 20 53 50 41 |.......PRESS SPA|
000011D0: 43 45 20 42 41 52 20 4F 52 20 57 41 49 54 92 22 |CE BAR OR WAIT."|
000011E0: 3A 49 B2 30 00 06 1A 3C 03 A1 41 24 3A 8B 41 24 |:I.0...<..A$:.A$|
000011F0: B3 B1 22 20 22 A7 49 B2 49 AA 31 3A 8B 49 B3 32 |.." ".I.I.1:.I.2|
00001200: 35 30 A7 38 32 38 00 2A 1A 3E 03 54 31 24 B2 22 |50.828.*.>.T1$."|
00001210: 22 3A 54 32 24 B2 22 22 3A 54 33 24 B2 22 22 3A |":T2$."":T3$."":|
00001220: 54 34 24 B2 22 22 3A 49 B2 30 00 33 1A 40 03 89 |T4$."":I.0.3.@..|
00001230: 33 30 30 00 4F 1A 43 03 8F 20 2A 2A 20 53 50 41 |300.O.C.. ** SPA|
00001240: 43 45 20 42 41 52 20 50 52 45 53 53 20 2A 2A 00 |CE BAR PRESS **.|
00001250: 8E 1A 48 03 97 55 4F 2C 30 3A 99 C8 28 55 44 24 |..H..UO,0:..(UD$|
00001260: 2C 32 34 29 3B 22 1D 1D 1D 20 20 20 12 50 52 45 |,24);"... .PRE|
00001270: 53 53 20 53 50 41 43 45 20 42 41 52 20 54 4F 20 |SS SPACE BAR TO |
00001280: 43 4F 4E 54 49 4E 55 45 92 20 20 20 20 22 00 A5 |CONTINUE. "..|
00001290: 1A 4C 03 A1 55 49 24 3A 8B 55 49 24 B3 B1 22 20 |.L..UI$:.UI$.." |
000012A0: 22 A7 38 34 34 00 AB 1A 4E 03 8E 00 CB 1A 52 03 |".844...N.....R.|
000012B0: 8F 20 2A 2A 20 50 41 47 45 20 44 45 53 49 47 4E |. ** PAGE DESIGN|
000012C0: 20 52 4F 55 54 49 4E 45 20 2A 2A 00 D7 1A 54 03 | ROUTINE **...T.|
000012D0: 55 50 B2 55 50 AA 31 00 01 1B 57 03 99 22 93 22 |UP.UP.1...W.."."|
000012E0: C8 28 55 54 24 AA 55 50 24 2C 32 31 29 3B C9 28 |.(UT$.UP$,21);.(|
000012F0: 55 50 24 AA 55 47 24 AA C4 28 55 50 29 2C 31 38 |UP$.UG$..(UP),18|
00001300: 29 00 30 1B 5C 03 99 22 20 2D 2D 2D 2D 2D 2D 2D |).0.\.." -------|
00001310: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001320: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 |---------------"|
00001330: 00 3F 1B 60 03 8B 55 48 B3 B1 30 A7 38 37 30 00 |.?.`..UH..0.870.|
00001340: 71 1B 61 03 99 C8 28 55 44 24 2C 32 34 29 3B C8 |q.a...(UD$,24);.|
00001350: 28 55 50 24 2C 37 29 3B 22 51 55 49 54 20 2D 20 |(UP$,7);"QUIT - |
00001360: 50 52 45 53 53 20 53 48 49 46 54 45 44 20 51 20 |PRESS SHIFTED Q |
00001370: 22 00 82 1B 66 03 55 48 B2 30 3A 99 22 13 11 22 |"...f.UH.0:.".."|
00001380: 3A 8E 00 A1 1B 6B 03 8F 20 2A 2A 20 50 4C 45 41 |:....k.. ** PLEA|
00001390: 53 45 20 57 41 49 54 20 52 45 4D 41 52 4B 20 2A |SE WAIT REMARK *|
000013A0: 2A 00 D7 1B 70 03 99 C8 28 55 44 24 2C 32 34 29 |*...p...(UD$,24)|
000013B0: 3B 22 20 20 20 20 20 20 20 20 20 20 20 4F 4E 45 |;" ONE|
000013C0: 20 4D 4F 4D 45 4E 54 20 50 4C 45 41 53 45 2E 2E | MOMENT PLEASE..|
000013D0: 2E 20 20 20 20 20 22 00 DD 1B 75 03 8E 00 FA 1B |. "...u.....|
000013E0: 84 03 8F 20 2A 2A 20 53 45 54 20 55 50 20 56 41 |... ** SET UP VA|
000013F0: 52 49 41 42 4C 45 53 20 2A 2A 00 45 1C 85 03 55 |RIABLES **.E...U|
00001400: 58 24 B2 22 C8 22 3A 86 55 51 25 28 31 30 30 30 |X$.".":.UQ%(1000|
00001410: 29 3A 55 42 B2 33 32 37 36 38 3A 55 31 B2 31 39 |):UB.32768:U1.19|
00001420: 36 3A 55 32 B2 31 39 37 3A 55 33 B2 31 39 38 3A |6:U2.197:U3.198:|
00001430: 55 34 B2 32 31 36 3A 55 43 B2 31 36 37 3A 55 55 |U4.216:UC.167:UU|
00001440: B2 31 30 32 34 00 83 1C 86 03 55 54 B2 35 39 34 |.1024.....UT.594|
00001450: 36 38 3A 55 55 25 B2 31 32 3A 55 4C 25 B2 31 34 |68:UU%.12:UL%.14|
00001460: 3A 55 50 25 B2 31 31 34 36 3A 55 4D B2 33 32 37 |:UP%.1146:UM.327|
00001470: 36 38 3A 55 4F B2 31 35 38 3A 97 20 35 30 30 30 |68:UO.158:. 5000|
00001480: 33 2C 30 00 C6 1C 87 03 8B C2 28 35 30 30 30 33 |3,0.......(50003|
00001490: 29 B2 30 A7 55 42 B2 31 30 32 34 3A 55 31 B2 32 |).0.UB.1024:U1.2|
000014A0: 30 39 3A 55 32 B2 32 31 30 3A 55 33 B2 32 31 31 |09:U2.210:U3.211|
000014B0: 3A 55 34 B2 32 31 34 3A 55 43 B2 32 30 34 3A 55 |:U4.214:UC.204:U|
000014C0: 55 B2 32 30 34 38 00 05 1D 88 03 8B C2 28 35 30 |U.2048.......(50|
000014D0: 30 30 33 29 B2 30 A7 55 54 B2 35 33 32 37 32 3A |003).0.UT.53272:|
000014E0: 55 55 25 B2 32 31 3A 55 4C 25 B2 32 33 3A 55 50 |UU%.21:UL%.23:UP|
000014F0: 25 B2 32 31 33 39 3A 55 4D B2 31 30 32 34 3A 55 |%.2139:UM.1024:U|
00001500: 4F B2 31 39 38 00 29 1D 89 03 55 44 24 B2 22 13 |O.198.)...UD$.".|
00001510: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00001520: 11 11 11 11 11 11 11 11 22 00 5B 1D 8A 03 55 50 |........".[...UP|
00001530: 24 B2 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |$." |
00001540: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001550: 20 20 20 20 20 20 20 20 20 20 22 00 A9 1D 8B 03 | ".....|
00001560: 55 54 24 B2 22 20 CD CF CE CF CD C9 C1 CC 20 CD |UT$." ........ .|
00001570: D5 CC D4 2E A0 A0 A0 A0 22 3A 8F 20 50 4C 41 43 |........":. PLAC|
00001580: 45 20 50 52 4F 47 52 41 4D 20 54 49 54 4C 45 20 |E PROGRAM TITLE |
00001590: 48 45 52 45 20 21 21 21 21 21 21 21 21 21 21 21 |HERE !!!!!!!!!!!|
000015A0: 21 21 21 21 21 21 2A 2A 2A 00 AF 1D 8C 03 8E 00 |!!!!!!***.......|
000015B0: C9 1D 8E 03 8F 20 2A 2A 20 53 45 54 20 56 41 52 |..... ** SET VAR|
000015C0: 49 41 42 4C 45 53 20 2A 2A 00 D2 1D 93 03 8D 39 |IABLES **......9|
000015D0: 30 30 00 ED 1D 98 03 8F 20 2A 2A 20 43 48 45 43 |00...... ** CHEC|
000015E0: 4B 20 46 4F 52 20 38 30 33 32 20 2A 2A 00 0B 1E |K FOR 8032 **...|
000015F0: 9D 03 99 22 93 22 3A 99 22 A0 22 3A 8F 20 53 48 |...".":.".":. SH|
00001600: 49 46 54 45 44 20 53 50 41 43 45 00 22 1E A2 03 |IFTED SPACE."...|
00001610: 8B C2 28 55 42 AA 34 30 29 B3 B1 39 36 A7 8D 37 |..(UB.40)..96..7|
00001620: 30 30 00 3B 1E A3 03 8F 20 2A 2A 20 4D 45 4D 4F |00.;.... ** MEMO|
00001630: 52 59 20 43 48 45 43 4B 20 2A 2A 00 4F 1E A4 03 |RY CHECK **.O...|
00001640: 8B 20 B8 28 30 29 B1 32 30 30 30 A7 39 33 37 00 |. .(0).2000.937.|
00001650: 7D 1E A5 03 99 22 93 11 11 05 54 48 49 53 20 4D |}...."....THIS M|
00001660: 41 43 48 49 4E 45 20 44 4F 45 53 20 4E 4F 54 20 |ACHINE DOES NOT |
00001670: 48 41 56 45 20 45 4E 4F 55 47 48 11 22 00 A1 1E |HAVE ENOUGH."...|
00001680: A6 03 99 22 4D 45 4D 4F 52 59 20 54 4F 20 52 55 |..."MEMORY TO RU|
00001690: 4E 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 21 |N THIS PROGRAM !|
000016A0: 22 00 AC 1E A7 03 9E 55 55 AA 37 31 00 B2 1E A8 |"......UU.71....|
000016B0: 03 80 00 CC 1E A9 03 99 22 93 05 22 3A 8B C2 28 |........"..":..(|
000016C0: 35 30 30 30 33 29 B2 30 A7 39 36 32 00 FB 1E AC |50003).0.962....|
000016D0: 03 8F 20 2A 2A 20 42 41 53 49 43 20 32 2E 30 20 |.. ** BASIC 2.0 |
000016E0: 20 4F 52 20 20 34 2E 30 20 20 4F 52 20 20 43 2D | OR 4.0 OR C-|
000016F0: 36 34 20 53 45 54 55 50 20 2A 2A 00 39 1F AD 03 |64 SETUP **.9...|
00001700: 97 31 30 37 35 2C 31 33 33 3A 97 31 30 37 36 2C |.1075,133:.1076,|
00001710: 31 34 34 3A 97 31 30 37 37 2C 32 33 34 3A 97 31 |144:.1077,234:.1|
00001720: 30 37 39 2C 34 3A 97 31 30 38 30 2C 31 33 33 3A |079,4:.1080,133:|
00001730: 97 31 30 38 31 2C 31 34 35 00 6F 1F AE 03 97 31 |.1081,145.o....1|
00001740: 30 39 31 2C 31 35 35 3A 97 31 30 39 38 2C 31 33 |091,155:.1098,13|
00001750: 33 3A 97 31 30 39 39 2C 31 34 34 3A 97 31 31 30 |3:.1099,144:.110|
00001760: 30 2C 32 33 34 3A 97 31 31 30 33 2C 31 33 33 00 |0,234:.1103,133.|
00001770: 91 1F AF 03 97 31 31 30 34 2C 31 34 35 3A 97 31 |.....1104,145:.1|
00001780: 31 30 35 2C 32 33 34 3A 97 31 30 38 32 2C 32 33 |105,234:.1082,23|
00001790: 34 00 A8 1F B1 03 8B C2 28 35 30 30 30 33 29 B3 |4.......(50003).|
000017A0: B1 31 36 30 A7 39 35 35 00 D7 1F B6 03 97 31 30 |.160.955......10|
000017B0: 39 33 2C 38 38 3A 97 31 30 39 34 2C 32 32 38 3A |93,88:.1094,228:|
000017C0: 97 31 30 39 37 2C 38 35 3A 97 31 31 30 32 2C 32 |.1097,85:.1102,2|
000017D0: 32 38 3A 89 39 36 35 00 EC 1F BB 03 8B C2 28 35 |28:.965.......(5|
000017E0: 30 30 30 33 29 B3 B1 31 A7 39 39 30 00 1B 20 C0 |0003)..1.990.. .|
000017F0: 03 97 31 30 39 33 2C 34 39 3A 97 31 30 39 34 2C |..1093,49:.1094,|
00001800: 32 33 30 3A 97 31 30 39 37 2C 34 36 3A 97 31 31 |230:.1097,46:.11|
00001810: 30 32 2C 32 33 30 3A 89 39 36 35 00 55 20 C2 03 |02,230:.965.U ..|
00001820: 97 32 30 39 39 2C 31 34 31 3A 97 32 31 30 30 2C |.2099,141:.2100,|
00001830: 32 30 3A 97 32 31 30 31 2C 33 3A 97 32 31 30 33 |20:.2101,3:.2103|
00001840: 2C 38 3A 97 32 31 30 34 2C 31 34 31 3A 97 32 31 |,8:.2104,141:.21|
00001850: 30 35 2C 32 31 00 91 20 C3 03 97 32 31 30 36 2C |05,21.. ...2106,|
00001860: 33 3A 97 32 31 31 35 2C 31 34 35 3A 97 32 31 31 |3:.2115,145:.211|
00001870: 37 2C 35 32 3A 97 32 31 31 38 2C 32 33 34 3A 97 |7,52:.2118,234:.|
00001880: 32 31 32 31 2C 34 39 3A 97 32 31 32 32 2C 31 34 |2121,49:.2122,14|
00001890: 31 00 CB 20 C4 03 97 32 31 32 33 2C 32 30 3A 97 |1.. ...2123,20:.|
000018A0: 32 31 32 34 2C 33 3A 97 32 31 32 36 2C 32 33 34 |2124,3:.2126,234|
000018B0: 3A 97 32 31 32 37 2C 31 34 31 3A 97 32 31 32 38 |:.2127,141:.2128|
000018C0: 2C 32 31 3A 97 32 31 32 39 2C 33 00 E9 20 C5 03 |,21:.2129,3.. ..|
000018D0: 9E 55 55 AA 34 38 3A 8F 20 44 49 53 41 42 4C 45 |.UU.48:. DISABLE|
000018E0: 20 53 54 4F 50 20 4B 45 59 00 FA 20 CA 03 8D 38 | STOP KEY.. ...8|
000018F0: 30 30 3A 8F 20 54 49 54 4C 45 00 0A 21 D4 03 89 |00:. TITLE..!...|
00001900: 33 30 30 3A 8F 20 4D 45 4E 55 00 3B 21 DE 03 99 |300:. MENU.;!...|
00001910: 22 93 54 48 45 20 50 47 4D 20 57 49 4C 4C 20 4E |".THE PGM WILL N|
00001920: 4F 54 20 57 4F 52 4B 20 4F 4E 20 54 48 49 53 20 |OT WORK ON THIS |
00001930: 4D 41 43 48 49 4E 45 21 22 3A 80 00 70 21 E8 03 |MACHINE!":..p!..|
00001940: 8B 55 5A B2 31 A7 9E 55 50 25 3A 9E 55 50 25 3A |.UZ.1..UP%:.UP%:|
00001950: 55 5A B2 30 3A 8F 20 2A 2A 20 50 52 4F 47 52 41 |UZ.0:. ** PROGRA|
00001960: 4D 20 53 54 41 52 54 53 20 48 45 52 45 20 2A 2A |M STARTS HERE **|
00001970: 00 9B 21 E9 03 99 22 93 05 22 3B 3A 8C 3A 8B C2 |..!..."..";:.:..|
00001980: 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 |(50003).0..53281|
00001990: 2C 36 3A 97 35 33 32 38 30 2C 36 00 A7 21 FC 03 |,6:.53280,6..!..|
000019A0: 97 55 54 2C 55 4C 25 00 CA 21 1A 04 44 4E 24 B2 |.UT,UL%..!..DN$.|
000019B0: 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |"...............|
000019C0: 11 11 11 11 11 11 11 11 11 22 00 FC 21 24 04 42 |........."..!$.B|
000019D0: 4C 24 B2 22 20 20 20 20 20 20 20 20 20 20 20 20 |L$." |
000019E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000019F0: 20 20 20 20 20 20 20 20 20 20 20 22 00 25 22 2E | ".%".|
00001A00: 04 42 31 24 B2 22 12 A6 A0 A6 A0 A6 A0 A6 A0 A6 |.B1$."..........|
00001A10: A0 A6 A0 A6 A0 A6 A0 A6 A0 A6 A0 A6 A0 A6 A0 A6 |................|
00001A20: A0 A6 A0 A6 22 00 4E 22 38 04 42 32 24 B2 22 12 |....".N"8.B2$.".|
00001A30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001A40: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 7D | ".}|
00001A50: 22 42 04 42 33 24 B2 22 12 A6 20 20 20 20 20 20 |"B.B3$.".. |
00001A60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001A70: 20 20 20 20 20 A6 22 3A 89 31 31 37 30 00 92 22 | .":.1170.."|
00001A80: 4C 04 99 22 93 11 11 11 11 22 3A 99 A3 35 29 42 |L..".....":..5)B|
00001A90: 31 24 00 AF 22 56 04 81 49 B2 31 A4 35 3A 99 A3 |1$.."V..I.1.5:..|
00001AA0: 35 29 42 32 24 3A 99 A3 35 29 42 33 24 3A 82 00 |5)B2$:..5)B3$:..|
00001AB0: CF 22 60 04 99 A3 35 29 42 32 24 3A 99 A3 35 29 |."`...5)B2$:..5)|
00001AC0: 42 31 24 3A 99 22 13 11 11 11 11 11 11 11 22 00 |B1$:."........".|
00001AD0: E9 22 6A 04 99 A3 31 34 29 22 12 CD D5 CC D4 C9 |."j...14)"......|
00001AE0: D0 CC D9 C9 CE C7 11 11 22 00 01 23 74 04 99 A3 |........"..#t...|
00001AF0: 31 35 29 22 12 CD CF CE CF CD C9 C1 CC D3 11 11 |15)"............|
00001B00: 22 00 1F 23 7E 04 99 A3 31 31 29 22 12 42 59 20 |"..#~...11)".BY |
00001B10: CA 2E C2 2E 20 CE 49 43 48 4F 4C 53 4F 4E 22 00 |.... .ICHOLSON".|
00001B20: 2F 23 88 04 81 49 B2 31 A4 31 35 30 30 3A 82 00 |/#...I.1.1500:..|
00001B30: 4D 23 92 04 55 47 24 B2 22 22 3A 55 50 B2 30 3A |M#..UG$."":UP.0:|
00001B40: 55 48 B2 31 3A 8D 38 35 30 3A 48 B2 30 00 7E 23 |UH.1:.850:H.0.~#|
00001B50: 97 04 99 22 11 11 11 20 D7 48 41 54 20 4C 45 56 |..."... .HAT LEV|
00001B60: 45 4C 20 4F 46 20 44 49 46 46 49 43 55 4C 54 59 |EL OF DIFFICULTY|
00001B70: 20 44 4F 20 59 4F 55 20 57 41 4E 54 3F 22 00 A9 | DO YOU WANT?"..|
00001B80: 23 9C 04 99 22 11 20 28 31 20 45 41 53 59 2C 20 |#...". (1 EASY, |
00001B90: 32 20 41 56 45 52 41 47 45 2C 20 41 4E 44 20 33 |2 AVERAGE, AND 3|
00001BA0: 20 48 41 52 44 29 20 22 3B 00 BC 23 CE 04 8D 32 | HARD) ";..#...2|
00001BB0: 30 33 30 3A 4C 56 B2 C5 28 59 24 29 00 E9 23 00 |030:LV..(Y$)..#.|
00001BC0: 05 99 22 11 11 20 C1 52 45 20 4E 45 47 41 54 49 |..".. .RE NEGATI|
00001BD0: 56 45 20 45 58 50 4F 4E 45 4E 54 53 20 CF CB 3F |VE EXPONENTS ..?|
00001BE0: 20 22 3B 3A 8D 32 30 34 30 00 00 24 14 05 8B 59 | ";:.2040..$...Y|
00001BF0: 24 B2 22 59 22 A7 4E 47 B2 32 3A 89 31 33 32 30 |$."Y".NG.2:.1320|
00001C00: 00 09 24 1E 05 4E 47 B2 31 00 17 24 28 05 8B 48 |..$..NG.1..$(..H|
00001C10: B1 30 A7 31 33 39 30 00 1F 24 5A 05 48 B2 31 00 |.0.1390..$Z.H.1.|
00001C20: 2D 24 6E 05 8D 38 33 35 3A 4E 51 B2 30 00 67 24 |-$n..835:NQ.0.g$|
00001C30: 78 05 55 47 24 B2 22 51 55 45 53 54 49 4F 4E 20 |x.UG$."QUESTION |
00001C40: 23 22 3A 4E 51 B2 4E 51 AA 31 3A 55 50 B2 4E 51 |#":NQ.NQ.1:UP.NQ|
00001C50: AB 31 3A 8D 38 35 30 3A 99 22 11 20 D3 49 4D 50 |.1:.850:.". .IMP|
00001C60: 4C 49 46 59 3A 11 22 00 79 24 82 05 91 4E 47 8D |LIFY:.".y$...NG.|
00001C70: 32 37 35 30 2C 32 38 31 30 00 8D 24 8C 05 8B 4C |2750,2810..$...L|
00001C80: 56 B2 33 A7 46 B2 33 3A 89 31 34 34 30 00 95 24 |V.3.F.3:.1440..$|
00001C90: 96 05 46 B2 32 00 A5 24 A0 05 8D 32 36 38 30 3A |..F.2..$...2680:|
00001CA0: 8D 32 38 38 30 00 B2 24 AA 05 99 3A 81 49 B2 31 |.2880..$...:.I.1|
00001CB0: A4 46 00 C3 24 B4 05 99 22 5B 22 3B 20 43 24 28 |.F..$..."["; C$(|
00001CC0: 49 29 3B 00 CF 24 BE 05 81 4A B2 31 A4 4C 56 00 |I);..$...J.1.LV.|
00001CD0: E9 24 C8 05 8B 45 28 49 AA 28 4A AB 31 29 AC 33 |.$...E(I.(J.1).3|
00001CE0: 29 B2 30 20 A7 31 35 30 30 00 03 25 D2 05 99 42 |).0 .1500..%...B|
00001CF0: 24 28 4A 29 3B 45 24 28 49 AA 28 4A AB 31 29 AC |$(J);E$(I.(J.1).|
00001D00: 33 29 3B 00 0A 25 DC 05 82 4A 00 14 25 E6 05 99 |3);..%...J..%...|
00001D10: 22 5D 22 3B 00 1E 25 F0 05 82 49 20 3A 99 00 37 |"]";..%...I :..7|
00001D20: 25 FA 05 44 B2 31 3A 20 51 24 B2 22 11 11 3D 20 |%..D.1: Q$."..= |
00001D30: 22 3A 8D 32 31 37 30 00 4D 25 04 06 91 44 89 31 |":.2170.M%...D.1|
00001D40: 35 35 30 2C 31 34 30 30 2C 31 39 37 30 00 57 25 |550,1400,1970.W%|
00001D50: 0E 06 8D 33 30 30 30 00 60 25 18 06 57 43 B2 30 |...3000.`%..WC.0|
00001D60: 00 74 25 22 06 8B 53 45 28 30 29 B3 B1 43 41 A7 |.t%"..SE(0)..CA.|
00001D70: 57 43 B2 31 00 80 25 2C 06 81 49 B2 31 A4 4C 56 |WC.1..%,..I.1.LV|
00001D80: 00 92 25 36 06 4C 28 49 29 B2 30 3A 57 28 49 29 |..%6.L(I).0:W(I)|
00001D90: B2 30 00 9E 25 40 06 81 4A B2 31 A4 4C 56 00 BC |.0..%@..J.1.LV..|
00001DA0: 25 4A 06 8B 42 24 28 49 29 B2 53 42 24 28 4A 29 |%J..B$(I).SB$(J)|
00001DB0: A7 4C 28 49 29 B2 4A 3A 4A B2 4C 56 00 C3 25 54 |.L(I).J:J.LV..%T|
00001DC0: 06 82 4A 00 CA 25 5E 06 82 49 00 D6 25 68 06 81 |..J..%^..I..%h..|
00001DD0: 49 B2 31 A4 4C 56 00 E7 25 72 06 8B 4C 28 49 29 |I.1.LV..%r..L(I)|
00001DE0: B2 30 A7 31 36 38 30 00 00 26 7C 06 8B 41 45 28 |.0.1680..&|..AE(|
00001DF0: 49 29 B2 53 45 28 4C 28 49 29 29 A7 31 37 30 30 |I).SE(L(I)).1700|
00001E00: 00 11 26 86 06 57 28 49 29 B2 31 3A 89 31 37 30 |..&..W(I).1:.170|
00001E10: 30 00 23 26 90 06 8B 41 45 28 49 29 B2 30 A7 31 |0.#&...AE(I).0.1|
00001E20: 37 30 30 00 2E 26 9A 06 57 28 49 29 B2 31 00 35 |700..&..W(I).1.5|
00001E30: 26 A4 06 82 49 00 60 26 AE 06 8B 57 43 AA 57 28 |&...I.`&...WC.W(|
00001E40: 31 29 AA 57 28 32 29 AA 57 28 33 29 B2 30 A7 99 |1).W(2).W(3).0..|
00001E50: 22 11 11 D2 49 47 48 54 21 22 3A 89 31 39 35 30 |"...IGHT!":.1950|
00001E60: 00 A6 26 B8 06 99 22 91 91 20 20 20 20 20 20 20 |..&...".. |
00001E70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001E80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "|
00001E90: 3A 99 22 20 C3 4F 52 52 45 43 54 20 41 4E 53 57 |:." .ORRECT ANSW|
00001EA0: 45 52 3A 3D 22 3B 00 BD 26 C2 06 8B 43 41 B2 31 |ER:=";..&...CA.1|
00001EB0: AF 54 45 B3 B1 30 20 20 A7 31 37 36 30 00 DD 26 |.TE..0 .1760..&|
00001EC0: CC 06 8B 43 41 B2 AB 31 AF 54 45 B3 B1 30 20 20 |...CA..1.TE..0 |
00001ED0: A7 99 22 2D 20 22 3B 3A 89 31 37 36 30 00 E9 26 |.."- ";:.1760..&|
00001EE0: D6 06 99 C4 28 43 41 29 3B 00 F5 26 E0 06 81 49 |....(CA);..&...I|
00001EF0: B2 31 A4 4C 56 00 07 27 EA 06 8B 41 45 28 49 29 |.1.LV..'...AE(I)|
00001F00: B2 30 A7 31 37 39 30 00 1A 27 F4 06 99 42 24 28 |.0.1790..'...B$(|
00001F10: 49 29 3B 41 45 24 28 49 29 3B 00 20 27 FE 06 82 |I);AE$(I);. '...|
00001F20: 00 29 27 08 07 99 20 3A 99 00 3C 27 12 07 99 22 |.)'... :..<'..."|
00001F30: C3 4F 45 46 46 49 43 49 45 4E 54 22 00 4D 27 1C |.OEFFICIENT".M'.|
00001F40: 07 99 22 3D 22 3B 3A 81 49 B2 31 A4 46 00 60 27 |.."=";:.I.1.F.`'|
00001F50: 26 07 99 22 5B 22 3B 43 28 49 29 3B 22 5D 22 3B |&.."[";C(I);"]";|
00001F60: 00 66 27 30 07 82 00 76 27 3A 07 99 22 20 3D 20 |.f'0...v':.." = |
00001F70: 22 3B 43 41 3A 99 00 82 27 44 07 81 49 B2 31 A4 |";CA:...'D..I.1.|
00001F80: 4C 56 00 A8 27 4E 07 99 22 C5 58 50 4F 4E 45 4E |LV..'N..".XPONEN|
00001F90: 54 20 4F 46 20 42 41 53 45 20 22 3B 42 24 28 49 |T OF BASE ";B$(I|
00001FA0: 29 3A 99 22 3D 20 22 3B 00 B3 27 58 07 81 4A B2 |):."= ";..'X..J.|
00001FB0: 31 A4 46 00 CE 27 62 07 99 22 5B 22 3B 45 28 33 |1.F..'b.."[";E(3|
00001FC0: AC 28 49 AB 31 29 AA 4A 29 3B 22 5D 22 3B 00 E1 |.(I.1).J);"]";..|
00001FD0: 27 6C 07 8B 4A B3 46 20 20 A7 99 22 20 2B 20 22 |'l..J.F .." + "|
00001FE0: 3B 00 E8 27 76 07 82 4A 00 FA 27 80 07 99 22 20 |;..'v..J..'..." |
00001FF0: 3D 20 22 3B 41 45 28 49 29 3B 00 20 28 8A 07 8B |= ";AE(I);. (...|
00002000: 41 45 28 49 29 B2 30 A7 99 22 41 4E 44 20 22 3B |AE(I).0.."AND ";|
00002010: 42 24 28 49 29 3B 22 91 30 11 20 3D 20 31 22 3B |B$(I);".0. = 1";|
00002020: 00 2B 28 94 07 99 3A 99 3A 82 49 00 34 28 9E 07 |.+(...:.:.I.4(..|
00002030: 8D 38 33 35 00 3E 28 A8 07 89 31 34 30 30 00 53 |.835.>(...1400.S|
00002040: 28 B2 07 8D 38 33 35 3A 9C 3A 8D 39 30 30 3A 8D |(...835:.:.900:.|
00002050: 33 30 30 00 6C 28 EE 07 55 53 24 B2 22 31 32 33 |300.l(..US$."123|
00002060: 22 3A 55 4C B2 31 3A 89 32 30 35 30 00 7E 28 F8 |":UL.1:.2050.~(.|
00002070: 07 55 53 24 B2 22 59 4E 22 3A 55 4C B2 31 00 8F |.US$."YN":UL.1..|
00002080: 28 02 08 8D 33 35 3A 59 24 B2 55 52 24 3A 8E 00 |(...35:Y$.UR$:..|
00002090: A4 28 7A 08 A1 5A 24 3A 8B 5A 24 B3 B1 22 22 A7 |.(z..Z$:.Z$.."".|
000020A0: 32 31 37 30 00 AD 28 84 08 99 51 24 3B 00 C9 28 |2170..(...Q$;..(|
000020B0: 8E 08 59 24 B2 22 22 3A 50 24 B2 22 22 3A 54 43 |..Y$."":P$."":TC|
000020C0: B2 30 3A 99 22 A6 9D 22 3B 00 DD 28 98 08 A1 5A |.0:."..";..(...Z|
000020D0: 24 3A 8B 5A 24 B2 22 22 A7 32 32 30 30 00 F8 28 |$:.Z$."".2200..(|
000020E0: A2 08 8B 5A 24 B2 22 D3 22 A7 20 44 B2 32 3A 99 |...Z$.".". D.2:.|
000020F0: 5A 24 3A 89 32 35 35 30 00 16 29 AC 08 8B 5A 24 |Z$:.2550..)...Z$|
00002100: B2 22 D1 22 A7 44 B2 33 3A 99 5A 24 3A 9E 55 50 |.".".D.3:.Z$:.UP|
00002110: 25 3A 89 33 30 30 00 22 29 B6 08 5A B2 C6 28 5A |%:.300.")..Z..(Z|
00002120: 24 29 00 31 29 C0 08 8B 5A B2 31 33 A7 32 34 31 |$).1)...Z.13.241|
00002130: 30 00 47 29 CA 08 8B 5A B2 32 30 B0 5A B2 31 35 |0.G)...Z.20.Z.15|
00002140: 37 20 A7 32 32 39 30 00 7B 29 D4 08 8B 20 5A B1 |7 .2290.{)... Z.|
00002150: 36 34 AF 5A B3 39 31 20 A7 50 24 B2 50 24 AA 22 |64.Z.91 .P$.P$."|
00002160: 44 22 3A 54 43 B2 31 3A 99 5A 24 3B 3A 59 24 B2 |D":TC.1:.Z$;:Y$.|
00002170: 59 24 AA 5A 24 3A 89 32 32 30 30 00 9C 29 DE 08 |Y$.Z$:.2200..)..|
00002180: 8B 5A B2 34 33 B0 28 5A B1 34 34 AF 5A B3 35 38 |.Z.43.(Z.44.Z.58|
00002190: AF 5A B3 B1 34 37 29 A7 32 33 39 30 00 A6 29 E8 |.Z..47).2390..).|
000021A0: 08 89 32 32 30 30 00 B6 29 F2 08 8B 59 24 B2 22 |..2200..)...Y$."|
000021B0: 22 A7 32 32 30 30 00 D0 29 FC 08 8B C3 28 59 24 |".2200..)....(Y$|
000021C0: 29 B3 B2 31 A7 99 22 9D 22 3B 3A 89 32 31 39 30 |)..1..".";:.2190|
000021D0: 00 02 2A 06 09 59 24 B2 C8 28 59 24 2C C3 28 59 |..*..Y$..(Y$,.(Y|
000021E0: 24 29 AB 31 29 3A 52 24 B2 C9 28 50 24 2C 31 29 |$).1):R$..(P$,1)|
000021F0: 20 3A 50 24 B2 C8 28 50 24 2C C3 28 50 24 29 AB | :P$..(P$,.(P$).|
00002200: 31 29 00 1F 2A 10 09 8B 52 24 B2 22 55 22 A7 20 |1)..*...R$."U". |
00002210: 99 22 91 9D 20 11 9D 22 3B 3A 89 32 33 34 30 00 |.".. ..";:.2340.|
00002220: 2B 2A 1A 09 99 22 9D 20 9D 22 3B 00 4B 2A 24 09 |+*...". .";.K*$.|
00002230: 81 5A 5A B2 31 A4 C3 28 59 24 29 3A 54 B2 C6 28 |.ZZ.1..(Y$):T..(|
00002240: CA 28 59 24 2C 5A 5A 2C 31 29 29 00 62 2A 2E 09 |.(Y$,ZZ,1)).b*..|
00002250: 8B 54 B3 20 36 35 20 A7 54 43 B2 30 3A 89 32 33 |.T. 65 .TC.0:.23|
00002260: 37 30 00 75 2A 38 09 54 43 B2 31 3A 20 5A 5A B2 |70.u*8.TC.1: ZZ.|
00002270: C3 28 59 24 29 00 7B 2A 42 09 82 00 85 2A 4C 09 |.(Y$).{*B....*L.|
00002280: 89 32 32 30 30 00 AD 2A 56 09 8B 54 43 B2 30 A7 |.2200..*V..TC.0.|
00002290: 50 24 B2 50 24 AA 22 44 22 3A 99 5A 24 3B 3A 59 |P$.P$."D":.Z$;:Y|
000022A0: 24 B2 59 24 AA 5A 24 3A 89 32 32 30 30 00 D7 2A |$.Y$.Z$:.2200..*|
000022B0: 60 09 50 24 B2 50 24 AA 22 55 22 3A 99 22 91 22 |`.P$.P$."U":."."|
000022C0: AA 5A 24 AA 22 11 22 3B 3A 59 24 B2 59 24 AA 5A |.Z$.".";:Y$.Y$.Z|
000022D0: 24 3A 89 32 32 30 30 00 DD 2A 6A 09 99 00 F0 2A |$:.2200..*j....*|
000022E0: 74 09 54 43 B2 30 3A 5A 45 B2 30 3A 5A 42 B2 31 |t.TC.0:ZE.0:ZB.1|
000022F0: 00 0B 2B 7E 09 81 5A 5A B2 30 A4 20 39 3A 53 45 |..+~..ZZ.0. 9:SE|
00002300: 24 28 5A 5A 29 B2 22 22 3A 20 82 00 24 2B 88 09 |$(ZZ)."": ..$+..|
00002310: 81 5A 5A B2 31 A4 33 3A 53 42 24 28 5A 5A 29 B2 |.ZZ.1.3:SB$(ZZ).|
00002320: 22 22 3A 82 00 34 2B 92 09 8B 59 24 B2 22 22 A7 |"":..4+...Y$."".|
00002330: 32 35 30 30 00 56 2B 9C 09 4C 24 B2 C8 28 59 24 |2500.V+..L$..(Y$|
00002340: 2C 31 29 3A 54 B2 C6 28 4C 24 29 3A 59 24 B2 CA |,1):T..(L$):Y$..|
00002350: 28 59 24 2C 32 29 00 7C 2B A6 09 8B 54 B3 36 35 |(Y$,2).|+...T.65|
00002360: AF 54 43 B2 30 A7 53 45 24 28 30 29 B2 53 45 24 |.TC.0.SE$(0).SE$|
00002370: 28 30 29 AA 4C 24 3A 89 32 34 35 30 00 9F 2B B0 |(0).L$:.2450..+.|
00002380: 09 8B 54 B3 36 35 A7 53 45 24 28 5A 45 29 B2 53 |..T.65.SE$(ZE).S|
00002390: 45 24 28 5A 45 29 AA 4C 24 3A 89 32 34 35 30 00 |E$(ZE).L$:.2450.|
000023A0: C9 2B BA 09 53 42 24 28 5A 42 29 B2 4C 24 3A 54 |.+..SB$(ZB).L$:T|
000023B0: 43 B2 31 3A 5A 42 B2 5A 42 AA 31 3A 5A 45 B2 5A |C.1:ZB.ZB.1:ZE.Z|
000023C0: 45 AA 31 3A 89 32 34 35 30 00 E9 2B C4 09 81 5A |E.1:.2450..+...Z|
000023D0: 5A B2 30 A4 20 39 3A 53 45 28 5A 5A 29 B2 20 C5 |Z.0. 9:SE(ZZ). .|
000023E0: 28 53 45 24 28 5A 5A 29 29 00 02 2C CE 09 8B 53 |(SE$(ZZ))..,...S|
000023F0: 45 24 28 5A 5A 29 B2 22 22 A7 53 45 28 5A 5A 29 |E$(ZZ)."".SE(ZZ)|
00002400: B2 31 00 08 2C D8 09 82 00 2A 2C E2 09 8B 53 45 |.1..,....*,...SE|
00002410: 24 28 30 29 B2 22 22 B0 53 45 24 28 30 29 B2 22 |$(0)."".SE$(0)."|
00002420: 2B 22 A7 53 45 28 30 29 B2 31 00 43 2C EC 09 8B |+".SE(0).1.C,...|
00002430: 53 45 24 28 30 29 B2 22 2D 22 A7 53 45 28 30 29 |SE$(0)."-".SE(0)|
00002440: B2 AB 31 00 49 2C F6 09 8E 00 5D 2C 5A 0A 54 B2 |..1.I,....],Z.T.|
00002450: B5 28 32 36 AC BB 28 31 29 29 AA 36 35 00 8A 2C |.(26..(1)).65..,|
00002460: 64 0A 8B 54 B2 36 39 B0 54 B2 37 32 B0 54 B2 37 |d..T.69.T.72.T.7|
00002470: 33 B0 54 B2 37 36 B0 54 B2 37 39 B0 54 B2 38 38 |3.T.76.T.79.T.88|
00002480: B0 54 B2 38 33 A7 32 36 35 30 00 90 2C 6E 0A 8E |.T.83.2650..,n..|
00002490: 00 A1 2C 78 0A 8D 32 36 35 30 3A 42 28 31 29 B2 |..,x..2650:B(1).|
000024A0: 54 00 B8 2C 82 0A 8D 32 36 35 30 3A 8B 54 B2 42 |T..,...2650:.T.B|
000024B0: 28 31 29 A7 32 36 39 30 00 C3 2C 8C 0A 42 28 32 |(1).2690..,..B(2|
000024C0: 29 B2 54 00 E1 2C 96 0A 8D 32 36 35 30 3A 8B 54 |).T..,...2650:.T|
000024D0: B2 42 28 31 29 B0 54 B2 42 28 32 29 A7 32 37 31 |.B(1).T.B(2).271|
000024E0: 30 00 EC 2C A0 0A 42 28 33 29 B2 54 00 0A 2D AA |0..,..B(3).T..-.|
000024F0: 0A 81 5A 5A B2 31 A4 33 3A 42 24 28 5A 5A 29 B2 |..ZZ.1.3:B$(ZZ).|
00002500: C7 28 42 28 5A 5A 29 29 3A 82 00 10 2D B4 0A 8E |.(B(ZZ)):...-...|
00002510: 00 1D 2D BE 0A 81 5A 5A B2 31 A4 20 39 00 32 2D |..-...ZZ.1. 9.2-|
00002520: C8 0A 45 28 5A 5A 29 B2 B5 28 31 30 AC BB 28 31 |..E(ZZ)..(10..(1|
00002530: 29 29 00 4F 2D D2 0A 8B 45 28 5A 5A 29 B2 31 A7 |)).O-...E(ZZ).1.|
00002540: 45 24 28 5A 5A 29 B2 22 22 3A 89 32 37 39 30 00 |E$(ZZ)."":.2790.|
00002550: 70 2D DC 0A 45 24 28 5A 5A 29 B2 22 91 22 AA CA |p-..E$(ZZ)."."..|
00002560: 28 C4 28 45 28 5A 5A 29 29 2C 32 29 AA 22 11 22 |(.(E(ZZ)),2)."."|
00002570: 00 76 2D E6 0A 82 00 7C 2D F0 0A 8E 00 89 2D FA |.v-....|-.....-.|
00002580: 0A 81 5A 5A B2 31 A4 20 39 00 A0 2D 04 0B 45 28 |..ZZ.1. 9..-..E(|
00002590: 5A 5A 29 B2 B5 28 31 39 AC BB 28 31 29 29 AB 39 |ZZ)..(19..(1)).9|
000025A0: 00 BD 2D 0E 0B 8B 45 28 5A 5A 29 B2 31 A7 45 24 |..-...E(ZZ).1.E$|
000025B0: 28 5A 5A 29 B2 22 22 3A 89 32 38 36 30 00 F0 2D |(ZZ)."":.2860..-|
000025C0: 18 0B 8B 45 28 5A 5A 29 B1 30 A7 20 45 24 28 5A |...E(ZZ).0. E$(Z|
000025D0: 5A 29 B2 22 91 22 AA CA 28 C4 28 45 28 5A 5A 29 |Z)."."..(.(E(ZZ)|
000025E0: 29 2C 32 29 20 AA 22 11 22 20 3A 89 32 38 36 30 |),2) ."." :.2860|
000025F0: 00 0D 2E 22 0B 45 24 28 5A 5A 29 B2 22 91 22 AA |...".E$(ZZ).".".|
00002600: 20 C4 28 45 28 5A 5A 29 29 AA 22 11 22 00 13 2E | .(E(ZZ))."."...|
00002610: 2C 0B 82 00 19 2E 36 0B 8E 00 2F 2E 40 0B 81 5A |,.....6.../.@..Z|
00002620: 59 B2 31 A4 33 3A 54 28 5A 59 29 B2 30 3A 82 00 |Y.1.3:T(ZY).0:..|
00002630: 44 2E 4A 0B 81 5A 59 B2 31 A4 46 3A 81 5A 58 B2 |D.J..ZY.1.F:.ZX.|
00002640: 31 A4 4C 56 00 67 2E 54 0B 54 28 5A 59 29 B2 54 |1.LV.g.T.T(ZY).T|
00002650: 28 5A 59 29 AA 28 45 28 33 AC 28 5A 58 AB 31 29 |(ZY).(E(3.(ZX.1)|
00002660: AA 5A 59 29 29 AE 32 00 6F 2E 5E 0B 82 3A 82 00 |.ZY)).2.o.^..:..|
00002670: 7B 2E 68 0B 81 5A 5A B2 31 A4 33 00 92 2E 72 0B |{.h..ZZ.1.3...r.|
00002680: 43 28 5A 5A 29 B2 B5 28 31 37 AC BB 28 31 29 29 |C(ZZ)..(17..(1))|
00002690: AB 38 00 A4 2E 7C 0B 8B 43 28 5A 5A 29 B2 30 A7 |.8...|..C(ZZ).0.|
000026A0: 32 39 33 30 00 CC 2E 86 0B 8B 43 28 5A 5A 29 B2 |2930......C(ZZ).|
000026B0: 31 AF 54 28 5A 5A 29 B3 B1 30 20 A7 43 24 28 5A |1.T(ZZ)..0 .C$(Z|
000026C0: 5A 29 B2 22 20 22 3A 89 32 39 38 30 00 F6 2E 90 |Z)." ":.2980....|
000026D0: 0B 8B 43 28 5A 5A 29 B2 AB 31 AF 54 28 5A 5A 29 |..C(ZZ)..1.T(ZZ)|
000026E0: B3 B1 30 20 A7 43 24 28 5A 5A 29 B2 22 2D 20 22 |..0 .C$(ZZ)."- "|
000026F0: 3A 89 32 39 38 30 00 0A 2F 9A 0B 43 24 28 5A 5A |:.2980../..C$(ZZ|
00002700: 29 B2 C4 28 43 28 5A 5A 29 29 00 10 2F A4 0B 82 |)..(C(ZZ))../...|
00002710: 00 16 2F AE 0B 8E 00 24 2F B8 0B 43 41 B2 31 3A |../....$/..CA.1:|
00002720: 54 45 B2 30 00 3B 2F C2 0B 81 5A 5A B2 31 A4 33 |TE.0.;/...ZZ.1.3|
00002730: 3A 41 45 28 5A 5A 29 B2 30 3A 82 00 46 2F CC 0B |:AE(ZZ).0:..F/..|
00002740: 81 49 B2 31 A4 46 00 55 2F D6 0B 43 41 B2 43 41 |.I.1.F.U/..CA.CA|
00002750: AC 43 28 49 29 00 60 2F E0 0B 81 4A B2 31 A4 46 |.C(I).`/...J.1.F|
00002760: 00 7D 2F EA 0B 41 45 28 49 29 B2 41 45 28 49 29 |.}/..AE(I).AE(I)|
00002770: AA 45 28 33 AC 28 49 AB 31 29 AA 4A 29 00 84 2F |.E(3.(I.1).J)../|
00002780: F4 0B 82 4A 00 9E 2F FE 0B 54 45 B2 54 45 AA 28 |...J../..TE.TE.(|
00002790: 41 45 28 49 29 29 AC 28 41 45 28 49 29 29 00 BB |AE(I)).(AE(I))..|
000027A0: 2F 08 0C 8B 41 45 28 49 29 B2 31 A7 41 45 24 28 |/...AE(I).1.AE$(|
000027B0: 49 29 B2 22 22 3A 89 33 31 31 30 00 EB 2F 12 0C |I)."":.3110../..|
000027C0: 8B 41 45 28 49 29 B1 30 A7 41 45 24 28 49 29 B2 |.AE(I).0.AE$(I).|
000027D0: 22 91 22 AA CA 28 C4 28 41 45 28 49 29 29 2C 32 |"."..(.(AE(I)),2|
000027E0: 29 AA 22 11 22 3A 89 33 31 31 30 00 07 30 1C 0C |).".":.3110..0..|
000027F0: 41 45 24 28 49 29 B2 22 91 22 AA C4 28 41 45 28 |AE$(I)."."..(AE(|
00002800: 49 29 29 AA 22 11 22 00 0E 30 26 0C 82 49 00 14 |I))."."..0&..I..|
00002810: 30 30 0C 8E 00 27 30 3A 0C 99 22 20 3D 20 22 3B |00...'0:.." = ";|
00002820: 41 45 28 49 29 3A 99 00 2E 30 44 0C 82 49 00 00 |AE(I):...0D..I..|
00002830: 00 |. |
.......910.*.... ** ML STOP KEY DISABLE
**.U...."X.=........X` ......L4.X.1.....
...X`.T...."XHHH.H.HHHHHHH.H.HX`111"....
.."HHHHHHH`1"...... ** 4 - POP ML SUBROU
TINE **.H.... **GENERAL INPUT ROUTINE **
.N...:.T...:...#.. +++ INPUT SECTION +++
...(..UO,0:UR$."":UI$.""...*..UL.0.UL.80
.+.-.." ..";:.UC,0.?.2..UI$:.UI$."".50.
I.7..UI$.G(13).C(UR$)..1..UC,1:." .";:.8
5.|.<..UI$.G(20).105...>.. C(UR$)..UL.50
...A..120:. CHECK FOR VALID CHARACTER.E.
F.UR$.UR$.UI$.O.K..UI$;.W.P..50...U.. ++
+ CHECK FOR HELP REQUEST +++.$.Z..UR$.UX
$.195:. EXIT TO HELP ROUTINE.3._..UF.1..
240.@.D.UF.0:.:..Y.F.. ++ CHECK DELETE +
+.J.I..C(UR$).1.50...N.UR$.H(UR$,C(UR$).
1)...S..". ..";:.50...X.. ++ CHECK FOR
VALID CHARACTERS ++.M.}..C(US$).0.150...
...US.1.C(US$)......UI$.J(US$,US,1).....
........UI$."":..#.... ** STANDARD INPUT
**.4....F(UI$).46...E....UI$.G(32)...B.
..F(UI$).48.F(UI$).57.170.H..........F(
UI$).65.F(UI$).90.180............F(UI$).
193.F(UI$).218.UI$."":..R....B(UT).UU%.U
I$.G(F(UI$).128):..X.........UI$."":....
C.UF.1:. +++ HELP ROUTINE EXIT +++...E..
250...H..245.;.M..UQ.UB.(U2%.256.U1%.U3%
.2).W.R.UQ%(UQ.UB).B(UQ):.:.".".J.W.UZ.1
:UV%.B(UT).S.X..300...Y.UZ.0:US$.UJ$:UG$
.UK$:UP.UJ:UL.UK.O.Z..B(50003).0..53281,
1:.".";:.53281,6:.53280,14:.220.Y...."."
;.....UT$.UL$:.UT,UV%:.UQ.UB.(U2%.256.U1
%.U3%.3)......UQ,UQ%(UQ.UB):..)....U1,U1
%.5....U2,U2%.A....U4,U4%.O....U3,U3%.1.
W....35.....UD%.((U2%.256.U1%.U3%).UB).4
0:.H(UD$,UD%.1):..D....H(UD$,24);"
. HELP COMING . ":.....
.U1%.B(U1):U2%.B(U2):U3%.B(U3):U4%.B(U4)
.....UJ$.US$:UK$.UG$:UL$.UT$:UJ.UP:UK.UL
......./.,.. ** MENU **.5.-.:.D....".":.
UT,UU%:.B(50003).0..53281,9:.53280,8.J./
.:...1..". MENU"...6.." -
-------------------------------------"..
.;..".. 1. BEGIN MONOMIAL MULTIPLIC
ATION"...@..".. 2. STUDENT INSTRUCT
IONS".4.E..".. 3. TEACHER INSTRUCTI
ONS".M.O..".. 4. QUIT..".|.T.." ---
-----------------------------------"...Y
..".. PRESS A NUMBER KEY (1-4) ";.
O.^.UL.1:US$."1234":.35:. INPUT ROUTINE.
Z.`.US$.""...C..E(UR$).1000,400,500,396.
..H..300.'.... ** RE-ENABLE STOP KEY AND
END **.V....B(50003)..1.B(50003)..160.B
(50003)..0.399......UU.71:.B(50003).0..5
3281,6:.53280,14......"..":.......875:..
..... ** STUDENT INSTRUCTIONS **......".
":.UT,UL%:.B(50003).0..53281,0:.53280,0.
....UP.0:UG$."STUDENT INST":.850.8...:
.". REMEMBER, HIT <RETURN> KEY AFTER"
.E...: .". TYPING YOUR ANSWER. THIS T
ELLS"... .: .". THE COMPUTER TO ACCEP
T WHAT YOU".....: .". HAVE TYPED."...
..: .". TYPE SHIFTED <Q> AT ANY TIME
TO".....: .". QUIT DOING QUESTIONS A
ND RETURN TO".(...: .". THE MENU. "
.V....". TO SKIP A QUESTION, ENTER SH
IFTED".V....". <S> FOR YOUR ANSWER."..
...: .835:.850......". THIS PROGRAM GIVE
S PRACTICE IN MULTI-"......". PLYING TWO
OR THREE MONOMIAL FACTORS"......". WITH
EXPONENTS. IN THE MULTIPLICATION".B....
". QUESTIONS WHICH FOLLOW,THERE ARE THRE
E".P....". LEVELS OF DIFFICULTY TO CHOOS
E FROM.". ....". ENTER YOUR COMPLETE ANS
WER IN THE SAME".T....". WAY THAT YOU WO
ULD WRITE IT ON PAPER.":.835......UZ.1..
UP%:.217............ ** TEACHER INSTRUCT
IONS **.?....".":.UT,UL%:.B(50003).0..53
281,2:.53280,10.`...UP.0:UG$."TEACHER IN
ST":.850......".. TO THE BEST OF OU
R KNOWLEDGE,."......" THIS PROGRAM IS
IN THE PUBLIC."......" DOMAIN. IF THI
S IS NOT THE CASE."......" PLEASE CONT
ACT:...".*...." COMMODORE BUSINESS
MACHINES.".M...." 3370 PHARMACY
AVE..Q...." AGINCOURT, ONTARIO
"......" CANADA M1W 2K4".....
." (416) 499-4292".I...UP.1:. 8
35:. 850:......" ..PROGRAM NAME: MONOMIA
L MULTIPLICATION.".!...." WRITTEN BY :
J. B. NICHOLSON ..A...." UPGRADED BY :
..L...." .THIS PROGRAM WILL
RUN ON ANY........" PET 64 COMPU
TER......" COMMODORE 64 COMPUTER
......835.M.N..UZ.1..UP%:.217.S.W.....X.
. ** PROGRAM MODIFICATION INST **...Y.."
.":.UT,UL%.*.].UP.0:UG$."PROGRAM MOD":.8
50.3....835.G....UZ.1..UP%:.217.M.....R.
... ** TO USE 8032 LOAD CBM4032 **...F..
".....BEFORE RUNNING THIS PROGRAM ON AN
8032 .....P.." LOAD THE 'CBM 4032'
PROGRAM............."...Z..UU.71.......
.. .. ** T I T L E P A G E **.C.".."..
..";:.UT,UU%:.B(50003).0..53280,14:.5328
1,6.Y.$..I.1.38:."...";:..Q.&..I.1.22:."
.....";:....(..I.1.37:.".....";:....*..I
.1.22:.".....";:..F.,.."................
........... ......."...................
. . .....0.."................... . ..
..'.2..".................... ..O.4.."..
............C O M M O D O R E...R.6.."..
.............EDUCATIONAL.....8..".......
.........SOFTWARE...:.. ** COMMODORE LOG
O **...;..H(UD$,24);"..........PRESS SPA
CE BAR OR WAIT.":I.0...<..A$:.A$.." ".I.
I.1:.I.250.828.*.>.T1$."":T2$."":T3$."":
T4$."":I.0.3.@..300.O.C.. ** SPACE BAR P
RESS **...H..UO,0:.H(UD$,24);"... .PRE
SS SPACE BAR TO CONTINUE. "...L..UI$:
.UI$.." ".844...N...K.R.. ** PAGE DESIGN
ROUTINE **.W.T.UP.UP.1...W.."."H(UT$.UP
$,21);I(UP$.UG$.D(UP),18).0.\.." -------
-------------------------------".?.`..UH
..0.870.Q.A..H(UD$,24);H(UP$,7);"QUIT -
PRESS SHIFTED Q "...F.UH.0:."..":....K..
** PLEASE WAIT REMARK **.W.P..H(UD$,24)
;" ONE MOMENT PLEASE... ".
..U........ ** SET UP VARIABLES **.E...U
X$."H":.UQ%(1000):UB.32768:U1.196:U2.197
:U3.198:U4.216:UC.167:UU.1024.....UT.594
68:UU%.12:UL%.14:UP%.1146:UM.32768:UO.15
8:. 50003,0.F....B(50003).0.UB.1024:U1.2
09:U2.210:U3.211:U4.214:UC.204:UU.2048..
....B(50003).0.UT.53272:UU%.21:UL%.23:UP
%.2139:UM.1024:UO.198.)...UD$.".........
................".[...UP$."
".....UT$." MO
NOMIAL MULT. ":. PLACE PROGRAM TITLE
HERE !!!!!!!!!!!!!!!!!***.......I.... **
SET VARIABLES **.R....900...... ** CHEC
K FOR 8032 **......".":." ":. SHIFTED SP
ACE."....B(UB.40)..96..700.;.... ** MEMO
RY CHECK **.O.... .(0).2000.937.}...."..
..THIS MACHINE DOES NOT HAVE ENOUGH."...
..."MEMORY TO RUN THIS PROGRAM !"......U
U.71.......L...."..":.B(50003).0.962....
.. ** BASIC 2.0 OR 4.0 OR C-64 SETUP
**.9....1075,133:.1076,144:.1077,234:.1
079,4:.1080,133:.1081,145.O....1091,155:
.1098,133:.1099,144:.1100,234:.1103,133.
.....1104,145:.1105,234:.1082,234......B
(50003)..160.955.W....1093,88:.1094,228:
.1097,85:.1102,228:.965......B(50003)..1
.990.. ...1093,49:.1094,230:.1097,46:.11
02,230:.965.U 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.K 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.;!...".THE PGM WILL NOT WORK
ON THIS MACHINE!":..P!...UZ.1..UP%:.UP%:
UZ.0:. ** PROGRAM STARTS HERE **..!...".
.";:.:.B(50003).0..53281,6:.53280,6..!..
.UT,UL%.J!..DN$.".......................
."..!$.BL$."
".%"..B1$.".. . . . . . . . .
. . . . . .".N"8.B2$.".
".}"B.B3$."..
.":.1170.."L..".....":..5)B
1$.."V..I.1.5:..5)B2$:..5)B3$:..O"`...5)
B2$:..5)B1$:."........".."J...14)".MULTI
PLYING.."..#T...15)".MONOMIALS.."..#~...
11)".BY J.B. NICHOLSON"./#...I.1.1500:..
M#..UG$."":UP.0:UH.1:.850:H.0.~#..."...
WHAT LEVEL OF DIFFICULTY DO YOU WANT?"..
#...". (1 EASY, 2 AVERAGE, AND 3 HARD) "
;..#N..2030:LV.E(Y$)..#...".. ARE NEGATI
VE EXPONENTS OK? ";:.2040..$...Y$."Y".NG
.2:.1320..$..NG.1..$(..H.0.1390..$Z.H.1.
-$N..835:NQ.0.G$X.UG$."QUESTION #":NQ.NQ
.1:UP.NQ.1:.850:.". SIMPLIFY:.".Y$...NG.
2750,2810..$...LV.3.F.3:.1440..$..F.2..$
..2680:.2880..$...:.I.1.F.C$..."["; C$(
I);.O$...J.1.LV..$H..E(I.(J.1).3).0 .150
0..%R..B$(J);E$(I.(J.1).3);..%...J..%...
"]";..%...I :..7%..D.1: Q$."..= ":.2170.
M%...D.1550,1400,1970.W%...3000.`%..WC.0
.T%"..SE(0)..CA.WC.1..%,..I.1.LV..%6.L(I
).0:W(I).0..%@..J.1.LV..%J..B$(I).SB$(J)
.L(I).J:J.LV.C%T..J.J%^..I.V%H..I.1.LV..
%R..L(I).0.1680..&|..AE(I).SE(L(I)).1700
..&..W(I).1:.1700.#&...AE(I).0.1700..&..
W(I).1.5&...I.`&...WC.W(1).W(2).W(3).0..
"..RIGHT!":.1950..&..."..
":." CORRECT ANSW
ER:=";..&B..CA.1.TE..0 .1760..&L..CA..1
.TE..0 .."- ";:.1760..&V..D(CA);..&...I
.1.LV..'...AE(I).0.1790..'...B$(I);AE$(I
);. '....)'... :..<'..."COEFFICIENT".M'.
.."=";:.I.1.F.`'&.."[";C(I);"]";.F'0...V
':.." = ";CA:...'D..I.1.LV..'N.."EXPONEN
T OF BASE ";B$(I):."= ";..'X..J.1.F.N'B.
."[";E(3.(I.1).J);"]";..'L..J.F .." + "
;..'V..J..'..." = ";AE(I);. (...AE(I).0.
."AND ";B$(I);".0. = 1";.+(...:.:.I.4(..
.835.>(...1400.S(...835:.:.900:.300.L(..
US$."123":UL.1:.2050.~(..US$."YN":UL.1..
(...35:Y$.UR$:...(Z..Z$:.Z$.."".2170..(.
..Q$;.I(..Y$."":P$."":TC.0:."..";..(...Z
$:.Z$."".2200..(...Z$."S". D.2:.Z$:.2550
..)...Z$."Q".D.3:.Z$:.UP%:.300.")..Z.F(Z
$).1)...Z.13.2410.G)J..Z.20.Z.157 .2290.
{)T.. Z.64.Z.91 .P$.P$."D":TC.1:.Z$;:Y$.
Y$.Z$:.2200..)...Z.43.(Z.44.Z.58.Z..47).
2390..)...2200..)...Y$."".2200.P)...C(Y$
)..1..".";:.2190..*..Y$.H(Y$,C(Y$).1):R$
.I(P$,1) :P$.H(P$,C(P$).1)..*...R$."U".
.".. ..";:.2340.+*...". .";.K*$..ZZ.1.C(
Y$):T.F(J(Y$,ZZ,1)).B*...T. 65 .TC.0:.23
70.U*8.TC.1: ZZ.C(Y$).{*B....*L..2200..*
V..TC.0.P$.P$."D":.Z$;:Y$.Y$.Z$:.2200.W*
`.P$.P$."U":.".".Z$.".";:Y$.Y$.Z$:.2200.
.*J....*T.TC.0:ZE.0:ZB.1..+~..ZZ.0. 9:SE
$(ZZ)."": ..$+...ZZ.1.3:SB$(ZZ)."":..4+.
..Y$."".2500.V+..L$.H(Y$,1):T.F(L$):Y$.J
(Y$,2).|+...T.65.TC.0.SE$(0).SE$(0).L$:.
2450..+...T.65.SE$(ZE).SE$(ZE).L$:.2450.
I+..SB$(ZB).L$:TC.1:ZB.ZB.1:ZE.ZE.1:.245
0..+D..ZZ.0. 9:SE(ZZ). E(SE$(ZZ))..,N..S
E$(ZZ)."".SE(ZZ).1..,X...*,...SE$(0)."".
SE$(0)."+".SE(0).1.C,...SE$(0)."-".SE(0)
..1.I,....],Z.T..(26..(1)).65..,D..T.69.
T.72.T.73.T.76.T.79.T.88.T.83.2650..,N..
..,X..2650:B(1).T..,...2650:.T.B(1).2690
.C,..B(2).T..,...2650:.T.B(1).T.B(2).271
0.., .B(3).T..-...ZZ.1.3:B$(ZZ).G(B(ZZ))
:...-.....-...ZZ.1. 9.2-H.E(ZZ)..(10..(1
)).O-R..E(ZZ).1.E$(ZZ)."":.2790.P-..E$(Z
Z).".".J(D(E(ZZ)),2).".".V-....|-.....-.
..ZZ.1. 9. -..E(ZZ)..(19..(1)).9..-...E(
ZZ).1.E$(ZZ)."":.2860..-...E(ZZ).0. E$(Z
Z).".".J(D(E(ZZ)),2) ."." :.2860...".E$(
ZZ).".". D(E(ZZ))."."...,.....6.../.@..Z
Y.1.3:T(ZY).0:..D.J..ZY.1.F:.ZX.1.LV.G.T
.T(ZY).T(ZY).(E(3.(ZX.1).ZY)).2.O.^..:..
{.H..ZZ.1.3...R.C(ZZ)..(17..(1)).8...|..
C(ZZ).0.2930.L....C(ZZ).1.T(ZZ)..0 .C$(Z
Z)." ":.2980......C(ZZ)..1.T(ZZ)..0 .C$(
ZZ)."- ":.2980../..C$(ZZ).D(C(ZZ))../...
../....$/..CA.1:TE.0.;/B..ZZ.1.3:AE(ZZ).
0:..F/L..I.1.F.U/V.CA.CA.C(I).`/...J.1.F
.}/..AE(I).AE(I).E(3.(I.1).J)../...J../.
.TE.TE.(AE(I)).(AE(I))../...AE(I).1.AE$(
I)."":.3110../...AE(I).0.AE$(I).".".J(D(
AE(I)),2).".":.3110..0..AE$(I).".".D(AE(
I))."."..0&..I..00...'0:.." = ";AE(I):..
.0D..I...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL