MATHPACK.C3
FILE INFORMATION
FILENAME(S): MATHPACK.C3
FILE TYPE(S): PRG
FILE SIZE: 15.7K
FIRST SEEN: 2025-11-30 01:07:53
APPEARS ON: 2 disk(s)
FILE HASH
c2b7a947fbad463a42779f5a27e8cf4d402f27243b925c03791de2d356901cbe
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FREESOFT DISK NR | MATHPACK.C3 | PRG | Treasure Chest - Wolfgang Rauprich | 28 | 8 | DOWNLOAD FILE |
| L EHRNEN | MATHPACK.C3 | PRG | Treasure Chest - Wolfgang Rauprich | 28 | 8 | 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 DA 0E 3B 01 99 22 11 11 20 |-----"...;..".. |
000006C0: 20 20 20 20 20 20 31 2E 20 20 20 42 45 47 49 4E | 1. BEGIN|
000006D0: 20 4D 41 54 48 50 41 43 4B 22 00 04 0F 40 01 99 | MATHPACK"...@..|
000006E0: 22 11 11 20 20 20 20 20 20 20 32 2E 20 20 20 53 |".. 2. S|
000006F0: 54 55 44 45 4E 54 20 49 4E 53 54 52 55 43 54 49 |TUDENT INSTRUCTI|
00000700: 4F 4E 53 22 00 2E 0F 45 01 99 22 11 11 20 20 20 |ONS"...E..".. |
00000710: 20 20 20 20 33 2E 20 20 20 54 45 41 43 48 45 52 | 3. TEACHER|
00000720: 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 22 00 4A | INSTRUCTIONS".J|
00000730: 0F 4F 01 99 22 11 11 20 20 20 20 20 20 20 34 2E |.O..".. 4.|
00000740: 20 20 20 51 55 49 54 11 11 22 00 79 0F 54 01 99 | QUIT..".y.T..|
00000750: 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |" --------------|
00000760: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000770: 2D 2D 2D 2D 2D 2D 2D 2D 22 00 A4 0F 59 01 99 22 |--------"...Y.."|
00000780: 11 11 20 20 20 20 20 20 20 50 52 45 53 53 20 41 |.. PRESS A|
00000790: 20 4E 55 4D 42 45 52 20 4B 45 59 20 28 31 2D 34 | NUMBER KEY (1-4|
000007A0: 29 20 22 3B 00 CC 0F 5E 01 55 4C B2 31 3A 55 53 |) ";...^.UL.1:US|
000007B0: 24 B2 22 31 32 33 34 22 3A 8D 33 35 3A 8F 20 49 |$."1234":.35:. I|
000007C0: 4E 50 55 54 20 52 4F 55 54 49 4E 45 00 D7 0F 60 |NPUT ROUTINE...`|
000007D0: 01 55 53 24 B2 22 22 00 F4 0F 63 01 91 C5 28 55 |.US$.""...c...(U|
000007E0: 52 24 29 8D 31 30 30 30 2C 34 30 30 2C 35 30 30 |R$).1000,400,500|
000007F0: 2C 33 39 36 00 FD 0F 68 01 89 33 30 30 00 24 10 |,396...h..300.$.|
00000800: 8B 01 8F 20 2A 2A 20 52 45 2D 45 4E 41 42 4C 45 |... ** RE-ENABLE|
00000810: 20 53 54 4F 50 20 4B 45 59 20 41 4E 44 20 45 4E | STOP KEY AND EN|
00000820: 44 20 2A 2A 00 53 10 8C 01 8B C2 28 35 30 30 30 |D **.S.....(5000|
00000830: 33 29 B3 B1 31 AF C2 28 35 30 30 30 33 29 B3 B1 |3)..1..(50003)..|
00000840: 31 36 30 AF C2 28 35 30 30 30 33 29 B3 B1 30 A7 |160..(50003)..0.|
00000850: 33 39 39 00 7D 10 8D 01 9E 55 55 AA 37 31 3A 8B |399.}....UU.71:.|
00000860: C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 |.(50003).0..5328|
00000870: 31 2C 36 3A 97 35 33 32 38 30 2C 31 34 00 89 10 |1,6:.53280,14...|
00000880: 8E 01 99 22 9A 93 22 3A 80 00 94 10 8F 01 8D 38 |..."..":.......8|
00000890: 37 35 3A 8E 00 B5 10 90 01 8F 20 2A 2A 20 53 54 |75:....... ** ST|
000008A0: 55 44 45 4E 54 20 49 4E 53 54 52 55 43 54 49 4F |UDENT INSTRUCTIO|
000008B0: 4E 53 20 2A 2A 00 E4 10 95 01 99 22 93 22 3A 97 |NS **......".":.|
000008C0: 55 54 2C 55 4C 25 3A 8B C2 28 35 30 30 30 33 29 |UT,UL%:..(50003)|
000008D0: B2 30 A7 97 35 33 32 38 31 2C 30 3A 97 35 33 32 |.0..53281,0:.532|
000008E0: 38 30 2C 30 00 0A 11 9A 01 55 48 B2 31 3A 55 50 |80,0.....UH.1:UP|
000008F0: B2 30 3A 55 47 24 B2 22 D3 54 55 44 45 4E 54 20 |.0:UG$.".TUDENT |
00000900: C9 4E 53 54 22 3A 8D 38 35 30 00 3B 11 9B 01 99 |.NST":.850.;....|
00000910: 22 11 11 11 11 1D 1D 1D D4 48 49 53 20 50 52 4F |"........HIS PRO|
00000920: 47 52 41 4D 20 47 49 56 45 53 20 59 4F 55 20 45 |GRAM GIVES YOU E|
00000930: 49 47 48 54 20 54 59 50 45 53 22 00 6B 11 9C 01 |IGHT TYPES".k...|
00000940: 99 22 11 20 4F 46 20 41 4C 47 45 42 52 41 49 43 |.". OF ALGEBRAIC|
00000950: 20 50 52 4F 42 4C 45 4D 53 2E 20 C9 4E 20 54 48 | PROBLEMS. .N TH|
00000960: 45 20 50 41 52 54 53 20 4F 46 22 00 9A 11 9D 01 |E PARTS OF".....|
00000970: 99 22 11 20 54 48 45 20 50 52 4F 47 52 41 4D 20 |.". THE PROGRAM |
00000980: 57 48 45 52 45 20 4D 55 4C 54 49 50 4C 45 20 49 |WHERE MULTIPLE I|
00000990: 4E 50 55 54 53 20 41 52 45 22 00 C7 11 9E 01 99 |NPUTS ARE"......|
000009A0: 22 11 20 41 53 4B 45 44 20 28 45 47 2E 20 C5 4E |". ASKED (EG. .N|
000009B0: 54 45 52 20 58 31 2C 59 31 2C 4E 31 2C 58 32 2C |TER X1,Y1,N1,X2,|
000009C0: 59 32 2C 4E 32 29 22 00 F3 11 9F 01 99 22 11 20 |Y2,N2)"......". |
000009D0: 54 59 50 45 20 54 48 45 20 4E 55 4D 42 45 52 53 |TYPE THE NUMBERS|
000009E0: 20 49 4E 20 4F 4E 45 20 41 54 20 41 20 54 49 4D | IN ONE AT A TIM|
000009F0: 45 2E 22 00 20 12 A0 01 99 22 11 1D 1D 1D C9 46 |E.". ....".....F|
00000A00: 20 59 4F 55 20 57 49 53 48 20 54 4F 20 51 55 49 | YOU WISH TO QUI|
00000A10: 54 2C 20 54 59 50 45 20 27 D1 27 20 41 4E 44 22 |T, TYPE '.' AND"|
00000A20: 00 4F 12 A1 01 99 22 11 20 54 48 41 54 20 57 49 |.O....". THAT WI|
00000A30: 4C 4C 20 42 52 49 4E 47 20 59 4F 55 20 42 41 43 |LL BRING YOU BAC|
00000A40: 4B 20 54 4F 20 54 48 45 20 4D 45 4E 55 2E 22 00 |K TO THE MENU.".|
00000A50: 65 12 C7 01 8D 38 33 35 3A 55 50 B2 55 50 AA 31 |e....835:UP.UP.1|
00000A60: 3A 8D 38 35 30 00 9A 12 CC 01 99 22 11 11 20 CE |:.850......".. .|
00000A70: 4F 54 45 3A 11 11 11 9D 9D 9D D4 4F 20 41 44 56 |OTE:.......O ADV|
00000A80: 41 4E 43 45 20 46 52 4F 4D 20 4F 4E 45 20 51 55 |ANCE FROM ONE QU|
00000A90: 45 53 54 49 4F 4E 20 54 4F 22 00 C1 12 D6 01 99 |ESTION TO"......|
00000AA0: 22 11 20 54 48 45 20 4E 45 58 54 20 50 52 45 53 |". THE NEXT PRES|
00000AB0: 53 20 54 48 45 20 D3 D0 C1 C3 C5 20 42 41 52 2E |S THE ..... BAR.|
00000AC0: 22 00 F2 12 DB 01 99 22 11 11 1D 1D 1D C9 46 20 |"......"......F |
00000AD0: 41 54 20 41 4E 59 20 54 49 4D 45 20 59 4F 55 20 |AT ANY TIME YOU |
00000AE0: 57 49 53 48 20 54 4F 20 52 45 54 55 52 4E 20 54 |WISH TO RETURN T|
00000AF0: 4F 22 00 21 13 E0 01 99 22 11 20 54 48 45 20 CD |O".!....". THE .|
00000B00: C5 CE D5 20 54 45 4D 50 4F 52 41 52 49 4C 59 2C |... TEMPORARILY,|
00000B10: 20 50 52 45 53 53 20 48 20 D2 C5 D4 D5 D2 CE 2E | PRESS H .......|
00000B20: 22 00 2A 13 E5 01 8D 38 33 35 00 3E 13 EA 01 8B |".*....835.>....|
00000B30: 55 5A B2 31 A7 9E 55 50 25 3A 89 32 31 37 00 44 |UZ.1..UP%:.217.D|
00000B40: 13 F3 01 8E 00 65 13 F4 01 8F 20 2A 2A 20 54 45 |.....e.... ** TE|
00000B50: 41 43 48 45 52 20 49 4E 53 54 52 55 43 54 49 4F |ACHER INSTRUCTIO|
00000B60: 4E 53 20 2A 2A 00 95 13 F5 01 99 22 93 22 3A 97 |NS **......".":.|
00000B70: 55 54 2C 55 4C 25 3A 8B C2 28 35 30 30 30 33 29 |UT,UL%:..(50003)|
00000B80: B2 30 A7 97 35 33 32 38 31 2C 32 3A 97 35 33 32 |.0..53281,2:.532|
00000B90: 38 30 2C 31 30 00 BB 13 F6 01 55 48 B2 31 3A 55 |80,10.....UH.1:U|
00000BA0: 50 B2 30 3A 55 47 24 B2 22 D4 45 41 43 48 45 52 |P.0:UG$.".EACHER|
00000BB0: 20 C9 4E 53 54 22 3A 8D 38 35 30 00 E9 13 F7 01 | .NST":.850.....|
00000BC0: 99 22 11 11 20 20 20 20 20 20 D4 4F 20 54 48 45 |.".. .O THE|
00000BD0: 20 42 45 53 54 20 4F 46 20 4F 55 52 20 4B 4E 4F | BEST OF OUR KNO|
00000BE0: 57 4C 45 44 47 45 2C 11 22 00 12 14 F8 01 99 22 |WLEDGE,."......"|
00000BF0: 20 20 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 | THIS PROGRAM |
00000C00: 49 53 20 49 4E 20 54 48 45 20 50 55 42 4C 49 43 |IS IN THE PUBLIC|
00000C10: 11 22 00 3E 14 F9 01 99 22 20 20 20 44 4F 4D 41 |.".>...." DOMA|
00000C20: 49 4E 2E 20 20 C9 46 20 54 48 49 53 20 49 53 20 |IN. .F THIS IS |
00000C30: 4E 4F 54 20 54 48 45 20 43 41 53 45 11 22 00 5B |NOT THE CASE.".[|
00000C40: 14 FA 01 99 22 20 20 20 50 4C 45 41 53 45 20 43 |...." PLEASE C|
00000C50: 4F 4E 54 41 43 54 3A 11 11 11 22 00 85 14 FB 01 |ONTACT:...".....|
00000C60: 99 22 20 20 20 20 20 20 C3 4F 4D 4D 4F 44 4F 52 |." .OMMODOR|
00000C70: 45 20 C2 55 53 49 4E 45 53 53 20 CD 41 43 48 49 |E .USINESS .ACHI|
00000C80: 4E 45 53 11 22 00 A8 14 FC 01 99 22 20 20 20 20 |NES."......" |
00000C90: 20 20 20 20 20 20 33 33 37 30 20 D0 48 41 52 4D | 3370 .HARM|
00000CA0: 41 43 59 20 C1 56 45 2E 00 CC 14 FD 01 99 22 20 |ACY .VE......." |
00000CB0: 20 20 20 20 20 20 20 20 20 C1 47 49 4E 43 4F 55 | .GINCOU|
00000CC0: 52 54 2C 20 CF 4E 54 41 52 49 4F 22 00 EE 14 FE |RT, .NTARIO"....|
00000CD0: 01 99 22 20 20 20 20 20 20 20 20 20 20 C3 41 4E |.." .AN|
00000CE0: 41 44 41 20 20 20 CD 31 D7 20 32 CB 34 22 00 0E |ADA .1. 2.4"..|
00000CF0: 15 FF 01 99 22 20 20 20 20 20 20 20 20 20 20 28 |...." (|
00000D00: 34 31 36 29 20 34 39 39 2D 34 32 39 32 22 00 29 |416) 499-4292".)|
00000D10: 15 00 02 55 48 B2 31 3A 55 50 B2 31 3A 8D 20 38 |...UH.1:UP.1:. 8|
00000D20: 33 35 3A 8D 20 38 35 30 3A 00 4E 15 01 02 99 22 |35:. 850:.N...."|
00000D30: 20 20 20 20 20 11 11 D0 52 4F 47 52 41 4D 20 CE | ...ROGRAM .|
00000D40: 41 4D 45 3A 20 CD 41 54 48 50 41 43 4B 11 00 70 |AME: .ATHPACK..p|
00000D50: 15 02 02 99 22 20 20 20 20 20 D7 52 49 54 54 45 |...." .RITTE|
00000D60: 4E 20 C2 59 20 20 3A 20 D5 4E 4B 4E 4F 57 4E 11 |N .Y : .NKNOWN.|
00000D70: 00 94 15 03 02 99 22 20 20 20 20 20 D5 50 47 52 |......" .PGR|
00000D80: 41 44 45 44 20 C2 59 20 3A 20 20 20 20 20 20 20 |ADED .Y : |
00000D90: 20 20 20 11 00 BF 15 04 02 99 22 20 20 20 20 20 | ......." |
00000DA0: 11 D4 48 49 53 20 50 52 4F 47 52 41 4D 20 57 49 |..HIS PROGRAM WI|
00000DB0: 4C 4C 20 52 55 4E 20 4F 4E 20 41 4E 59 11 11 00 |LL RUN ON ANY...|
00000DC0: DF 15 07 02 99 22 20 20 20 20 20 20 20 20 20 D0 |....." .|
00000DD0: C5 D4 20 36 34 20 C3 CF CD D0 D5 D4 C5 D2 11 00 |.. 64 ..........|
00000DE0: 04 16 08 02 99 22 20 20 20 20 20 20 20 20 20 C3 |....." .|
00000DF0: CF CD CD CF C4 CF D2 C5 20 36 34 20 C3 CF CD D0 |........ 64 ....|
00000E00: D5 D4 C5 D2 00 0D 16 09 02 8D 38 33 35 00 21 16 |..........835.!.|
00000E10: 4E 02 8B 55 5A B2 31 A7 9E 55 50 25 3A 89 32 31 |N..UZ.1..UP%:.21|
00000E20: 37 00 27 16 57 02 8E 00 4D 16 58 02 8F 20 2A 2A |7.'.W...M.X.. **|
00000E30: 20 50 52 4F 47 52 41 4D 20 4D 4F 44 49 46 49 43 | PROGRAM MODIFIC|
00000E40: 41 54 49 4F 4E 20 49 4E 53 54 20 2A 2A 00 5E 16 |ATION INST **.^.|
00000E50: 59 02 99 22 93 22 3A 97 55 54 2C 55 4C 25 00 83 |Y..".":.UT,UL%..|
00000E60: 16 5D 02 55 48 B2 31 3A 55 50 B2 30 3A 55 47 24 |.].UH.1:UP.0:UG$|
00000E70: B2 22 D0 52 4F 47 52 41 4D 20 CD 4F 44 22 3A 8D |.".ROGRAM .OD":.|
00000E80: 38 35 30 00 8C 16 94 02 8D 38 33 35 00 A0 16 B2 |850......835....|
00000E90: 02 8B 55 5A B2 31 A7 9E 55 50 25 3A 89 32 31 37 |..UZ.1..UP%:.217|
00000EA0: 00 A6 16 BB 02 8E 00 CB 16 BC 02 8F 20 2A 2A 20 |............ ** |
00000EB0: 54 4F 20 55 53 45 20 38 30 33 32 20 4C 4F 41 44 |TO USE 8032 LOAD|
00000EC0: 20 43 42 4D 34 30 33 32 20 2A 2A 00 01 17 C6 02 | CBM4032 **.....|
00000ED0: 99 22 93 11 11 11 05 42 45 46 4F 52 45 20 52 55 |.".....BEFORE RU|
00000EE0: 4E 4E 49 4E 47 20 54 48 49 53 20 50 52 4F 47 52 |NNING THIS PROGR|
00000EF0: 41 4D 20 4F 4E 20 41 4E 20 38 30 33 32 20 20 11 |AM ON AN 8032 .|
00000F00: 11 00 37 17 D0 02 99 22 20 20 20 20 20 20 4C 4F |..7...." LO|
00000F10: 41 44 20 54 48 45 20 27 43 42 4D 20 34 30 33 32 |AD THE 'CBM 4032|
00000F20: 27 20 50 52 4F 47 52 41 4D 11 11 11 11 11 11 11 |' PROGRAM.......|
00000F30: 11 11 11 11 11 11 22 00 42 17 DA 02 9E 55 55 AA |......".B....UU.|
00000F40: 37 31 00 48 17 E4 02 80 00 68 17 20 03 8F 20 2A |71.H.....h. .. *|
00000F50: 2A 20 54 20 49 20 54 20 4C 20 45 20 20 20 50 20 |* T I T L E P |
00000F60: 41 20 47 20 45 20 2A 2A 00 9C 17 22 03 99 22 93 |A G E **..."..".|
00000F70: 11 1D 05 22 3B 3A 97 55 54 2C 55 55 25 3A 8B C2 |...";:.UT,UU%:..|
00000F80: 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 30 |(50003).0..53280|
00000F90: 2C 31 34 3A 97 35 33 32 38 31 2C 36 00 B2 17 24 |,14:.53281,6...$|
00000FA0: 03 81 49 B2 31 A4 33 38 3A 99 22 12 A6 92 22 3B |..I.1.38:."...";|
00000FB0: 3A 82 00 CA 17 26 03 81 49 B2 31 A4 32 32 3A 99 |:....&..I.1.22:.|
00000FC0: 22 11 9D 12 A6 92 22 3B 3A 82 00 E2 17 28 03 81 |".....";:....(..|
00000FD0: 49 B2 31 A4 33 37 3A 99 22 9D 9D 12 A6 92 22 3B |I.1.37:.".....";|
00000FE0: 3A 82 00 FA 17 2A 03 81 49 B2 31 A4 32 32 3A 99 |:....*..I.1.22:.|
00000FF0: 22 91 9D 12 A6 92 22 3B 3A 82 00 1F 18 2C 03 99 |".....";:....,..|
00001000: 22 13 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D |"...............|
00001010: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 A9 20 20 92 00 |............ ..|
00001020: 41 18 2E 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |A...."..........|
00001030: 1D 1D 1D 1D 1D 1D 1D 1D 12 20 92 20 20 12 20 92 |......... . . .|
00001040: A9 00 62 18 30 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D |..b.0.."........|
00001050: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 20 92 20 20 12 |........... . .|
00001060: A3 DF 00 80 18 32 03 99 22 1D 1D 1D 1D 1D 1D 1D |.....2..".......|
00001070: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D DF 12 20 20 92 |............. .|
00001080: 00 A8 18 34 03 99 22 11 11 1D 1D 1D 1D 1D 1D 1D |...4..".........|
00001090: 1D 1D 1D 1D 1D 43 20 4F 20 4D 20 4D 20 4F 20 44 |.....C O M M O D|
000010A0: 20 4F 20 52 20 45 11 11 00 CB 18 36 03 99 22 1D | O R E.....6..".|
000010B0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 45 44 |..............ED|
000010C0: 55 43 41 54 49 4F 4E 41 4C 11 11 00 EA 18 38 03 |UCATIONAL.....8.|
000010D0: 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |."..............|
000010E0: 1D 1D 53 4F 46 54 57 41 52 45 00 05 19 3A 03 8F |..SOFTWARE...:..|
000010F0: 20 2A 2A 20 43 4F 4D 4D 4F 44 4F 52 45 20 4C 4F | ** COMMODORE LO|
00001100: 47 4F 20 2A 2A 00 3D 19 3B 03 99 C8 28 55 44 24 |GO **.=.;...(UD$|
00001110: 2C 32 34 29 3B 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 |,24);"..........|
00001120: 50 52 45 53 53 20 53 50 41 43 45 20 42 41 52 20 |PRESS SPACE BAR |
00001130: 4F 52 20 57 41 49 54 92 22 3A 49 B2 30 00 5F 19 |OR WAIT.":I.0._.|
00001140: 3C 03 A1 41 24 3A 8B 41 24 B3 B1 22 20 22 A7 49 |<..A$:.A$.." ".I|
00001150: B2 49 AA 31 3A 8B 49 B3 32 35 30 A7 38 32 38 00 |.I.1:.I.250.828.|
00001160: 83 19 3E 03 54 31 24 B2 22 22 3A 54 32 24 B2 22 |..>.T1$."":T2$."|
00001170: 22 3A 54 33 24 B2 22 22 3A 54 34 24 B2 22 22 3A |":T3$."":T4$."":|
00001180: 49 B2 30 00 8C 19 40 03 89 33 30 30 00 A8 19 43 |I.0...@..300...C|
00001190: 03 8F 20 2A 2A 20 53 50 41 43 45 20 42 41 52 20 |.. ** SPACE BAR |
000011A0: 50 52 45 53 53 20 2A 2A 00 E3 19 48 03 97 55 4F |PRESS **...H..UO|
000011B0: 2C 30 3A 99 C8 28 55 44 24 2C 32 34 29 3B 22 1D |,0:..(UD$,24);".|
000011C0: 1D 1D 1D 1D 1D 12 50 52 45 53 53 20 53 50 41 43 |......PRESS SPAC|
000011D0: 45 20 42 41 52 20 54 4F 20 43 4F 4E 54 49 4E 55 |E BAR TO CONTINU|
000011E0: 45 92 22 00 FA 19 4C 03 A1 55 49 24 3A 8B 55 49 |E."...L..UI$:.UI|
000011F0: 24 B3 B1 22 20 22 A7 38 34 34 00 00 1A 4E 03 8E |$.." ".844...N..|
00001200: 00 20 1A 52 03 8F 20 2A 2A 20 50 41 47 45 20 44 |. .R.. ** PAGE D|
00001210: 45 53 49 47 4E 20 52 4F 55 54 49 4E 45 20 2A 2A |ESIGN ROUTINE **|
00001220: 00 2C 1A 54 03 55 50 B2 55 50 AA 31 00 56 1A 57 |.,.T.UP.UP.1.V.W|
00001230: 03 99 22 93 22 C8 28 55 54 24 AA 55 50 24 2C 32 |..".".(UT$.UP$,2|
00001240: 31 29 3B C9 28 55 50 24 AA 55 47 24 AA C4 28 55 |1);.(UP$.UG$..(U|
00001250: 50 29 2C 31 38 29 00 85 1A 5C 03 99 22 20 2D 2D |P),18)...\.." --|
00001260: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001270: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001280: 2D 2D 2D 2D 22 00 94 1A 60 03 8B 55 48 B3 B1 30 |----"...`..UH..0|
00001290: A7 38 37 30 00 C8 1A 61 03 99 C8 28 55 44 24 2C |.870...a...(UD$,|
000012A0: 32 34 29 3B C8 28 55 50 24 2C 37 29 3B 22 48 45 |24);.(UP$,7);"HE|
000012B0: 4C 50 20 2D 20 50 52 45 53 53 20 20 20 48 20 3C |LP - PRESS H <|
000012C0: 52 45 54 55 52 4E 3E 22 00 D9 1A 66 03 55 48 B2 |RETURN>"...f.UH.|
000012D0: 30 3A 99 22 13 11 22 3A 8E 00 F8 1A 6B 03 8F 20 |0:."..":....k.. |
000012E0: 2A 2A 20 50 4C 45 41 53 45 20 57 41 49 54 20 52 |** PLEASE WAIT R|
000012F0: 45 4D 41 52 4B 20 2A 2A 00 2E 1B 70 03 99 C8 28 |EMARK **...p...(|
00001300: 55 44 24 2C 32 34 29 3B 22 20 20 20 20 20 20 20 |UD$,24);" |
00001310: 20 20 20 20 4F 4E 45 20 4D 4F 4D 45 4E 54 20 50 | ONE MOMENT P|
00001320: 4C 45 41 53 45 2E 2E 2E 20 20 20 20 20 22 00 34 |LEASE... ".4|
00001330: 1B 75 03 8E 00 51 1B 84 03 8F 20 2A 2A 20 53 45 |.u...Q.... ** SE|
00001340: 54 20 55 50 20 56 41 52 49 41 42 4C 45 53 20 2A |T UP VARIABLES *|
00001350: 2A 00 9C 1B 85 03 55 58 24 B2 22 48 22 3A 86 55 |*.....UX$."H":.U|
00001360: 51 25 28 31 30 30 30 29 3A 55 42 B2 33 32 37 36 |Q%(1000):UB.3276|
00001370: 38 3A 55 31 B2 31 39 36 3A 55 32 B2 31 39 37 3A |8:U1.196:U2.197:|
00001380: 55 33 B2 31 39 38 3A 55 34 B2 32 31 36 3A 55 43 |U3.198:U4.216:UC|
00001390: B2 31 36 37 3A 55 55 B2 31 30 32 34 00 DA 1B 86 |.167:UU.1024....|
000013A0: 03 55 54 B2 35 39 34 36 38 3A 55 55 25 B2 31 32 |.UT.59468:UU%.12|
000013B0: 3A 55 4C 25 B2 31 34 3A 55 50 25 B2 31 31 34 36 |:UL%.14:UP%.1146|
000013C0: 3A 55 4D B2 33 32 37 36 38 3A 55 4F B2 31 35 38 |:UM.32768:UO.158|
000013D0: 3A 97 20 35 30 30 30 33 2C 30 00 1D 1C 87 03 8B |:. 50003,0......|
000013E0: C2 28 35 30 30 30 33 29 B2 30 A7 55 42 B2 31 30 |.(50003).0.UB.10|
000013F0: 32 34 3A 55 31 B2 32 30 39 3A 55 32 B2 32 31 30 |24:U1.209:U2.210|
00001400: 3A 55 33 B2 32 31 31 3A 55 34 B2 32 31 34 3A 55 |:U3.211:U4.214:U|
00001410: 43 B2 32 30 34 3A 55 55 B2 32 30 34 38 00 5C 1C |C.204:UU.2048.\.|
00001420: 88 03 8B C2 28 35 30 30 30 33 29 B2 30 A7 55 54 |....(50003).0.UT|
00001430: B2 35 33 32 37 32 3A 55 55 25 B2 32 31 3A 55 4C |.53272:UU%.21:UL|
00001440: 25 B2 32 33 3A 55 50 25 B2 32 31 33 39 3A 55 4D |%.23:UP%.2139:UM|
00001450: B2 31 30 32 34 3A 55 4F B2 31 39 38 00 80 1C 89 |.1024:UO.198....|
00001460: 03 55 44 24 B2 22 13 11 11 11 11 11 11 11 11 11 |.UD$."..........|
00001470: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 22 |..............."|
00001480: 00 B2 1C 8A 03 55 50 24 B2 22 20 20 20 20 20 20 |.....UP$." |
00001490: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000014A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000014B0: 20 22 00 00 1D 8B 03 55 54 24 B2 22 20 CD C1 D4 | ".....UT$." ...|
000014C0: C8 D0 C1 C3 CB 20 20 20 20 20 20 A0 A0 A0 A0 22 |..... ...."|
000014D0: 3A 8F 20 50 4C 41 43 45 20 50 52 4F 47 52 41 4D |:. PLACE PROGRAM|
000014E0: 20 54 49 54 4C 45 20 48 45 52 45 20 21 21 21 21 | TITLE HERE !!!!|
000014F0: 21 21 21 21 21 21 21 21 21 21 21 21 21 2A 2A 2A |!!!!!!!!!!!!!***|
00001500: 00 06 1D 8C 03 8E 00 20 1D 8E 03 8F 20 2A 2A 20 |....... .... ** |
00001510: 53 45 54 20 56 41 52 49 41 42 4C 45 53 20 2A 2A |SET VARIABLES **|
00001520: 00 29 1D 93 03 8D 39 30 30 00 44 1D 98 03 8F 20 |.)....900.D.... |
00001530: 2A 2A 20 43 48 45 43 4B 20 46 4F 52 20 38 30 33 |** CHECK FOR 803|
00001540: 32 20 2A 2A 00 62 1D 9D 03 99 22 93 22 3A 99 22 |2 **.b....".":."|
00001550: A0 22 3A 8F 20 53 48 49 46 54 45 44 20 53 50 41 |.":. SHIFTED SPA|
00001560: 43 45 00 79 1D A2 03 8B C2 28 55 42 AA 34 30 29 |CE.y.....(UB.40)|
00001570: B3 B1 39 36 A7 8D 37 30 30 00 92 1D A3 03 8F 20 |..96..700...... |
00001580: 2A 2A 20 4D 45 4D 4F 52 59 20 43 48 45 43 4B 20 |** MEMORY CHECK |
00001590: 2A 2A 00 A6 1D A4 03 8B 20 B8 28 30 29 B1 32 30 |**...... .(0).20|
000015A0: 30 30 A7 39 33 37 00 D4 1D A5 03 99 22 93 11 11 |00.937......"...|
000015B0: 05 54 48 49 53 20 4D 41 43 48 49 4E 45 20 44 4F |.THIS MACHINE DO|
000015C0: 45 53 20 4E 4F 54 20 48 41 56 45 20 45 4E 4F 55 |ES NOT HAVE ENOU|
000015D0: 47 48 11 22 00 F8 1D A6 03 99 22 4D 45 4D 4F 52 |GH."......"MEMOR|
000015E0: 59 20 54 4F 20 52 55 4E 20 54 48 49 53 20 50 52 |Y TO RUN THIS PR|
000015F0: 4F 47 52 41 4D 20 21 22 00 03 1E A7 03 9E 55 55 |OGRAM !"......UU|
00001600: AA 37 31 00 09 1E A8 03 80 00 23 1E A9 03 99 22 |.71.......#...."|
00001610: 93 05 22 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 |..":..(50003).0.|
00001620: 39 36 32 00 52 1E AC 03 8F 20 2A 2A 20 42 41 53 |962.R.... ** BAS|
00001630: 49 43 20 32 2E 30 20 20 4F 52 20 20 34 2E 30 20 |IC 2.0 OR 4.0 |
00001640: 20 4F 52 20 20 43 2D 36 34 20 53 45 54 55 50 20 | OR C-64 SETUP |
00001650: 2A 2A 00 90 1E AD 03 97 31 30 37 35 2C 31 33 33 |**......1075,133|
00001660: 3A 97 31 30 37 36 2C 31 34 34 3A 97 31 30 37 37 |:.1076,144:.1077|
00001670: 2C 32 33 34 3A 97 31 30 37 39 2C 34 3A 97 31 30 |,234:.1079,4:.10|
00001680: 38 30 2C 31 33 33 3A 97 31 30 38 31 2C 31 34 35 |80,133:.1081,145|
00001690: 00 C6 1E AE 03 97 31 30 39 31 2C 31 35 35 3A 97 |......1091,155:.|
000016A0: 31 30 39 38 2C 31 33 33 3A 97 31 30 39 39 2C 31 |1098,133:.1099,1|
000016B0: 34 34 3A 97 31 31 30 30 2C 32 33 34 3A 97 31 31 |44:.1100,234:.11|
000016C0: 30 33 2C 31 33 33 00 E8 1E AF 03 97 31 31 30 34 |03,133......1104|
000016D0: 2C 31 34 35 3A 97 31 31 30 35 2C 32 33 34 3A 97 |,145:.1105,234:.|
000016E0: 31 30 38 32 2C 32 33 34 00 FF 1E B1 03 8B C2 28 |1082,234.......(|
000016F0: 35 30 30 30 33 29 B3 B1 31 36 30 A7 39 35 35 00 |50003)..160.955.|
00001700: 2E 1F B6 03 97 31 30 39 33 2C 38 38 3A 97 31 30 |.....1093,88:.10|
00001710: 39 34 2C 32 32 38 3A 97 31 30 39 37 2C 38 35 3A |94,228:.1097,85:|
00001720: 97 31 31 30 32 2C 32 32 38 3A 89 39 36 35 00 43 |.1102,228:.965.C|
00001730: 1F BB 03 8B C2 28 35 30 30 30 33 29 B3 B1 31 A7 |.....(50003)..1.|
00001740: 39 39 30 00 72 1F C0 03 97 31 30 39 33 2C 34 39 |990.r....1093,49|
00001750: 3A 97 31 30 39 34 2C 32 33 30 3A 97 31 30 39 37 |:.1094,230:.1097|
00001760: 2C 34 36 3A 97 31 31 30 32 2C 32 33 30 3A 89 39 |,46:.1102,230:.9|
00001770: 36 35 00 AC 1F C2 03 97 32 30 39 39 2C 31 34 31 |65......2099,141|
00001780: 3A 97 32 31 30 30 2C 32 30 3A 97 32 31 30 31 2C |:.2100,20:.2101,|
00001790: 33 3A 97 32 31 30 33 2C 38 3A 97 32 31 30 34 2C |3:.2103,8:.2104,|
000017A0: 31 34 31 3A 97 32 31 30 35 2C 32 31 00 E8 1F C3 |141:.2105,21....|
000017B0: 03 97 32 31 30 36 2C 33 3A 97 32 31 31 35 2C 31 |..2106,3:.2115,1|
000017C0: 34 35 3A 97 32 31 31 37 2C 35 32 3A 97 32 31 31 |45:.2117,52:.211|
000017D0: 38 2C 32 33 34 3A 97 32 31 32 31 2C 34 39 3A 97 |8,234:.2121,49:.|
000017E0: 32 31 32 32 2C 31 34 31 00 22 20 C4 03 97 32 31 |2122,141." ...21|
000017F0: 32 33 2C 32 30 3A 97 32 31 32 34 2C 33 3A 97 32 |23,20:.2124,3:.2|
00001800: 31 32 36 2C 32 33 34 3A 97 32 31 32 37 2C 31 34 |126,234:.2127,14|
00001810: 31 3A 97 32 31 32 38 2C 32 31 3A 97 32 31 32 39 |1:.2128,21:.2129|
00001820: 2C 33 00 40 20 C5 03 9E 55 55 AA 34 38 3A 8F 20 |,3.@ ...UU.48:. |
00001830: 44 49 53 41 42 4C 45 20 53 54 4F 50 20 4B 45 59 |DISABLE STOP KEY|
00001840: 00 51 20 CA 03 8D 38 30 30 3A 8F 20 54 49 54 4C |.Q ...800:. TITL|
00001850: 45 00 61 20 D4 03 89 33 30 30 3A 8F 20 4D 45 4E |E.a ...300:. MEN|
00001860: 55 00 92 20 DE 03 99 22 93 54 48 45 20 50 47 4D |U.. ...".THE PGM|
00001870: 20 57 49 4C 4C 20 4E 4F 54 20 57 4F 52 4B 20 4F | WILL NOT WORK O|
00001880: 4E 20 54 48 49 53 20 4D 41 43 48 49 4E 45 21 22 |N THIS MACHINE!"|
00001890: 3A 80 00 C7 20 E8 03 8B 55 5A B2 31 A7 9E 55 50 |:... ...UZ.1..UP|
000018A0: 25 3A 9E 55 50 25 3A 55 5A B2 30 3A 8F 20 2A 2A |%:.UP%:UZ.0:. **|
000018B0: 20 50 52 4F 47 52 41 4D 20 53 54 41 52 54 53 20 | PROGRAM STARTS |
000018C0: 48 45 52 45 20 2A 2A 00 F3 20 E9 03 99 22 93 05 |HERE **.. ..."..|
000018D0: 22 3B 3A 8C 3A 8B C2 28 35 30 30 30 33 29 B2 30 |";:.:..(50003).0|
000018E0: A7 97 35 33 32 38 31 2C 36 3A 97 35 33 32 38 30 |..53281,6:.53280|
000018F0: 2C 31 34 00 FF 20 F2 03 97 55 54 2C 55 4C 25 00 |,14.. ...UT,UL%.|
00001900: 2B 21 FC 03 99 22 93 11 20 20 20 20 2A 2A 2A 2A |+!...".. ****|
00001910: 2A 2A 2A 2A 2A 2A CD C1 D4 C8 2D D0 C1 C3 CB 2A |******....-....*|
00001920: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 5A 21 06 04 |***********.Z!..|
00001930: 99 22 11 20 12 D9 4F 55 52 20 43 48 4F 49 43 45 |.". ..OUR CHOICE|
00001940: 20 4F 46 20 50 52 4F 42 4C 45 4D 53 20 49 53 20 | OF PROBLEMS IS |
00001950: 41 53 20 46 4F 4C 4C 4F 57 53 00 82 21 10 04 99 |AS FOLLOWS..!...|
00001960: 22 11 11 20 20 12 31 92 20 50 52 49 4D 45 20 46 |".. .1. PRIME F|
00001970: 41 43 54 4F 52 53 20 4F 46 20 41 20 4E 55 4D 42 |ACTORS OF A NUMB|
00001980: 45 52 00 AD 21 1A 04 99 22 11 20 20 12 32 92 20 |ER..!...". .2. |
00001990: 51 55 41 44 52 41 54 49 43 20 41 4E 44 20 43 55 |QUADRATIC AND CU|
000019A0: 42 49 43 20 45 51 55 41 54 49 4F 4E 53 00 D8 21 |BIC EQUATIONS..!|
000019B0: 24 04 99 22 11 20 20 12 33 92 20 43 4F 4D 50 4C |$..". .3. COMPL|
000019C0: 45 58 20 41 52 49 54 48 4D 41 54 49 43 20 28 41 |EX ARITHMATIC (A|
000019D0: 4C 4C 20 46 4F 55 52 29 00 07 22 2E 04 99 22 11 |LL FOUR).."...".|
000019E0: 20 20 12 34 92 20 32 20 56 41 52 49 41 42 4C 45 | .4. 2 VARIABLE|
000019F0: 20 53 49 4D 55 4C 54 41 4E 45 4F 55 53 20 45 51 | SIMULTANEOUS EQ|
00001A00: 55 41 54 49 4F 4E 53 00 36 22 38 04 99 22 11 20 |UATIONS.6"8..". |
00001A10: 20 12 35 92 20 33 20 56 41 52 49 41 42 4C 45 20 | .5. 3 VARIABLE |
00001A20: 53 49 4D 55 4C 54 41 4E 45 4F 55 53 20 45 51 55 |SIMULTANEOUS EQU|
00001A30: 41 54 49 4F 4E 53 00 5F 22 42 04 99 22 11 20 20 |ATIONS._"B..". |
00001A40: 12 36 92 20 43 4F 4D 42 49 4E 41 54 49 4F 4E 53 |.6. COMBINATIONS|
00001A50: 20 26 20 50 45 52 4D 55 54 41 54 49 4F 4E 53 00 | & PERMUTATIONS.|
00001A60: 89 22 4C 04 99 22 11 20 20 12 37 92 20 46 41 43 |."L..". .7. FAC|
00001A70: 54 4F 52 49 41 4C 53 20 28 48 49 47 48 20 4D 41 |TORIALS (HIGH MA|
00001A80: 58 20 4E 55 4D 42 45 52 29 00 AC 22 56 04 99 22 |X NUMBER).."V.."|
00001A90: 11 20 20 12 38 92 20 49 4E 56 45 52 53 45 20 4F |. .8. INVERSE O|
00001AA0: 46 20 32 2A 32 20 4D 41 54 52 49 58 00 CD 22 60 |F 2*2 MATRIX.."`|
00001AB0: 04 99 22 11 11 20 D7 48 41 54 20 49 53 20 59 4F |..".. .HAT IS YO|
00001AC0: 55 52 20 43 48 4F 49 43 45 3F 20 22 3B 00 F2 22 |UR CHOICE? ";.."|
00001AD0: 7E 04 55 53 24 B2 22 31 32 33 34 35 36 37 38 48 |~.US$."12345678H|
00001AE0: 51 22 3A 55 4C B2 31 3A 8D 33 35 3A 41 24 B2 55 |Q":UL.1:.35:A$.U|
00001AF0: 52 24 00 00 23 83 04 8B 41 24 B2 22 51 22 A7 8E |R$..#...A$."Q"..|
00001B00: 00 1F 23 88 04 99 22 93 22 3A 51 B2 C5 28 41 24 |..#...".":Q..(A$|
00001B10: 29 3A 8B 51 B3 31 B0 51 B1 38 A7 31 30 32 30 00 |):.Q.1.Q.8.1020.|
00001B20: 4E 23 92 04 91 51 89 31 31 38 30 2C 31 34 33 36 |N#...Q.1180,1436|
00001B30: 2C 32 31 31 30 2C 31 33 30 36 2C 32 39 34 30 2C |,2110,1306,2940,|
00001B40: 31 38 30 30 2C 32 36 34 30 2C 31 39 33 30 00 56 |1800,2640,1930.V|
00001B50: 23 9C 04 99 22 93 00 5F 23 9F 04 55 50 B2 30 00 |#...".._#..UP.0.|
00001B60: 79 23 A1 04 55 47 24 B2 22 D1 55 45 53 54 49 4F |y#..UG$.".UESTIO|
00001B70: 4E 20 23 22 3A 8D 38 35 30 00 9F 23 A6 04 99 22 |N #":.850..#..."|
00001B80: 11 20 20 D4 48 49 53 20 50 52 4F 47 52 41 4D 20 |. .HIS PROGRAM |
00001B90: 43 41 4C 43 55 4C 41 54 45 53 20 41 4C 4C 22 00 |CALCULATES ALL".|
00001BA0: C4 23 B0 04 99 22 11 20 20 50 52 49 4D 45 20 46 |.#...". PRIME F|
00001BB0: 41 43 54 4F 52 53 20 4F 46 20 41 20 4E 55 4D 42 |ACTORS OF A NUMB|
00001BC0: 45 52 2E 22 00 F1 23 B5 04 99 22 11 11 20 20 D7 |ER."..#...".. .|
00001BD0: 48 41 54 20 4E 55 4D 42 45 52 20 44 4F 20 59 4F |HAT NUMBER DO YO|
00001BE0: 55 20 57 41 4E 54 20 46 41 43 54 4F 52 45 44 3F |U WANT FACTORED?|
00001BF0: 22 00 10 24 B6 04 99 22 11 20 20 D4 59 50 45 20 |"..$...". .YPE |
00001C00: 27 51 27 20 54 4F 20 51 55 49 54 2E 20 20 22 3B |'Q' TO QUIT. ";|
00001C10: 00 39 24 BA 04 55 53 24 B2 22 30 31 32 33 34 35 |.9$..US$."012345|
00001C20: 36 37 38 39 51 48 22 3A 55 4C B2 34 3A 8D 33 35 |6789QH":UL.4:.35|
00001C30: 3A 4E B2 C5 28 55 52 24 29 00 48 24 BF 04 8B 55 |:N..(UR$).H$...U|
00001C40: 52 24 B2 22 51 22 A7 8E 00 50 24 C4 04 48 B2 4E |R$."Q"...P$..H.N|
00001C50: 00 7B 24 CE 04 99 22 11 11 20 20 D0 52 49 4D 45 |.{$...".. .RIME|
00001C60: 20 46 41 43 54 4F 52 53 20 4F 46 22 3B 48 3B 22 | FACTORS OF";H;"|
00001C70: 41 52 45 11 22 3A 99 22 20 22 3B 00 83 24 D8 04 |ARE.":." ";..$..|
00001C80: 52 B2 32 00 8D 24 E2 04 41 B2 4E AD 52 00 A8 24 |R.2..$..A.N.R..$|
00001C90: EC 04 8B 20 41 B2 B5 28 41 29 A7 99 52 3B 3A 4E |... A..(A)..R;:N|
00001CA0: B2 41 3A 89 31 32 35 30 00 B2 24 F6 04 52 B2 52 |.A:.1250..$..R.R|
00001CB0: AA 31 00 D9 24 00 05 8B 20 52 B1 28 4E AD 32 29 |.1..$... R.(N.2)|
00001CC0: AF 4E B3 B1 31 A7 99 3B 4E 3B 3A 99 3A 99 3A 8D |.N..1..;N;:.:.:.|
00001CD0: 38 33 35 3A 89 31 31 38 35 00 F1 24 0A 05 8B 4E |835:.1185..$...N|
00001CE0: B2 31 A7 99 3A 99 3A 8D 38 33 35 3A 89 31 31 38 |.1..:.:.835:.118|
00001CF0: 35 00 FB 24 14 05 89 31 32 35 30 00 04 25 19 05 |5..$...1250..%..|
00001D00: 55 50 B2 30 00 1E 25 1A 05 55 47 24 B2 22 D1 55 |UP.0..%..UG$.".U|
00001D10: 45 53 54 49 4F 4E 20 23 22 3A 8D 38 35 30 00 49 |ESTION #":.850.I|
00001D20: 25 1E 05 99 22 11 20 20 D4 48 49 53 20 50 52 4F |%...". .HIS PRO|
00001D30: 47 52 41 4D 20 53 4F 4C 56 45 53 20 41 20 32 20 |GRAM SOLVES A 2 |
00001D40: 56 41 52 49 41 42 4C 45 22 00 69 25 28 05 99 22 |VARIABLE".i%(.."|
00001D50: 11 20 20 53 49 4D 55 4C 54 41 4E 45 4F 55 53 20 |. SIMULTANEOUS |
00001D60: 45 51 55 41 54 49 4F 4E 22 00 85 25 32 05 99 22 |EQUATION"..%2.."|
00001D70: 11 20 20 D4 59 50 45 20 27 51 27 20 54 4F 20 51 |. .YPE 'Q' TO Q|
00001D80: 55 49 54 2E 22 00 A8 25 3C 05 99 22 11 20 20 C5 |UIT."..%<..". .|
00001D90: 4E 54 45 52 20 58 31 2C 59 31 2C 4E 31 2C 58 32 |NTER X1,Y1,N1,X2|
00001DA0: 2C 59 32 2C 4E 32 11 22 00 E8 25 46 05 99 22 20 |,Y2,N2."..%F.." |
00001DB0: 20 22 3B 3A 50 5A B2 31 3A 55 53 24 B2 22 51 48 | ";:PZ.1:US$."QH|
00001DC0: 30 31 32 33 34 35 36 37 38 39 22 3A 55 4C B2 32 |0123456789":UL.2|
00001DD0: 3A 8D 33 35 3A 41 B2 C5 28 55 52 24 29 3A 8B 55 |:.35:A..(UR$):.U|
00001DE0: 52 24 B2 22 51 22 A7 8E 00 28 26 47 05 99 22 91 |R$."Q"...(&G..".|
00001DF0: 1D 1D 1D 1D 2C 20 22 3B 3A 55 53 24 B2 22 51 48 |...., ";:US$."QH|
00001E00: 30 31 32 33 34 35 36 37 38 39 22 3A 55 4C B2 32 |0123456789":UL.2|
00001E10: 3A 8D 33 35 3A 42 B2 C5 28 55 52 24 29 3A 8B 55 |:.35:B..(UR$):.U|
00001E20: 52 24 B2 22 51 22 A7 8E 00 6C 26 48 05 99 22 91 |R$."Q"...l&H..".|
00001E30: 1D 1D 1D 1D 1D 1D 1D 1D 2C 20 22 3B 3A 55 53 24 |........, ";:US$|
00001E40: B2 22 51 48 30 31 32 33 34 35 36 37 38 39 22 3A |."QH0123456789":|
00001E50: 55 4C B2 32 3A 8D 33 35 3A 43 B2 C5 28 55 52 24 |UL.2:.35:C..(UR$|
00001E60: 29 3A 8B 55 52 24 B2 22 51 22 A7 8E 00 AC 26 49 |):.UR$."Q"....&I|
00001E70: 05 99 A3 31 32 29 22 91 2C 20 22 3B 3A 55 53 24 |...12)"., ";:US$|
00001E80: B2 22 51 48 30 31 32 33 34 35 36 37 38 39 22 3A |."QH0123456789":|
00001E90: 55 4C B2 32 3A 8D 33 35 3A 44 B2 C5 28 55 52 24 |UL.2:.35:D..(UR$|
00001EA0: 29 3A 8B 55 52 24 B2 22 51 22 A7 8E 00 EC 26 4A |):.UR$."Q"....&J|
00001EB0: 05 99 A3 31 36 29 3B 22 91 2C 20 22 3B 3A 55 53 |...16);"., ";:US|
00001EC0: 24 B2 22 51 30 31 32 33 34 35 36 37 38 39 22 3A |$."Q0123456789":|
00001ED0: 55 4C B2 32 3A 8D 33 35 3A 45 B2 C5 28 55 52 24 |UL.2:.35:E..(UR$|
00001EE0: 29 3A 8B 55 52 24 B2 22 51 22 A7 8E 00 21 27 4B |):.UR$."Q"...!'K|
00001EF0: 05 99 A3 32 30 29 3B 22 91 2C 20 22 3B 3A 55 53 |...20);"., ";:US|
00001F00: 24 B2 22 51 30 31 32 33 34 35 36 37 38 39 22 3A |$."Q0123456789":|
00001F10: 55 4C B2 32 3A 8D 33 35 3A 46 B2 C5 28 55 52 24 |UL.2:.35:F..(UR$|
00001F20: 29 00 30 27 4D 05 8B 55 52 24 B2 22 51 22 A7 8E |).0'M..UR$."Q"..|
00001F30: 00 3F 27 4E 05 99 22 9D 20 22 3A 50 5A B2 30 00 |.?'N..". ":PZ.0.|
00001F40: 5C 27 50 05 99 22 11 20 22 3B 41 3B 22 9D 58 20 |\'P..". ";A;".X |
00001F50: 2B 22 3B 42 3B 22 9D 59 20 3D 22 43 00 79 27 5A |+";B;".Y ="C.y'Z|
00001F60: 05 99 22 11 20 22 3B 44 3B 22 9D 58 20 2B 22 3B |..". ";D;".X +";|
00001F70: 45 3B 22 9D 59 20 3D 22 46 00 87 27 64 05 4E B2 |E;".Y ="F..'d.N.|
00001F80: 41 AC 45 AB 42 AC 44 00 C1 27 6E 05 8B 4E B2 30 |A.E.B.D..'n..N.0|
00001F90: A7 99 22 11 20 20 D4 48 41 54 20 43 41 4E 4E 4F |..". .HAT CANNO|
00001FA0: 54 20 42 45 20 44 4F 4E 45 2E 20 D4 52 59 20 41 |T BE DONE. .RY A|
00001FB0: 47 41 49 4E 2E 22 3A 8D 38 33 35 3A 89 31 33 30 |GAIN.":.835:.130|
00001FC0: 36 00 D3 27 78 05 58 B2 28 43 AC 45 AB 42 AC 46 |6..'x.X.(C.E.B.F|
00001FD0: 29 AD 4E 00 E5 27 82 05 59 B2 28 41 AC 46 AB 44 |).N..'..Y.(A.F.D|
00001FE0: AC 43 29 AD 4E 00 F5 27 8C 05 99 22 11 11 20 20 |.C).N..'...".. |
00001FF0: 58 20 3D 22 58 00 04 28 96 05 99 22 11 20 20 59 |X ="X..(...". Y|
00002000: 20 3D 22 59 00 18 28 98 05 8D 38 33 35 3A 99 22 | ="Y..(...835:."|
00002010: 93 22 3A 89 31 33 30 36 00 36 28 9C 05 55 47 24 |.":.1306.6(..UG$|
00002020: B2 22 D0 52 4F 42 4C 45 4D 20 23 22 3A 55 50 B2 |.".ROBLEM #":UP.|
00002030: 31 3A 8D 38 35 30 00 65 28 A1 05 99 22 11 20 D4 |1:.850.e(...". .|
00002040: 48 49 53 20 50 52 4F 47 52 41 4D 20 43 41 4C 43 |HIS PROGRAM CALC|
00002050: 55 4C 41 54 45 53 20 41 4C 4C 20 54 48 45 20 52 |ULATES ALL THE R|
00002060: 4F 4F 54 53 22 00 94 28 A2 05 99 22 11 20 28 52 |OOTS"..(...". (R|
00002070: 45 41 4C 20 4F 52 20 49 4D 41 47 49 4E 41 52 59 |EAL OR IMAGINARY|
00002080: 29 20 4F 46 20 41 20 51 55 41 44 52 41 54 49 43 |) OF A QUADRATIC|
00002090: 20 4F 52 22 00 AD 28 A3 05 99 22 11 20 43 55 42 | OR"..(...". CUB|
000020A0: 49 43 20 45 51 55 41 54 49 4F 4E 2E 22 00 D7 28 |IC EQUATION."..(|
000020B0: A4 05 99 22 11 20 D7 48 41 54 20 54 59 50 45 20 |...". .HAT TYPE |
000020C0: 44 4F 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 46 |DO YOU WANT TO F|
000020D0: 41 43 54 4F 52 3F 22 00 F7 28 AA 05 99 22 11 20 |ACTOR?"..(...". |
000020E0: 12 51 55 92 41 44 52 41 54 49 43 20 4F 52 20 12 |.QU.ADRATIC OR .|
000020F0: 43 92 55 42 49 43 22 00 15 29 AF 05 99 22 11 20 |C.UBIC"..)...". |
00002100: D4 59 50 45 20 27 51 27 20 54 4F 20 51 55 49 54 |.YPE 'Q' TO QUIT|
00002110: 2E 20 20 22 3B 00 34 29 B4 05 55 53 24 B2 22 51 |. ";.4)..US$."Q|
00002120: 55 43 48 22 3A 55 4C B2 39 3A 8D 33 35 3A 41 24 |UCH":UL.9:.35:A$|
00002130: B2 55 52 24 00 44 29 B9 05 8B 20 41 24 B2 22 51 |.UR$.D)... A$."Q|
00002140: 22 A7 20 8E 00 57 29 BE 05 8B 41 24 B3 B1 22 51 |". ..W)...A$.."Q|
00002150: 55 22 A7 31 35 30 30 00 60 29 C3 05 8D 38 35 30 |U".1500.`)...850|
00002160: 00 8D 29 C8 05 99 22 11 11 20 20 D1 55 41 44 52 |..)...".. .UADR|
00002170: 41 54 49 43 20 45 51 55 41 54 49 4F 4E 20 45 4E |ATIC EQUATION EN|
00002180: 54 45 52 20 3A 20 41 2C 42 2C 43 11 22 00 CD 29 |TER : A,B,C."..)|
00002190: C9 05 99 22 20 20 22 3B 3A 50 5A B2 31 3A 55 53 |..." ";:PZ.1:US|
000021A0: 24 B2 22 51 48 30 31 32 33 34 35 36 37 38 39 22 |$."QH0123456789"|
000021B0: 3A 55 4C B2 32 3A 8D 33 35 3A 41 B2 C5 28 55 52 |:UL.2:.35:A..(UR|
000021C0: 24 29 3A 8B 55 52 24 B2 22 51 22 A7 8E 00 0D 2A |$):.UR$."Q"....*|
000021D0: CA 05 99 22 91 1D 1D 1D 1D 2C 20 22 3B 3A 55 53 |..."....., ";:US|
000021E0: 24 B2 22 51 48 30 31 32 33 34 35 36 37 38 39 22 |$."QH0123456789"|
000021F0: 3A 55 4C B2 32 3A 8D 33 35 3A 42 B2 C5 28 55 52 |:UL.2:.35:B..(UR|
00002200: 24 29 3A 8B 55 52 24 B2 22 51 22 A7 8E 00 4D 2A |$):.UR$."Q"...M*|
00002210: CB 05 99 A3 38 29 3B 22 91 2C 20 22 3B 3A 55 53 |....8);"., ";:US|
00002220: 24 B2 22 51 48 30 31 32 33 34 35 36 37 38 39 22 |$."QH0123456789"|
00002230: 3A 55 4C B2 32 3A 8D 33 35 3A 43 B2 C5 28 55 52 |:UL.2:.35:C..(UR|
00002240: 24 29 3A 8B 55 52 24 B2 22 51 22 A7 8E 00 61 2A |$):.UR$."Q"...a*|
00002250: D2 05 99 22 9D 22 3A 50 5A B2 30 3A 89 31 36 35 |...".":PZ.0:.165|
00002260: 30 00 72 2A DC 05 55 50 B2 55 50 AA 31 3A 8D 38 |0.r*..UP.UP.1:.8|
00002270: 35 30 00 99 2A E1 05 99 22 20 20 C3 55 42 49 43 |50..*..." .UBIC|
00002280: 20 45 51 55 41 54 49 4F 4E 20 45 4E 54 45 52 20 | EQUATION ENTER |
00002290: 41 2C 42 2C 43 2C 44 11 22 00 D9 2A E6 05 99 22 |A,B,C,D."..*..."|
000022A0: 20 20 22 3B 3A 50 5A B2 31 3A 55 53 24 B2 22 51 | ";:PZ.1:US$."Q|
000022B0: 48 30 31 32 33 34 35 36 37 38 39 22 3A 55 4C B2 |H0123456789":UL.|
000022C0: 32 3A 8D 33 35 3A 41 B2 C5 28 55 52 24 29 3A 8B |2:.35:A..(UR$):.|
000022D0: 55 52 24 B2 22 51 22 A7 8E 00 19 2B E7 05 99 22 |UR$."Q"....+..."|
000022E0: 91 1D 1D 1D 1D 2C 20 22 3B 3A 55 53 24 B2 22 51 |....., ";:US$."Q|
000022F0: 48 30 31 32 33 34 35 36 37 38 39 22 3A 55 4C B2 |H0123456789":UL.|
00002300: 32 3A 8D 33 35 3A 42 B2 C5 28 55 52 24 29 3A 8B |2:.35:B..(UR$):.|
00002310: 55 52 24 B2 22 51 22 A7 8E 00 58 2B E8 05 99 A3 |UR$."Q"...X+....|
00002320: 38 29 22 91 2C 20 22 3B 3A 55 53 24 B2 22 51 48 |8)"., ";:US$."QH|
00002330: 30 31 32 33 34 35 36 37 38 39 22 3A 55 4C B2 32 |0123456789":UL.2|
00002340: 3A 8D 33 35 3A 43 B2 C5 28 55 52 24 29 3A 8B 55 |:.35:C..(UR$):.U|
00002350: 52 24 B2 22 51 22 A7 8E 00 98 2B E9 05 99 A3 31 |R$."Q"....+....1|
00002360: 32 29 22 91 2C 20 22 3B 3A 55 53 24 B2 22 51 48 |2)"., ";:US$."QH|
00002370: 30 31 32 33 34 35 36 37 38 39 22 3A 55 4C B2 32 |0123456789":UL.2|
00002380: 3A 8D 33 35 3A 44 B2 C5 28 55 52 24 29 3A 8B 55 |:.35:D..(UR$):.U|
00002390: 52 24 B2 22 51 22 A7 8E 00 B4 2B EA 05 8D 38 37 |R$."Q"....+...87|
000023A0: 35 3A 99 22 13 11 11 11 11 22 3A 99 22 9D 22 3A |5:.".....":.".":|
000023B0: 50 5A B2 30 00 C6 2B F0 05 58 B2 AB 33 30 30 30 |PZ.0..+..X..3000|
000023C0: 3A 4C B2 31 30 30 00 D0 2B FA 05 58 B2 58 AA 4C |:L.100..+..X.X.L|
000023D0: 00 EA 2B 04 06 59 B2 58 AC 58 AC 58 AC 41 AA 58 |..+..Y.X.X.X.A.X|
000023E0: AC 58 AC 42 AA 58 AC 43 AA 44 00 F9 2B 0E 06 8B |.X.B.X.C.D..+...|
000023F0: 59 B2 30 20 89 31 35 39 30 00 07 2C 18 06 8B 59 |Y.0 .1590..,...Y|
00002400: B3 30 89 31 35 33 30 00 1C 2C 22 06 8B B6 28 59 |.0.1530..,"...(Y|
00002410: 29 B3 31 45 AB 30 36 89 31 35 39 30 00 33 2C 2C |).1E.06.1590.3,,|
00002420: 06 58 B2 58 AB 4C 3A 4C B2 4C AD 31 30 3A 89 31 |.X.X.L:L.L.10:.1|
00002430: 35 33 30 00 6A 2C 36 06 99 22 11 20 20 58 3D 20 |530.j,6..". X= |
00002440: 22 B5 28 58 AC 31 30 30 30 30 AA 2E 35 29 AD 31 |".(X.10000..5).1|
00002450: 30 30 30 30 2C 22 28 46 49 52 53 54 20 52 4F 4F |0000,"(FIRST ROO|
00002460: 54 20 28 52 45 41 4C 29 29 22 00 76 2C 40 06 42 |T (REAL))".v,@.B|
00002470: B2 41 AC 58 AA 42 00 82 2C 4A 06 43 B2 42 AC 58 |.A.X.B..,J.C.B.X|
00002480: AA 43 00 A7 2C 54 06 99 22 11 20 20 C3 4F 4E 56 |.C..,T..". .ONV|
00002490: 45 52 54 45 44 20 54 4F 20 51 55 41 44 52 41 54 |ERTED TO QUADRAT|
000024A0: 49 43 20 46 4F 52 4D 00 E2 2C 5E 06 99 22 11 20 |IC FORM..,^..". |
000024B0: 20 43 55 42 49 43 20 44 49 56 49 44 45 44 20 42 | CUBIC DIVIDED B|
000024C0: 59 20 46 49 52 53 54 20 52 4F 4F 54 20 22 3B B5 |Y FIRST ROOT ";.|
000024D0: 28 58 AC 31 30 30 30 30 AA 2E 35 29 AD 31 30 30 |(X.10000..5).100|
000024E0: 30 30 00 1E 2D 68 06 99 22 11 20 20 41 20 3D 22 |00..-h..". A ="|
000024F0: B5 28 41 AC 31 30 30 30 30 AA 2E 35 29 AD 31 30 |.(A.10000..5).10|
00002500: 30 30 30 22 20 20 42 20 3D 22 B5 28 42 AC 31 30 |000" B =".(B.10|
00002510: 30 30 30 AA 2E 35 29 AD 31 30 30 30 30 3B 00 3E |000..5).10000;.>|
00002520: 2D 6D 06 99 22 20 20 43 20 3D 22 B5 28 43 AC 31 |-m.." C =".(C.1|
00002530: 30 30 30 30 AA 2E 35 29 AD 31 30 30 30 30 00 4A |0000..5).10000.J|
00002540: 2D 72 06 59 B2 34 AC 41 AC 43 00 60 2D 7C 06 59 |-r.Y.4.A.C.`-|.Y|
00002550: B2 42 AC 42 AB 59 3A 8B 59 B3 30 89 31 37 35 30 |.B.B.Y:.Y.0.1750|
00002560: 00 6B 2D 86 06 59 B2 BA 28 59 29 00 79 2D 90 06 |.k-..Y..(Y).y-..|
00002570: 58 31 B2 28 AB 42 29 AA 59 00 87 2D 9A 06 58 31 |X1.(.B).Y..-..X1|
00002580: B2 58 31 AD 32 AD 41 00 95 2D A4 06 58 32 B2 28 |.X1.2.A..-..X2.(|
00002590: AB 42 29 AB 59 00 A3 2D AE 06 58 32 B2 58 32 AD |.B).Y..-..X2.X2.|
000025A0: 32 AD 41 00 D1 2D B8 06 99 22 11 11 20 20 D2 45 |2.A..-...".. .E|
000025B0: 41 4C 20 52 4F 4F 54 20 58 31 3D 20 22 B5 28 58 |AL ROOT X1= ".(X|
000025C0: 31 AC 31 30 30 30 30 AA 2E 35 29 AD 31 30 30 30 |1.10000..5).1000|
000025D0: 30 00 FF 2D C2 06 99 22 11 11 20 20 D2 45 41 4C |0..-...".. .EAL|
000025E0: 20 52 4F 4F 54 20 58 32 3D 20 22 B5 28 58 32 AC | ROOT X2= ".(X2.|
000025F0: 31 30 30 30 30 AA 2E 35 29 AD 31 30 30 30 30 00 |10000..5).10000.|
00002600: 13 2E CC 06 8D 38 33 35 3A 99 22 93 22 3A 89 31 |.....835:.".":.1|
00002610: 34 33 36 00 23 2E D6 06 58 31 B2 28 AB 42 29 AD |436.#...X1.(.B).|
00002620: 32 AD 41 00 34 2E E0 06 58 32 B2 BA 28 AB 59 29 |2.A.4...X2..(.Y)|
00002630: AD 32 AD 41 00 50 2E EA 06 99 22 11 11 20 20 20 |.2.A.P....".. |
00002640: 20 20 D2 4F 4F 54 53 20 43 4F 4D 50 4C 45 58 22 | .OOTS COMPLEX"|
00002650: 00 8C 2E F4 06 99 22 11 20 20 20 20 20 22 B5 28 |......". ".(|
00002660: 58 31 AC 31 30 30 30 30 AA 2E 35 29 AD 31 30 30 |X1.10000..5).100|
00002670: 30 30 22 2B 22 B5 28 58 32 AC 31 30 30 30 30 AA |00"+".(X2.10000.|
00002680: 2E 35 29 AD 31 30 30 30 30 22 4A 22 00 C8 2E F9 |.5).10000"J"....|
00002690: 06 99 22 11 20 20 20 20 20 22 B5 28 58 31 AC 31 |..". ".(X1.1|
000026A0: 30 30 30 30 AA 2E 35 29 AD 31 30 30 30 30 22 2D |0000..5).10000"-|
000026B0: 22 B5 28 58 32 AC 31 30 30 30 30 AA 2E 35 29 AD |".(X2.10000..5).|
000026C0: 31 30 30 30 30 22 4A 22 00 E2 2E FA 06 99 22 91 |10000"J"......".|
000026D0: 91 91 91 22 3B A3 32 36 29 3B 22 57 48 45 52 45 |...";.26);"WHERE|
000026E0: 2C 22 00 00 2F FB 06 99 22 11 11 22 3B A3 32 36 |,"../..."..";.26|
000026F0: 29 3B 22 4A 91 32 11 20 2B 20 31 20 3D 20 30 22 |);"J.2. + 1 = 0"|
00002700: 00 14 2F FE 06 8D 38 33 35 3A 99 22 93 22 3A 89 |../...835:.".":.|
00002710: 31 34 33 36 00 1D 2F 08 07 55 50 B2 30 00 37 2F |1436../..UP.0.7/|
00002720: 0A 07 55 47 24 B2 22 D1 55 45 53 54 49 4F 4E 20 |..UG$.".UESTION |
00002730: 23 22 3A 8D 38 35 30 00 5D 2F 0D 07 99 22 11 11 |#":.850.]/..."..|
00002740: 20 20 D0 45 52 4D 55 54 41 54 49 4F 4E 53 20 26 | .ERMUTATIONS &|
00002750: 20 43 4F 4D 42 49 4E 41 54 49 4F 4E 53 00 77 2F | COMBINATIONS.w/|
00002760: 0E 07 99 22 11 20 20 D4 59 50 45 20 51 20 54 4F |...". .YPE Q TO|
00002770: 20 51 55 49 54 2E 22 00 BF 2F 12 07 99 22 11 20 | QUIT."../...". |
00002780: 20 C5 4E 54 45 52 20 46 4F 52 20 4E 20 54 48 49 | .NTER FOR N THI|
00002790: 4E 47 53 20 54 41 4B 45 4E 20 4D 20 41 54 20 41 |NGS TAKEN M AT A|
000027A0: 20 54 49 4D 45 22 3A 99 22 11 20 20 C8 4F 57 20 | TIME":.". .OW |
000027B0: 4D 41 4E 59 20 54 48 49 4E 47 53 3F 20 22 3B 00 |MANY THINGS? ";.|
000027C0: F8 2F 1B 07 50 5A B2 31 3A 55 53 24 B2 22 51 48 |./..PZ.1:US$."QH|
000027D0: 30 31 32 33 34 35 36 37 38 39 22 3A 55 4C B2 32 |0123456789":UL.2|
000027E0: 3A 8D 33 35 3A 4E B2 C5 28 55 52 24 29 3A 8B 55 |:.35:N..(UR$):.U|
000027F0: 52 24 B2 22 51 22 A7 8E 00 19 30 1C 07 99 3A 99 |R$."Q"....0...:.|
00002800: 22 20 20 C8 4F 57 20 4D 41 4E 59 20 41 54 20 41 |" .OW MANY AT A|
00002810: 20 54 49 4D 45 3F 20 22 3B 00 4D 30 1D 07 55 53 | TIME? ";.M0..US|
00002820: 24 B2 22 51 48 30 31 32 33 34 35 36 37 38 39 22 |$."QH0123456789"|
00002830: 3A 55 4C B2 32 3A 8D 33 35 3A 4D B2 C5 28 55 52 |:UL.2:.35:M..(UR|
00002840: 24 29 3A 8B 55 52 24 B2 22 51 22 A7 8E 00 65 30 |$):.UR$."Q"...e0|
00002850: 1E 07 8B 4E B1 30 AF 4D B1 30 AF 4D B3 B2 4E A7 |...N.0.M.0.M..N.|
00002860: 89 31 38 32 34 00 99 30 1F 07 99 22 11 C9 4E 56 |.1824..0..."..NV|
00002870: 41 4C 49 44 20 44 41 54 41 2C 20 54 52 59 20 41 |ALID DATA, TRY A|
00002880: 47 41 49 4E 2E 2E 22 3A 81 51 51 B2 31 A4 33 30 |GAIN..":.QQ.1.30|
00002890: 30 3A 82 3A 89 31 38 30 30 00 A5 30 20 07 81 54 |0:.:.1800..0 ..T|
000028A0: 37 B2 31 A4 4D 00 C9 30 21 07 8B 28 31 2E 37 30 |7.1.M..0!..(1.70|
000028B0: 31 34 31 31 38 34 45 AA 33 37 20 AD 20 4E AE 54 |141184E.37 . N.T|
000028C0: 37 29 B3 4E A7 31 38 32 37 00 D7 30 22 07 82 54 |7).N.1827..0"..T|
000028D0: 37 3A 89 31 38 32 39 00 08 31 23 07 99 22 11 20 |7:.1829..1#..". |
000028E0: 20 CE 55 4D 42 45 52 20 49 53 20 54 4F 4F 20 4C | .UMBER IS TOO L|
000028F0: 41 52 47 45 22 3A 55 50 B2 55 50 AB 31 3A 8D 38 |ARGE":UP.UP.1:.8|
00002900: 33 35 3A 89 31 38 30 32 00 16 31 25 07 99 22 9D |35:.1802..1%..".|
00002910: 22 3A 50 5A B2 30 00 1F 31 26 07 50 34 B2 4E 00 |":PZ.0..1&.P4.N.|
00002920: 37 31 30 07 50 33 B2 50 33 AA 31 3A 8B 50 33 B2 |710.P3.P3.1:.P3.|
00002930: 4D A7 89 31 38 36 30 00 4E 31 3A 07 50 34 B2 28 |M..1860.N1:.P4.(|
00002940: 4E AB 50 33 29 AC 50 34 3A 89 31 38 34 30 00 6E |N.P3).P4:.1840.n|
00002950: 31 44 07 99 22 11 11 20 20 D0 45 52 4D 55 54 41 |1D..".. .ERMUTA|
00002960: 54 49 4F 4E 53 20 41 52 45 20 22 3B 50 34 00 7A |TIONS ARE ";P4.z|
00002970: 31 4E 07 50 34 B2 50 34 AD 4D 00 91 31 58 07 50 |1N.P4.P4.M..1X.P|
00002980: 33 B2 50 33 AB 31 3A 8B 50 33 B3 31 A7 31 39 30 |3.P3.1:.P3.1.190|
00002990: 30 00 A9 31 62 07 4D B2 4D AB 31 3A 50 34 B2 50 |0..1b.M.M.1:P4.P|
000029A0: 34 AD 4D 3A 89 31 38 38 30 00 C9 31 6C 07 99 22 |4.M:.1880..1l.."|
000029B0: 11 11 20 20 C3 4F 4D 42 49 4E 41 54 49 4F 4E 53 |.. .OMBINATIONS|
000029C0: 20 41 52 45 20 22 3B 50 34 00 D4 31 76 07 99 22 | ARE ";P4..1v.."|
000029D0: 11 11 11 11 00 EA 31 80 07 8D 38 33 35 3A 99 22 |......1...835:."|
000029E0: 93 22 3A CB 20 A4 31 38 30 32 00 F3 31 8A 07 55 |.":. .1802..1..U|
000029F0: 50 B2 30 00 0D 32 8C 07 55 47 24 B2 22 D1 55 45 |P.0..2..UG$.".UE|
00002A00: 53 54 49 4F 4E 20 23 22 3A 8D 38 35 30 00 2B 32 |STION #":.850.+2|
00002A10: 8F 07 99 22 20 20 C9 4E 56 45 52 53 45 20 4F 46 |..." .NVERSE OF|
00002A20: 20 32 2A 32 20 4D 41 54 52 49 58 00 3E 32 94 07 | 2*2 MATRIX.>2..|
00002A30: 99 22 11 20 20 C5 4E 54 45 52 20 20 22 3B 00 54 |.". .NTER ";.T|
00002A40: 32 9E 07 99 22 11 11 B0 11 20 31 20 20 20 20 20 |2...".... 1 |
00002A50: 32 91 20 AE 00 75 32 A8 07 99 22 11 11 11 11 20 |2. ..u2...".... |
00002A60: 20 20 20 20 20 20 20 20 AD 91 20 33 20 20 20 20 | .. 3 |
00002A70: 20 34 11 20 BD 00 8D 32 B2 07 99 22 11 11 20 20 | 4. ...2...".. |
00002A80: 41 53 20 31 2C 32 2C 33 2C 34 20 11 22 00 CE 32 |AS 1,2,3,4 ."..2|
00002A90: B3 07 99 22 20 20 22 3B 3A 50 5A B2 31 3A 55 53 |..." ";:PZ.1:US|
00002AA0: 24 B2 22 51 48 30 31 32 33 34 35 36 37 38 39 22 |$."QH0123456789"|
00002AB0: 3A 55 4C B2 35 3A 8D 33 35 3A 41 31 B2 C5 28 55 |:UL.5:.35:A1..(U|
00002AC0: 52 24 29 3A 8B 55 52 24 B2 22 51 22 A7 8E 00 0F |R$):.UR$."Q"....|
00002AD0: 33 B4 07 99 22 91 1D 1D 1D 1D 2C 20 22 3B 3A 55 |3..."....., ";:U|
00002AE0: 53 24 B2 22 51 48 30 31 32 33 34 35 36 37 38 39 |S$."QH0123456789|
00002AF0: 22 3A 55 4C B2 35 3A 8D 33 35 3A 41 32 B2 C5 28 |":UL.5:.35:A2..(|
00002B00: 55 52 24 29 3A 8B 55 52 24 B2 22 51 22 A7 8E 00 |UR$):.UR$."Q"...|
00002B10: 4F 33 B5 07 99 A3 38 29 22 91 2C 20 22 3B 3A 55 |O3....8)"., ";:U|
00002B20: 53 24 B2 22 51 48 30 31 32 33 34 35 36 37 38 39 |S$."QH0123456789|
00002B30: 22 3A 55 4C B2 32 3A 8D 33 35 3A 41 33 B2 C5 28 |":UL.2:.35:A3..(|
00002B40: 55 52 24 29 3A 8B 55 52 24 B2 22 51 22 A7 8E 00 |UR$):.UR$."Q"...|
00002B50: 91 33 B6 07 99 A3 31 32 29 3B 22 91 2C 20 22 3B |.3....12);"., ";|
00002B60: 3A 55 53 24 B2 22 51 48 30 31 32 33 34 35 36 37 |:US$."QH01234567|
00002B70: 38 39 22 3A 55 4C B2 35 3A 8D 33 35 3A 41 34 B2 |89":UL.5:.35:A4.|
00002B80: C5 28 55 52 24 29 3A 8B 55 52 24 B2 22 51 22 A7 |.(UR$):.UR$."Q".|
00002B90: 8E 00 9F 33 B7 07 99 22 9D 22 3A 50 5A B2 30 00 |...3...".":PZ.0.|
00002BA0: BD 33 BC 07 41 35 B2 41 34 3A 41 36 B2 AB 41 32 |.3..A5.A4:A6..A2|
00002BB0: 3A 41 37 B2 AB 41 33 3A 41 38 B2 41 31 00 D1 33 |:A7..A3:A8.A1..3|
00002BC0: C6 07 41 39 B2 41 34 AC 41 31 AA 41 36 AC 41 33 |..A9.A4.A1.A6.A3|
00002BD0: 3A 00 0D 34 D0 07 8B 41 39 B2 30 A7 99 22 11 11 |:..4...A9.0.."..|
00002BE0: 20 20 D4 48 49 53 20 4D 41 54 52 49 58 20 48 41 | .HIS MATRIX HA|
00002BF0: 53 20 4E 4F 20 49 4E 56 45 52 53 45 22 3A 8D 38 |S NO INVERSE":.8|
00002C00: 33 35 3A 99 22 93 22 3A 89 31 39 33 32 00 35 34 |35:.".":.1932.54|
00002C10: DA 07 41 31 B2 41 35 AD 41 39 3A 41 32 B2 41 36 |..A1.A5.A9:A2.A6|
00002C20: AD 41 39 3A 41 33 B2 41 37 AD 41 39 3A 41 34 B2 |.A9:A3.A7.A9:A4.|
00002C30: 41 38 AD 41 39 00 5C 34 E4 07 99 22 93 11 20 20 |A8.A9.\4...".. |
00002C40: C8 45 52 45 20 49 53 20 59 4F 55 52 20 49 4E 56 |.ERE IS YOUR INV|
00002C50: 45 52 53 45 20 4D 41 54 52 49 58 3A 00 81 34 EE |ERSE MATRIX:..4.|
00002C60: 07 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 11 11 B0 20 |.."............ |
00002C70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002C80: AE 00 B9 34 F8 07 99 22 11 11 22 A3 31 31 29 B5 |...4..."..".11).|
00002C90: 28 41 31 AC 31 30 30 30 AA 2E 35 29 AD 31 30 30 |(A1.1000..5).100|
00002CA0: 30 3B A3 32 31 29 3B B5 28 41 32 AC 31 30 30 30 |0;.21);.(A2.1000|
00002CB0: AA 2E 35 29 AD 31 30 30 30 00 C2 34 02 08 99 22 |..5).1000..4..."|
00002CC0: 11 11 00 FB 34 0C 08 99 22 11 11 22 A3 31 31 29 |....4..."..".11)|
00002CD0: 3B B5 28 41 33 AC 31 30 30 30 AA 2E 35 29 AD 31 |;.(A3.1000..5).1|
00002CE0: 30 30 30 3B A3 32 31 29 3B B5 28 41 34 AC 31 30 |000;.21);.(A4.10|
00002CF0: 30 30 AA 2E 35 29 AD 31 30 30 30 00 21 35 16 08 |00..5).1000.!5..|
00002D00: 99 22 20 20 1D 1D 1D 1D 1D 1D 1D 11 11 11 AD 20 |." ........... |
00002D10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002D20: BD 00 35 35 34 08 8D 38 33 35 3A 99 22 93 22 3A |..554..835:.".":|
00002D30: 89 31 39 33 32 00 53 35 3E 08 55 47 24 B2 22 D0 |.1932.S5>.UG$.".|
00002D40: 52 4F 42 4C 45 4D 20 23 22 3A 55 50 B2 32 3A 8D |ROBLEM #":UP.2:.|
00002D50: 38 35 30 00 6D 35 43 08 99 22 11 20 20 C3 4F 4D |850.m5C..". .OM|
00002D60: 50 4C 45 58 20 4E 55 4D 42 45 52 53 22 00 8B 35 |PLEX NUMBERS"..5|
00002D70: 48 08 99 22 11 20 20 20 20 20 12 31 92 20 46 4F |H..". .1. FO|
00002D80: 52 20 41 44 44 49 54 49 4F 4E 22 00 AC 35 52 08 |R ADDITION"..5R.|
00002D90: 99 22 11 20 20 20 20 20 12 32 92 20 46 4F 52 20 |.". .2. FOR |
00002DA0: 53 55 42 54 52 41 43 54 49 4F 4E 22 00 CA 35 5C |SUBTRACTION"..5\|
00002DB0: 08 99 22 11 20 20 20 20 20 12 33 92 20 46 4F 52 |..". .3. FOR|
00002DC0: 20 44 49 56 49 53 49 4F 4E 22 00 EE 35 66 08 99 | DIVISION"..5f..|
00002DD0: 22 11 20 20 20 20 20 12 34 92 20 46 4F 52 20 4D |". .4. FOR M|
00002DE0: 55 4C 54 49 50 4C 49 43 41 54 49 4F 4E 22 00 1C |ULTIPLICATION"..|
00002DF0: 36 70 08 99 22 11 11 20 20 C1 53 20 53 4F 4F 4E |6p..".. .S SOON|
00002E00: 20 41 53 20 59 4F 55 20 48 41 56 45 20 45 4E 54 | AS YOU HAVE ENT|
00002E10: 45 52 45 44 20 4F 4E 45 20 4F 46 22 00 48 36 7A |ERED ONE OF".H6z|
00002E20: 08 99 22 11 20 20 54 48 45 20 4E 55 4D 42 45 52 |..". THE NUMBER|
00002E30: 53 20 59 4F 55 20 41 52 45 20 49 4E 20 54 48 41 |S YOU ARE IN THA|
00002E40: 54 20 4D 4F 44 45 2E 22 00 71 36 84 08 99 22 11 |T MODE.".q6...".|
00002E50: 20 20 54 59 50 45 20 27 51 27 20 54 4F 20 45 4E | TYPE 'Q' TO EN|
00002E60: 44 20 54 48 45 20 50 52 4F 47 52 41 4D 2E 20 22 |D THE PROGRAM. "|
00002E70: 3B 00 97 36 A2 08 55 53 24 B2 22 31 32 33 34 51 |;..6..US$."1234Q|
00002E80: 48 22 3A 55 4C B2 31 3A 8D 33 35 3A 41 24 B2 55 |H":UL.1:.35:A$.U|
00002E90: 52 24 3A 55 50 B2 30 00 A8 36 AC 08 8B 41 24 B2 |R$:UP.0..6...A$.|
00002EA0: 22 31 22 89 32 32 37 30 00 B9 36 B6 08 8B 41 24 |"1".2270..6...A$|
00002EB0: B2 22 32 22 89 32 33 36 30 00 CA 36 C0 08 8B 41 |."2".2360..6...A|
00002EC0: 24 B2 22 33 22 89 32 34 35 30 00 DB 36 CA 08 8B |$."3".2450..6...|
00002ED0: 41 24 B2 22 34 22 89 32 35 35 30 00 01 37 D4 08 |A$."4".2550..7..|
00002EE0: 99 22 93 11 20 20 D4 52 59 20 41 47 41 49 4E 20 |.".. .RY AGAIN |
00002EF0: 31 2C 32 2C 33 20 4F 52 20 34 22 3A 89 32 31 32 |1,2,3 OR 4":.212|
00002F00: 30 00 1B 37 DE 08 55 47 24 B2 22 D1 55 45 53 54 |0..7..UG$.".UEST|
00002F10: 49 4F 4E 20 23 22 3A 8D 38 35 30 00 36 37 E3 08 |ION #":.850.67..|
00002F20: 99 22 11 11 20 C3 4F 4D 50 4C 45 58 20 41 44 44 |.".. .OMPLEX ADD|
00002F30: 49 54 49 4F 4E 3A 00 5F 37 E8 08 99 22 11 20 C5 |ITION:._7...". .|
00002F40: 4E 54 45 52 20 52 45 41 4C 20 50 41 52 54 20 54 |NTER REAL PART T|
00002F50: 48 45 4E 20 49 4D 41 47 28 4A 29 50 41 52 54 00 |HEN IMAG(J)PART.|
00002F60: 8E 37 F2 08 99 22 11 20 54 48 45 4E 20 4F 54 48 |.7...". THEN OTH|
00002F70: 45 52 20 43 4F 4D 50 4C 45 58 20 4E 55 4D 42 45 |ER COMPLEX NUMBE|
00002F80: 52 20 46 4F 52 20 41 44 44 49 54 49 4F 4E 00 B9 |R FOR ADDITION..|
00002F90: 37 FC 08 99 22 11 20 46 4F 52 4D 55 4C 41 20 49 |7...". FORMULA I|
00002FA0: 53 20 28 41 20 2B 4F 52 2D 20 4A 29 2B 28 41 31 |S (A +OR- J)+(A1|
00002FB0: 20 2B 4F 52 2D 20 4A 31 29 00 E9 37 06 09 99 22 | +OR- J1)..7..."|
00002FC0: 11 20 32 20 43 4F 4D 50 4C 45 58 20 4E 55 4D 42 |. 2 COMPLEX NUMB|
00002FD0: 45 52 53 20 41 54 20 41 20 54 49 4D 45 20 41 2C |ERS AT A TIME A,|
00002FE0: 4A 2C 41 31 2C 4A 31 11 22 00 07 38 07 09 99 22 |J,A1,J1."..8..."|
00002FF0: 20 22 3B 3A 50 5A B2 31 3A 8D 33 31 35 30 3A 41 | ";:PZ.1:.3150:A|
00003000: B2 C5 28 55 52 24 29 00 25 38 08 09 99 22 91 1D |..(UR$).%8..."..|
00003010: 1D 1D 2C 20 22 3B 3A 8D 33 31 35 30 3A 4A B2 C5 |.., ";:.3150:J..|
00003020: 28 55 52 24 29 00 48 38 09 09 99 22 91 1D 1D 1D |(UR$).H8..."....|
00003030: 1D 1D 1D 1D 2C 20 22 3B 3A 8D 33 31 35 30 3A 41 |...., ";:.3150:A|
00003040: 31 B2 C5 28 55 52 24 29 00 6F 38 0A 09 99 22 91 |1..(UR$).o8...".|
00003050: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 2C 20 22 3B 3A |..........., ";:|
00003060: 8D 33 31 35 30 3A 4A 31 B2 C5 28 55 52 24 29 00 |.3150:J1..(UR$).|
00003070: 7D 38 0B 09 99 22 9D 22 3A 50 5A B2 30 00 8F 38 |}8...".":PZ.0..8|
00003080: 10 09 41 B2 41 AA 41 31 3A 4A B2 4A AA 4A 31 00 |..A.A.A1:J.J.J1.|
00003090: A9 38 1A 09 99 22 11 11 1D 1D 1D 1D 1D D2 45 41 |.8..."........EA|
000030A0: 4C 20 50 41 52 54 3D 22 41 00 C2 38 24 09 99 22 |L PART="A..8$.."|
000030B0: 11 1D 1D 1D 1D 1D C9 4D 41 47 20 50 41 52 54 3D |.......MAG PART=|
000030C0: 22 4A 00 D6 38 2E 09 8D 38 33 35 3A 99 22 93 22 |"J..8...835:."."|
000030D0: 3A 89 32 32 37 30 00 F0 38 38 09 55 47 24 B2 22 |:.2270..88.UG$."|
000030E0: D1 55 45 53 54 49 4F 4E 20 23 22 3A 8D 38 35 30 |.UESTION #":.850|
000030F0: 00 0E 39 3D 09 99 22 11 11 20 C3 4F 4D 50 4C 45 |..9=..".. .OMPLE|
00003100: 58 20 53 55 42 54 52 41 43 54 49 4F 4E 3A 00 3C |X SUBTRACTION:.<|
00003110: 39 42 09 99 22 11 20 C5 4E 54 45 52 20 52 45 41 |9B..". .NTER REA|
00003120: 4C 20 50 41 52 54 20 54 48 45 4E 20 49 4D 41 47 |L PART THEN IMAG|
00003130: 28 4A 29 50 41 52 54 20 54 48 45 4E 00 69 39 4C |(J)PART THEN.i9L|
00003140: 09 99 22 11 20 4F 54 48 45 52 20 43 4F 4D 50 4C |..". OTHER COMPL|
00003150: 45 58 20 4E 55 4D 42 45 52 20 46 4F 52 20 53 55 |EX NUMBER FOR SU|
00003160: 42 54 52 41 43 54 49 4F 4E 00 94 39 56 09 99 22 |BTRACTION..9V.."|
00003170: 11 20 46 4F 52 4D 55 4C 41 20 49 53 20 28 41 20 |. FORMULA IS (A |
00003180: 2B 4F 52 2D 20 4A 29 2D 28 41 31 20 2B 4F 52 2D |+OR- J)-(A1 +OR-|
00003190: 20 4A 31 29 00 C4 39 60 09 99 22 11 20 32 20 43 | J1)..9`..". 2 C|
000031A0: 4F 4D 50 4C 45 58 20 4E 55 4D 42 45 52 53 20 41 |OMPLEX NUMBERS A|
000031B0: 54 20 41 20 54 49 4D 45 20 41 2C 4A 2C 41 31 2C |T A TIME A,J,A1,|
000031C0: 4A 31 11 22 00 E2 39 61 09 99 22 20 22 3B 3A 50 |J1."..9a.." ";:P|
000031D0: 5A B2 31 3A 8D 33 31 35 30 3A 41 B2 C5 28 55 52 |Z.1:.3150:A..(UR|
000031E0: 24 29 00 00 3A 62 09 99 22 91 1D 1D 1D 2C 20 22 |$)..:b.."...., "|
000031F0: 3B 3A 8D 33 31 35 30 3A 4A B2 C5 28 55 52 24 29 |;:.3150:J..(UR$)|
00003200: 00 23 3A 63 09 99 22 91 1D 1D 1D 1D 1D 1D 1D 2C |.#:c.."........,|
00003210: 20 22 3B 3A 8D 33 31 35 30 3A 41 31 B2 C5 28 55 | ";:.3150:A1..(U|
00003220: 52 24 29 00 4A 3A 64 09 99 22 91 1D 1D 1D 1D 1D |R$).J:d.."......|
00003230: 1D 1D 1D 1D 1D 1D 2C 20 22 3B 3A 8D 33 31 35 30 |......, ";:.3150|
00003240: 3A 4A 31 B2 C5 28 55 52 24 29 00 58 3A 65 09 99 |:J1..(UR$).X:e..|
00003250: 22 9D 22 3A 50 5A B2 30 00 6A 3A 6A 09 41 B2 41 |".":PZ.0.j:j.A.A|
00003260: AB 41 31 3A 4A B2 4A AB 4A 31 00 84 3A 74 09 99 |.A1:J.J.J1..:t..|
00003270: 22 11 11 1D 1D 1D 1D 1D D2 45 41 4C 20 50 41 52 |"........EAL PAR|
00003280: 54 3D 22 41 00 9E 3A 7E 09 99 22 11 11 1D 1D 1D |T="A..:~..".....|
00003290: 1D 1D C9 4D 41 47 20 50 41 52 54 3D 22 4A 00 B2 |...MAG PART="J..|
000032A0: 3A 88 09 8D 38 33 35 3A 99 22 93 22 3A 89 32 33 |:...835:.".":.23|
000032B0: 36 30 00 CC 3A 92 09 55 47 24 B2 22 D1 55 45 53 |60..:..UG$.".UES|
000032C0: 54 49 4F 4E 20 23 22 3A 8D 38 35 30 00 E7 3A 97 |TION #":.850..:.|
000032D0: 09 99 22 11 11 20 C3 4F 4D 50 4C 45 58 20 44 49 |..".. .OMPLEX DI|
000032E0: 56 49 53 49 4F 4E 3A 00 10 3B 9C 09 99 22 11 20 |VISION:..;...". |
000032F0: C5 4E 54 45 52 20 52 45 41 4C 20 50 41 52 54 20 |.NTER REAL PART |
00003300: 54 48 45 4E 20 49 4D 41 47 28 4A 29 50 41 52 54 |THEN IMAG(J)PART|
00003310: 00 3F 3B A6 09 99 22 11 20 54 48 45 4E 20 4F 54 |.?;...". THEN OT|
00003320: 48 45 52 20 43 4F 4D 50 4C 45 58 20 4E 55 4D 42 |HER COMPLEX NUMB|
00003330: 45 52 20 46 4F 52 20 44 49 56 49 53 49 4F 4E 00 |ER FOR DIVISION.|
00003340: 6A 3B B0 09 99 22 11 20 46 4F 52 4D 55 4C 41 20 |j;...". FORMULA |
00003350: 49 53 20 28 41 20 2B 4F 52 2D 20 4A 29 2F 28 41 |IS (A +OR- J)/(A|
00003360: 31 20 2B 4F 52 2D 20 4A 31 29 00 9A 3B BA 09 99 |1 +OR- J1)..;...|
00003370: 22 11 20 32 20 43 4F 4D 50 4C 45 58 20 4E 55 4D |". 2 COMPLEX NUM|
00003380: 42 45 52 53 20 41 54 20 41 20 54 49 4D 45 20 41 |BERS AT A TIME A|
00003390: 2C 4A 2C 41 31 2C 4A 31 11 22 00 B8 3B BB 09 99 |,J,A1,J1."..;...|
000033A0: 22 20 22 3B 3A 50 5A B2 31 3A 8D 33 31 35 30 3A |" ";:PZ.1:.3150:|
000033B0: 41 B2 C5 28 55 52 24 29 00 D6 3B BC 09 99 22 91 |A..(UR$)..;...".|
000033C0: 1D 1D 1D 2C 20 22 3B 3A 8D 33 31 35 30 3A 4A B2 |..., ";:.3150:J.|
000033D0: C5 28 55 52 24 29 00 F9 3B BD 09 99 22 91 1D 1D |.(UR$)..;..."...|
000033E0: 1D 1D 1D 1D 1D 2C 20 22 3B 3A 8D 33 31 35 30 3A |....., ";:.3150:|
000033F0: 41 31 B2 C5 28 55 52 24 29 00 20 3C BE 09 99 22 |A1..(UR$). <..."|
00003400: 91 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 2C 20 22 3B |............, ";|
00003410: 3A 8D 33 31 35 30 3A 4A 31 B2 C5 28 55 52 24 29 |:.3150:J1..(UR$)|
00003420: 00 2E 3C BF 09 99 22 9D 22 3A 50 5A B2 30 00 42 |..<...".":PZ.0.B|
00003430: 3C C4 09 50 B2 28 41 31 AE 32 29 AA 28 4A 31 AE |<..P.(A1.2).(J1.|
00003440: 32 29 00 66 3C CE 09 44 B2 28 41 AC 41 31 AA 4A |2).f<..D.(A.A1.J|
00003450: 31 AC 4A 29 AD 50 3A 4D B2 28 4A AC 41 31 AB 41 |1.J).P:M.(J.A1.A|
00003460: AC 4A 31 29 AD 50 00 80 3C D8 09 99 22 11 11 1D |.J1).P..<..."...|
00003470: 1D 1D 1D 1D D2 45 41 4C 20 50 41 52 54 3D 22 44 |.....EAL PART="D|
00003480: 00 9A 3C E2 09 99 22 11 11 1D 1D 1D 1D 1D C9 4D |..<..."........M|
00003490: 41 47 20 50 41 52 54 3D 22 4D 00 AE 3C EC 09 8D |AG PART="M..<...|
000034A0: 38 33 35 3A 99 22 93 22 3A 89 32 34 35 30 00 C8 |835:.".":.2450..|
000034B0: 3C F6 09 55 47 24 B2 22 D1 55 45 53 54 49 4F 4E |<..UG$.".UESTION|
000034C0: 20 23 22 3A 8D 38 35 30 00 E8 3C FB 09 99 22 11 | #":.850..<...".|
000034D0: 20 C3 4F 4D 50 4C 45 58 20 4D 55 4C 54 49 50 4C | .OMPLEX MULTIPL|
000034E0: 49 43 41 54 49 4F 4E 3A 00 11 3D 00 0A 99 22 11 |ICATION:..=...".|
000034F0: 20 C5 4E 54 45 52 20 52 45 41 4C 20 50 41 52 54 | .NTER REAL PART|
00003500: 20 54 48 45 4E 20 49 4D 41 47 28 4A 29 50 41 52 | THEN IMAG(J)PAR|
00003510: 54 00 51 3D 0A 0A 99 22 11 20 54 48 45 4E 20 4F |T.Q=...". THEN O|
00003520: 54 48 45 52 20 43 4F 4D 50 4C 45 58 20 4E 55 4D |THER COMPLEX NUM|
00003530: 42 45 52 20 46 4F 52 20 20 20 20 20 20 20 20 20 |BER FOR |
00003540: 20 11 20 4D 55 4C 54 49 50 4C 49 43 41 54 49 4F | . MULTIPLICATIO|
00003550: 4E 00 7C 3D 14 0A 99 22 11 20 C6 4F 52 4D 55 4C |N.|=...". .ORMUL|
00003560: 41 20 49 53 20 28 41 20 2B 4F 52 2D 20 4A 29 2A |A IS (A +OR- J)*|
00003570: 28 41 31 20 2B 4F 52 2D 20 4A 31 29 00 AC 3D 1E |(A1 +OR- J1)..=.|
00003580: 0A 99 22 11 20 32 20 43 4F 4D 50 4C 45 58 20 4E |..". 2 COMPLEX N|
00003590: 55 4D 42 45 52 53 20 41 54 20 41 20 54 49 4D 45 |UMBERS AT A TIME|
000035A0: 20 41 2C 4A 2C 41 31 2C 4A 31 11 22 00 CA 3D 1F | A,J,A1,J1."..=.|
000035B0: 0A 99 22 20 22 3B 3A 50 5A B2 31 3A 8D 33 31 35 |.." ";:PZ.1:.315|
000035C0: 30 3A 41 B2 C5 28 55 52 24 29 00 E8 3D 20 0A 99 |0:A..(UR$)..= ..|
000035D0: 22 91 1D 1D 1D 2C 20 22 3B 3A 8D 33 31 35 30 3A |"...., ";:.3150:|
000035E0: 4A B2 C5 28 55 52 24 29 00 0B 3E 21 0A 99 22 91 |J..(UR$)..>!..".|
000035F0: 1D 1D 1D 1D 1D 1D 1D 2C 20 22 3B 3A 8D 33 31 35 |......., ";:.315|
00003600: 30 3A 41 31 B2 C5 28 55 52 24 29 00 32 3E 22 0A |0:A1..(UR$).2>".|
00003610: 99 22 91 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 2C 20 |."............, |
00003620: 22 3B 3A 8D 33 31 35 30 3A 4A 31 B2 C5 28 55 52 |";:.3150:J1..(UR|
00003630: 24 29 00 40 3E 23 0A 99 22 9D 22 3A 50 5A B2 30 |$).@>#..".":PZ.0|
00003640: 00 5C 3E 28 0A 50 B2 41 AC 41 31 AB 4A AC 4A 31 |.\>(.P.A.A1.J.J1|
00003650: 3A 44 B2 41 AC 4A 31 AA 41 31 AC 4A 00 76 3E 32 |:D.A.J1.A1.J.v>2|
00003660: 0A 99 22 11 11 1D 1D 1D 1D 1D D2 45 41 4C 20 50 |.."........EAL P|
00003670: 41 52 54 3D 22 50 00 90 3E 3C 0A 99 22 11 11 1D |ART="P..><.."...|
00003680: 1D 1D 1D 1D C9 4D 41 47 20 50 41 52 54 3D 22 44 |.....MAG PART="D|
00003690: 00 A4 3E 46 0A 8D 38 33 35 3A 99 22 93 22 3A 89 |..>F..835:.".":.|
000036A0: 32 35 35 30 00 AD 3E 50 0A 55 50 B2 30 00 C7 3E |2550..>P.UP.0..>|
000036B0: 55 0A 55 47 24 B2 22 D1 55 45 53 54 49 4F 4E 20 |U.UG$.".UESTION |
000036C0: 23 22 3A 8D 38 35 30 00 F0 3E 57 0A 99 22 11 20 |#":.850..>W..". |
000036D0: 20 C5 58 41 4D 50 4C 45 20 31 30 30 30 30 20 54 | .XAMPLE 10000 T|
000036E0: 41 4B 45 53 20 35 2E 35 20 4D 49 4E 55 54 45 53 |AKES 5.5 MINUTES|
000036F0: 00 19 3F 5A 0A 99 22 11 11 11 20 20 D4 48 49 53 |..?Z.."... .HIS|
00003700: 20 50 52 4F 47 52 41 4D 20 46 49 4E 44 53 20 46 | PROGRAM FINDS F|
00003710: 41 43 54 4F 52 49 41 4C 53 00 24 3F 64 0A 4D B2 |ACTORIALS.$?d.M.|
00003720: 31 30 30 30 00 2E 3F 6E 0A 4B B2 31 30 30 00 37 |1000..?n.K.100.7|
00003730: 3F 78 0A 4C B2 31 30 00 3F 3F 82 0A 54 B2 31 00 |?x.L.10.??..T.1.|
00003740: 47 3F 87 0A 55 B2 30 00 58 3F 8C 0A 53 B2 2E 34 |G?..U.0.X?..S..4|
00003750: 33 34 32 39 34 34 38 32 00 79 3F 96 0A 99 22 11 |34294482.y?...".|
00003760: 20 20 4F 46 20 41 4E 59 20 50 4F 53 49 54 49 56 | OF ANY POSITIV|
00003770: 45 20 49 4E 54 45 47 45 52 00 8E 3F A0 0A 99 22 |E INTEGER..?..."|
00003780: 11 20 20 45 4E 54 45 52 20 58 3A 20 22 3B 00 C2 |. ENTER X: ";..|
00003790: 3F A2 0A 55 53 24 B2 22 51 48 30 31 32 33 34 35 |?..US$."QH012345|
000037A0: 36 37 38 39 22 3A 55 4C B2 33 3A 8D 33 35 3A 58 |6789":UL.3:.35:X|
000037B0: B2 C5 28 55 52 24 29 3A 8B 55 52 24 B2 22 51 22 |..(UR$):.UR$."Q"|
000037C0: A7 8E 00 02 40 AA 0A 8B 58 AB 31 B2 58 A7 99 22 |....@...X.1.X.."|
000037D0: 11 20 12 D4 48 41 54 20 57 4F 55 4C 44 20 54 41 |. ..HAT WOULD TA|
000037E0: 4B 45 20 4C 4F 4E 47 45 52 20 54 48 41 4E 20 54 |KE LONGER THAN T|
000037F0: 48 45 20 55 4E 49 56 45 52 53 45 22 3A 89 32 36 |HE UNIVERSE":.26|
00003800: 34 35 00 28 40 B4 0A 8B B5 28 58 29 B3 B1 58 A7 |45.(@....(X)..X.|
00003810: 99 22 11 20 20 CE 4F 20 46 52 41 43 54 49 4F 4E |.". .O FRACTION|
00003820: 53 22 3A 89 32 37 32 30 00 51 40 BE 0A 8B 58 B3 |S":.2720.Q@...X.|
00003830: 30 A7 99 22 11 20 20 CE 4F 20 4E 45 47 41 54 49 |0..". .O NEGATI|
00003840: 56 45 20 4E 55 4D 42 45 52 53 22 3A 89 32 37 32 |VE NUMBERS":.272|
00003850: 30 00 79 40 C8 0A 8B 58 B2 30 A7 99 22 1D 1D 1D |0.y@...X.0.."...|
00003860: 1D 1D 11 11 31 45 2B 30 22 3A 8D 38 33 35 3A 99 |....1E+0":.835:.|
00003870: 22 93 22 3A 89 32 36 34 35 00 88 40 D2 0A 8B 58 |".":.2645..@...X|
00003880: B1 33 33 A7 32 38 30 30 00 9F 40 DC 0A 4A B2 54 |.33.2800..@..J.T|
00003890: 3A 81 47 B2 54 A4 58 3A 4A B2 4A AC 47 3A 82 00 |:.G.T.X:J.J.G:..|
000038A0: CD 40 E6 0A 99 22 11 11 20 20 C6 41 43 54 4F 52 |.@...".. .ACTOR|
000038B0: 49 41 4C 20 4F 46 22 58 22 49 53 22 4A 3A 8D 38 |IAL OF"X"IS"J:.8|
000038C0: 33 35 3A 99 22 93 22 3A 89 32 36 34 35 00 E5 40 |35:.".":.2645..@|
000038D0: F0 0A 81 47 B2 54 A4 58 3A 4A B2 4A AA BC 28 47 |...G.T.X:J.J..(G|
000038E0: 29 AC 53 3A 82 00 F4 40 FA 0A 8B 20 4A B3 4D 89 |).S:...@... J.M.|
000038F0: 32 38 33 30 00 0A 41 04 0B 4A B2 4A AB 4D 3A 55 |2830..A..J.J.M:U|
00003900: B2 55 AA 4D 3A 89 32 38 31 30 00 18 41 0E 0B 8B |.U.M:.2810..A...|
00003910: 4A B3 4B 89 32 38 35 30 00 2E 41 18 0B 4A B2 4A |J.K.2850..A..J.J|
00003920: AB 4B 3A 55 B2 55 AA 4B 3A 89 32 38 33 30 00 3C |.K:U.U.K:.2830.<|
00003930: 41 22 0B 8B 4A B3 4C 89 32 38 37 30 00 52 41 2C |A"..J.L.2870.RA,|
00003940: 0B 4A B2 4A AB 4C 3A 55 B2 55 AA 4C 3A 89 32 38 |.J.J.L:U.U.L:.28|
00003950: 35 30 00 61 41 36 0B 8B 20 4A B3 54 89 32 38 39 |50.aA6.. J.T.289|
00003960: 30 00 77 41 40 0B 4A B2 4A AB 54 3A 55 B2 55 AA |0.wA@.J.J.T:U.U.|
00003970: 54 3A 89 32 38 37 30 00 84 41 4A 0B 4A B2 BD 28 |T:.2870..AJ.J..(|
00003980: 4A AD 53 29 00 A6 41 54 0B 99 22 11 11 11 20 20 |J.S)..AT.."... |
00003990: D4 48 45 20 46 41 43 54 4F 52 49 41 4C 20 4F 46 |.HE FACTORIAL OF|
000039A0: 22 58 22 49 53 22 00 B7 41 5E 0B 99 22 11 11 22 |"X"IS"..A^..".."|
000039B0: 4A 22 9D 45 2B 22 55 00 CB 41 72 0B 8D 38 33 35 |J".E+"U..Ar..835|
000039C0: 3A 99 22 93 22 3A 89 32 36 34 35 00 D3 41 7C 0B |:.".":.2645..A|.|
000039D0: 99 22 93 00 DC 41 86 0B 55 50 B2 30 00 F6 41 88 |."...A..UP.0..A.|
000039E0: 0B 55 47 24 B2 22 D1 55 45 53 54 49 4F 4E 20 23 |.UG$.".UESTION #|
000039F0: 22 3A 8D 38 35 30 00 1F 42 8B 0B 99 22 11 20 D4 |":.850..B...". .|
00003A00: 48 49 53 20 50 52 4F 47 52 41 4D 20 53 4F 4C 56 |HIS PROGRAM SOLV|
00003A10: 45 53 20 41 20 33 20 56 41 52 49 41 42 4C 45 00 |ES A 3 VARIABLE.|
00003A20: 46 42 8D 0B 99 22 11 20 28 58 2C 59 2C 5A 29 20 |FB...". (X,Y,Z) |
00003A30: 53 49 4D 55 4C 54 41 4E 45 4F 55 53 20 45 51 55 |SIMULTANEOUS EQU|
00003A40: 41 54 49 4F 4E 22 00 6C 42 90 0B 99 22 20 20 20 |ATION".lB..." |
00003A50: 20 20 20 20 20 20 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 | ..........|
00003A60: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 22 00 91 42 9A |..........."..B.|
00003A70: 0B 99 22 11 20 20 C5 4E 54 45 52 20 54 4F 50 20 |..". .NTER TOP |
00003A80: 50 41 52 54 20 58 31 2C 59 31 2C 5A 31 2C 4E 31 |PART X1,Y1,Z1,N1|
00003A90: 22 00 B1 42 A4 0B 99 22 20 20 22 3B 3A 50 5A B2 |"..B..." ";:PZ.|
00003AA0: 31 3A 8D 33 31 35 30 3A 52 31 B2 C5 28 55 52 24 |1:.3150:R1..(UR$|
00003AB0: 29 00 D1 42 A5 0B 99 22 91 1D 1D 1D 1D 2C 20 22 |)..B..."....., "|
00003AC0: 3B 3A 8D 33 31 35 30 3A 52 32 B2 C5 28 55 52 24 |;:.3150:R2..(UR$|
00003AD0: 29 00 F5 42 A6 0B 99 22 91 1D 1D 1D 1D 1D 1D 1D |)..B..."........|
00003AE0: 1D 2C 20 22 3B 3A 8D 33 31 35 30 3A 52 33 B2 C5 |., ";:.3150:R3..|
00003AF0: 28 55 52 24 29 00 1D 43 A7 0B 99 22 91 1D 1D 1D |(UR$)..C..."....|
00003B00: 1D 1D 1D 1D 1D 1D 1D 1D 1D 2C 20 22 3B 3A 8D 33 |........., ";:.3|
00003B10: 31 35 30 3A 4B 31 B2 C5 28 55 52 24 29 00 2B 43 |150:K1..(UR$).+C|
00003B20: A8 0B 99 22 9D 22 3A 50 5A B2 30 00 53 43 AE 0B |...".":PZ.0.SC..|
00003B30: 99 22 11 20 20 D4 48 41 4E 4B 53 2E 20 CE 4F 57 |.". .HANKS. .OW|
00003B40: 20 45 4E 54 45 52 20 4D 49 44 44 4C 45 20 50 41 | ENTER MIDDLE PA|
00003B50: 52 54 22 00 68 43 B8 0B 99 22 11 20 20 58 32 2C |RT".hC...". X2,|
00003B60: 59 32 2C 5A 32 2C 4E 32 00 88 43 C2 0B 99 22 20 |Y2,Z2,N2..C..." |
00003B70: 20 22 3B 3A 50 5A B2 31 3A 8D 33 31 35 30 3A 52 | ";:PZ.1:.3150:R|
00003B80: 34 B2 C5 28 55 52 24 29 00 A8 43 C3 0B 99 22 91 |4..(UR$)..C...".|
00003B90: 1D 1D 1D 1D 2C 20 22 3B 3A 8D 33 31 35 30 3A 52 |...., ";:.3150:R|
00003BA0: 35 B2 C5 28 55 52 24 29 00 CC 43 C4 0B 99 22 91 |5..(UR$)..C...".|
00003BB0: 1D 1D 1D 1D 1D 1D 1D 1D 2C 20 22 3B 3A 8D 33 31 |........, ";:.31|
00003BC0: 35 30 3A 52 36 B2 C5 28 55 52 24 29 00 F4 43 C5 |50:R6..(UR$)..C.|
00003BD0: 0B 99 22 91 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..".............|
00003BE0: 2C 20 22 3B 3A 8D 33 31 35 30 3A 4B 32 B2 C5 28 |, ";:.3150:K2..(|
00003BF0: 55 52 24 29 00 02 44 C6 0B 99 22 9D 22 3A 50 5A |UR$)..D...".":PZ|
00003C00: B2 30 00 2C 44 CC 0B 99 22 11 20 20 D4 48 41 4E |.0.,D...". .HAN|
00003C10: 4B 20 59 4F 55 20 41 47 41 49 4E 20 4E 4F 57 20 |K YOU AGAIN NOW |
00003C20: 4C 41 53 54 4C 59 20 45 4E 54 45 52 00 4D 44 D6 |LASTLY ENTER.MD.|
00003C30: 0B 99 22 11 20 20 42 4F 54 54 4F 4D 20 50 41 52 |..". BOTTOM PAR|
00003C40: 54 20 58 33 2C 59 33 2C 5A 33 2C 4E 33 00 6D 44 |T X3,Y3,Z3,N3.mD|
00003C50: E0 0B 99 22 20 20 22 3B 3A 50 5A B2 31 3A 8D 33 |..." ";:PZ.1:.3|
00003C60: 31 35 30 3A 52 37 B2 C5 28 55 52 24 29 00 8D 44 |150:R7..(UR$)..D|
00003C70: E1 0B 99 22 91 1D 1D 1D 1D 2C 20 22 3B 3A 8D 33 |..."....., ";:.3|
00003C80: 31 35 30 3A 52 38 B2 C5 28 55 52 24 29 00 B1 44 |150:R8..(UR$)..D|
00003C90: E2 0B 99 22 91 1D 1D 1D 1D 1D 1D 1D 1D 2C 20 22 |..."........., "|
00003CA0: 3B 3A 8D 33 31 35 30 3A 52 39 B2 C5 28 55 52 24 |;:.3150:R9..(UR$|
00003CB0: 29 00 D9 44 E3 0B 99 22 91 1D 1D 1D 1D 1D 1D 1D |)..D..."........|
00003CC0: 1D 1D 1D 1D 1D 2C 20 22 3B 3A 8D 33 31 35 30 3A |....., ";:.3150:|
00003CD0: 4B 33 B2 C5 28 55 52 24 29 00 E7 44 E4 0B 99 22 |K3..(UR$)..D..."|
00003CE0: 9D 22 3A 50 5A B2 30 00 29 45 EA 0B 44 B2 28 28 |.":PZ.0.)E..D.((|
00003CF0: 52 37 AC 52 35 AC 52 33 AA 52 38 AC 52 36 AC 52 |R7.R5.R3.R8.R6.R|
00003D00: 31 AA 52 39 AC 52 34 AC 52 32 29 AB 28 52 31 AC |1.R9.R4.R2).(R1.|
00003D10: 52 35 AC 52 39 AA 52 36 AC 52 32 AC 52 37 AA 52 |R5.R9.R6.R2.R7.R|
00003D20: 33 AC 52 34 AC 52 38 29 29 00 68 45 F4 0B 8B 44 |3.R4.R8)).hE...D|
00003D30: B2 30 20 A7 99 22 11 20 20 D4 48 41 54 20 43 41 |.0 ..". .HAT CA|
00003D40: 4E 4E 4F 54 20 42 45 20 44 4F 4E 45 20 53 4F 52 |NNOT BE DONE SOR|
00003D50: 52 59 20 54 52 59 20 41 47 41 49 4E 22 3A 8D 38 |RY TRY AGAIN":.8|
00003D60: 33 35 3A 89 32 39 35 32 00 AC 45 FE 0B 58 B2 28 |35:.2952..E..X.(|
00003D70: 28 4B 33 AC 52 35 AC 52 33 AA 52 38 AC 52 36 AC |(K3.R5.R3.R8.R6.|
00003D80: 4B 31 AA 52 39 AC 4B 32 AC 52 32 29 AB 28 4B 31 |K1.R9.K2.R2).(K1|
00003D90: AC 52 39 AC 52 35 AA 52 32 AC 52 36 AC 4B 33 AA |.R9.R5.R2.R6.K3.|
00003DA0: 52 33 AC 4B 32 AC 52 38 29 29 AD 44 00 F0 45 08 |R3.K2.R8)).D..E.|
00003DB0: 0C 59 B2 28 28 52 37 AC 4B 32 AC 52 33 AA 4B 33 |.Y.((R7.K2.R3.K3|
00003DC0: AC 52 36 AC 52 31 AA 52 39 AC 52 34 AC 4B 31 29 |.R6.R1.R9.R4.K1)|
00003DD0: AB 28 52 31 AC 4B 32 AC 52 39 AA 52 36 AC 4B 31 |.(R1.K2.R9.R6.K1|
00003DE0: AC 52 37 AA 52 33 AC 52 34 AC 4B 33 29 29 AD 44 |.R7.R3.R4.K3)).D|
00003DF0: 00 34 46 12 0C 5A B2 28 28 52 37 AC 52 35 AC 4B |.4F..Z.((R7.R5.K|
00003E00: 31 AA 52 38 AC 4B 32 AC 52 31 AA 4B 33 AC 52 34 |1.R8.K2.R1.K3.R4|
00003E10: AC 52 32 29 AB 28 52 31 AC 52 35 AC 4B 33 AA 4B |.R2).(R1.R5.K3.K|
00003E20: 32 AC 52 32 AC 52 37 AA 4B 31 AC 52 34 AC 52 38 |2.R2.R7.K1.R4.R8|
00003E30: 29 29 AD 44 00 42 46 1C 0C 99 22 93 22 3A 8D 38 |)).D.BF...".":.8|
00003E40: 35 30 00 55 46 26 0C 99 22 11 11 11 11 1D 1D 1D |50.UF&..".......|
00003E50: 58 20 3D 22 58 00 68 46 30 0C 99 22 11 11 11 11 |X ="X.hF0.."....|
00003E60: 1D 1D 1D 59 20 3D 22 59 00 7B 46 3A 0C 99 22 11 |...Y ="Y.{F:..".|
00003E70: 11 11 11 1D 1D 1D 5A 20 3D 22 5A 00 8F 46 44 0C |......Z ="Z..FD.|
00003E80: 8D 38 33 35 3A 99 22 93 22 3A 89 32 39 35 32 00 |.835:.".":.2952.|
00003E90: BE 46 4E 0C 55 53 24 B2 22 51 48 30 31 32 33 34 |.FN.US$."QH01234|
00003EA0: 35 36 37 38 39 22 3A 55 4C B2 32 3A 8D 33 35 3A |56789":UL.2:.35:|
00003EB0: 8B 55 52 24 B2 22 51 22 A7 20 9E 55 50 25 00 C4 |.UR$."Q". .UP%..|
00003EC0: 46 53 0C 8E 00 00 00 |FS..... |
.......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.." -
-------------------------------------".Z
.;..".. 1. BEGIN MATHPACK"...@..
".. 2. STUDENT INSTRUCTIONS"...E
..".. 3. TEACHER INSTRUCTIONS".J
.O..".. 4. QUIT..".Y.T.." ------
--------------------------------"...Y.."
.. PRESS A NUMBER KEY (1-4) ";.L.^
.UL.1:US$."1234":.35:. INPUT ROUTINE.W.`
.US$.""...C..E(UR$).1000,400,500,396...H
..300.$.... ** RE-ENABLE STOP KEY AND EN
D **.S....B(50003)..1.B(50003)..160.B(50
003)..0.399.}....UU.71:.B(50003).0..5328
1,6:.53280,14......"..":.......875:.....
.. ** STUDENT INSTRUCTIONS **......".":.
UT,UL%:.B(50003).0..53281,0:.53280,0....
.UH.1:UP.0:UG$."STUDENT INST":.850.;....
".......THIS PROGRAM GIVES YOU EIGHT TYP
ES".K....". OF ALGEBRAIC PROBLEMS. IN TH
E PARTS OF"......". THE PROGRAM WHERE MU
LTIPLE INPUTS ARE".G....". ASKED (EG. EN
TER X1,Y1,N1,X2,Y2,N2)"......". TYPE THE
NUMBERS IN ONE AT A TIME.". . .."....IF
YOU WISH TO QUIT, TYPE 'Q' AND".O....".
THAT WILL BRING YOU BACK TO THE MENU.".
E.G..835:UP.UP.1:.850...L..".. NOTE:....
..TO ADVANCE FROM ONE QUESTION TO".A.V..
". THE NEXT PRESS THE SPACE BAR."......"
.....IF AT ANY TIME YOU WISH TO RETURN T
O".!....". THE MENU TEMPORARILY, PRESS H
RETURN.".*....835.>....UZ.1..UP%:.217.D
.....E.... ** TEACHER INSTRUCTIONS **...
...".":.UT,UL%:.B(50003).0..53281,2:.532
80,10.....UH.1:UP.0:UG$."TEACHER INST":.
850......".. TO THE BEST OF OUR KNO
WLEDGE,."......" THIS PROGRAM IS IN TH
E PUBLIC.".>...." DOMAIN. IF THIS IS
NOT THE CASE.".[...." PLEASE CONTACT:.
.."......" COMMODORE BUSINESS MACHI
NES."......" 3370 PHARMACY AVE.
.L...." AGINCOURT, ONTARIO"....
.." CANADA M1W 2K4"......"
(416) 499-4292".)...UH.1:UP.1:. 8
35:. 850:.N...." ..PROGRAM NAME: MAT
HPACK..P...." WRITTEN BY : UNKNOWN.
......" UPGRADED BY : .....
.." .THIS PROGRAM WILL RUN ON ANY...
....." PET 64 COMPUTER......."
COMMODORE 64 COMPUTER......835.!.
N..UZ.1..UP%:.217.'.W...M.X.. ** PROGRAM
MODIFICATION INST **.^.Y..".":.UT,UL%..
.].UH.1:UP.0:UG$."PROGRAM MOD":.850.....
.835. ....UZ.1..UP%:.217.......K.... **
TO USE 8032 LOAD CBM4032 **...F..".....B
EFORE RUNNING THIS PROGRAM ON AN 8032 .
..7.P.." LOAD THE 'CBM 4032' PROGRA
M.............".B.Z..UU.71.H.....H. .. *
* T I T L E P A G E **...".."....";:.U
T,UU%:.B(50003).0..53280,14:.53281,6...$
..I.1.38:."...";:..J.&..I.1.22:.".....";
:....(..I.1.37:.".....";:....*..I.1.22:.
".....";:....,..".......................
.... ..A...."................... . . .
..B.0.."................... . ......2..
".................... ....4..".........
.....C O M M O D O R E...K.6..".........
......EDUCATIONAL.....8.."..............
..SOFTWARE...:.. ** COMMODORE LOGO **.=.
;..H(UD$,24);"..........PRESS SPACE BAR
OR WAIT.":I.0._.<..A$:.A$.." ".I.I.1:.I.
250.828...>.T1$."":T2$."":T3$."":T4$."":
I.0...@..300...C.. ** SPACE BAR PRESS **
...H..UO,0:.H(UD$,24);".......PRESS SPAC
E BAR TO CONTINUE."...L..UI$:.UI$.." ".8
44...N... .R.. ** PAGE DESIGN ROUTINE **
.,.T.UP.UP.1.V.W.."."H(UT$.UP$,21);I(UP$
.UG$.D(UP),18)...\.." ------------------
--------------------"...`..UH..0.870.H.A
..H(UD$,24);H(UP$,7);"HELP - PRESS H <
RETURN>".Y.F.UH.0:."..":....K.. ** PLEAS
E WAIT REMARK **...P..H(UD$,24);"
ONE MOMENT PLEASE... ".4.U...Q..
.. ** SET UP VARIABLES **.....UX$."H":.U
Q%(1000):UB.32768:U1.196:U2.197:U3.198:U
4.216:UC.167:UU.1024.Z...UT.59468:UU%.12
:UL%.14:UP%.1146:UM.32768:UO.158:. 50003
,0......B(50003).0.UB.1024:U1.209:U2.210
:U3.211:U4.214:UC.204:UU.2048.\....B(500
03).0.UT.53272:UU%.21:UL%.23:UP%.2139:UM
.1024:UO.198.....UD$."..................
.......".....UP$."
".....UT$." MATHPACK
":. PLACE PROGRAM TITLE HERE !!!!
!!!!!!!!!!!!!***....... .... ** SET VARI
ABLES **.)....900.D.... ** CHECK FOR 803
2 **.B....".":." ":. SHIFTED SPACE.Y....
B(UB.40)..96..700...... ** MEMORY CHECK
**...... .(0).2000.937.T...."....THIS MA
CHINE DOES NOT HAVE ENOUGH."......"MEMOR
Y TO RUN THIS PROGRAM !"......UU.71.....
..#...."..":.B(50003).0.962.R.... ** BAS
IC 2.0 OR 4.0 OR C-64 SETUP **......
1075,133:.1076,144:.1077,234:.1079,4:.10
80,133:.1081,145.F....1091,155:.1098,133
:.1099,144:.1100,234:.1103,133......1104
,145:.1105,234:.1082,234......B(50003)..
160.955......1093,88:.1094,228:.1097,85:
.1102,228:.965.C....B(50003)..1.990.R...
.1093,49:.1094,230:.1097,46:.1102,230:.9
65...B..2099,141:.2100,20:.2101,3:.2103,
8:.2104,141:.2105,21...C..2106,3:.2115,1
45:.2117,52:.2118,234:.2121,49:.2122,141
." D..2123,20:.2124,3:.2126,234:.2127,14
1:.2128,21:.2129,3.@ E..UU.48:. DISABLE
STOP KEY.Q J..800:. TITLE.A T..300:. MEN
U.. ...".THE PGM WILL NOT WORK ON THIS M
ACHINE!":..G ...UZ.1..UP%:.UP%:UZ.0:. **
PROGRAM STARTS HERE **.. ..."..";:.:.B(
50003).0..53281,6:.53280,14.. ...UT,UL%.
+!...".. **********MATH-PACK*********
***.Z!...". .YOUR CHOICE OF PROBLEMS IS
AS FOLLOWS..!...".. .1. PRIME FACTORS O
F A NUMBER..!...". .2. QUADRATIC AND CU
BIC EQUATIONS.X!$..". .3. COMPLEX ARITH
MATIC (ALL FOUR).."...". .4. 2 VARIABLE
SIMULTANEOUS EQUATIONS.6"8..". .5. 3 V
ARIABLE SIMULTANEOUS EQUATIONS._"B..".
.6. COMBINATIONS & PERMUTATIONS.."L..".
.7. FACTORIALS (HIGH MAX NUMBER).."V.."
. .8. INVERSE OF 2*2 MATRIX.M"`..".. WH
AT IS YOUR CHOICE? ";.."~.US$."12345678H
Q":UL.1:.35:A$.UR$..#...A$."Q"....#...".
":Q.E(A$):.Q.1.Q.8.1020.N#...Q.1180,1436
,2110,1306,2940,1800,2640,1930.V#...".._
#..UP.0.Y#..UG$."QUESTION #":.850..#..."
. THIS PROGRAM CALCULATES ALL".D#...".
PRIME FACTORS OF A NUMBER."..#...".. W
HAT NUMBER DO YOU WANT FACTORED?"..$..."
. TYPE 'Q' TO QUIT. ";.9$..US$."012345
6789QH":UL.4:.35:N.E(UR$).H$...UR$."Q"..
.P$D.H.N.{$N..".. PRIME FACTORS OF";H;"
ARE.":." ";..$X.R.2..$..A.N.R..$... A..(
A)..R;:N.A:.1250..$..R.R.1.Y$... R.(N.2)
.N..1..;N;:.:.:.835:.1185..$...N.1..:.:.
835:.1185..$...1250..%..UP.0..%..UG$."QU
ESTION #":.850.I%...". THIS PROGRAM SOL
VES A 2 VARIABLE".I%(..". SIMULTANEOUS
EQUATION"..%2..". TYPE 'Q' TO QUIT."..%
<..". ENTER X1,Y1,N1,X2,Y2,N2."..%F.."
";:PZ.1:US$."QH0123456789":UL.2:.35:A.E
(UR$):.UR$."Q"...(&G.."....., ";:US$."QH
0123456789":UL.2:.35:B.E(UR$):.UR$."Q"..
.L&H.."........., ";:US$."QH0123456789":
UL.2:.35:C.E(UR$):.UR$."Q"....&I...12)".
, ";:US$."QH0123456789":UL.2:.35:D.E(UR$
):.UR$."Q"....&J...16);"., ";:US$."Q0123
456789":UL.2:.35:E.E(UR$):.UR$."Q"...!'K
...20);"., ";:US$."Q0123456789":UL.2:.35
:F.E(UR$).0'M..UR$."Q"...?'N..". ":PZ.0.
\'P..". ";A;".X +";B;".Y ="C.Y'Z..". ";D
;".X +";E;".Y ="F..'D.N.A.E.B.D.A'N..N.0
..". THAT CANNOT BE DONE. TRY AGAIN.":.
835:.1306.S'X.X.(C.E.B.F).N..'..Y.(A.F.D
.C).N..'...".. X ="X..(...". Y ="Y..(.
..835:.".":.1306.6(..UG$."PROBLEM #":UP.
1:.850.E(...". THIS PROGRAM CALCULATES A
LL THE ROOTS"..(...". (REAL OR IMAGINARY
) OF A QUADRATIC OR"..(...". CUBIC EQUAT
ION.".W(...". WHAT TYPE DO YOU WANT TO F
ACTOR?"..(...". .QU.ADRATIC OR .C.UBIC".
.)...". TYPE 'Q' TO QUIT. ";.4)..US$."Q
UCH":UL.9:.35:A$.UR$.D)... A$."Q". ..W).
..A$.."QU".1500.`)C..850..)H..".. QUADR
ATIC EQUATION ENTER : A,B,C.".M)I.." ";
:PZ.1:US$."QH0123456789":UL.2:.35:A.E(UR
$):.UR$."Q"....*J.."....., ";:US$."QH012
3456789":UL.2:.35:B.E(UR$):.UR$."Q"...M*
K...8);"., ";:US$."QH0123456789":UL.2:.3
5:C.E(UR$):.UR$."Q"...A*R..".":PZ.0:.165
0.R*..UP.UP.1:.850..*..." CUBIC EQUATIO
N ENTER A,B,C,D.".Y*..." ";:PZ.1:US$."Q
H0123456789":UL.2:.35:A.E(UR$):.UR$."Q".
...+..."....., ";:US$."QH0123456789":UL.
2:.35:B.E(UR$):.UR$."Q"...X+....8)"., ";
:US$."QH0123456789":UL.2:.35:C.E(UR$):.U
R$."Q"....+....12)"., ";:US$."QH01234567
89":UL.2:.35:D.E(UR$):.UR$."Q"....+...87
5:.".....":.".":PZ.0.F+..X..3000:L.100.P
+..X.X.L..+..Y.X.X.X.A.X.X.B.X.C.D..+...
Y.0 .1590..,...Y.0.1530..,"...(Y).1E.06.
1590.3,,.X.X.L:L.L.10:.1530.J,6..". X=
".(X.10000..5).10000,"(FIRST ROOT (REAL)
)".V,@.B.A.X.B..,J.C.B.X.C..,T..". CONV
ERTED TO QUADRATIC FORM..,^..". CUBIC D
IVIDED BY FIRST ROOT ";.(X.10000..5).100
00..-H..". A =".(A.10000..5).10000" B
=".(B.10000..5).10000;.>-M.." C =".(C.1
0000..5).10000.J-R.Y.4.A.C.`-|.Y.B.B.Y:.
Y.0.1750.K-..Y..(Y).Y-..X1.(.B).Y..-..X1
.X1.2.A..-..X2.(.B).Y..-..X2.X2.2.A.Q-..
.".. REAL ROOT X1= ".(X1.10000..5).1000
0..-B..".. REAL ROOT X2= ".(X2.10000..5
).10000...L..835:.".":.1436.#.V.X1.(.B).
2.A.4...X2..(.Y).2.A.P....".. ROOTS
COMPLEX"......". ".(X1.10000..5).100
00"+".(X2.10000..5).10000"J".H....".
".(X1.10000..5).10000"-".(X2.10000..5).
10000"J"......"....";.26);"WHERE,"../...
"..";.26);"J.2. + 1 = 0"../...835:.".":.
1436../..UP.0.7/..UG$."QUESTION #":.850.
]/...".. PERMUTATIONS & COMBINATIONS.W/
...". TYPE Q TO QUIT."../...". ENTER F
OR N THINGS TAKEN M AT A TIME":.". HOW
MANY THINGS? ";../..PZ.1:US$."QH01234567
89":UL.2:.35:N.E(UR$):.UR$."Q"....0...:.
" HOW MANY AT A TIME? ";.M0..US$."QH012
3456789":UL.2:.35:M.E(UR$):.UR$."Q"...E0
...N.0.M.0.M..N..1824..0...".INVALID DAT
A, TRY AGAIN..":.QQ.1.300:.:.1800..0 ..T
7.1.M.I0!..(1.70141184E.37 . N.T7).N.182
7.W0"..T7:.1829..1#..". NUMBER IS TOO L
ARGE":UP.UP.1:.835:.1802..1%..".":PZ.0..
1&.P4.N.710.P3.P3.1:.P3.M..1860.N1:.P4.(
N.P3).P4:.1840.N1D..".. PERMUTATIONS AR
E ";P4.Z1N.P4.P4.M..1X.P3.P3.1:.P3.1.190
0..1B.M.M.1:P4.P4.M:.1880.I1L..".. COMB
INATIONS ARE ";P4.T1V.."......1...835:."
.":K .1802..1..UP.0..2..UG$."QUESTION #"
:.850.+2..." INVERSE OF 2*2 MATRIX.>2..
.". ENTER ";.T2...".... 1 2. ..U2.
..".... .. 3 4. ...2..."..
AS 1,2,3,4 .".N2..." ";:PZ.1:US$."QH012
3456789":UL.5:.35:A1.E(UR$):.UR$."Q"....
3..."....., ";:US$."QH0123456789":UL.5:.
35:A2.E(UR$):.UR$."Q"...O3....8)"., ";:U
S$."QH0123456789":UL.2:.35:A3.E(UR$):.UR
$."Q"....3....12);"., ";:US$."QH01234567
89":UL.5:.35:A4.E(UR$):.UR$."Q"....3..."
.":PZ.0..3..A5.A4:A6..A2:A7..A3:A8.A1.Q3
F.A9.A4.A1.A6.A3:..4P..A9.0..".. THIS M
ATRIX HAS NO INVERSE":.835:.".":.1932.54
Z.A1.A5.A9:A2.A6.A9:A3.A7.A9:A4.A8.A9.\4
...".. HERE IS YOUR INVERSE MATRIX:..4.
.."............ ...4..."
..".11).(A1.1000..5).1000;.21);.(A2.1000
..5).1000.B4..."....4..."..".11);.(A3.10
00..5).1000;.21);.(A4.1000..5).1000.!5..
." ........... ..554..8
35:.".":.1932.S5>.UG$."PROBLEM #":UP.2:.
850.M5C..". COMPLEX NUMBERS"..5H..".
.1. FOR ADDITION"..5R..". .2. FOR
SUBTRACTION".J5\..". .3. FOR DIVISIO
N"..5F..". .4. FOR MULTIPLICATION"..
6P..".. AS SOON AS YOU HAVE ENTERED ONE
OF".H6Z..". THE NUMBERS YOU ARE IN THA
T MODE.".Q6...". TYPE 'Q' TO END THE PR
OGRAM. ";..6..US$."1234QH":UL.1:.35:A$.U
R$:UP.0..6...A$."1".2270..6...A$."2".236
0.J6...A$."3".2450..6J..A$."4".2550..7T.
.".. TRY AGAIN 1,2,3 OR 4":.2120..7..UG
$."QUESTION #":.850.67...".. COMPLEX ADD
ITION:._7...". ENTER REAL PART THEN IMAG
(J)PART..7...". THEN OTHER COMPLEX NUMBE
R FOR ADDITION..7...". FORMULA IS (A +OR
- J)+(A1 +OR- J1)..7...". 2 COMPLEX NUMB
ERS AT A TIME A,J,A1,J1."..8..." ";:PZ.1
:.3150:A.E(UR$).%8..."...., ";:.3150:J.E
(UR$).H8..."........, ";:.3150:A1.E(UR$)
.O8..."............, ";:.3150:J1.E(UR$).
}8...".":PZ.0..8..A.A.A1:J.J.J1..8..."..
.....REAL PART="A.B8$.."......IMAG PART=
"J.V8...835:.".":.2270..88.UG$."QUESTION
#":.850..9=..".. COMPLEX SUBTRACTION:.<
9B..". ENTER REAL PART THEN IMAG(J)PART
THEN.I9L..". OTHER COMPLEX NUMBER FOR SU
BTRACTION..9V..". FORMULA IS (A +OR- J)-
(A1 +OR- J1).D9`..". 2 COMPLEX NUMBERS A
T A TIME A,J,A1,J1."..9A.." ";:PZ.1:.315
0:A.E(UR$)..:B.."...., ";:.3150:J.E(UR$)
.#:C.."........, ";:.3150:A1.E(UR$).J:D.
."............, ";:.3150:J1.E(UR$).X:E..
".":PZ.0.J:J.A.A.A1:J.J.J1..:T..".......
REAL PART="A..:~..".......IMAG PART="J..
:...835:.".":.2360.L:..UG$."QUESTION #":
.850..:...".. COMPLEX DIVISION:..;...".
ENTER REAL PART THEN IMAG(J)PART.?;...".
THEN OTHER COMPLEX NUMBER FOR DIVISION.
J;...". FORMULA IS (A +OR- J)/(A1 +OR- J
1)..;...". 2 COMPLEX NUMBERS AT A TIME A
,J,A1,J1."..;..." ";:PZ.1:.3150:A.E(UR$)
.V;..."...., ";:.3150:J.E(UR$)..;..."...
....., ";:.3150:A1.E(UR$). <..."........
...., ";:.3150:J1.E(UR$)..<...".":PZ.0.B
<D.P.(A1.2).(J1.2).F<N.D.(A.A1.J1.J).P:M
.(J.A1.A.J1).P..<X..".......REAL PART="D
..<...".......IMAG PART="M..<...835:."."
:.2450.H<..UG$."QUESTION #":.850..<...".
COMPLEX MULTIPLICATION:..=...". ENTER R
EAL PART THEN IMAG(J)PART.Q=...". THEN O
THER COMPLEX NUMBER FOR . MULTI
PLICATION.|=...". FORMULA IS (A +OR- J)*
(A1 +OR- J1)..=...". 2 COMPLEX NUMBERS A
T A TIME A,J,A1,J1.".J=..." ";:PZ.1:.315
0:A.E(UR$)..= .."...., ";:.3150:J.E(UR$)
..>!.."........, ";:.3150:A1.E(UR$).2>".
."............, ";:.3150:J1.E(UR$).@>#..
".":PZ.0.\>(.P.A.A1.J.J1:D.A.J1.A1.J.V>2
..".......REAL PART="P..><..".......IMAG
PART="D..>F..835:.".":.2550..>P.UP.0.G>
U.UG$."QUESTION #":.850..>W..". EXAMPLE
10000 TAKES 5.5 MINUTES..?Z.."... THIS
PROGRAM FINDS FACTORIALS.$?D.M.1000..?N
.K.100.7?X.L.10.??..T.1.G?..U.0.X?..S..4
34294482.Y?...". OF ANY POSITIVE INTEGE
R..? ..". ENTER X: ";.B?..US$."QH012345
6789":UL.3:.35:X.E(UR$):.UR$."Q"....@...
X.1.X..". .THAT WOULD TAKE LONGER THAN T
HE UNIVERSE":.2645.(@....(X)..X..". NO
FRACTIONS":.2720.Q@...X.0..". NO NEGATI
VE NUMBERS":.2720.Y@H..X.0..".......1E+0
":.835:.".":.2645..@R..X.33.2800..@..J.T
:.G.T.X:J.J.G:..M@...".. FACTORIAL OF"X
"IS"J:.835:.".":.2645..@...G.T.X:J.J..(G
).S:...@... J.M.2830..A..J.J.M:U.U.M:.28
10..A...J.K.2850..A..J.J.K:U.U.K:.2830.<
A"..J.L.2870.RA,.J.J.L:U.U.L:.2850.AA6..
J.T.2890.WA@.J.J.T:U.U.T:.2870..AJ.J..(
J.S)..AT.."... THE FACTORIAL OF"X"IS"..
A^..".."J".E+"U.KAR..835:.".":.2645.SA|.
."...A..UP.0..A..UG$."QUESTION #":.850..
B...". THIS PROGRAM SOLVES A 3 VARIABLE.
FB...". (X,Y,Z) SIMULTANEOUS EQUATION".L
B..." ....................."..B.
..". ENTER TOP PART X1,Y1,Z1,N1"..B..."
";:PZ.1:.3150:R1.E(UR$).QB..."....., "
;:.3150:R2.E(UR$)..B..."........., ";:.3
150:R3.E(UR$)..C..."............., ";:.3
150:K1.E(UR$).+C...".":PZ.0.SC...". THA
NKS. NOW ENTER MIDDLE PART".HC...". X2,
Y2,Z2,N2..CB.." ";:PZ.1:.3150:R4.E(UR$)
..CC.."....., ";:.3150:R5.E(UR$).LCD..".
........, ";:.3150:R6.E(UR$)..CE..".....
........, ";:.3150:K2.E(UR$)..DF..".":PZ
.0.,DL..". THANK YOU AGAIN NOW LASTLY E
NTER.MDV..". BOTTOM PART X3,Y3,Z3,N3.MD
..." ";:PZ.1:.3150:R7.E(UR$)..D..."....
., ";:.3150:R8.E(UR$)..D..."........., "
;:.3150:R9.E(UR$).YD..."............., "
;:.3150:K3.E(UR$)..D...".":PZ.0.)E..D.((
R7.R5.R3.R8.R6.R1.R9.R4.R2).(R1.R5.R9.R6
.R2.R7.R3.R4.R8)).HE...D.0 ..". THAT CA
NNOT BE DONE SORRY TRY AGAIN":.835:.2952
..E..X.((K3.R5.R3.R8.R6.K1.R9.K2.R2).(K1
.R9.R5.R2.R6.K3.R3.K2.R8)).D..E..Y.((R7.
K2.R3.K3.R6.R1.R9.R4.K1).(R1.K2.R9.R6.K1
.R7.R3.R4.K3)).D.4F..Z.((R7.R5.K1.R8.K2.
R1.K3.R4.R2).(R1.R5.K3.K2.R2.R7.K1.R4.R8
)).D.BF...".":.850.UF&..".......X ="X.HF
0..".......Y ="Y.{F:..".......Z ="Z..FD.
.835:.".":.2952..FN.US$."QH0123456789":U
L.2:.35:.UR$."Q". .UP%.DFS.....
> CLICK IMAGE PREVIEW FOR FULL MODAL