MONOMIAL MULT.
FILE INFORMATION
FILENAME(S): MONOMIAL MULT.
FILE TYPE(S): PRG
FILE SIZE: 10.1K
FIRST SEEN: 2025-12-02 00:17:26
APPEARS ON: 1 disk(s)
FILE HASH
c442b006d9f080082f11ac26f58cc33dd34ec340895f8d9e7e21e42613b720c3
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PUB DOMAIN | MONOMIAL MULT. | PRG | Maestro | 7 | 2 | 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 85 90 EA A9 04 85 91 EA 58 60 20 EA |"x.=........X` .|
00000040: FF A9 FF 85 9B 4C 58 E4 78 A9 55 85 90 EA A9 E4 |.....LX.x.U.....|
00000050: 85 91 EA 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 30 2C 30 3A 55 52 24 B2 22 |...(..U0,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 22 09 2D 00 97 55 43 |.0.UL.80.".-..UC|
00000120: 2C 30 00 36 09 32 00 A1 55 49 24 3A 8B 55 49 24 |,0.6.2..UI$:.UI$|
00000130: B2 22 22 A7 35 30 00 60 09 37 00 8B 55 49 24 B2 |."".50.`.7..UI$.|
00000140: C7 28 31 33 29 AF C3 28 55 52 24 29 B1 B2 31 A7 |.(13)..(UR$)..1.|
00000150: 97 55 43 2C 31 3A 99 22 20 9D 22 3B 3A 89 38 35 |.UC,1:." .";:.85|
00000160: 00 73 09 3C 00 8B 55 49 24 B2 C7 28 32 30 29 A7 |.s.<..UI$..(20).|
00000170: 31 30 35 00 87 09 3E 00 8B 20 C3 28 55 52 24 29 |105...>.. .(UR$)|
00000180: B2 B1 55 4C A7 35 30 00 AC 09 41 00 8D 31 32 30 |..UL.50...A..120|
00000190: 3A 8F 20 43 48 45 43 4B 20 46 4F 52 20 56 41 4C |:. CHECK FOR VAL|
000001A0: 49 44 20 43 48 41 52 41 43 54 45 52 00 BC 09 46 |ID CHARACTER...F|
000001B0: 00 55 52 24 B2 55 52 24 AA 55 49 24 00 C6 09 4B |.UR$.UR$.UI$...K|
000001C0: 00 99 55 49 24 3B 00 CE 09 50 00 89 35 30 00 F3 |..UI$;...P..50..|
000001D0: 09 55 00 8F 20 2B 2B 2B 20 43 48 45 43 4B 20 46 |.U.. +++ CHECK F|
000001E0: 4F 52 20 48 45 4C 50 20 52 45 51 55 45 53 54 20 |OR HELP REQUEST |
000001F0: 2B 2B 2B 00 1B 0A 5A 00 8B 55 52 24 B2 55 58 24 |+++...Z..UR$.UX$|
00000200: A7 31 39 35 3A 8F 20 45 58 49 54 20 54 4F 20 48 |.195:. EXIT TO H|
00000210: 45 4C 50 20 52 4F 55 54 49 4E 45 00 2A 0A 5F 00 |ELP ROUTINE.*._.|
00000220: 8B 55 46 B2 31 A7 8D 32 34 30 00 37 0A 64 00 55 |.UF.1..240.7.d.U|
00000230: 46 B2 30 3A 99 3A 8E 00 50 0A 66 00 8F 20 2B 2B |F.0:.:..P.f.. ++|
00000240: 20 43 48 45 43 4B 20 44 45 4C 45 54 45 20 2B 2B | CHECK DELETE ++|
00000250: 00 61 0A 69 00 8B C3 28 55 52 24 29 B3 31 A7 35 |.a.i...(UR$).1.5|
00000260: 30 00 79 0A 6E 00 55 52 24 B2 C8 28 55 52 24 2C |0.y.n.UR$..(UR$,|
00000270: C3 28 55 52 24 29 AB 31 29 00 8B 0A 73 00 99 22 |.(UR$).1)...s.."|
00000280: 9D 20 20 9D 9D 22 3B 3A 89 35 30 00 B2 0A 78 00 |. ..";:.50...x.|
00000290: 8F 20 2B 2B 20 43 48 45 43 4B 20 46 4F 52 20 56 |. ++ CHECK FOR V|
000002A0: 41 4C 49 44 20 43 48 41 52 41 43 54 45 52 53 20 |ALID CHARACTERS |
000002B0: 2B 2B 00 C4 0A 7D 00 8B C3 28 55 53 24 29 B2 30 |++...}...(US$).0|
000002C0: A7 31 35 30 00 D5 0A 82 00 81 55 53 B2 31 A4 C3 |.150......US.1..|
000002D0: 28 55 53 24 29 00 EC 0A 87 00 8B 55 49 24 B2 CA |(US$)......UI$..|
000002E0: 28 55 53 24 2C 55 53 2C 31 29 A7 8E 00 F2 0A 8C |(US$,US,1)......|
000002F0: 00 82 00 FF 0A 91 00 55 49 24 B2 22 22 3A 8E 00 |.......UI$."":..|
00000300: 1A 0B 96 00 8F 20 2A 2A 20 53 54 41 4E 44 41 52 |..... ** STANDAR|
00000310: 44 20 49 4E 50 55 54 20 2A 2A 00 2B 0B 98 00 8B |D INPUT **.+....|
00000320: C6 28 55 49 24 29 B2 34 36 A7 8E 00 3C 0B 9B 00 |.(UI$).46...<...|
00000330: 8B 55 49 24 B2 C7 28 33 32 29 A7 8E 00 59 0B A0 |.UI$..(32)...Y..|
00000340: 00 8B C6 28 55 49 24 29 B3 34 38 B0 C6 28 55 49 |...(UI$).48..(UI|
00000350: 24 29 B1 35 37 A7 31 37 30 00 5F 0B A5 00 8E 00 |$).57.170._.....|
00000360: 7C 0B AA 00 8B C6 28 55 49 24 29 B3 36 35 B0 C6 ||.....(UI$).65..|
00000370: 28 55 49 24 29 B1 39 30 A7 31 38 30 00 82 0B AF |(UI$).90.180....|
00000380: 00 8E 00 A6 0B B4 00 8B C6 28 55 49 24 29 B3 31 |.........(UI$).1|
00000390: 39 33 B0 C6 28 55 49 24 29 B1 32 31 38 A7 55 49 |93..(UI$).218.UI|
000003A0: 24 B2 22 22 3A 8E 00 C9 0B B9 00 8B C2 28 55 54 |$."":........(UT|
000003B0: 29 B2 55 55 25 A7 55 49 24 B2 C7 28 C6 28 55 49 |).UU%.UI$..(.(UI|
000003C0: 24 29 AB 31 32 38 29 3A 8E 00 CF 0B BB 00 8E 00 |$).128):........|
000003D0: DC 0B BE 00 55 49 24 B2 22 22 3A 8E 00 01 0C C3 |....UI$."":.....|
000003E0: 00 55 46 B2 31 3A 8F 20 2B 2B 2B 20 48 45 4C 50 |.UF.1:. +++ HELP|
000003F0: 20 52 4F 55 54 49 4E 45 20 45 58 49 54 20 2B 2B | ROUTINE EXIT ++|
00000400: 2B 00 0A 0C C5 00 8D 32 35 30 00 13 0C C8 00 8D |+......250......|
00000410: 32 34 35 00 32 0C CD 00 81 55 51 B2 55 42 A4 28 |245.2....UQ.UB.(|
00000420: 55 32 25 AC 32 35 36 AA 55 31 25 AA 55 33 25 AB |U2%.256.U1%.U3%.|
00000430: 32 29 00 4E 0C D2 00 55 51 25 28 55 51 AB 55 42 |2).N...UQ%(UQ.UB|
00000440: 29 B2 C2 28 55 51 29 3A 82 3A 99 22 93 22 00 61 |)..(UQ):.:.".".a|
00000450: 0C D7 00 55 5A B2 31 3A 55 56 25 B2 C2 28 55 54 |...UZ.1:UV%..(UT|
00000460: 29 00 6A 0C D8 00 89 33 30 30 00 AE 0C D9 00 55 |).j....300.....U|
00000470: 5A B2 30 3A 55 53 24 B2 55 4A 24 3A 55 47 24 B2 |Z.0:US$.UJ$:UG$.|
00000480: 55 4B 24 3A 55 50 B2 55 4A 3A 55 4C B2 55 4B 3A |UK$:UP.UJ:UL.UK:|
00000490: 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 |..(50003).0..532|
000004A0: 38 31 2C 36 3A 97 35 33 32 38 30 2C 31 34 00 E3 |81,6:.53280,14..|
000004B0: 0C DC 00 55 54 24 B2 55 4C 24 3A 99 22 93 22 3B |...UT$.UL$:.".";|
000004C0: 3A 97 55 54 2C 55 56 25 3A 81 55 51 B2 55 42 A4 |:.UT,UV%:.UQ.UB.|
000004D0: 28 55 32 25 AC 32 35 36 AA 55 31 25 AA 55 33 25 |(U2%.256.U1%.U3%|
000004E0: AB 33 29 00 F8 0C E1 00 97 55 51 2C 55 51 25 28 |.3)......UQ,UQ%(|
000004F0: 55 51 AB 55 42 29 3A 82 00 04 0D E6 00 97 55 31 |UQ.UB):.......U1|
00000500: 2C 55 31 25 00 10 0D E8 00 97 55 32 2C 55 32 25 |,U1%......U2,U2%|
00000510: 00 1C 0D E9 00 97 55 34 2C 55 34 25 00 2A 0D EA |......U4,U4%.*..|
00000520: 00 97 55 33 2C 55 33 25 AB 31 00 32 0D EB 00 89 |..U3,U3%.1.2....|
00000530: 33 35 00 64 0D F0 00 55 44 25 B2 28 28 55 32 25 |35.d...UD%.((U2%|
00000540: AC 32 35 36 AA 55 31 25 AA 55 33 25 29 AB 55 42 |.256.U1%.U3%).UB|
00000550: 29 AD 34 30 3A 99 C8 28 55 44 24 2C 55 44 25 AA |).40:..(UD$,UD%.|
00000560: 31 29 3A 8E 00 9F 0D F5 00 99 C8 28 55 44 24 2C |1):........(UD$,|
00000570: 32 34 29 3B 22 20 20 20 20 20 20 20 20 20 20 20 |24);" |
00000580: 20 20 20 20 20 20 20 20 20 20 20 12 20 48 45 4C | . HEL|
00000590: 50 20 43 4F 4D 49 4E 47 20 92 20 20 22 3A 8E 00 |P COMING . ":..|
000005A0: CB 0D FA 00 55 31 25 B2 C2 28 55 31 29 3A 55 32 |....U1%..(U1):U2|
000005B0: 25 B2 C2 28 55 32 29 3A 55 33 25 B2 C2 28 55 33 |%..(U2):U3%..(U3|
000005C0: 29 3A 55 34 25 B2 C2 28 55 34 29 00 F3 0D FB 00 |):U4%..(U4).....|
000005D0: 55 4A 24 B2 55 53 24 3A 55 4B 24 B2 55 47 24 3A |UJ$.US$:UK$.UG$:|
000005E0: 55 4C 24 B2 55 54 24 3A 55 4A B2 55 50 3A 55 4B |UL$.UT$:UJ.UP:UK|
000005F0: B2 55 4C 00 F9 0D FF 00 8E 00 0A 0E 2C 01 8F 20 |.UL.........,.. |
00000600: 2A 2A 20 4D 45 4E 55 20 2A 2A 00 10 0E 2D 01 3A |** MENU **...-.:|
00000610: 00 3F 0E 2E 01 99 22 93 22 3A 97 55 54 2C 55 55 |.?....".":.UT,UU|
00000620: 25 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 |%:..(50003).0..5|
00000630: 33 32 38 31 2C 39 3A 97 35 33 32 38 30 2C 38 00 |3281,9:.53280,8.|
00000640: 45 0E 2F 01 3A 00 62 0E 31 01 99 22 13 20 20 20 |E./.:.b.1..". |
00000650: 20 20 20 20 20 20 20 20 20 20 20 20 20 4D 45 4E | MEN|
00000660: 55 22 00 91 0E 36 01 99 22 20 2D 2D 2D 2D 2D 2D |U"...6.." ------|
00000670: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000680: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000690: 22 00 C1 0E 3B 01 99 22 11 11 20 20 20 20 31 2E |"...;..".. 1.|
000006A0: 20 20 20 42 45 47 49 4E 20 4D 4F 4E 4F 4D 49 41 | BEGIN MONOMIA|
000006B0: 4C 20 4D 55 4C 54 49 50 4C 49 43 41 54 49 4F 4E |L MULTIPLICATION|
000006C0: 22 00 E8 0E 40 01 99 22 11 11 20 20 20 20 32 2E |"...@..".. 2.|
000006D0: 20 20 20 53 54 55 44 45 4E 54 20 49 4E 53 54 52 | STUDENT INSTR|
000006E0: 55 43 54 49 4F 4E 53 22 00 0F 0F 45 01 99 22 11 |UCTIONS"...E..".|
000006F0: 11 20 20 20 20 33 2E 20 20 20 54 45 41 43 48 45 |. 3. TEACHE|
00000700: 52 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 22 00 |R INSTRUCTIONS".|
00000710: 28 0F 4F 01 99 22 11 11 20 20 20 20 34 2E 20 20 |(.O..".. 4. |
00000720: 20 51 55 49 54 11 11 22 00 57 0F 54 01 99 22 20 | QUIT..".W.T.." |
00000730: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000740: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000750: 2D 2D 2D 2D 2D 2D 22 00 82 0F 59 01 99 22 11 11 |------"...Y.."..|
00000760: 20 20 20 20 20 20 20 50 52 45 53 53 20 41 20 4E | PRESS A N|
00000770: 55 4D 42 45 52 20 4B 45 59 20 28 31 2D 34 29 20 |UMBER KEY (1-4) |
00000780: 22 3B 00 AA 0F 5E 01 55 4C B2 31 3A 55 53 24 B2 |";...^.UL.1:US$.|
00000790: 22 31 32 33 34 22 3A 8D 33 35 3A 8F 20 49 4E 50 |"1234":.35:. INP|
000007A0: 55 54 20 52 4F 55 54 49 4E 45 00 B5 0F 60 01 55 |UT ROUTINE...`.U|
000007B0: 53 24 B2 22 22 00 D2 0F 63 01 91 C5 28 55 52 24 |S$.""...c...(UR$|
000007C0: 29 8D 31 30 30 30 2C 34 30 30 2C 35 30 30 2C 33 |).1000,400,500,3|
000007D0: 39 36 00 DB 0F 68 01 89 33 30 30 00 02 10 8B 01 |96...h..300.....|
000007E0: 8F 20 2A 2A 20 52 45 2D 45 4E 41 42 4C 45 20 53 |. ** RE-ENABLE S|
000007F0: 54 4F 50 20 4B 45 59 20 41 4E 44 20 45 4E 44 20 |TOP KEY AND END |
00000800: 2A 2A 00 31 10 8C 01 8B C2 28 35 30 30 30 33 29 |**.1.....(50003)|
00000810: B3 B1 31 AF C2 28 35 30 30 30 33 29 B3 B1 31 36 |..1..(50003)..16|
00000820: 30 AF C2 28 35 30 30 30 33 29 B3 B1 30 A7 33 39 |0..(50003)..0.39|
00000830: 39 00 5B 10 8D 01 9E 55 55 AA 37 31 3A 8B C2 28 |9.[....UU.71:..(|
00000840: 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C |50003).0..53281,|
00000850: 36 3A 97 35 33 32 38 30 2C 31 34 00 67 10 8E 01 |6:.53280,14.g...|
00000860: 99 22 9A 93 22 3A 80 00 72 10 8F 01 8D 38 37 35 |."..":..r....875|
00000870: 3A 8E 00 93 10 90 01 8F 20 2A 2A 20 53 54 55 44 |:....... ** STUD|
00000880: 45 4E 54 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 |ENT INSTRUCTIONS|
00000890: 20 2A 2A 00 C2 10 95 01 99 22 93 22 3A 97 55 54 | **......".":.UT|
000008A0: 2C 55 4C 25 3A 8B C2 28 35 30 30 30 33 29 B2 30 |,UL%:..(50003).0|
000008B0: A7 97 35 33 32 38 31 2C 30 3A 97 35 33 32 38 30 |..53281,0:.53280|
000008C0: 2C 30 00 E3 10 9A 01 55 50 B2 30 3A 55 47 24 B2 |,0.....UP.0:UG$.|
000008D0: 22 D3 54 55 44 45 4E 54 20 C9 4E 53 54 22 3A 8D |".TUDENT .NST":.|
000008E0: 38 35 30 00 13 11 9C 01 3A 20 20 99 22 11 20 20 |850.....: .". |
000008F0: 20 20 D2 45 4D 45 4D 42 45 52 2C 20 48 49 54 20 | .EMEMBER, HIT |
00000900: 3C 52 45 54 55 52 4E 3E 20 4B 45 59 20 41 46 54 |<RETURN> KEY AFT|
00000910: 45 52 22 00 40 11 9E 01 3A 20 20 99 22 11 20 20 |ER".@...: .". |
00000920: 20 54 59 50 49 4E 47 20 59 4F 55 52 20 41 4E 53 | TYPING YOUR ANS|
00000930: 57 45 52 2E 20 D4 48 49 53 20 54 45 4C 4C 53 22 |WER. .HIS TELLS"|
00000940: 00 6E 11 A0 01 3A 20 20 99 22 11 20 20 20 54 48 |.n...: .". TH|
00000950: 45 20 43 4F 4D 50 55 54 45 52 20 54 4F 20 41 43 |E COMPUTER TO AC|
00000960: 43 45 50 54 20 57 48 41 54 20 59 4F 55 22 00 88 |CEPT WHAT YOU"..|
00000970: 11 A2 01 3A 20 20 99 22 11 20 20 20 48 41 56 45 |...: .". HAVE|
00000980: 20 54 59 50 45 44 2E 22 00 B7 11 A4 01 3A 20 20 | TYPED.".....: |
00000990: 99 22 11 20 20 20 20 D4 59 50 45 20 53 48 49 46 |.". .YPE SHIF|
000009A0: 54 45 44 20 3C 51 3E 20 41 54 20 41 4E 59 20 54 |TED <Q> AT ANY T|
000009B0: 49 4D 45 20 54 4F 22 00 E8 11 A6 01 3A 20 20 99 |IME TO".....: .|
000009C0: 22 11 20 20 20 51 55 49 54 20 44 4F 49 4E 47 20 |". QUIT DOING |
000009D0: 51 55 45 53 54 49 4F 4E 53 20 41 4E 44 20 52 45 |QUESTIONS AND RE|
000009E0: 54 55 52 4E 20 54 4F 22 00 03 12 A8 01 3A 20 20 |TURN TO".....: |
000009F0: 99 22 11 20 20 20 54 48 45 20 4D 45 4E 55 2E 20 |.". THE MENU. |
00000A00: 20 20 22 00 31 12 AA 01 99 22 11 20 20 20 20 D4 | ".1....". .|
00000A10: 4F 20 53 4B 49 50 20 41 20 51 55 45 53 54 49 4F |O SKIP A QUESTIO|
00000A20: 4E 2C 20 45 4E 54 45 52 20 53 48 49 46 54 45 44 |N, ENTER SHIFTED|
00000A30: 22 00 51 12 AC 01 99 22 11 20 20 20 3C 53 3E 20 |".Q....". <S> |
00000A40: 46 4F 52 20 59 4F 55 52 20 41 4E 53 57 45 52 2E |FOR YOUR ANSWER.|
00000A50: 22 00 61 12 B1 01 3A 20 8D 38 33 35 3A 8D 38 35 |".a...: .835:.85|
00000A60: 30 00 90 12 B8 01 99 22 11 20 D4 48 49 53 20 50 |0......". .HIS P|
00000A70: 52 4F 47 52 41 4D 20 47 49 56 45 53 20 50 52 41 |ROGRAM GIVES PRA|
00000A80: 43 54 49 43 45 20 49 4E 20 4D 55 4C 54 49 2D 22 |CTICE IN MULTI-"|
00000A90: 00 BE 12 B9 01 99 22 11 20 50 4C 59 49 4E 47 20 |......". PLYING |
00000AA0: 54 57 4F 20 4F 52 20 54 48 52 45 45 20 4D 4F 4E |TWO OR THREE MON|
00000AB0: 4F 4D 49 41 4C 20 46 41 43 54 4F 52 53 22 00 ED |OMIAL FACTORS"..|
00000AC0: 12 BA 01 99 22 11 20 57 49 54 48 20 45 58 50 4F |....". WITH EXPO|
00000AD0: 4E 45 4E 54 53 2E 20 C9 4E 20 54 48 45 20 4D 55 |NENTS. .N THE MU|
00000AE0: 4C 54 49 50 4C 49 43 41 54 49 4F 4E 22 00 1D 13 |LTIPLICATION"...|
00000AF0: BB 01 99 22 11 20 51 55 45 53 54 49 4F 4E 53 20 |...". QUESTIONS |
00000B00: 57 48 49 43 48 20 46 4F 4C 4C 4F 57 2C 54 48 45 |WHICH FOLLOW,THE|
00000B10: 52 45 20 41 52 45 20 54 48 52 45 45 22 00 4B 13 |RE ARE THREE".K.|
00000B20: BC 01 99 22 11 20 4C 45 56 45 4C 53 20 4F 46 20 |...". LEVELS OF |
00000B30: 44 49 46 46 49 43 55 4C 54 59 20 54 4F 20 43 48 |DIFFICULTY TO CH|
00000B40: 4F 4F 53 45 20 46 52 4F 4D 2E 22 00 7B 13 BD 01 |OOSE FROM.".{...|
00000B50: 99 22 11 20 C5 4E 54 45 52 20 59 4F 55 52 20 43 |.". .NTER YOUR C|
00000B60: 4F 4D 50 4C 45 54 45 20 41 4E 53 57 45 52 20 49 |OMPLETE ANSWER I|
00000B70: 4E 20 54 48 45 20 53 41 4D 45 22 00 AF 13 BE 01 |N THE SAME".....|
00000B80: 99 22 11 20 57 41 59 20 54 48 41 54 20 59 4F 55 |.". WAY THAT YOU|
00000B90: 20 57 4F 55 4C 44 20 57 52 49 54 45 20 49 54 20 | WOULD WRITE IT |
00000BA0: 4F 4E 20 50 41 50 45 52 2E 22 3A 8D 38 33 35 00 |ON PAPER.":.835.|
00000BB0: C3 13 EA 01 8B 55 5A B2 31 A7 9E 55 50 25 3A 89 |.....UZ.1..UP%:.|
00000BC0: 32 31 37 00 C9 13 F3 01 8E 00 EA 13 F4 01 8F 20 |217............ |
00000BD0: 2A 2A 20 54 45 41 43 48 45 52 20 49 4E 53 54 52 |** TEACHER INSTR|
00000BE0: 55 43 54 49 4F 4E 53 20 2A 2A 00 1A 14 F5 01 99 |UCTIONS **......|
00000BF0: 22 93 22 3A 97 55 54 2C 55 4C 25 3A 8B C2 28 35 |".":.UT,UL%:..(5|
00000C00: 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 32 |0003).0..53281,2|
00000C10: 3A 97 35 33 32 38 30 2C 31 30 00 3B 14 F6 01 55 |:.53280,10.;...U|
00000C20: 50 B2 30 3A 55 47 24 B2 22 D4 45 41 43 48 45 52 |P.0:UG$.".EACHER|
00000C30: 20 C9 4E 53 54 22 3A 8D 38 35 30 00 69 14 F7 01 | .NST":.850.i...|
00000C40: 99 22 11 11 20 20 20 20 20 20 D4 4F 20 54 48 45 |.".. .O THE|
00000C50: 20 42 45 53 54 20 4F 46 20 4F 55 52 20 4B 4E 4F | BEST OF OUR KNO|
00000C60: 57 4C 45 44 47 45 2C 11 22 00 92 14 F8 01 99 22 |WLEDGE,."......"|
00000C70: 20 20 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 | THIS PROGRAM |
00000C80: 49 53 20 49 4E 20 54 48 45 20 50 55 42 4C 49 43 |IS IN THE PUBLIC|
00000C90: 11 22 00 BE 14 F9 01 99 22 20 20 20 44 4F 4D 41 |."......" DOMA|
00000CA0: 49 4E 2E 20 20 C9 46 20 54 48 49 53 20 49 53 20 |IN. .F THIS IS |
00000CB0: 4E 4F 54 20 54 48 45 20 43 41 53 45 11 22 00 DB |NOT THE CASE."..|
00000CC0: 14 FA 01 99 22 20 20 20 50 4C 45 41 53 45 20 43 |...." PLEASE C|
00000CD0: 4F 4E 54 41 43 54 3A 11 11 11 22 00 05 15 FB 01 |ONTACT:...".....|
00000CE0: 99 22 20 20 20 20 20 20 C3 4F 4D 4D 4F 44 4F 52 |." .OMMODOR|
00000CF0: 45 20 C2 55 53 49 4E 45 53 53 20 CD 41 43 48 49 |E .USINESS .ACHI|
00000D00: 4E 45 53 11 22 00 28 15 FC 01 99 22 20 20 20 20 |NES.".(...." |
00000D10: 20 20 20 20 20 20 33 33 37 30 20 D0 48 41 52 4D | 3370 .HARM|
00000D20: 41 43 59 20 C1 56 45 2E 00 4C 15 FD 01 99 22 20 |ACY .VE..L...." |
00000D30: 20 20 20 20 20 20 20 20 20 C1 47 49 4E 43 4F 55 | .GINCOU|
00000D40: 52 54 2C 20 CF 4E 54 41 52 49 4F 22 00 6E 15 FE |RT, .NTARIO".n..|
00000D50: 01 99 22 20 20 20 20 20 20 20 20 20 20 C3 41 4E |.." .AN|
00000D60: 41 44 41 20 20 20 CD 31 D7 20 32 CB 34 22 00 8E |ADA .1. 2.4"..|
00000D70: 15 FF 01 99 22 20 20 20 20 20 20 20 20 20 20 28 |...." (|
00000D80: 34 31 36 29 20 34 39 39 2D 34 32 39 32 22 00 A4 |416) 499-4292"..|
00000D90: 15 00 02 55 50 B2 31 3A 8D 20 38 33 35 3A 8D 20 |...UP.1:. 835:. |
00000DA0: 38 35 30 3A 00 D5 15 01 02 99 22 20 11 11 D0 52 |850:......" ...R|
00000DB0: 4F 47 52 41 4D 20 CE 41 4D 45 3A 20 CD 4F 4E 4F |OGRAM .AME: .ONO|
00000DC0: 4D 49 41 4C 20 CD 55 4C 54 49 50 4C 49 43 41 54 |MIAL .ULTIPLICAT|
00000DD0: 49 4F 4E 11 22 00 FC 15 02 02 99 22 20 D7 52 49 |ION."......" .RI|
00000DE0: 54 54 45 4E 20 C2 59 20 20 3A 20 CA 2E 20 C2 2E |TTEN .Y : .. ..|
00000DF0: 20 CE 49 43 48 4F 4C 53 4F 4E 20 11 00 1C 16 03 | .ICHOLSON .....|
00000E00: 02 99 22 20 D5 50 47 52 41 44 45 44 20 C2 59 20 |.." .PGRADED .Y |
00000E10: 3A 20 20 20 20 20 20 20 20 20 20 11 00 47 16 04 |: ..G..|
00000E20: 02 99 22 20 20 20 20 20 11 D4 48 49 53 20 50 52 |.." ..HIS PR|
00000E30: 4F 47 52 41 4D 20 57 49 4C 4C 20 52 55 4E 20 4F |OGRAM WILL RUN O|
00000E40: 4E 20 41 4E 59 11 11 00 6E 16 05 02 99 22 20 20 |N ANY...n...." |
00000E50: 20 20 20 20 20 20 20 C2 C1 D3 C9 C3 A0 32 2E 30 | ......2.0|
00000E60: 20 D0 C5 D4 20 C3 CF CD D0 D5 D4 C5 D2 11 00 95 | ... ...........|
00000E70: 16 06 02 99 22 20 20 20 20 20 20 20 20 20 C2 C1 |...." ..|
00000E80: D3 C9 C3 20 34 2E 30 20 D0 C5 D4 A0 C3 CF CD D0 |... 4.0 ........|
00000E90: D5 D4 C5 D2 11 00 B7 16 07 02 99 22 20 20 20 20 |..........." |
00000EA0: 20 20 20 20 20 38 30 33 32 20 C3 C2 CD 20 C3 CF | 8032 ... ..|
00000EB0: CD D0 D5 D4 C5 D2 11 00 DC 16 08 02 99 22 20 20 |............." |
00000EC0: 20 20 20 20 20 20 20 C3 CF CD CD CF C4 CF D2 C5 | .........|
00000ED0: 20 36 34 20 C3 CF CD D0 D5 D4 C5 D2 00 E5 16 09 | 64 ............|
00000EE0: 02 8D 38 33 35 00 F9 16 4E 02 8B 55 5A B2 31 A7 |..835...N..UZ.1.|
00000EF0: 9E 55 50 25 3A 89 32 31 37 00 FF 16 57 02 8E 00 |.UP%:.217...W...|
00000F00: 25 17 58 02 8F 20 2A 2A 20 50 52 4F 47 52 41 4D |%.X.. ** PROGRAM|
00000F10: 20 4D 4F 44 49 46 49 43 41 54 49 4F 4E 20 49 4E | MODIFICATION IN|
00000F20: 53 54 20 2A 2A 00 36 17 59 02 99 22 93 22 3A 97 |ST **.6.Y..".":.|
00000F30: 55 54 2C 55 4C 25 00 56 17 5D 02 55 50 B2 30 3A |UT,UL%.V.].UP.0:|
00000F40: 55 47 24 B2 22 D0 52 4F 47 52 41 4D 20 CD 4F 44 |UG$.".ROGRAM .OD|
00000F50: 22 3A 8D 38 35 30 00 5F 17 94 02 8D 38 33 35 00 |":.850._....835.|
00000F60: 73 17 B2 02 8B 55 5A B2 31 A7 9E 55 50 25 3A 89 |s....UZ.1..UP%:.|
00000F70: 32 31 37 00 79 17 BB 02 8E 00 9E 17 BC 02 8F 20 |217.y.......... |
00000F80: 2A 2A 20 54 4F 20 55 53 45 20 38 30 33 32 20 4C |** TO USE 8032 L|
00000F90: 4F 41 44 20 43 42 4D 34 30 33 32 20 2A 2A 00 D4 |OAD CBM4032 **..|
00000FA0: 17 C6 02 99 22 93 11 11 11 05 42 45 46 4F 52 45 |....".....BEFORE|
00000FB0: 20 52 55 4E 4E 49 4E 47 20 54 48 49 53 20 50 52 | RUNNING THIS PR|
00000FC0: 4F 47 52 41 4D 20 4F 4E 20 41 4E 20 38 30 33 32 |OGRAM ON AN 8032|
00000FD0: 20 20 11 11 00 0A 18 D0 02 99 22 20 20 20 20 20 | ........" |
00000FE0: 20 4C 4F 41 44 20 54 48 45 20 27 43 42 4D 20 34 | LOAD THE 'CBM 4|
00000FF0: 30 33 32 27 20 50 52 4F 47 52 41 4D 11 11 11 11 |032' PROGRAM....|
00001000: 11 11 11 11 11 11 11 11 11 22 00 15 18 DA 02 9E |........."......|
00001010: 55 55 AA 37 31 00 1B 18 E4 02 80 00 3B 18 20 03 |UU.71.......;. .|
00001020: 8F 20 2A 2A 20 54 20 49 20 54 20 4C 20 45 20 20 |. ** T I T L E |
00001030: 20 50 20 41 20 47 20 45 20 2A 2A 00 6F 18 22 03 | P A G E **.o.".|
00001040: 99 22 93 11 1D 05 22 3B 3A 97 55 54 2C 55 55 25 |."....";:.UT,UU%|
00001050: 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 |:..(50003).0..53|
00001060: 32 38 30 2C 31 34 3A 97 35 33 32 38 31 2C 36 00 |280,14:.53281,6.|
00001070: 85 18 24 03 81 49 B2 31 A4 33 38 3A 99 22 12 A6 |..$..I.1.38:."..|
00001080: 92 22 3B 3A 82 00 9D 18 26 03 81 49 B2 31 A4 32 |.";:....&..I.1.2|
00001090: 32 3A 99 22 11 9D 12 A6 92 22 3B 3A 82 00 B5 18 |2:.".....";:....|
000010A0: 28 03 81 49 B2 31 A4 33 37 3A 99 22 9D 9D 12 A6 |(..I.1.37:."....|
000010B0: 92 22 3B 3A 82 00 CD 18 2A 03 81 49 B2 31 A4 32 |.";:....*..I.1.2|
000010C0: 32 3A 99 22 91 9D 12 A6 92 22 3B 3A 82 00 F2 18 |2:.".....";:....|
000010D0: 2C 03 99 22 13 11 11 11 11 11 11 1D 1D 1D 1D 1D |,.."............|
000010E0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 A9 20 |............... |
000010F0: 20 92 00 14 19 2E 03 99 22 1D 1D 1D 1D 1D 1D 1D | .......".......|
00001100: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 20 92 20 20 |............ . |
00001110: 12 20 92 A9 00 35 19 30 03 99 22 1D 1D 1D 1D 1D |. ...5.0..".....|
00001120: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 20 92 |.............. .|
00001130: 20 20 12 A3 DF 00 53 19 32 03 99 22 1D 1D 1D 1D | ....S.2.."....|
00001140: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D DF 12 |................|
00001150: 20 20 92 00 7B 19 34 03 99 22 11 11 1D 1D 1D 1D | ..{.4.."......|
00001160: 1D 1D 1D 1D 1D 1D 1D 1D 43 20 4F 20 4D 20 4D 20 |........C O M M |
00001170: 4F 20 44 20 4F 20 52 20 45 11 11 00 9E 19 36 03 |O D O R E.....6.|
00001180: 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |."..............|
00001190: 1D 45 44 55 43 41 54 49 4F 4E 41 4C 11 11 00 BD |.EDUCATIONAL....|
000011A0: 19 38 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |.8.."...........|
000011B0: 1D 1D 1D 1D 1D 53 4F 46 54 57 41 52 45 00 D8 19 |.....SOFTWARE...|
000011C0: 3A 03 8F 20 2A 2A 20 43 4F 4D 4D 4F 44 4F 52 45 |:.. ** COMMODORE|
000011D0: 20 4C 4F 47 4F 20 2A 2A 00 10 1A 3B 03 99 C8 28 | LOGO **...;...(|
000011E0: 55 44 24 2C 32 34 29 3B 22 1D 1D 1D 1D 1D 1D 1D |UD$,24);".......|
000011F0: 1D 1D 12 50 52 45 53 53 20 53 50 41 43 45 20 42 |...PRESS SPACE B|
00001200: 41 52 20 4F 52 20 57 41 49 54 92 22 3A 49 B2 30 |AR OR WAIT.":I.0|
00001210: 00 32 1A 3C 03 A1 41 24 3A 8B 41 24 B3 B1 22 20 |.2.<..A$:.A$.." |
00001220: 22 A7 49 B2 49 AA 31 3A 8B 49 B3 32 35 30 A7 38 |".I.I.1:.I.250.8|
00001230: 32 38 00 56 1A 3E 03 54 31 24 B2 22 22 3A 54 32 |28.V.>.T1$."":T2|
00001240: 24 B2 22 22 3A 54 33 24 B2 22 22 3A 54 34 24 B2 |$."":T3$."":T4$.|
00001250: 22 22 3A 49 B2 30 00 5F 1A 40 03 89 33 30 30 00 |"":I.0._.@..300.|
00001260: 7B 1A 43 03 8F 20 2A 2A 20 53 50 41 43 45 20 42 |{.C.. ** SPACE B|
00001270: 41 52 20 50 52 45 53 53 20 2A 2A 00 BA 1A 48 03 |AR PRESS **...H.|
00001280: 97 55 4F 2C 30 3A 99 C8 28 55 44 24 2C 32 34 29 |.UO,0:..(UD$,24)|
00001290: 3B 22 1D 1D 1D 20 20 20 12 50 52 45 53 53 20 53 |;"... .PRESS S|
000012A0: 50 41 43 45 20 42 41 52 20 54 4F 20 43 4F 4E 54 |PACE BAR TO CONT|
000012B0: 49 4E 55 45 92 20 20 20 20 22 00 D1 1A 4C 03 A1 |INUE. "...L..|
000012C0: 55 49 24 3A 8B 55 49 24 B3 B1 22 20 22 A7 38 34 |UI$:.UI$.." ".84|
000012D0: 34 00 D7 1A 4E 03 8E 00 F7 1A 52 03 8F 20 2A 2A |4...N.....R.. **|
000012E0: 20 50 41 47 45 20 44 45 53 49 47 4E 20 52 4F 55 | PAGE DESIGN ROU|
000012F0: 54 49 4E 45 20 2A 2A 00 03 1B 54 03 55 50 B2 55 |TINE **...T.UP.U|
00001300: 50 AA 31 00 2D 1B 57 03 99 22 93 22 C8 28 55 54 |P.1.-.W..".".(UT|
00001310: 24 AA 55 50 24 2C 32 31 29 3B C9 28 55 50 24 AA |$.UP$,21);.(UP$.|
00001320: 55 47 24 AA C4 28 55 50 29 2C 31 38 29 00 5C 1B |UG$..(UP),18).\.|
00001330: 5C 03 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |\.." -----------|
00001340: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001350: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 6B 1B 60 |-----------".k.`|
00001360: 03 8B 55 48 B3 B1 30 A7 38 37 30 00 9D 1B 61 03 |..UH..0.870...a.|
00001370: 99 C8 28 55 44 24 2C 32 34 29 3B C8 28 55 50 24 |..(UD$,24);.(UP$|
00001380: 2C 37 29 3B 22 51 55 49 54 20 2D 20 50 52 45 53 |,7);"QUIT - PRES|
00001390: 53 20 53 48 49 46 54 45 44 20 51 20 22 00 AE 1B |S SHIFTED Q "...|
000013A0: 66 03 55 48 B2 30 3A 99 22 13 11 22 3A 8E 00 CD |f.UH.0:."..":...|
000013B0: 1B 6B 03 8F 20 2A 2A 20 50 4C 45 41 53 45 20 57 |.k.. ** PLEASE W|
000013C0: 41 49 54 20 52 45 4D 41 52 4B 20 2A 2A 00 03 1C |AIT REMARK **...|
000013D0: 70 03 99 C8 28 55 44 24 2C 32 34 29 3B 22 20 20 |p...(UD$,24);" |
000013E0: 20 20 20 20 20 20 20 20 20 4F 4E 45 20 4D 4F 4D | ONE MOM|
000013F0: 45 4E 54 20 50 4C 45 41 53 45 2E 2E 2E 20 20 20 |ENT PLEASE... |
00001400: 20 20 22 00 09 1C 75 03 8E 00 26 1C 84 03 8F 20 | "...u...&.... |
00001410: 2A 2A 20 53 45 54 20 55 50 20 56 41 52 49 41 42 |** SET UP VARIAB|
00001420: 4C 45 53 20 2A 2A 00 71 1C 85 03 55 58 24 B2 22 |LES **.q...UX$."|
00001430: C8 22 3A 86 55 51 25 28 31 30 30 30 29 3A 55 42 |.":.UQ%(1000):UB|
00001440: B2 33 32 37 36 38 3A 55 31 B2 31 39 36 3A 55 32 |.32768:U1.196:U2|
00001450: B2 31 39 37 3A 55 33 B2 31 39 38 3A 55 34 B2 32 |.197:U3.198:U4.2|
00001460: 31 36 3A 55 43 B2 31 36 37 3A 55 55 B2 31 30 32 |16:UC.167:UU.102|
00001470: 34 00 AF 1C 86 03 55 54 B2 35 39 34 36 38 3A 55 |4.....UT.59468:U|
00001480: 55 25 B2 31 32 3A 55 4C 25 B2 31 34 3A 55 50 25 |U%.12:UL%.14:UP%|
00001490: B2 31 31 34 36 3A 55 4D B2 33 32 37 36 38 3A 55 |.1146:UM.32768:U|
000014A0: 4F B2 31 35 38 3A 97 20 35 30 30 30 33 2C 30 00 |O.158:. 50003,0.|
000014B0: F2 1C 87 03 8B C2 28 35 30 30 30 33 29 B2 30 A7 |......(50003).0.|
000014C0: 55 42 B2 31 30 32 34 3A 55 31 B2 32 30 39 3A 55 |UB.1024:U1.209:U|
000014D0: 32 B2 32 31 30 3A 55 33 B2 32 31 31 3A 55 34 B2 |2.210:U3.211:U4.|
000014E0: 32 31 34 3A 55 43 B2 32 30 34 3A 55 55 B2 32 30 |214:UC.204:UU.20|
000014F0: 34 38 00 31 1D 88 03 8B C2 28 35 30 30 30 33 29 |48.1.....(50003)|
00001500: B2 30 A7 55 54 B2 35 33 32 37 32 3A 55 55 25 B2 |.0.UT.53272:UU%.|
00001510: 32 31 3A 55 4C 25 B2 32 33 3A 55 50 25 B2 32 31 |21:UL%.23:UP%.21|
00001520: 33 39 3A 55 4D B2 31 30 32 34 3A 55 4F B2 31 39 |39:UM.1024:UO.19|
00001530: 38 00 55 1D 89 03 55 44 24 B2 22 13 11 11 11 11 |8.U...UD$.".....|
00001540: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00001550: 11 11 11 11 22 00 87 1D 8A 03 55 50 24 B2 22 20 |....".....UP$." |
00001560: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001570: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001580: 20 20 20 20 20 20 22 00 D5 1D 8B 03 55 54 24 B2 | ".....UT$.|
00001590: 22 20 CD CF CE CF CD C9 C1 CC 20 CD D5 CC D4 2E |" ........ .....|
000015A0: A0 A0 A0 A0 22 3A 8F 20 50 4C 41 43 45 20 50 52 |....":. PLACE PR|
000015B0: 4F 47 52 41 4D 20 54 49 54 4C 45 20 48 45 52 45 |OGRAM TITLE HERE|
000015C0: 20 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 | !!!!!!!!!!!!!!!|
000015D0: 21 21 2A 2A 2A 00 DB 1D 8C 03 8E 00 F5 1D 8E 03 |!!***...........|
000015E0: 8F 20 2A 2A 20 53 45 54 20 56 41 52 49 41 42 4C |. ** SET VARIABL|
000015F0: 45 53 20 2A 2A 00 FE 1D 93 03 8D 39 30 30 00 19 |ES **......900..|
00001600: 1E 98 03 8F 20 2A 2A 20 43 48 45 43 4B 20 46 4F |.... ** CHECK FO|
00001610: 52 20 38 30 33 32 20 2A 2A 00 37 1E 9D 03 99 22 |R 8032 **.7...."|
00001620: 93 22 3A 99 22 A0 22 3A 8F 20 53 48 49 46 54 45 |.":.".":. SHIFTE|
00001630: 44 20 53 50 41 43 45 00 4E 1E A2 03 8B C2 28 55 |D SPACE.N.....(U|
00001640: 42 AA 34 30 29 B3 B1 39 36 A7 8D 37 30 30 00 67 |B.40)..96..700.g|
00001650: 1E A3 03 8F 20 2A 2A 20 4D 45 4D 4F 52 59 20 43 |.... ** MEMORY C|
00001660: 48 45 43 4B 20 2A 2A 00 7B 1E A4 03 8B 20 B8 28 |HECK **.{.... .(|
00001670: 30 29 B1 32 30 30 30 A7 39 33 37 00 A9 1E A5 03 |0).2000.937.....|
00001680: 99 22 93 11 11 05 54 48 49 53 20 4D 41 43 48 49 |."....THIS MACHI|
00001690: 4E 45 20 44 4F 45 53 20 4E 4F 54 20 48 41 56 45 |NE DOES NOT HAVE|
000016A0: 20 45 4E 4F 55 47 48 11 22 00 CD 1E A6 03 99 22 | ENOUGH."......"|
000016B0: 4D 45 4D 4F 52 59 20 54 4F 20 52 55 4E 20 54 48 |MEMORY TO RUN TH|
000016C0: 49 53 20 50 52 4F 47 52 41 4D 20 21 22 00 D8 1E |IS PROGRAM !"...|
000016D0: A7 03 9E 55 55 AA 37 31 00 DE 1E A8 03 80 00 F8 |...UU.71........|
000016E0: 1E A9 03 99 22 93 05 22 3A 8B C2 28 35 30 30 30 |...."..":..(5000|
000016F0: 33 29 B2 30 A7 39 36 32 00 27 1F AC 03 8F 20 2A |3).0.962.'.... *|
00001700: 2A 20 42 41 53 49 43 20 32 2E 30 20 20 4F 52 20 |* BASIC 2.0 OR |
00001710: 20 34 2E 30 20 20 4F 52 20 20 43 2D 36 34 20 53 | 4.0 OR C-64 S|
00001720: 45 54 55 50 20 2A 2A 00 65 1F AD 03 97 31 30 37 |ETUP **.e....107|
00001730: 35 2C 31 33 33 3A 97 31 30 37 36 2C 31 34 34 3A |5,133:.1076,144:|
00001740: 97 31 30 37 37 2C 32 33 34 3A 97 31 30 37 39 2C |.1077,234:.1079,|
00001750: 34 3A 97 31 30 38 30 2C 31 33 33 3A 97 31 30 38 |4:.1080,133:.108|
00001760: 31 2C 31 34 35 00 9B 1F AE 03 97 31 30 39 31 2C |1,145......1091,|
00001770: 31 35 35 3A 97 31 30 39 38 2C 31 33 33 3A 97 31 |155:.1098,133:.1|
00001780: 30 39 39 2C 31 34 34 3A 97 31 31 30 30 2C 32 33 |099,144:.1100,23|
00001790: 34 3A 97 31 31 30 33 2C 31 33 33 00 BD 1F AF 03 |4:.1103,133.....|
000017A0: 97 31 31 30 34 2C 31 34 35 3A 97 31 31 30 35 2C |.1104,145:.1105,|
000017B0: 32 33 34 3A 97 31 30 38 32 2C 32 33 34 00 D4 1F |234:.1082,234...|
000017C0: B1 03 8B C2 28 35 30 30 30 33 29 B3 B1 31 36 30 |....(50003)..160|
000017D0: A7 39 35 35 00 03 20 B6 03 97 31 30 39 33 2C 38 |.955.. ...1093,8|
000017E0: 38 3A 97 31 30 39 34 2C 32 32 38 3A 97 31 30 39 |8:.1094,228:.109|
000017F0: 37 2C 38 35 3A 97 31 31 30 32 2C 32 32 38 3A 89 |7,85:.1102,228:.|
00001800: 39 36 35 00 18 20 BB 03 8B C2 28 35 30 30 30 33 |965.. ....(50003|
00001810: 29 B3 B1 31 A7 39 39 30 00 47 20 C0 03 97 31 30 |)..1.990.G ...10|
00001820: 39 33 2C 34 39 3A 97 31 30 39 34 2C 32 33 30 3A |93,49:.1094,230:|
00001830: 97 31 30 39 37 2C 34 36 3A 97 31 31 30 32 2C 32 |.1097,46:.1102,2|
00001840: 33 30 3A 89 39 36 35 00 81 20 C2 03 97 32 30 39 |30:.965.. ...209|
00001850: 39 2C 31 34 31 3A 97 32 31 30 30 2C 32 30 3A 97 |9,141:.2100,20:.|
00001860: 32 31 30 31 2C 33 3A 97 32 31 30 33 2C 38 3A 97 |2101,3:.2103,8:.|
00001870: 32 31 30 34 2C 31 34 31 3A 97 32 31 30 35 2C 32 |2104,141:.2105,2|
00001880: 31 00 BD 20 C3 03 97 32 31 30 36 2C 33 3A 97 32 |1.. ...2106,3:.2|
00001890: 31 31 35 2C 31 34 35 3A 97 32 31 31 37 2C 35 32 |115,145:.2117,52|
000018A0: 3A 97 32 31 31 38 2C 32 33 34 3A 97 32 31 32 31 |:.2118,234:.2121|
000018B0: 2C 34 39 3A 97 32 31 32 32 2C 31 34 31 00 F7 20 |,49:.2122,141.. |
000018C0: C4 03 97 32 31 32 33 2C 32 30 3A 97 32 31 32 34 |...2123,20:.2124|
000018D0: 2C 33 3A 97 32 31 32 36 2C 32 33 34 3A 97 32 31 |,3:.2126,234:.21|
000018E0: 32 37 2C 31 34 31 3A 97 32 31 32 38 2C 32 31 3A |27,141:.2128,21:|
000018F0: 97 32 31 32 39 2C 33 00 15 21 C5 03 9E 55 55 AA |.2129,3..!...UU.|
00001900: 34 38 3A 8F 20 44 49 53 41 42 4C 45 20 53 54 4F |48:. DISABLE STO|
00001910: 50 20 4B 45 59 00 26 21 CA 03 8D 38 30 30 3A 8F |P KEY.&!...800:.|
00001920: 20 54 49 54 4C 45 00 36 21 D4 03 89 33 30 30 3A | TITLE.6!...300:|
00001930: 8F 20 4D 45 4E 55 00 67 21 DE 03 99 22 93 54 48 |. MENU.g!...".TH|
00001940: 45 20 50 47 4D 20 57 49 4C 4C 20 4E 4F 54 20 57 |E PGM WILL NOT W|
00001950: 4F 52 4B 20 4F 4E 20 54 48 49 53 20 4D 41 43 48 |ORK ON THIS MACH|
00001960: 49 4E 45 21 22 3A 80 00 9C 21 E8 03 8B 55 5A B2 |INE!":...!...UZ.|
00001970: 31 A7 9E 55 50 25 3A 9E 55 50 25 3A 55 5A B2 30 |1..UP%:.UP%:UZ.0|
00001980: 3A 8F 20 2A 2A 20 50 52 4F 47 52 41 4D 20 53 54 |:. ** PROGRAM ST|
00001990: 41 52 54 53 20 48 45 52 45 20 2A 2A 00 C7 21 E9 |ARTS HERE **..!.|
000019A0: 03 99 22 93 05 22 3B 3A 8C 3A 8B C2 28 35 30 30 |.."..";:.:..(500|
000019B0: 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 36 3A 97 |03).0..53281,6:.|
000019C0: 35 33 32 38 30 2C 36 00 D3 21 FC 03 97 55 54 2C |53280,6..!...UT,|
000019D0: 55 4C 25 00 F6 21 1A 04 44 4E 24 B2 22 13 11 11 |UL%..!..DN$."...|
000019E0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
000019F0: 11 11 11 11 11 22 00 28 22 24 04 42 4C 24 B2 22 |.....".("$.BL$."|
00001A00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001A10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001A20: 20 20 20 20 20 20 20 22 00 51 22 2E 04 42 31 24 | ".Q"..B1$|
00001A30: B2 22 12 A6 A0 A6 A0 A6 A0 A6 A0 A6 A0 A6 A0 A6 |."..............|
00001A40: A0 A6 A0 A6 A0 A6 A0 A6 A0 A6 A0 A6 A0 A6 A0 A6 |................|
00001A50: 22 00 7A 22 38 04 42 32 24 B2 22 12 20 20 20 20 |".z"8.B2$.". |
00001A60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001A70: 20 20 20 20 20 20 20 20 20 22 00 A9 22 42 04 42 | ".."B.B|
00001A80: 33 24 B2 22 12 A6 20 20 20 20 20 20 20 20 20 20 |3$.".. |
00001A90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001AA0: 20 A6 22 3A 89 31 31 37 30 00 BE 22 4C 04 99 22 | .":.1170.."L.."|
00001AB0: 93 11 11 11 11 22 3A 99 A3 35 29 42 31 24 00 DB |.....":..5)B1$..|
00001AC0: 22 56 04 81 49 B2 31 A4 35 3A 99 A3 35 29 42 32 |"V..I.1.5:..5)B2|
00001AD0: 24 3A 99 A3 35 29 42 33 24 3A 82 00 FB 22 60 04 |$:..5)B3$:..."`.|
00001AE0: 99 A3 35 29 42 32 24 3A 99 A3 35 29 42 31 24 3A |..5)B2$:..5)B1$:|
00001AF0: 99 22 13 11 11 11 11 11 11 11 22 00 15 23 6A 04 |."........"..#j.|
00001B00: 99 A3 31 34 29 22 12 CD D5 CC D4 C9 D0 CC D9 C9 |..14)"..........|
00001B10: CE C7 11 11 22 00 2D 23 74 04 99 A3 31 35 29 22 |....".-#t...15)"|
00001B20: 12 CD CF CE CF CD C9 C1 CC D3 11 11 22 00 4B 23 |............".K#|
00001B30: 7E 04 99 A3 31 31 29 22 12 42 59 20 CA 2E C2 2E |~...11)".BY ....|
00001B40: 20 CE 49 43 48 4F 4C 53 4F 4E 22 00 5B 23 88 04 | .ICHOLSON".[#..|
00001B50: 81 49 B2 31 A4 31 35 30 30 3A 82 00 79 23 92 04 |.I.1.1500:..y#..|
00001B60: 55 47 24 B2 22 22 3A 55 50 B2 30 3A 55 48 B2 31 |UG$."":UP.0:UH.1|
00001B70: 3A 8D 38 35 30 3A 48 B2 30 00 AA 23 97 04 99 22 |:.850:H.0..#..."|
00001B80: 11 11 11 20 D7 48 41 54 20 4C 45 56 45 4C 20 4F |... .HAT LEVEL O|
00001B90: 46 20 44 49 46 46 49 43 55 4C 54 59 20 44 4F 20 |F DIFFICULTY DO |
00001BA0: 59 4F 55 20 57 41 4E 54 3F 22 00 D5 23 9C 04 99 |YOU WANT?"..#...|
00001BB0: 22 11 20 28 31 20 45 41 53 59 2C 20 32 20 41 56 |". (1 EASY, 2 AV|
00001BC0: 45 52 41 47 45 2C 20 41 4E 44 20 33 20 48 41 52 |ERAGE, AND 3 HAR|
00001BD0: 44 29 20 22 3B 00 E8 23 CE 04 8D 32 30 33 30 3A |D) ";..#...2030:|
00001BE0: 4C 56 B2 C5 28 59 24 29 00 15 24 00 05 99 22 11 |LV..(Y$)..$...".|
00001BF0: 11 20 C1 52 45 20 4E 45 47 41 54 49 56 45 20 45 |. .RE NEGATIVE E|
00001C00: 58 50 4F 4E 45 4E 54 53 20 CF CB 3F 20 22 3B 3A |XPONENTS ..? ";:|
00001C10: 8D 32 30 34 30 00 2C 24 14 05 8B 59 24 B2 22 59 |.2040.,$...Y$."Y|
00001C20: 22 A7 4E 47 B2 32 3A 89 31 33 32 30 00 35 24 1E |".NG.2:.1320.5$.|
00001C30: 05 4E 47 B2 31 00 43 24 28 05 8B 48 B1 30 A7 31 |.NG.1.C$(..H.0.1|
00001C40: 33 39 30 00 4B 24 5A 05 48 B2 31 00 59 24 6E 05 |390.K$Z.H.1.Y$n.|
00001C50: 8D 38 33 35 3A 4E 51 B2 30 00 93 24 78 05 55 47 |.835:NQ.0..$x.UG|
00001C60: 24 B2 22 51 55 45 53 54 49 4F 4E 20 23 22 3A 4E |$."QUESTION #":N|
00001C70: 51 B2 4E 51 AA 31 3A 55 50 B2 4E 51 AB 31 3A 8D |Q.NQ.1:UP.NQ.1:.|
00001C80: 38 35 30 3A 99 22 11 20 D3 49 4D 50 4C 49 46 59 |850:.". .IMPLIFY|
00001C90: 3A 11 22 00 A5 24 82 05 91 4E 47 8D 32 37 35 30 |:."..$...NG.2750|
00001CA0: 2C 32 38 31 30 00 B9 24 8C 05 8B 4C 56 B2 33 A7 |,2810..$...LV.3.|
00001CB0: 46 B2 33 3A 89 31 34 34 30 00 C1 24 96 05 46 B2 |F.3:.1440..$..F.|
00001CC0: 32 00 D1 24 A0 05 8D 32 36 38 30 3A 8D 32 38 38 |2..$...2680:.288|
00001CD0: 30 00 DE 24 AA 05 99 3A 81 49 B2 31 A4 46 00 EF |0..$...:.I.1.F..|
00001CE0: 24 B4 05 99 22 5B 22 3B 20 43 24 28 49 29 3B 00 |$..."["; C$(I);.|
00001CF0: FB 24 BE 05 81 4A B2 31 A4 4C 56 00 15 25 C8 05 |.$...J.1.LV..%..|
00001D00: 8B 45 28 49 AA 28 4A AB 31 29 AC 33 29 B2 30 20 |.E(I.(J.1).3).0 |
00001D10: A7 31 35 30 30 00 2F 25 D2 05 99 42 24 28 4A 29 |.1500./%...B$(J)|
00001D20: 3B 45 24 28 49 AA 28 4A AB 31 29 AC 33 29 3B 00 |;E$(I.(J.1).3);.|
00001D30: 36 25 DC 05 82 4A 00 40 25 E6 05 99 22 5D 22 3B |6%...J.@%..."]";|
00001D40: 00 4A 25 F0 05 82 49 20 3A 99 00 63 25 FA 05 44 |.J%...I :..c%..D|
00001D50: B2 31 3A 20 51 24 B2 22 11 11 3D 20 22 3A 8D 32 |.1: Q$."..= ":.2|
00001D60: 31 37 30 00 79 25 04 06 91 44 89 31 35 35 30 2C |170.y%...D.1550,|
00001D70: 31 34 30 30 2C 31 39 37 30 00 83 25 0E 06 8D 33 |1400,1970..%...3|
00001D80: 30 30 30 00 8C 25 18 06 57 43 B2 30 00 A0 25 22 |000..%..WC.0..%"|
00001D90: 06 8B 53 45 28 30 29 B3 B1 43 41 A7 57 43 B2 31 |..SE(0)..CA.WC.1|
00001DA0: 00 AC 25 2C 06 81 49 B2 31 A4 4C 56 00 BE 25 36 |..%,..I.1.LV..%6|
00001DB0: 06 4C 28 49 29 B2 30 3A 57 28 49 29 B2 30 00 CA |.L(I).0:W(I).0..|
00001DC0: 25 40 06 81 4A B2 31 A4 4C 56 00 E8 25 4A 06 8B |%@..J.1.LV..%J..|
00001DD0: 42 24 28 49 29 B2 53 42 24 28 4A 29 A7 4C 28 49 |B$(I).SB$(J).L(I|
00001DE0: 29 B2 4A 3A 4A B2 4C 56 00 EF 25 54 06 82 4A 00 |).J:J.LV..%T..J.|
00001DF0: F6 25 5E 06 82 49 00 02 26 68 06 81 49 B2 31 A4 |.%^..I..&h..I.1.|
00001E00: 4C 56 00 13 26 72 06 8B 4C 28 49 29 B2 30 A7 31 |LV..&r..L(I).0.1|
00001E10: 36 38 30 00 2C 26 7C 06 8B 41 45 28 49 29 B2 53 |680.,&|..AE(I).S|
00001E20: 45 28 4C 28 49 29 29 A7 31 37 30 30 00 3D 26 86 |E(L(I)).1700.=&.|
00001E30: 06 57 28 49 29 B2 31 3A 89 31 37 30 30 00 4F 26 |.W(I).1:.1700.O&|
00001E40: 90 06 8B 41 45 28 49 29 B2 30 A7 31 37 30 30 00 |...AE(I).0.1700.|
00001E50: 5A 26 9A 06 57 28 49 29 B2 31 00 61 26 A4 06 82 |Z&..W(I).1.a&...|
00001E60: 49 00 8C 26 AE 06 8B 57 43 AA 57 28 31 29 AA 57 |I..&...WC.W(1).W|
00001E70: 28 32 29 AA 57 28 33 29 B2 30 A7 99 22 11 11 D2 |(2).W(3).0.."...|
00001E80: 49 47 48 54 21 22 3A 89 31 39 35 30 00 D2 26 B8 |IGHT!":.1950..&.|
00001E90: 06 99 22 91 91 20 20 20 20 20 20 20 20 20 20 20 |..".. |
00001EA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001EB0: 20 20 20 20 20 20 20 20 20 20 20 22 3A 99 22 20 | ":." |
00001EC0: C3 4F 52 52 45 43 54 20 41 4E 53 57 45 52 3A 3D |.ORRECT ANSWER:=|
00001ED0: 22 3B 00 E9 26 C2 06 8B 43 41 B2 31 AF 54 45 B3 |";..&...CA.1.TE.|
00001EE0: B1 30 20 20 A7 31 37 36 30 00 09 27 CC 06 8B 43 |.0 .1760..'...C|
00001EF0: 41 B2 AB 31 AF 54 45 B3 B1 30 20 20 A7 99 22 2D |A..1.TE..0 .."-|
00001F00: 20 22 3B 3A 89 31 37 36 30 00 15 27 D6 06 99 C4 | ";:.1760..'....|
00001F10: 28 43 41 29 3B 00 21 27 E0 06 81 49 B2 31 A4 4C |(CA);.!'...I.1.L|
00001F20: 56 00 33 27 EA 06 8B 41 45 28 49 29 B2 30 A7 31 |V.3'...AE(I).0.1|
00001F30: 37 39 30 00 46 27 F4 06 99 42 24 28 49 29 3B 41 |790.F'...B$(I);A|
00001F40: 45 24 28 49 29 3B 00 4C 27 FE 06 82 00 55 27 08 |E$(I);.L'....U'.|
00001F50: 07 99 20 3A 99 00 68 27 12 07 99 22 C3 4F 45 46 |.. :..h'...".OEF|
00001F60: 46 49 43 49 45 4E 54 22 00 79 27 1C 07 99 22 3D |FICIENT".y'..."=|
00001F70: 22 3B 3A 81 49 B2 31 A4 46 00 8C 27 26 07 99 22 |";:.I.1.F..'&.."|
00001F80: 5B 22 3B 43 28 49 29 3B 22 5D 22 3B 00 92 27 30 |[";C(I);"]";..'0|
00001F90: 07 82 00 A2 27 3A 07 99 22 20 3D 20 22 3B 43 41 |....':.." = ";CA|
00001FA0: 3A 99 00 AE 27 44 07 81 49 B2 31 A4 4C 56 00 D4 |:...'D..I.1.LV..|
00001FB0: 27 4E 07 99 22 C5 58 50 4F 4E 45 4E 54 20 4F 46 |'N..".XPONENT OF|
00001FC0: 20 42 41 53 45 20 22 3B 42 24 28 49 29 3A 99 22 | BASE ";B$(I):."|
00001FD0: 3D 20 22 3B 00 DF 27 58 07 81 4A B2 31 A4 46 00 |= ";..'X..J.1.F.|
00001FE0: FA 27 62 07 99 22 5B 22 3B 45 28 33 AC 28 49 AB |.'b.."[";E(3.(I.|
00001FF0: 31 29 AA 4A 29 3B 22 5D 22 3B 00 0D 28 6C 07 8B |1).J);"]";..(l..|
00002000: 4A B3 46 20 20 A7 99 22 20 2B 20 22 3B 00 14 28 |J.F .." + ";..(|
00002010: 76 07 82 4A 00 26 28 80 07 99 22 20 3D 20 22 3B |v..J.&(..." = ";|
00002020: 41 45 28 49 29 3B 00 4C 28 8A 07 8B 41 45 28 49 |AE(I);.L(...AE(I|
00002030: 29 B2 30 A7 99 22 41 4E 44 20 22 3B 42 24 28 49 |).0.."AND ";B$(I|
00002040: 29 3B 22 91 30 11 20 3D 20 31 22 3B 00 57 28 94 |);".0. = 1";.W(.|
00002050: 07 99 3A 99 3A 82 49 00 60 28 9E 07 8D 38 33 35 |..:.:.I.`(...835|
00002060: 00 6A 28 A8 07 89 31 34 30 30 00 7F 28 B2 07 8D |.j(...1400..(...|
00002070: 38 33 35 3A 9C 3A 8D 39 30 30 3A 8D 33 30 30 00 |835:.:.900:.300.|
00002080: 98 28 EE 07 55 53 24 B2 22 31 32 33 22 3A 55 4C |.(..US$."123":UL|
00002090: B2 31 3A 89 32 30 35 30 00 AA 28 F8 07 55 53 24 |.1:.2050..(..US$|
000020A0: B2 22 59 4E 22 3A 55 4C B2 31 00 BB 28 02 08 8D |."YN":UL.1..(...|
000020B0: 33 35 3A 59 24 B2 55 52 24 3A 8E 00 D0 28 7A 08 |35:Y$.UR$:...(z.|
000020C0: A1 5A 24 3A 8B 5A 24 B3 B1 22 22 A7 32 31 37 30 |.Z$:.Z$.."".2170|
000020D0: 00 D9 28 84 08 99 51 24 3B 00 F5 28 8E 08 59 24 |..(...Q$;..(..Y$|
000020E0: B2 22 22 3A 50 24 B2 22 22 3A 54 43 B2 30 3A 99 |."":P$."":TC.0:.|
000020F0: 22 A6 9D 22 3B 00 09 29 98 08 A1 5A 24 3A 8B 5A |"..";..)...Z$:.Z|
00002100: 24 B2 22 22 A7 32 32 30 30 00 24 29 A2 08 8B 5A |$."".2200.$)...Z|
00002110: 24 B2 22 D3 22 A7 20 44 B2 32 3A 99 5A 24 3A 89 |$.".". D.2:.Z$:.|
00002120: 32 35 35 30 00 42 29 AC 08 8B 5A 24 B2 22 D1 22 |2550.B)...Z$."."|
00002130: A7 44 B2 33 3A 99 5A 24 3A 9E 55 50 25 3A 89 33 |.D.3:.Z$:.UP%:.3|
00002140: 30 30 00 4E 29 B6 08 5A B2 C6 28 5A 24 29 00 5D |00.N)..Z..(Z$).]|
00002150: 29 C0 08 8B 5A B2 31 33 A7 32 34 31 30 00 73 29 |)...Z.13.2410.s)|
00002160: CA 08 8B 5A B2 32 30 B0 5A B2 31 35 37 20 A7 32 |...Z.20.Z.157 .2|
00002170: 32 39 30 00 A7 29 D4 08 8B 20 5A B1 36 34 AF 5A |290..)... Z.64.Z|
00002180: B3 39 31 20 A7 50 24 B2 50 24 AA 22 44 22 3A 54 |.91 .P$.P$."D":T|
00002190: 43 B2 31 3A 99 5A 24 3B 3A 59 24 B2 59 24 AA 5A |C.1:.Z$;:Y$.Y$.Z|
000021A0: 24 3A 89 32 32 30 30 00 C8 29 DE 08 8B 5A B2 34 |$:.2200..)...Z.4|
000021B0: 33 B0 28 5A B1 34 34 AF 5A B3 35 38 AF 5A B3 B1 |3.(Z.44.Z.58.Z..|
000021C0: 34 37 29 A7 32 33 39 30 00 D2 29 E8 08 89 32 32 |47).2390..)...22|
000021D0: 30 30 00 E2 29 F2 08 8B 59 24 B2 22 22 A7 32 32 |00..)...Y$."".22|
000021E0: 30 30 00 FC 29 FC 08 8B C3 28 59 24 29 B3 B2 31 |00..)....(Y$)..1|
000021F0: A7 99 22 9D 22 3B 3A 89 32 31 39 30 00 2E 2A 06 |..".";:.2190..*.|
00002200: 09 59 24 B2 C8 28 59 24 2C C3 28 59 24 29 AB 31 |.Y$..(Y$,.(Y$).1|
00002210: 29 3A 52 24 B2 C9 28 50 24 2C 31 29 20 3A 50 24 |):R$..(P$,1) :P$|
00002220: B2 C8 28 50 24 2C C3 28 50 24 29 AB 31 29 00 4B |..(P$,.(P$).1).K|
00002230: 2A 10 09 8B 52 24 B2 22 55 22 A7 20 99 22 91 9D |*...R$."U". ."..|
00002240: 20 11 9D 22 3B 3A 89 32 33 34 30 00 57 2A 1A 09 | ..";:.2340.W*..|
00002250: 99 22 9D 20 9D 22 3B 00 77 2A 24 09 81 5A 5A B2 |.". .";.w*$..ZZ.|
00002260: 31 A4 C3 28 59 24 29 3A 54 B2 C6 28 CA 28 59 24 |1..(Y$):T..(.(Y$|
00002270: 2C 5A 5A 2C 31 29 29 00 8E 2A 2E 09 8B 54 B3 20 |,ZZ,1))..*...T. |
00002280: 36 35 20 A7 54 43 B2 30 3A 89 32 33 37 30 00 A1 |65 .TC.0:.2370..|
00002290: 2A 38 09 54 43 B2 31 3A 20 5A 5A B2 C3 28 59 24 |*8.TC.1: ZZ..(Y$|
000022A0: 29 00 A7 2A 42 09 82 00 B1 2A 4C 09 89 32 32 30 |)..*B....*L..220|
000022B0: 30 00 D9 2A 56 09 8B 54 43 B2 30 A7 50 24 B2 50 |0..*V..TC.0.P$.P|
000022C0: 24 AA 22 44 22 3A 99 5A 24 3B 3A 59 24 B2 59 24 |$."D":.Z$;:Y$.Y$|
000022D0: AA 5A 24 3A 89 32 32 30 30 00 03 2B 60 09 50 24 |.Z$:.2200..+`.P$|
000022E0: B2 50 24 AA 22 55 22 3A 99 22 91 22 AA 5A 24 AA |.P$."U":.".".Z$.|
000022F0: 22 11 22 3B 3A 59 24 B2 59 24 AA 5A 24 3A 89 32 |".";:Y$.Y$.Z$:.2|
00002300: 32 30 30 00 09 2B 6A 09 99 00 1C 2B 74 09 54 43 |200..+j....+t.TC|
00002310: B2 30 3A 5A 45 B2 30 3A 5A 42 B2 31 00 37 2B 7E |.0:ZE.0:ZB.1.7+~|
00002320: 09 81 5A 5A B2 30 A4 20 39 3A 53 45 24 28 5A 5A |..ZZ.0. 9:SE$(ZZ|
00002330: 29 B2 22 22 3A 20 82 00 50 2B 88 09 81 5A 5A B2 |)."": ..P+...ZZ.|
00002340: 31 A4 33 3A 53 42 24 28 5A 5A 29 B2 22 22 3A 82 |1.3:SB$(ZZ)."":.|
00002350: 00 60 2B 92 09 8B 59 24 B2 22 22 A7 32 35 30 30 |.`+...Y$."".2500|
00002360: 00 82 2B 9C 09 4C 24 B2 C8 28 59 24 2C 31 29 3A |..+..L$..(Y$,1):|
00002370: 54 B2 C6 28 4C 24 29 3A 59 24 B2 CA 28 59 24 2C |T..(L$):Y$..(Y$,|
00002380: 32 29 00 A8 2B A6 09 8B 54 B3 36 35 AF 54 43 B2 |2)..+...T.65.TC.|
00002390: 30 A7 53 45 24 28 30 29 B2 53 45 24 28 30 29 AA |0.SE$(0).SE$(0).|
000023A0: 4C 24 3A 89 32 34 35 30 00 CB 2B B0 09 8B 54 B3 |L$:.2450..+...T.|
000023B0: 36 35 A7 53 45 24 28 5A 45 29 B2 53 45 24 28 5A |65.SE$(ZE).SE$(Z|
000023C0: 45 29 AA 4C 24 3A 89 32 34 35 30 00 F5 2B BA 09 |E).L$:.2450..+..|
000023D0: 53 42 24 28 5A 42 29 B2 4C 24 3A 54 43 B2 31 3A |SB$(ZB).L$:TC.1:|
000023E0: 5A 42 B2 5A 42 AA 31 3A 5A 45 B2 5A 45 AA 31 3A |ZB.ZB.1:ZE.ZE.1:|
000023F0: 89 32 34 35 30 00 15 2C C4 09 81 5A 5A B2 30 A4 |.2450..,...ZZ.0.|
00002400: 20 39 3A 53 45 28 5A 5A 29 B2 20 C5 28 53 45 24 | 9:SE(ZZ). .(SE$|
00002410: 28 5A 5A 29 29 00 2E 2C CE 09 8B 53 45 24 28 5A |(ZZ))..,...SE$(Z|
00002420: 5A 29 B2 22 22 A7 53 45 28 5A 5A 29 B2 31 00 34 |Z)."".SE(ZZ).1.4|
00002430: 2C D8 09 82 00 56 2C E2 09 8B 53 45 24 28 30 29 |,....V,...SE$(0)|
00002440: B2 22 22 B0 53 45 24 28 30 29 B2 22 2B 22 A7 53 |."".SE$(0)."+".S|
00002450: 45 28 30 29 B2 31 00 6F 2C EC 09 8B 53 45 24 28 |E(0).1.o,...SE$(|
00002460: 30 29 B2 22 2D 22 A7 53 45 28 30 29 B2 AB 31 00 |0)."-".SE(0)..1.|
00002470: 75 2C F6 09 8E 00 89 2C 5A 0A 54 B2 B5 28 32 36 |u,.....,Z.T..(26|
00002480: AC BB 28 31 29 29 AA 36 35 00 B6 2C 64 0A 8B 54 |..(1)).65..,d..T|
00002490: B2 36 39 B0 54 B2 37 32 B0 54 B2 37 33 B0 54 B2 |.69.T.72.T.73.T.|
000024A0: 37 36 B0 54 B2 37 39 B0 54 B2 38 38 B0 54 B2 38 |76.T.79.T.88.T.8|
000024B0: 33 A7 32 36 35 30 00 BC 2C 6E 0A 8E 00 CD 2C 78 |3.2650..,n....,x|
000024C0: 0A 8D 32 36 35 30 3A 42 28 31 29 B2 54 00 E4 2C |..2650:B(1).T..,|
000024D0: 82 0A 8D 32 36 35 30 3A 8B 54 B2 42 28 31 29 A7 |...2650:.T.B(1).|
000024E0: 32 36 39 30 00 EF 2C 8C 0A 42 28 32 29 B2 54 00 |2690..,..B(2).T.|
000024F0: 0D 2D 96 0A 8D 32 36 35 30 3A 8B 54 B2 42 28 31 |.-...2650:.T.B(1|
00002500: 29 B0 54 B2 42 28 32 29 A7 32 37 31 30 00 18 2D |).T.B(2).2710..-|
00002510: A0 0A 42 28 33 29 B2 54 00 36 2D AA 0A 81 5A 5A |..B(3).T.6-...ZZ|
00002520: B2 31 A4 33 3A 42 24 28 5A 5A 29 B2 C7 28 42 28 |.1.3:B$(ZZ)..(B(|
00002530: 5A 5A 29 29 3A 82 00 3C 2D B4 0A 8E 00 49 2D BE |ZZ)):..<-....I-.|
00002540: 0A 81 5A 5A B2 31 A4 20 39 00 5E 2D C8 0A 45 28 |..ZZ.1. 9.^-..E(|
00002550: 5A 5A 29 B2 B5 28 31 30 AC BB 28 31 29 29 00 7B |ZZ)..(10..(1)).{|
00002560: 2D D2 0A 8B 45 28 5A 5A 29 B2 31 A7 45 24 28 5A |-...E(ZZ).1.E$(Z|
00002570: 5A 29 B2 22 22 3A 89 32 37 39 30 00 9C 2D DC 0A |Z)."":.2790..-..|
00002580: 45 24 28 5A 5A 29 B2 22 91 22 AA CA 28 C4 28 45 |E$(ZZ)."."..(.(E|
00002590: 28 5A 5A 29 29 2C 32 29 AA 22 11 22 00 A2 2D E6 |(ZZ)),2)."."..-.|
000025A0: 0A 82 00 A8 2D F0 0A 8E 00 B5 2D FA 0A 81 5A 5A |....-.....-...ZZ|
000025B0: B2 31 A4 20 39 00 CC 2D 04 0B 45 28 5A 5A 29 B2 |.1. 9..-..E(ZZ).|
000025C0: B5 28 31 39 AC BB 28 31 29 29 AB 39 00 E9 2D 0E |.(19..(1)).9..-.|
000025D0: 0B 8B 45 28 5A 5A 29 B2 31 A7 45 24 28 5A 5A 29 |..E(ZZ).1.E$(ZZ)|
000025E0: B2 22 22 3A 89 32 38 36 30 00 1C 2E 18 0B 8B 45 |."":.2860......E|
000025F0: 28 5A 5A 29 B1 30 A7 20 45 24 28 5A 5A 29 B2 22 |(ZZ).0. E$(ZZ)."|
00002600: 91 22 AA CA 28 C4 28 45 28 5A 5A 29 29 2C 32 29 |."..(.(E(ZZ)),2)|
00002610: 20 AA 22 11 22 20 3A 89 32 38 36 30 00 39 2E 22 | ."." :.2860.9."|
00002620: 0B 45 24 28 5A 5A 29 B2 22 91 22 AA 20 C4 28 45 |.E$(ZZ).".". .(E|
00002630: 28 5A 5A 29 29 AA 22 11 22 00 3F 2E 2C 0B 82 00 |(ZZ)).".".?.,...|
00002640: 45 2E 36 0B 8E 00 5B 2E 40 0B 81 5A 59 B2 31 A4 |E.6...[.@..ZY.1.|
00002650: 33 3A 54 28 5A 59 29 B2 30 3A 82 00 70 2E 4A 0B |3:T(ZY).0:..p.J.|
00002660: 81 5A 59 B2 31 A4 46 3A 81 5A 58 B2 31 A4 4C 56 |.ZY.1.F:.ZX.1.LV|
00002670: 00 93 2E 54 0B 54 28 5A 59 29 B2 54 28 5A 59 29 |...T.T(ZY).T(ZY)|
00002680: AA 28 45 28 33 AC 28 5A 58 AB 31 29 AA 5A 59 29 |.(E(3.(ZX.1).ZY)|
00002690: 29 AE 32 00 9B 2E 5E 0B 82 3A 82 00 A7 2E 68 0B |).2...^..:....h.|
000026A0: 81 5A 5A B2 31 A4 33 00 BE 2E 72 0B 43 28 5A 5A |.ZZ.1.3...r.C(ZZ|
000026B0: 29 B2 B5 28 31 37 AC BB 28 31 29 29 AB 38 00 D0 |)..(17..(1)).8..|
000026C0: 2E 7C 0B 8B 43 28 5A 5A 29 B2 30 A7 32 39 33 30 |.|..C(ZZ).0.2930|
000026D0: 00 F8 2E 86 0B 8B 43 28 5A 5A 29 B2 31 AF 54 28 |......C(ZZ).1.T(|
000026E0: 5A 5A 29 B3 B1 30 20 A7 43 24 28 5A 5A 29 B2 22 |ZZ)..0 .C$(ZZ)."|
000026F0: 20 22 3A 89 32 39 38 30 00 22 2F 90 0B 8B 43 28 | ":.2980."/...C(|
00002700: 5A 5A 29 B2 AB 31 AF 54 28 5A 5A 29 B3 B1 30 20 |ZZ)..1.T(ZZ)..0 |
00002710: A7 43 24 28 5A 5A 29 B2 22 2D 20 22 3A 89 32 39 |.C$(ZZ)."- ":.29|
00002720: 38 30 00 36 2F 9A 0B 43 24 28 5A 5A 29 B2 C4 28 |80.6/..C$(ZZ)..(|
00002730: 43 28 5A 5A 29 29 00 3C 2F A4 0B 82 00 42 2F AE |C(ZZ)).</....B/.|
00002740: 0B 8E 00 50 2F B8 0B 43 41 B2 31 3A 54 45 B2 30 |...P/..CA.1:TE.0|
00002750: 00 67 2F C2 0B 81 5A 5A B2 31 A4 33 3A 41 45 28 |.g/...ZZ.1.3:AE(|
00002760: 5A 5A 29 B2 30 3A 82 00 72 2F CC 0B 81 49 B2 31 |ZZ).0:..r/...I.1|
00002770: A4 46 00 81 2F D6 0B 43 41 B2 43 41 AC 43 28 49 |.F../..CA.CA.C(I|
00002780: 29 00 8C 2F E0 0B 81 4A B2 31 A4 46 00 A9 2F EA |)../...J.1.F../.|
00002790: 0B 41 45 28 49 29 B2 41 45 28 49 29 AA 45 28 33 |.AE(I).AE(I).E(3|
000027A0: AC 28 49 AB 31 29 AA 4A 29 00 B0 2F F4 0B 82 4A |.(I.1).J)../...J|
000027B0: 00 CA 2F FE 0B 54 45 B2 54 45 AA 28 41 45 28 49 |../..TE.TE.(AE(I|
000027C0: 29 29 AC 28 41 45 28 49 29 29 00 E7 2F 08 0C 8B |)).(AE(I))../...|
000027D0: 41 45 28 49 29 B2 31 A7 41 45 24 28 49 29 B2 22 |AE(I).1.AE$(I)."|
000027E0: 22 3A 89 33 31 31 30 00 17 30 12 0C 8B 41 45 28 |":.3110..0...AE(|
000027F0: 49 29 B1 30 A7 41 45 24 28 49 29 B2 22 91 22 AA |I).0.AE$(I).".".|
00002800: CA 28 C4 28 41 45 28 49 29 29 2C 32 29 AA 22 11 |.(.(AE(I)),2).".|
00002810: 22 3A 89 33 31 31 30 00 33 30 1C 0C 41 45 24 28 |":.3110.30..AE$(|
00002820: 49 29 B2 22 91 22 AA C4 28 41 45 28 49 29 29 AA |I)."."..(AE(I)).|
00002830: 22 11 22 00 3A 30 26 0C 82 49 00 40 30 30 0C 8E |".".:0&..I.@00..|
00002840: 00 53 30 3A 0C 99 22 20 3D 20 22 3B 41 45 28 49 |.S0:.." = ";AE(I|
00002850: 29 3A 99 00 5A 30 44 0C 82 49 00 00 00 |):..Z0D..I... |
.......910.*.... ** ML STOP KEY DISABLE
**.U...."X.=........X` ......LX.X.U.....
...X`.T...."XHHH.H.HHHHHHH.H.HX`111"....
.."HHHHHHH`1"...... ** 4 - POP ML SUBROU
TINE **.H.... **GENERAL INPUT ROUTINE **
.N...:.T...:...#.. +++ INPUT SECTION +++
...(..U0,0:UR$."":UI$.""...*..UL.0.UL.80
.".-..UC,0.6.2..UI$:.UI$."".50.`.7..UI$.
G(13).C(UR$)..1..UC,1:." .";:.85.S.<..UI
$.G(20).105...>.. C(UR$)..UL.50...A..120
:. CHECK FOR VALID CHARACTER...F.UR$.UR$
.UI$.F.K..UI$;.N.P..50...U.. +++ CHECK F
OR HELP REQUEST +++...Z..UR$.UX$.195:. E
XIT TO HELP ROUTINE.*._..UF.1..240.7.D.U
F.0:.:..P.F.. ++ CHECK DELETE ++.A.I..C(
UR$).1.50.Y.N.UR$.H(UR$,C(UR$).1)...S.."
. ..";:.50...X.. ++ CHECK FOR VALID CHA
RACTERS ++.D.}..C(US$).0.150.U....US.1.C
(US$)......UI$.J(US$,US,1).............U
I$."":....... ** STANDARD INPUT **.+....
F(UI$).46...<....UI$.G(32)...Y. ..F(UI$)
.48.F(UI$).57.170._.....|....F(UI$).65.F
(UI$).90.180............F(UI$).193.F(UI$
).218.UI$."":..I....B(UT).UU%.UI$.G(F(UI
$).128):..O.........UI$."":....C.UF.1:.
+++ HELP ROUTINE EXIT +++...E..250...H..
245.2.M..UQ.UB.(U2%.256.U1%.U3%.2).N.R.U
Q%(UQ.UB).B(UQ):.:.".".A.W.UZ.1:UV%.B(UT
).J.X..300...Y.UZ.0:US$.UJ$:UG$.UK$:UP.U
J:UL.UK:.B(50003).0..53281,6:.53280,14..
...UT$.UL$:.".";:.UT,UV%:.UQ.UB.(U2%.256
.U1%.U3%.3)......UQ,UQ%(UQ.UB):.......U1
,U1%......U2,U2%......U4,U4%.*....U3,U3%
.1.2....35.D...UD%.((U2%.256.U1%.U3%).UB
).40:.H(UD$,UD%.1):.......H(UD$,24);"
. HELP COMING . ":..
K...U1%.B(U1):U2%.B(U2):U3%.B(U3):U4%.B(
U4).....UJ$.US$:UK$.UG$:UL$.UT$:UJ.UP:UK
.UL.........,.. ** MENU **...-.:.?....".
":.UT,UU%:.B(50003).0..53281,9:.53280,8.
E./.:.B.1..". MENU"...6..
" --------------------------------------
".A.;..".. 1. BEGIN MONOMIAL MULTIP
LICATION"...@..".. 2. STUDENT INSTR
UCTIONS"...E..".. 3. TEACHER INSTRU
CTIONS".(.O..".. 4. QUIT..".W.T.."
--------------------------------------".
..Y..".. PRESS A NUMBER KEY (1-4)
";...^.UL.1:US$."1234":.35:. INPUT ROUTI
NE...`.US$."".R.C..E(UR$).1000,400,500,3
96...H..300...... ** RE-ENABLE STOP KEY
AND END **.1....B(50003)..1.B(50003)..16
0.B(50003)..0.399.[....UU.71:.B(50003).0
..53281,6:.53280,14.G...."..":..R....875
:....... ** STUDENT INSTRUCTIONS **.B...
.".":.UT,UL%:.B(50003).0..53281,0:.53280
,0.....UP.0:UG$."STUDENT INST":.850.....
: .". REMEMBER, HIT <RETURN> KEY AFT
ER".@...: .". TYPING YOUR ANSWER. THI
S TELLS".N. .: .". THE COMPUTER TO AC
CEPT WHAT YOU".....: .". HAVE TYPED."
.....: .". TYPE SHIFTED <Q> AT ANY T
IME TO".....: .". QUIT DOING QUESTION
S AND RETURN TO".....: .". THE MENU.
".1....". TO SKIP A QUESTION, ENTER
SHIFTED".Q....". <S> FOR YOUR ANSWER.
".A...: .835:.850......". THIS PROGRAM G
IVES PRACTICE IN MULTI-"......". PLYING
TWO OR THREE MONOMIAL FACTORS"......". W
ITH EXPONENTS. IN THE MULTIPLICATION"...
...". QUESTIONS WHICH FOLLOW,THERE ARE T
HREE".K....". LEVELS OF DIFFICULTY TO CH
OOSE FROM.".{....". ENTER YOUR COMPLETE
ANSWER IN THE SAME"......". WAY THAT YOU
WOULD WRITE IT ON PAPER.":.835.C....UZ.
1..UP%:.217.I.......... ** TEACHER INSTR
UCTIONS **......".":.UT,UL%:.B(50003).0.
.53281,2:.53280,10.;...UP.0:UG$."TEACHER
INST":.850.I....".. TO THE BEST OF
OUR KNOWLEDGE,."......" THIS PROGRAM
IS IN THE PUBLIC."......" DOMAIN. IF
THIS IS NOT THE CASE."......" PLEASE C
ONTACT:..."......" COMMODORE BUSINE
SS MACHINES.".(...." 3370 PHARM
ACY AVE..L...." AGINCOURT, ONTA
RIO".N...." CANADA M1W 2K4"..
...." (416) 499-4292".....UP.1:
. 835:. 850:.U...." ..PROGRAM NAME: MONO
MIAL MULTIPLICATION."......" WRITTEN BY
: J. B. NICHOLSON ......." UPGRADED BY
: ..G...." .THIS PROGRAM WI
LL RUN ON ANY...N...." BASIC 2.0
PET COMPUTER......." BASIC 4.0
PET COMPUTER......." 8032 CBM CO
MPUTER......." COMMODORE 64 COMP
UTER......835...N..UZ.1..UP%:.217...W...
%.X.. ** PROGRAM MODIFICATION INST **.6.
Y..".":.UT,UL%.V.].UP.0:UG$."PROGRAM MOD
":.850._....835.S....UZ.1..UP%:.217.Y...
....... ** TO USE 8032 LOAD CBM4032 **.T
.F..".....BEFORE RUNNING THIS PROGRAM ON
AN 8032 .....P.." LOAD THE 'CBM 4
032' PROGRAM............."...Z..UU.71...
....;. .. ** T I T L E P A G E **.O.".
."....";:.UT,UU%:.B(50003).0..53280,14:.
53281,6...$..I.1.38:."...";:....&..I.1.2
2:.".....";:....(..I.1.37:.".....";:..M.
*..I.1.22:.".....";:....,.."............
............... ......."...............
.... . . ...5.0.."................... .
....S.2..".................... ..{.4.
."..............C O M M O D O R E.....6.
."...............EDUCATIONAL.....8.."...
.............SOFTWARE.X.:.. ** COMMODORE
LOGO **...;..H(UD$,24);"..........PRESS
SPACE BAR OR WAIT.":I.0.2.<..A$:.A$.."
".I.I.1:.I.250.828.V.>.T1$."":T2$."":T3$
."":T4$."":I.0._.@..300.{.C.. ** SPACE B
AR PRESS **...H..UO,0:.H(UD$,24);"...
.PRESS SPACE BAR TO CONTINUE. ".Q.L..
UI$:.UI$.." ".844.W.N.....R.. ** PAGE DE
SIGN ROUTINE **...T.UP.UP.1.-.W.."."H(UT
$.UP$,21);I(UP$.UG$.D(UP),18).\.\.." ---
-----------------------------------".K.`
..UH..0.870...A..H(UD$,24);H(UP$,7);"QUI
T - PRESS SHIFTED Q "...F.UH.0:."..":..M
.K.. ** PLEASE WAIT REMARK **...P..H(UD$
,24);" ONE MOMENT PLEASE...
"...U...&.... ** SET UP VARIABLES **.Q
...UX$."H":.UQ%(1000):UB.32768:U1.196:U2
.197:U3.198:U4.216:UC.167:UU.1024.....UT
.59468:UU%.12:UL%.14:UP%.1146:UM.32768:U
O.158:. 50003,0......B(50003).0.UB.1024:
U1.209:U2.210:U3.211:U4.214:UC.204:UU.20
48.1....B(50003).0.UT.53272:UU%.21:UL%.2
3:UP%.2139:UM.1024:UO.198.U...UD$.".....
....................".....UP$."
".U...UT$.
" MONOMIAL MULT. ":. PLACE PROGRAM TI
TLE HERE !!!!!!!!!!!!!!!!!***...........
. ** SET VARIABLES **......900...... **
CHECK FOR 8032 **.7....".":." ":. SHIFTE
D SPACE.N....B(UB.40)..96..700.G.... **
MEMORY CHECK **.{.... .(0).2000.937.....
."....THIS MACHINE DOES NOT HAVE ENOUGH.
".M...."MEMORY TO RUN THIS PROGRAM !".X.
...UU.71............"..":.B(50003).0.962
.'.... ** BASIC 2.0 OR 4.0 OR C-64 S
ETUP **.E....1075,133:.1076,144:.1077,23
4:.1079,4:.1080,133:.1081,145......1091,
155:.1098,133:.1099,144:.1100,234:.1103,
133......1104,145:.1105,234:.1082,234.T.
...B(50003)..160.955.. ...1093,88:.1094,
228:.1097,85:.1102,228:.965.. ...B(50003
)..1.990.G ...1093,49:.1094,230:.1097,46
:.1102,230:.965.. B..2099,141:.2100,20:.
2101,3:.2103,8:.2104,141:.2105,21.. C..2
106,3:.2115,145:.2117,52:.2118,234:.2121
,49:.2122,141.. D..2123,20:.2124,3:.2126
,234:.2127,141:.2128,21:.2129,3..!E..UU.
48:. DISABLE STOP KEY.&!J..800:. TITLE.6
!T..300:. MENU.G!...".THE PGM WILL NOT W
ORK ON THIS MACHINE!":...!...UZ.1..UP%:.
UP%:UZ.0:. ** PROGRAM STARTS HERE **.G!.
.."..";:.:.B(50003).0..53281,6:.53280,6.
S!...UT,UL%..!..DN$."...................
.....".("$.BL$."
".Q"..B1$.".. . . . . . .
. . . . . . . .".Z"8.B2$.".
".."B.B3$."..
.":.1170.."L..".....":.
.5)B1$.."V..I.1.5:..5)B2$:..5)B3$:..."`.
..5)B2$:..5)B1$:."........"..#J...14)".M
ULTIPLYING..".-#T...15)".MONOMIALS..".K#
~...11)".BY J.B. NICHOLSON".[#...I.1.150
0:..Y#..UG$."":UP.0:UH.1:.850:H.0..#..."
... WHAT LEVEL OF DIFFICULTY DO YOU WANT
?".U#...". (1 EASY, 2 AVERAGE, AND 3 HAR
D) ";..#N..2030:LV.E(Y$)..$...".. ARE NE
GATIVE EXPONENTS OK? ";:.2040.,$...Y$."Y
".NG.2:.1320.5$..NG.1.C$(..H.0.1390.K$Z.
H.1.Y$N..835:NQ.0..$X.UG$."QUESTION #":N
Q.NQ.1:UP.NQ.1:.850:.". SIMPLIFY:."..$..
.NG.2750,2810..$...LV.3.F.3:.1440.A$..F.
2.Q$ ..2680:.2880..$...:.I.1.F..$..."[";
C$(I);..$...J.1.LV..%H..E(I.(J.1).3).0
.1500./%R..B$(J);E$(I.(J.1).3);.6%...J.@
%..."]";.J%...I :..C%..D.1: Q$."..= ":.2
170.Y%...D.1550,1400,1970..%...3000..%..
WC.0. %"..SE(0)..CA.WC.1..%,..I.1.LV..%6
.L(I).0:W(I).0.J%@..J.1.LV..%J..B$(I).SB
$(J).L(I).J:J.LV..%T..J..%^..I..&H..I.1.
LV..&R..L(I).0.1680.,&|..AE(I).SE(L(I)).
1700.=&..W(I).1:.1700.O&...AE(I).0.1700.
Z&..W(I).1.A&...I..&...WC.W(1).W(2).W(3)
.0.."..RIGHT!":.1950.R&..."..
":." CORRECT
ANSWER:=";..&B..CA.1.TE..0 .1760..'L..C
A..1.TE..0 .."- ";:.1760..'V..D(CA);.!'
...I.1.LV.3'...AE(I).0.1790.F'...B$(I);A
E$(I);.L'....U'... :..H'..."COEFFICIENT"
.Y'..."=";:.I.1.F..'&.."[";C(I);"]";..'0
....':.." = ";CA:...'D..I.1.LV.T'N.."EXP
ONENT OF BASE ";B$(I):."= ";..'X..J.1.F.
.'B.."[";E(3.(I.1).J);"]";..(L..J.F .."
+ ";..(V..J.&(..." = ";AE(I);.L(...AE(I
).0.."AND ";B$(I);".0. = 1";.W(...:.:.I.
`(...835.J(...1400.(...835:.:.900:.300.
.(..US$."123":UL.1:.2050..(..US$."YN":UL
.1..(...35:Y$.UR$:..P(Z..Z$:.Z$.."".2170
.Y(...Q$;..(..Y$."":P$."":TC.0:."..";..)
...Z$:.Z$."".2200.$)...Z$."S". D.2:.Z$:.
2550.B)...Z$."Q".D.3:.Z$:.UP%:.300.N)..Z
.F(Z$).])...Z.13.2410.S)J..Z.20.Z.157 .2
290..)T.. Z.64.Z.91 .P$.P$."D":TC.1:.Z$;
:Y$.Y$.Z$:.2200.H)...Z.43.(Z.44.Z.58.Z..
47).2390.R)...2200..)...Y$."".2200..)...
C(Y$)..1..".";:.2190..*..Y$.H(Y$,C(Y$).1
):R$.I(P$,1) :P$.H(P$,C(P$).1).K*...R$."
U". .".. ..";:.2340.W*...". .";.W*$..ZZ.
1.C(Y$):T.F(J(Y$,ZZ,1))..*...T. 65 .TC.0
:.2370..*8.TC.1: ZZ.C(Y$)..*B....*L..220
0.Y*V..TC.0.P$.P$."D":.Z$;:Y$.Y$.Z$:.220
0..+`.P$.P$."U":.".".Z$.".";:Y$.Y$.Z$:.2
200..+J....+T.TC.0:ZE.0:ZB.1.7+~..ZZ.0.
9:SE$(ZZ)."": ..P+...ZZ.1.3:SB$(ZZ)."":.
.`+...Y$."".2500..+..L$.H(Y$,1):T.F(L$):
Y$.J(Y$,2)..+...T.65.TC.0.SE$(0).SE$(0).
L$:.2450.K+...T.65.SE$(ZE).SE$(ZE).L$:.2
450..+..SB$(ZB).L$:TC.1:ZB.ZB.1:ZE.ZE.1:
.2450..,D..ZZ.0. 9:SE(ZZ). E(SE$(ZZ))..,
N..SE$(ZZ)."".SE(ZZ).1.4,X...V,...SE$(0)
."".SE$(0)."+".SE(0).1.O,...SE$(0)."-".S
E(0)..1.U,.....,Z.T..(26..(1)).65..,D..T
.69.T.72.T.73.T.76.T.79.T.88.T.83.2650..
,N...M,X..2650:B(1).T..,...2650:.T.B(1).
2690..,..B(2).T..-...2650:.T.B(1).T.B(2)
.2710..- .B(3).T.6-...ZZ.1.3:B$(ZZ).G(B(
ZZ)):..<-....I-...ZZ.1. 9.^-H.E(ZZ)..(10
..(1)).{-R..E(ZZ).1.E$(ZZ)."":.2790..-..
E$(ZZ).".".J(D(E(ZZ)),2)."."..-.....-...
..-...ZZ.1. 9.L-..E(ZZ)..(19..(1)).9..-.
..E(ZZ).1.E$(ZZ)."":.2860......E(ZZ).0.
E$(ZZ).".".J(D(E(ZZ)),2) ."." :.2860.9."
.E$(ZZ).".". D(E(ZZ)).".".?.,...E.6...[.
@..ZY.1.3:T(ZY).0:..P.J..ZY.1.F:.ZX.1.LV
...T.T(ZY).T(ZY).(E(3.(ZX.1).ZY)).2...^.
.:....H..ZZ.1.3...R.C(ZZ)..(17..(1)).8.P
.|..C(ZZ).0.2930......C(ZZ).1.T(ZZ)..0 .
C$(ZZ)." ":.2980."/...C(ZZ)..1.T(ZZ)..0
.C$(ZZ)."- ":.2980.6/..C$(ZZ).D(C(ZZ)).<
/....B/....P/..CA.1:TE.0.G/B..ZZ.1.3:AE(
ZZ).0:..R/L..I.1.F../V.CA.CA.C(I)../...J
.1.F../..AE(I).AE(I).E(3.(I.1).J)../...J
.J/..TE.TE.(AE(I)).(AE(I))../...AE(I).1.
AE$(I)."":.3110..0...AE(I).0.AE$(I).".".
J(D(AE(I)),2).".":.3110.30..AE$(I).".".D
(AE(I)).".".:0&..I.@00...S0:.." = ";AE(I
):..Z0D..I...
> CLICK IMAGE PREVIEW FOR FULL MODAL