MATRIX.C3
FILE INFORMATION
FILENAME(S): MATRIX.C3
FILE TYPE(S): PRG
FILE SIZE: 14.3K
FIRST SEEN: 2025-11-30 01:07:55
APPEARS ON: 2 disk(s)
FILE HASH
060e731d403964d325ca89b23aff6b8f8b6d59839b020633a2633cc9cb4eeb8e
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FREESOFT DISK NR | MATRIX.C3 | PRG | Treasure Chest - Wolfgang Rauprich | 17 | 0 | DOWNLOAD FILE |
| L EHRNEN | MATRIX.C3 | PRG | Treasure Chest - Wolfgang Rauprich | 17 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0A 08 01 00 89 39 31 30 00 2A 08 02 00 8F |.......910.*....|
00000010: 20 2A 2A 20 4D 4C 20 53 54 4F 50 20 4B 45 59 20 | ** ML STOP KEY |
00000020: 44 49 53 41 42 4C 45 20 2A 2A 00 55 08 03 00 99 |DISABLE **.U....|
00000030: 22 78 A9 3D 8D 14 03 A9 08 8D 15 03 58 60 20 EA |"x.=........X` .|
00000040: FF A9 FF 85 91 4C 34 EA 78 A9 31 8D 14 03 A9 EA |.....L4.x.1.....|
00000050: 8D 15 03 58 60 00 74 08 04 00 99 22 78 68 68 68 |...X`.t...."xhhh|
00000060: AA 68 A8 68 68 68 68 68 68 68 98 48 8A 48 58 60 |.h.hhhhhhh.H.HX`|
00000070: 31 31 31 22 00 85 08 05 00 99 22 68 68 68 68 68 |111"......"hhhhh|
00000080: 68 68 60 31 22 00 A7 08 06 00 8F 20 2A 2A 20 34 |hh`1"...... ** 4|
00000090: 20 2D 20 50 4F 50 20 4D 4C 20 53 55 42 52 4F 55 | - POP ML SUBROU|
000000A0: 54 49 4E 45 20 2A 2A 00 C8 08 0A 00 8F 20 2A 2A |TINE **...... **|
000000B0: 47 45 4E 45 52 41 4C 20 49 4E 50 55 54 20 52 4F |GENERAL INPUT RO|
000000C0: 55 54 49 4E 45 20 2A 2A 00 CE 08 0F 00 3A 00 D4 |UTINE **.....:..|
000000D0: 08 1E 00 3A 00 F0 08 23 00 8F 20 2B 2B 2B 20 49 |...:...#.. +++ I|
000000E0: 4E 50 55 54 20 53 45 43 54 49 4F 4E 20 2B 2B 2B |NPUT SECTION +++|
000000F0: 00 08 09 28 00 55 52 24 B2 22 22 3A 55 49 24 B2 |...(.UR$."":UI$.|
00000100: 22 22 3A 97 55 4F 2C 30 00 18 09 2A 00 8B 55 4C |"":.UO,0...*..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 D7 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 52 49 58 00 01 0F 40 01 99 22 11 11 | MATRIX...@.."..|
000006E0: 20 20 20 20 20 20 20 32 2E 20 20 20 53 54 55 44 | 2. STUD|
000006F0: 45 4E 54 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 |ENT INSTRUCTIONS|
00000700: 22 00 2B 0F 45 01 99 22 11 11 20 20 20 20 20 20 |".+.E..".. |
00000710: 20 33 2E 20 20 20 54 45 41 43 48 45 52 20 49 4E | 3. TEACHER IN|
00000720: 53 54 52 55 43 54 49 4F 4E 53 22 00 47 0F 4F 01 |STRUCTIONS".G.O.|
00000730: 99 22 11 11 20 20 20 20 20 20 20 34 2E 20 20 20 |.".. 4. |
00000740: 51 55 49 54 11 11 22 00 76 0F 54 01 99 22 20 2D |QUIT..".v.T.." -|
00000750: 2D 2D 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 22 00 A1 0F 59 01 99 22 11 11 20 |-----"...Y..".. |
00000780: 20 20 20 20 20 20 50 52 45 53 53 20 41 20 4E 55 | PRESS A NU|
00000790: 4D 42 45 52 20 4B 45 59 20 28 31 2D 34 29 20 22 |MBER KEY (1-4) "|
000007A0: 3B 00 C9 0F 5E 01 55 4C B2 31 3A 55 53 24 B2 22 |;...^.UL.1:US$."|
000007B0: 31 32 33 34 22 3A 8D 33 35 3A 8F 20 49 4E 50 55 |1234":.35:. INPU|
000007C0: 54 20 52 4F 55 54 49 4E 45 00 D4 0F 60 01 55 53 |T ROUTINE...`.US|
000007D0: 24 B2 22 22 00 F1 0F 63 01 91 C5 28 55 52 24 29 |$.""...c...(UR$)|
000007E0: 8D 31 30 30 30 2C 34 30 30 2C 35 30 30 2C 33 39 |.1000,400,500,39|
000007F0: 36 00 FA 0F 68 01 89 33 30 30 00 21 10 8B 01 8F |6...h..300.!....|
00000800: 20 2A 2A 20 52 45 2D 45 4E 41 42 4C 45 20 53 54 | ** RE-ENABLE ST|
00000810: 4F 50 20 4B 45 59 20 41 4E 44 20 45 4E 44 20 2A |OP KEY AND END *|
00000820: 2A 00 50 10 8C 01 8B C2 28 35 30 30 30 33 29 B3 |*.P.....(50003).|
00000830: B1 31 AF C2 28 35 30 30 30 33 29 B3 B1 31 36 30 |.1..(50003)..160|
00000840: AF C2 28 35 30 30 30 33 29 B3 B1 30 A7 33 39 39 |..(50003)..0.399|
00000850: 00 7A 10 8D 01 9E 55 55 AA 37 31 3A 8B C2 28 35 |.z....UU.71:..(5|
00000860: 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 36 |0003).0..53281,6|
00000870: 3A 97 35 33 32 38 30 2C 31 34 00 86 10 8E 01 99 |:.53280,14......|
00000880: 22 9A 93 22 3A 80 00 91 10 8F 01 8D 38 37 35 3A |"..":.......875:|
00000890: 8E 00 B2 10 90 01 8F 20 2A 2A 20 53 54 55 44 45 |....... ** STUDE|
000008A0: 4E 54 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 20 |NT INSTRUCTIONS |
000008B0: 2A 2A 00 E1 10 95 01 99 22 93 22 3A 97 55 54 2C |**......".":.UT,|
000008C0: 55 4C 25 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 |UL%:..(50003).0.|
000008D0: 97 35 33 32 38 31 2C 30 3A 97 35 33 32 38 30 2C |.53281,0:.53280,|
000008E0: 30 00 10 11 9A 01 55 50 B2 30 3A 55 54 24 B2 22 |0.....UP.0:UT$."|
000008F0: 20 CD C1 D4 D2 C9 D8 22 3A 55 47 24 B2 22 D3 54 | ......":UG$.".T|
00000900: 55 44 45 4E 54 20 C9 4E 53 54 22 3A 8D 38 35 30 |UDENT .NST":.850|
00000910: 00 34 11 9B 01 99 22 11 1D C5 58 50 4C 41 4E 41 |.4...."...XPLANA|
00000920: 54 49 4F 4E 20 4F 46 20 CF 50 45 52 41 54 49 4F |TION OF .PERATIO|
00000930: 4E 53 3A 22 00 57 11 9C 01 99 22 1D B7 B7 B7 B7 |NS:".W....".....|
00000940: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |................|
00000950: B7 B7 B7 B7 B7 B7 22 00 85 11 9D 01 99 22 1D C5 |......"......"..|
00000960: 4E 54 45 52 3A 20 D5 53 45 44 20 46 4F 52 20 45 |NTER: .SED FOR E|
00000970: 4E 54 45 52 49 4E 47 20 54 48 45 20 4D 41 54 52 |NTERING THE MATR|
00000980: 49 43 45 53 2E 00 B3 11 9E 01 99 22 11 1D D4 48 |ICES......."...H|
00000990: 45 20 46 49 52 53 54 20 53 54 45 50 20 49 53 20 |E FIRST STEP IS |
000009A0: 54 4F 20 47 49 56 45 20 54 48 45 20 4D 41 54 52 |TO GIVE THE MATR|
000009B0: 49 58 22 00 E2 11 9F 01 99 22 11 1D 44 49 4D 45 |IX"......"..DIME|
000009C0: 4E 53 49 4F 4E 53 20 28 4E 4F 2E 20 4F 46 20 43 |NSIONS (NO. OF C|
000009D0: 4F 4C 55 4D 4E 53 20 41 4E 44 20 4E 4F 2E 20 4F |OLUMNS AND NO. O|
000009E0: 46 22 00 12 12 A0 01 99 22 11 1D 52 4F 57 53 29 |F"......"..ROWS)|
000009F0: 2E 20 CE 45 58 54 20 59 4F 55 20 57 49 4C 4C 20 |. .EXT YOU WILL |
00000A00: 42 45 20 41 53 4B 45 44 20 54 4F 20 45 4E 54 45 |BE ASKED TO ENTE|
00000A10: 52 22 00 3A 12 A1 01 99 22 11 1D 54 48 45 20 4D |R".:...."..THE M|
00000A20: 41 54 52 49 58 20 45 4C 45 4D 45 4E 54 20 42 59 |ATRIX ELEMENT BY|
00000A30: 20 45 4C 45 4D 45 4E 54 2E 22 00 68 12 A2 01 99 | ELEMENT.".h....|
00000A40: 22 11 1D C1 44 44 2F D3 55 42 54 52 41 43 54 3A |"...DD/.UBTRACT:|
00000A50: 20 C3 41 4C 43 55 4C 41 54 45 53 20 C1 2B C2 20 | .ALCULATES .+. |
00000A60: 4F 52 20 C1 2D C2 2E 22 00 95 12 A3 01 99 22 11 |OR .-.."......".|
00000A70: 1D CD 41 54 52 49 58 20 C1 20 41 4E 44 20 CD 41 |..ATRIX . AND .A|
00000A80: 54 52 49 58 20 C2 20 4D 55 53 54 20 46 49 52 53 |TRIX . MUST FIRS|
00000A90: 54 20 42 45 22 00 C3 12 A4 01 99 22 11 1D 45 4E |T BE"......"..EN|
00000AA0: 54 45 52 45 44 2E 20 20 CD 41 54 52 49 58 20 C1 |TERED. .ATRIX .|
00000AB0: 20 41 4E 44 20 CD 41 54 52 49 58 20 C2 20 4D 55 | AND .ATRIX . MU|
00000AC0: 53 54 22 00 F0 12 A5 01 99 22 11 1D 48 41 56 45 |ST"......"..HAVE|
00000AD0: 20 54 48 45 20 53 41 4D 45 20 44 49 4D 45 4E 53 | THE SAME DIMENS|
00000AE0: 49 4F 4E 53 2E 22 3A 8D 38 33 35 3A 8D 38 35 30 |IONS.":.835:.850|
00000AF0: 00 1A 13 A6 01 99 22 11 1D CD 55 4C 54 49 50 4C |......"...ULTIPL|
00000B00: 49 43 41 54 49 4F 4E 3A 20 C3 41 4C 43 55 4C 41 |ICATION: .ALCULA|
00000B10: 54 45 53 20 C1 58 C2 2E 20 22 00 4A 13 A7 01 99 |TES .X.. ".J....|
00000B20: 22 11 1D D4 48 45 20 4E 55 4D 42 45 52 20 4F 46 |"...HE NUMBER OF|
00000B30: 20 43 4F 4C 55 4D 4E 53 20 49 4E 20 4D 41 54 52 | COLUMNS IN MATR|
00000B40: 49 58 20 C1 20 4D 55 53 54 22 00 72 13 A8 01 99 |IX . MUST".r....|
00000B50: 22 11 1D 45 51 55 41 4C 20 54 48 45 20 4E 55 4D |"..EQUAL THE NUM|
00000B60: 42 45 52 20 4F 46 20 52 4F 57 53 20 49 4E 20 C2 |BER OF ROWS IN .|
00000B70: 2E 22 00 9E 13 A9 01 99 22 11 1D D2 45 4E 41 4D |."......"...ENAM|
00000B80: 45 3A 20 CD 41 4B 45 53 20 49 54 20 50 4F 53 53 |E: .AKES IT POSS|
00000B90: 49 42 4C 45 20 54 4F 20 43 48 41 4E 47 45 00 C4 |IBLE TO CHANGE..|
00000BA0: 13 AA 01 99 22 11 1D 54 48 45 20 4C 45 54 54 45 |...."..THE LETTE|
00000BB0: 52 20 4E 41 4D 45 20 4F 46 20 41 20 4D 41 54 52 |R NAME OF A MATR|
00000BC0: 49 58 2E 22 00 EF 13 AB 01 99 22 11 1D C4 45 54 |IX."......"...ET|
00000BD0: 45 52 4D 49 4E 41 4E 54 3A 20 C3 41 4C 43 55 4C |ERMINANT: .ALCUL|
00000BE0: 41 54 45 53 20 54 48 45 20 44 45 54 45 52 2D 00 |ATES THE DETER-.|
00000BF0: 1C 14 AC 01 99 22 11 1D 4D 49 4E 41 4E 54 20 4F |....."..MINANT O|
00000C00: 46 20 4D 41 54 52 49 58 20 C1 2E 20 20 D4 48 45 |F MATRIX .. .HE|
00000C10: 20 4D 41 54 52 49 58 20 4D 55 53 54 00 39 14 AD | MATRIX MUST.9..|
00000C20: 01 99 22 11 1D 42 45 20 41 20 53 51 55 41 52 45 |.."..BE A SQUARE|
00000C30: 20 4D 41 54 52 49 58 2E 22 00 67 14 AE 01 99 22 | MATRIX.".g...."|
00000C40: 11 1D C4 49 53 50 4C 41 59 3A 20 C4 49 53 50 4C |...ISPLAY: .ISPL|
00000C50: 41 59 53 20 54 48 45 20 4D 41 54 52 49 58 20 4F |AYS THE MATRIX O|
00000C60: 46 20 59 4F 55 52 22 00 82 14 AF 01 99 22 11 1D |F YOUR"......"..|
00000C70: 43 48 4F 49 43 45 2E 22 3A 8D 38 33 35 3A 8D 38 |CHOICE.":.835:.8|
00000C80: 35 30 00 AC 14 B3 01 99 22 11 11 11 11 1D CE 4F |50......"......O|
00000C90: 54 45 3A 20 C1 46 54 45 52 20 4F 50 45 52 41 54 |TE: .FTER OPERAT|
00000CA0: 49 4F 4E 53 20 53 55 43 48 20 41 53 00 DC 14 B4 |IONS SUCH AS....|
00000CB0: 01 99 22 11 1D 41 44 44 49 54 49 4F 4E 2C 20 53 |.."..ADDITION, S|
00000CC0: 55 42 54 52 41 43 54 49 4F 4E 20 4F 52 20 4D 55 |UBTRACTION OR MU|
00000CD0: 4C 54 49 50 4C 49 43 41 54 49 4F 4E 00 0B 15 B5 |LTIPLICATION....|
00000CE0: 01 99 22 1D 54 48 45 20 52 45 53 55 4C 54 20 57 |..".THE RESULT W|
00000CF0: 49 4C 4C 20 42 45 20 53 54 4F 52 45 44 20 49 4E |ILL BE STORED IN|
00000D00: 20 4D 41 54 52 49 58 20 C3 2E 22 00 37 15 B6 01 | MATRIX ..".7...|
00000D10: 99 22 11 1D D4 4F 20 53 45 45 20 54 48 45 20 52 |."...O SEE THE R|
00000D20: 45 53 55 4C 54 2C 20 41 53 4B 20 54 4F 20 53 45 |ESULT, ASK TO SE|
00000D30: 45 20 54 48 45 20 22 00 67 15 B7 01 99 22 11 1D |E THE ".g...."..|
00000D40: 44 49 53 50 4C 41 59 20 57 48 45 4E 20 59 4F 55 |DISPLAY WHEN YOU|
00000D50: 20 41 52 45 20 41 53 4B 45 44 20 54 4F 20 45 4E | ARE ASKED TO EN|
00000D60: 54 45 52 20 41 4E 22 00 80 15 B8 01 99 22 11 1D |TER AN"......"..|
00000D70: 4F 50 45 52 41 54 49 4F 4E 20 43 4F 44 45 2E 22 |OPERATION CODE."|
00000D80: 00 89 15 BD 01 8D 38 33 35 00 92 15 C7 01 8D 38 |......835......8|
00000D90: 35 30 00 C1 15 CC 01 99 22 11 11 1D CE 4F 54 45 |50......"....OTE|
00000DA0: 3A 11 11 11 D4 4F 20 41 44 56 41 4E 43 45 20 46 |:....O ADVANCE F|
00000DB0: 52 4F 4D 20 4F 4E 45 20 51 55 45 53 54 49 4F 4E |ROM ONE QUESTION|
00000DC0: 22 00 ED 15 D6 01 99 22 11 1D 54 4F 20 54 48 45 |"......"..TO THE|
00000DD0: 20 4E 45 58 54 20 50 52 45 53 53 20 54 48 45 20 | NEXT PRESS THE |
00000DE0: 3C D3 D0 C1 C3 C5 20 C2 C1 D2 3E 2E 22 00 1D 16 |<..... ...>."...|
00000DF0: DB 01 99 22 11 11 1D 1D 1D 1D 1D C9 46 20 41 54 |..."........F AT|
00000E00: 20 41 4E 59 20 54 49 4D 45 20 59 4F 55 20 57 49 | ANY TIME YOU WI|
00000E10: 53 48 20 54 4F 20 52 45 54 55 52 4E 22 00 44 16 |SH TO RETURN".D.|
00000E20: E0 01 99 22 11 1D 54 4F 20 54 48 45 20 CD C5 CE |..."..TO THE ...|
00000E30: D5 20 50 52 45 53 53 20 48 20 3C D2 C5 D4 D5 D2 |. PRESS H <.....|
00000E40: CE 3E 2E 22 00 5B 16 E5 01 8D 38 33 35 3A 55 54 |.>.".[....835:UT|
00000E50: 24 B2 22 20 4D 41 54 52 49 58 22 00 6F 16 EA 01 |$." MATRIX".o...|
00000E60: 8B 55 5A B2 31 A7 9E 55 50 25 3A 89 32 31 37 00 |.UZ.1..UP%:.217.|
00000E70: 75 16 F3 01 8E 00 96 16 F4 01 8F 20 2A 2A 20 54 |u.......... ** T|
00000E80: 45 41 43 48 45 52 20 49 4E 53 54 52 55 43 54 49 |EACHER INSTRUCTI|
00000E90: 4F 4E 53 20 2A 2A 00 C6 16 F5 01 99 22 93 22 3A |ONS **......".":|
00000EA0: 97 55 54 2C 55 4C 25 3A 8B C2 28 35 30 30 30 33 |.UT,UL%:..(50003|
00000EB0: 29 B2 30 A7 97 35 33 32 38 31 2C 32 3A 97 35 33 |).0..53281,2:.53|
00000EC0: 32 38 30 2C 31 30 00 F5 16 F6 01 55 50 B2 30 3A |280,10.....UP.0:|
00000ED0: 55 54 24 B2 22 20 CD C1 D4 D2 C9 D8 22 3A 55 47 |UT$." ......":UG|
00000EE0: 24 B2 22 D4 45 41 43 48 45 52 20 C9 4E 53 54 22 |$.".EACHER .NST"|
00000EF0: 3A 8D 38 35 30 00 23 17 F7 01 99 22 11 11 20 20 |:.850.#....".. |
00000F00: 20 20 20 20 D4 4F 20 54 48 45 20 42 45 53 54 20 | .O THE BEST |
00000F10: 4F 46 20 4F 55 52 20 4B 4E 4F 57 4C 45 44 47 45 |OF OUR KNOWLEDGE|
00000F20: 2C 11 22 00 4C 17 F8 01 99 22 20 20 20 54 48 49 |,.".L...." THI|
00000F30: 53 20 50 52 4F 47 52 41 4D 20 49 53 20 49 4E 20 |S PROGRAM IS IN |
00000F40: 54 48 45 20 50 55 42 4C 49 43 11 22 00 78 17 F9 |THE PUBLIC.".x..|
00000F50: 01 99 22 20 20 20 44 4F 4D 41 49 4E 2E 20 20 C9 |.." DOMAIN. .|
00000F60: 46 20 54 48 49 53 20 49 53 20 4E 4F 54 20 54 48 |F THIS IS NOT TH|
00000F70: 45 20 43 41 53 45 11 22 00 95 17 FA 01 99 22 20 |E CASE."......" |
00000F80: 20 20 50 4C 45 41 53 45 20 43 4F 4E 54 41 43 54 | PLEASE CONTACT|
00000F90: 3A 11 11 11 22 00 BF 17 FB 01 99 22 20 20 20 20 |:..."......" |
00000FA0: 20 20 C3 4F 4D 4D 4F 44 4F 52 45 20 C2 55 53 49 | .OMMODORE .USI|
00000FB0: 4E 45 53 53 20 CD 41 43 48 49 4E 45 53 11 22 00 |NESS .ACHINES.".|
00000FC0: E2 17 FC 01 99 22 20 20 20 20 20 20 20 20 20 20 |....." |
00000FD0: 33 33 37 30 20 D0 48 41 52 4D 41 43 59 20 C1 56 |3370 .HARMACY .V|
00000FE0: 45 2E 00 06 18 FD 01 99 22 20 20 20 20 20 20 20 |E......." |
00000FF0: 20 20 20 C1 47 49 4E 43 4F 55 52 54 2C 20 CF 4E | .GINCOURT, .N|
00001000: 54 41 52 49 4F 22 00 28 18 FE 01 99 22 20 20 20 |TARIO".(...." |
00001010: 20 20 20 20 20 20 20 C3 41 4E 41 44 41 20 20 20 | .ANADA |
00001020: CD 31 D7 20 32 CB 34 22 00 48 18 FF 01 99 22 20 |.1. 2.4".H...." |
00001030: 20 20 20 20 20 20 20 20 20 28 34 31 36 29 20 34 | (416) 4|
00001040: 39 39 2D 34 32 39 32 22 00 5E 18 00 02 55 50 B2 |99-4292".^...UP.|
00001050: 31 3A 8D 20 38 33 35 3A 8D 20 38 35 30 3A 00 81 |1:. 835:. 850:..|
00001060: 18 01 02 99 22 20 20 20 20 20 11 11 D0 52 4F 47 |...." ...ROG|
00001070: 52 41 4D 20 CE 41 4D 45 3A 20 CD 41 54 52 49 58 |RAM .AME: .ATRIX|
00001080: 11 00 A3 18 02 02 99 22 20 20 20 20 20 D7 52 49 |......." .RI|
00001090: 54 54 45 4E 20 C2 59 20 20 3A 20 D5 4E 4B 4E 4F |TTEN .Y : .NKNO|
000010A0: 57 4E 11 00 BE 18 03 02 99 22 20 20 20 20 20 D5 |WN......." .|
000010B0: 50 47 52 41 44 45 44 20 C2 59 20 3A 20 11 00 E9 |PGRADED .Y : ...|
000010C0: 18 04 02 99 22 20 20 20 20 20 11 D4 48 49 53 20 |...." ..HIS |
000010D0: 50 52 4F 47 52 41 4D 20 57 49 4C 4C 20 52 55 4E |PROGRAM WILL RUN|
000010E0: 20 4F 4E 20 41 4E 59 11 11 00 08 19 07 02 99 22 | ON ANY........"|
000010F0: 20 20 20 20 20 20 20 20 20 D0 C5 D4 20 36 34 20 | ... 64 |
00001100: C3 CF CD D0 D5 D4 C5 D2 00 2D 19 08 02 99 22 20 |.........-...." |
00001110: 20 20 20 20 20 20 20 20 C3 CF CD CD CF C4 CF D2 | ........|
00001120: C5 20 36 34 20 C3 CF CD D0 D5 D4 C5 D2 00 44 19 |. 64 .........D.|
00001130: 44 02 8D 38 33 35 3A 55 54 24 B2 22 20 4D 41 54 |D..835:UT$." MAT|
00001140: 52 49 58 22 00 58 19 4E 02 8B 55 5A B2 31 A7 9E |RIX".X.N..UZ.1..|
00001150: 55 50 25 3A 89 32 31 37 00 5E 19 57 02 8E 00 84 |UP%:.217.^.W....|
00001160: 19 58 02 8F 20 2A 2A 20 50 52 4F 47 52 41 4D 20 |.X.. ** PROGRAM |
00001170: 4D 4F 44 49 46 49 43 41 54 49 4F 4E 20 49 4E 53 |MODIFICATION INS|
00001180: 54 20 2A 2A 00 95 19 59 02 99 22 93 22 3A 97 55 |T **...Y..".":.U|
00001190: 54 2C 55 4C 25 00 B5 19 5D 02 55 50 B2 30 3A 55 |T,UL%...].UP.0:U|
000011A0: 47 24 B2 22 D0 52 4F 47 52 41 4D 20 CD 4F 44 22 |G$.".ROGRAM .OD"|
000011B0: 3A 8D 38 35 30 00 BE 19 94 02 8D 38 33 35 00 D2 |:.850......835..|
000011C0: 19 B2 02 8B 55 5A B2 31 A7 9E 55 50 25 3A 89 32 |....UZ.1..UP%:.2|
000011D0: 31 37 00 D8 19 BB 02 8E 00 FD 19 BC 02 8F 20 2A |17............ *|
000011E0: 2A 20 54 4F 20 55 53 45 20 38 30 33 32 20 4C 4F |* TO USE 8032 LO|
000011F0: 41 44 20 43 42 4D 34 30 33 32 20 2A 2A 00 33 1A |AD CBM4032 **.3.|
00001200: C6 02 99 22 93 11 11 11 05 42 45 46 4F 52 45 20 |...".....BEFORE |
00001210: 52 55 4E 4E 49 4E 47 20 54 48 49 53 20 50 52 4F |RUNNING THIS PRO|
00001220: 47 52 41 4D 20 4F 4E 20 41 4E 20 38 30 33 32 20 |GRAM ON AN 8032 |
00001230: 20 11 11 00 69 1A D0 02 99 22 20 20 20 20 20 20 | ...i...." |
00001240: 4C 4F 41 44 20 54 48 45 20 27 43 42 4D 20 34 30 |LOAD THE 'CBM 40|
00001250: 33 32 27 20 50 52 4F 47 52 41 4D 11 11 11 11 11 |32' PROGRAM.....|
00001260: 11 11 11 11 11 11 11 11 22 00 74 1A DA 02 9E 55 |........".t....U|
00001270: 55 AA 37 31 00 7A 1A E4 02 80 00 9F 1A 1D 03 8F |U.71.z..........|
00001280: 20 2A 2A 20 54 4F 20 55 53 45 20 38 30 33 32 20 | ** TO USE 8032 |
00001290: 4C 4F 41 44 20 43 42 4D 34 30 33 32 20 2A 2A 00 |LOAD CBM4032 **.|
000012A0: EA 1A 1E 03 99 22 93 11 11 11 42 45 46 4F 52 45 |....."....BEFORE|
000012B0: 20 52 55 4E 4E 49 4E 47 20 54 48 49 53 20 50 52 | RUNNING THIS PR|
000012C0: 4F 47 52 41 4D 20 4F 4E 20 41 4E 20 38 30 33 32 |OGRAM ON AN 8032|
000012D0: 20 20 11 11 4C 4F 41 44 20 43 42 4D 20 34 30 33 | ..LOAD CBM 403|
000012E0: 32 20 50 52 4F 47 52 41 4D 22 00 F6 1A 1F 03 9E |2 PROGRAM"......|
000012F0: 31 30 39 33 3A 80 00 16 1B 20 03 8F 20 2A 2A 20 |1093:.... .. ** |
00001300: 54 20 49 20 54 20 4C 20 45 20 20 20 50 20 41 20 |T I T L E P A |
00001310: 47 20 45 20 2A 2A 00 4A 1B 22 03 99 22 93 11 1D |G E **.J.".."...|
00001320: 05 22 3B 3A 97 55 54 2C 55 55 25 3A 8B C2 28 35 |.";:.UT,UU%:..(5|
00001330: 30 30 30 33 29 B2 30 A7 97 35 33 32 38 30 2C 31 |0003).0..53280,1|
00001340: 34 3A 97 35 33 32 38 31 2C 36 00 60 1B 24 03 81 |4:.53281,6.`.$..|
00001350: 49 B2 31 A4 33 38 3A 99 22 12 A6 92 22 3B 3A 82 |I.1.38:."...";:.|
00001360: 00 78 1B 26 03 81 49 B2 31 A4 32 32 3A 99 22 11 |.x.&..I.1.22:.".|
00001370: 9D 12 A6 92 22 3B 3A 82 00 90 1B 28 03 81 49 B2 |....";:....(..I.|
00001380: 31 A4 33 37 3A 99 22 9D 9D 12 A6 92 22 3B 3A 82 |1.37:.".....";:.|
00001390: 00 A8 1B 2A 03 81 49 B2 31 A4 32 32 3A 99 22 91 |...*..I.1.22:.".|
000013A0: 9D 12 A6 92 22 3B 3A 82 00 CD 1B 2C 03 99 22 13 |....";:....,..".|
000013B0: 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000013C0: 1D 1D 1D 1D 1D 1D 1D 1D 12 A9 20 20 92 00 EF 1B |.......... ....|
000013D0: 2E 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..."............|
000013E0: 1D 1D 1D 1D 1D 1D 12 20 92 20 20 12 20 92 A9 00 |....... . . ...|
000013F0: 10 1C 30 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..0.."..........|
00001400: 1D 1D 1D 1D 1D 1D 1D 1D 12 20 92 20 20 12 A3 DF |......... . ...|
00001410: 00 2E 1C 32 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D |...2..".........|
00001420: 1D 1D 1D 1D 1D 1D 1D 1D 1D DF 12 20 20 92 00 56 |........... ..V|
00001430: 1C 34 03 99 22 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D |.4.."...........|
00001440: 1D 1D 1D 43 20 4F 20 4D 20 4D 20 4F 20 44 20 4F |...C O M M O D O|
00001450: 20 52 20 45 11 11 00 79 1C 36 03 99 22 1D 1D 1D | R E...y.6.."...|
00001460: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 45 44 55 43 |............EDUC|
00001470: 41 54 49 4F 4E 41 4C 11 11 00 98 1C 38 03 99 22 |ATIONAL.....8.."|
00001480: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001490: 53 4F 46 54 57 41 52 45 00 B3 1C 3A 03 8F 20 2A |SOFTWARE...:.. *|
000014A0: 2A 20 43 4F 4D 4D 4F 44 4F 52 45 20 4C 4F 47 4F |* COMMODORE LOGO|
000014B0: 20 2A 2A 00 EB 1C 3B 03 99 C8 28 55 44 24 2C 32 | **...;...(UD$,2|
000014C0: 34 29 3B 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 50 52 |4);"..........PR|
000014D0: 45 53 53 20 53 50 41 43 45 20 42 41 52 20 4F 52 |ESS SPACE BAR OR|
000014E0: 20 57 41 49 54 92 22 3A 49 B2 30 00 0D 1D 3C 03 | WAIT.":I.0...<.|
000014F0: A1 41 24 3A 8B 41 24 B3 B1 22 20 22 A7 49 B2 49 |.A$:.A$.." ".I.I|
00001500: AA 31 3A 8B 49 B3 32 35 30 A7 38 32 38 00 31 1D |.1:.I.250.828.1.|
00001510: 3E 03 54 31 24 B2 22 22 3A 54 32 24 B2 22 22 3A |>.T1$."":T2$."":|
00001520: 54 33 24 B2 22 22 3A 54 34 24 B2 22 22 3A 49 B2 |T3$."":T4$."":I.|
00001530: 30 00 3A 1D 40 03 89 33 30 30 00 56 1D 43 03 8F |0.:.@..300.V.C..|
00001540: 20 2A 2A 20 53 50 41 43 45 20 42 41 52 20 50 52 | ** SPACE BAR PR|
00001550: 45 53 53 20 2A 2A 00 91 1D 48 03 99 C8 28 55 44 |ESS **...H...(UD|
00001560: 24 2C 32 34 29 3B 22 1D 1D 1D 1D 1D 1D 12 50 52 |$,24);".......PR|
00001570: 45 53 53 20 53 50 41 43 45 20 42 41 52 20 54 4F |ESS SPACE BAR TO|
00001580: 20 43 4F 4E 54 49 4E 55 45 92 22 3A 97 55 4F 2C | CONTINUE.":.UO,|
00001590: 30 00 A8 1D 4C 03 A1 55 49 24 3A 8B 55 49 24 B3 |0...L..UI$:.UI$.|
000015A0: B1 22 20 22 A7 38 34 34 00 AE 1D 4E 03 8E 00 CE |." ".844...N....|
000015B0: 1D 52 03 8F 20 2A 2A 20 50 41 47 45 20 44 45 53 |.R.. ** PAGE DES|
000015C0: 49 47 4E 20 52 4F 55 54 49 4E 45 20 2A 2A 00 DA |IGN ROUTINE **..|
000015D0: 1D 54 03 55 50 B2 55 50 AA 31 00 04 1E 57 03 99 |.T.UP.UP.1...W..|
000015E0: 22 93 22 C8 28 55 54 24 AA 55 50 24 2C 32 31 29 |".".(UT$.UP$,21)|
000015F0: 3B C9 28 55 50 24 AA 55 47 24 AA C4 28 55 50 29 |;.(UP$.UG$..(UP)|
00001600: 2C 31 38 29 00 33 1E 5C 03 99 22 20 2D 2D 2D 2D |,18).3.\.." ----|
00001610: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001620: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001630: 2D 2D 22 00 45 1E 5E 03 8B 46 54 A7 46 54 B2 30 |--".E.^..FT.FT.0|
00001640: 3A 89 38 37 30 00 54 1E 60 03 8B 55 48 B3 B1 30 |:.870.T.`..UH..0|
00001650: A7 38 37 30 00 88 1E 61 03 99 C8 28 55 44 24 2C |.870...a...(UD$,|
00001660: 32 34 29 3B C8 28 55 50 24 2C 37 29 3B 22 48 45 |24);.(UP$,7);"HE|
00001670: 4C 50 20 2D 20 50 52 45 53 53 20 20 20 48 20 3C |LP - PRESS H <|
00001680: 52 45 54 55 52 4E 3E 22 00 99 1E 66 03 55 48 B2 |RETURN>"...f.UH.|
00001690: 30 3A 99 22 13 11 22 3A 8E 00 B8 1E 6B 03 8F 20 |0:."..":....k.. |
000016A0: 2A 2A 20 50 4C 45 41 53 45 20 57 41 49 54 20 52 |** PLEASE WAIT R|
000016B0: 45 4D 41 52 4B 20 2A 2A 00 EE 1E 70 03 99 C8 28 |EMARK **...p...(|
000016C0: 55 44 24 2C 32 34 29 3B 22 20 20 20 20 20 20 20 |UD$,24);" |
000016D0: 20 20 20 20 4F 4E 45 20 4D 4F 4D 45 4E 54 20 50 | ONE MOMENT P|
000016E0: 4C 45 41 53 45 2E 2E 2E 20 20 20 20 20 22 00 F4 |LEASE... "..|
000016F0: 1E 75 03 8E 00 11 1F 84 03 8F 20 2A 2A 20 53 45 |.u........ ** SE|
00001700: 54 20 55 50 20 56 41 52 49 41 42 4C 45 53 20 2A |T UP VARIABLES *|
00001710: 2A 00 5C 1F 85 03 55 58 24 B2 22 48 22 3A 86 55 |*.\...UX$."H":.U|
00001720: 51 25 28 31 30 30 30 29 3A 55 42 B2 33 32 37 36 |Q%(1000):UB.3276|
00001730: 38 3A 55 31 B2 31 39 36 3A 55 32 B2 31 39 37 3A |8:U1.196:U2.197:|
00001740: 55 33 B2 31 39 38 3A 55 34 B2 32 31 36 3A 55 43 |U3.198:U4.216:UC|
00001750: B2 31 36 37 3A 55 55 B2 31 30 32 34 00 9A 1F 86 |.167:UU.1024....|
00001760: 03 55 54 B2 35 39 34 36 38 3A 55 55 25 B2 31 32 |.UT.59468:UU%.12|
00001770: 3A 55 4C 25 B2 31 34 3A 55 50 25 B2 31 31 34 36 |:UL%.14:UP%.1146|
00001780: 3A 55 4D B2 33 32 37 36 38 3A 97 20 35 30 30 30 |:UM.32768:. 5000|
00001790: 33 2C 30 3A 55 4F B2 31 35 38 00 DD 1F 87 03 8B |3,0:UO.158......|
000017A0: C2 28 35 30 30 30 33 29 B2 30 A7 55 42 B2 31 30 |.(50003).0.UB.10|
000017B0: 32 34 3A 55 31 B2 32 30 39 3A 55 32 B2 32 31 30 |24:U1.209:U2.210|
000017C0: 3A 55 33 B2 32 31 31 3A 55 34 B2 32 31 34 3A 55 |:U3.211:U4.214:U|
000017D0: 43 B2 32 30 34 3A 55 55 B2 32 30 34 38 00 1C 20 |C.204:UU.2048.. |
000017E0: 88 03 8B C2 28 35 30 30 30 33 29 B2 30 A7 55 54 |....(50003).0.UT|
000017F0: B2 35 33 32 37 32 3A 55 55 25 B2 32 31 3A 55 4C |.53272:UU%.21:UL|
00001800: 25 B2 32 33 3A 55 50 25 B2 32 31 33 39 3A 55 4D |%.23:UP%.2139:UM|
00001810: B2 31 30 32 34 3A 55 4F B2 31 39 38 00 40 20 89 |.1024:UO.198.@ .|
00001820: 03 55 44 24 B2 22 13 11 11 11 11 11 11 11 11 11 |.UD$."..........|
00001830: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 22 |..............."|
00001840: 00 72 20 8A 03 55 50 24 B2 22 20 20 20 20 20 20 |.r ..UP$." |
00001850: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001860: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001870: 20 22 00 BE 20 8B 03 55 54 24 B2 22 20 4D 41 54 | ".. ..UT$." MAT|
00001880: 52 49 58 20 20 20 20 A0 A0 A0 A0 A0 A0 22 3A 8F |RIX ......":.|
00001890: 20 50 4C 41 43 45 20 50 52 4F 47 52 41 4D 20 54 | PLACE PROGRAM T|
000018A0: 49 54 4C 45 20 48 45 52 45 20 21 21 21 21 21 21 |ITLE HERE !!!!!!|
000018B0: 21 21 21 21 21 21 21 21 21 21 21 2A 2A 2A 00 DD |!!!!!!!!!!!***..|
000018C0: 20 8C 03 47 B2 31 30 3A 86 41 28 47 2C 47 29 2C | ..G.10:.A(G,G),|
000018D0: 4D 28 47 2C 47 29 2C 53 28 47 2C 47 29 00 E3 20 |M(G,G),S(G,G).. |
000018E0: 8D 03 8E 00 FD 20 8E 03 8F 20 2A 2A 20 53 45 54 |..... ... ** SET|
000018F0: 20 56 41 52 49 41 42 4C 45 53 20 2A 2A 00 06 21 | VARIABLES **..!|
00001900: 93 03 8D 39 30 30 00 0C 21 94 03 3A 00 12 21 95 |...900..!..:..!.|
00001910: 03 3A 00 2D 21 98 03 8F 20 2A 2A 20 43 48 45 43 |.:.-!... ** CHEC|
00001920: 4B 20 46 4F 52 20 38 30 33 32 20 2A 2A 00 4B 21 |K FOR 8032 **.K!|
00001930: 9D 03 99 22 93 22 3A 99 22 A0 22 3A 8F 20 53 48 |...".":.".":. SH|
00001940: 49 46 54 45 44 20 53 50 41 43 45 00 62 21 A2 03 |IFTED SPACE.b!..|
00001950: 8B C2 28 55 42 AA 34 30 29 B3 B1 39 36 A7 8D 37 |..(UB.40)..96..7|
00001960: 30 30 00 7B 21 A3 03 8F 20 2A 2A 20 4D 45 4D 4F |00.{!... ** MEMO|
00001970: 52 59 20 43 48 45 43 4B 20 2A 2A 00 8F 21 A4 03 |RY CHECK **..!..|
00001980: 8B 20 B8 28 30 29 B1 32 30 30 30 A7 39 33 37 00 |. .(0).2000.937.|
00001990: BD 21 A5 03 99 22 93 11 11 05 54 48 49 53 20 4D |.!..."....THIS M|
000019A0: 41 43 48 49 4E 45 20 44 4F 45 53 20 4E 4F 54 20 |ACHINE DOES NOT |
000019B0: 48 41 56 45 20 45 4E 4F 55 47 48 11 22 00 E1 21 |HAVE ENOUGH."..!|
000019C0: A6 03 99 22 4D 45 4D 4F 52 59 20 54 4F 20 52 55 |..."MEMORY TO RU|
000019D0: 4E 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 21 |N THIS PROGRAM !|
000019E0: 22 00 EC 21 A7 03 9E 55 55 AA 37 31 00 F2 21 A8 |"..!...UU.71..!.|
000019F0: 03 80 00 0C 22 A9 03 99 22 93 05 22 3A 8B C2 28 |...."..."..":..(|
00001A00: 35 30 30 30 33 29 B2 30 A7 39 36 32 00 3B 22 AC |50003).0.962.;".|
00001A10: 03 8F 20 2A 2A 20 42 41 53 49 43 20 32 2E 30 20 |.. ** BASIC 2.0 |
00001A20: 20 4F 52 20 20 34 2E 30 20 20 4F 52 20 20 43 2D | OR 4.0 OR C-|
00001A30: 36 34 20 53 45 54 55 50 20 2A 2A 00 79 22 AD 03 |64 SETUP **.y"..|
00001A40: 97 31 30 37 35 2C 31 33 33 3A 97 31 30 37 36 2C |.1075,133:.1076,|
00001A50: 31 34 34 3A 97 31 30 37 37 2C 32 33 34 3A 97 31 |144:.1077,234:.1|
00001A60: 30 37 39 2C 34 3A 97 31 30 38 30 2C 31 33 33 3A |079,4:.1080,133:|
00001A70: 97 31 30 38 31 2C 31 34 35 00 AF 22 AE 03 97 31 |.1081,145.."...1|
00001A80: 30 39 31 2C 31 35 35 3A 97 31 30 39 38 2C 31 33 |091,155:.1098,13|
00001A90: 33 3A 97 31 30 39 39 2C 31 34 34 3A 97 31 31 30 |3:.1099,144:.110|
00001AA0: 30 2C 32 33 34 3A 97 31 31 30 33 2C 31 33 33 00 |0,234:.1103,133.|
00001AB0: D1 22 AF 03 97 31 31 30 34 2C 31 34 35 3A 97 31 |."...1104,145:.1|
00001AC0: 31 30 35 2C 32 33 34 3A 97 31 30 38 32 2C 32 33 |105,234:.1082,23|
00001AD0: 34 00 E8 22 B1 03 8B C2 28 35 30 30 30 33 29 B3 |4.."....(50003).|
00001AE0: B1 31 36 30 A7 39 35 35 00 17 23 B6 03 97 31 30 |.160.955..#...10|
00001AF0: 39 33 2C 38 38 3A 97 31 30 39 34 2C 32 32 38 3A |93,88:.1094,228:|
00001B00: 97 31 30 39 37 2C 38 35 3A 97 31 31 30 32 2C 32 |.1097,85:.1102,2|
00001B10: 32 38 3A 89 39 36 35 00 2C 23 BB 03 8B C2 28 35 |28:.965.,#....(5|
00001B20: 30 30 30 33 29 B3 B1 31 A7 39 39 30 00 5B 23 C0 |0003)..1.990.[#.|
00001B30: 03 97 31 30 39 33 2C 34 39 3A 97 31 30 39 34 2C |..1093,49:.1094,|
00001B40: 32 33 30 3A 97 31 30 39 37 2C 34 36 3A 97 31 31 |230:.1097,46:.11|
00001B50: 30 32 2C 32 33 30 3A 89 39 36 35 00 95 23 C2 03 |02,230:.965..#..|
00001B60: 97 32 30 39 39 2C 31 34 31 3A 97 32 31 30 30 2C |.2099,141:.2100,|
00001B70: 32 30 3A 97 32 31 30 31 2C 33 3A 97 32 31 30 33 |20:.2101,3:.2103|
00001B80: 2C 38 3A 97 32 31 30 34 2C 31 34 31 3A 97 32 31 |,8:.2104,141:.21|
00001B90: 30 35 2C 32 31 00 D1 23 C3 03 97 32 31 30 36 2C |05,21..#...2106,|
00001BA0: 33 3A 97 32 31 31 35 2C 31 34 35 3A 97 32 31 31 |3:.2115,145:.211|
00001BB0: 37 2C 35 32 3A 97 32 31 31 38 2C 32 33 34 3A 97 |7,52:.2118,234:.|
00001BC0: 32 31 32 31 2C 34 39 3A 97 32 31 32 32 2C 31 34 |2121,49:.2122,14|
00001BD0: 31 00 0B 24 C4 03 97 32 31 32 33 2C 32 30 3A 97 |1..$...2123,20:.|
00001BE0: 32 31 32 34 2C 33 3A 97 32 31 32 36 2C 32 33 34 |2124,3:.2126,234|
00001BF0: 3A 97 32 31 32 37 2C 31 34 31 3A 97 32 31 32 38 |:.2127,141:.2128|
00001C00: 2C 32 31 3A 97 32 31 32 39 2C 33 00 29 24 C5 03 |,21:.2129,3.)$..|
00001C10: 9E 55 55 AA 34 38 3A 8F 20 44 49 53 41 42 4C 45 |.UU.48:. DISABLE|
00001C20: 20 53 54 4F 50 20 4B 45 59 00 3A 24 CA 03 8D 38 | STOP KEY.:$...8|
00001C30: 30 30 3A 8F 20 54 49 54 4C 45 00 4A 24 D4 03 89 |00:. TITLE.J$...|
00001C40: 33 30 30 3A 8F 20 4D 45 4E 55 00 7B 24 DE 03 99 |300:. MENU.{$...|
00001C50: 22 93 54 48 45 20 50 47 4D 20 57 49 4C 4C 20 4E |".THE PGM WILL N|
00001C60: 4F 54 20 57 4F 52 4B 20 4F 4E 20 54 48 49 53 20 |OT WORK ON THIS |
00001C70: 4D 41 43 48 49 4E 45 21 22 3A 80 00 B0 24 E8 03 |MACHINE!":...$..|
00001C80: 8B 55 5A B2 31 A7 9E 55 50 25 3A 9E 55 50 25 3A |.UZ.1..UP%:.UP%:|
00001C90: 55 5A B2 30 3A 8F 20 2A 2A 20 50 52 4F 47 52 41 |UZ.0:. ** PROGRA|
00001CA0: 4D 20 53 54 41 52 54 53 20 48 45 52 45 20 2A 2A |M STARTS HERE **|
00001CB0: 00 DC 24 E9 03 99 22 93 05 22 3B 3A 8C 3A 8B C2 |..$..."..";:.:..|
00001CC0: 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 |(50003).0..53281|
00001CD0: 2C 36 3A 97 35 33 32 38 30 2C 31 34 00 FD 24 FC |,6:.53280,14..$.|
00001CE0: 03 47 B2 BA 28 28 B8 28 4F 29 AB 35 38 38 29 AD |.G..((.(O).588).|
00001CF0: 31 36 29 3A 8B 47 B1 38 20 A7 47 B2 38 00 19 25 |16):.G.8 .G.8..%|
00001D00: 0B 04 55 47 24 B2 22 49 4E 54 52 4F 44 55 43 54 |..UG$."INTRODUCT|
00001D10: 49 4F 4E 22 3A 55 50 B2 30 00 2A 25 0C 04 46 54 |ION":UP.0.*%..FT|
00001D20: B2 31 3A 20 20 20 8D 38 35 30 00 69 25 10 04 99 |.1: .850.i%...|
00001D30: 20 20 20 20 20 20 22 11 11 11 11 11 22 A6 31 33 | ".....".13|
00001D40: 29 22 12 4D 41 54 52 49 58 20 4D 41 54 48 22 3A |)".MATRIX MATH":|
00001D50: 99 22 11 11 22 A6 31 32 29 22 43 4F 50 59 52 49 |."..".12)"COPYRI|
00001D60: 47 48 54 20 31 39 37 38 22 00 A5 25 1A 04 99 A6 |GHT 1978"..%....|
00001D70: 34 29 22 11 43 4F 4D 4D 4F 44 4F 52 45 20 42 55 |4)".COMMODORE BU|
00001D80: 53 49 4E 45 53 53 20 4D 41 43 48 49 4E 45 53 2C |SINESS MACHINES,|
00001D90: 49 4E 43 2E 22 3A 4C 54 24 B2 22 45 44 2A 59 43 |INC.":LT$."ED*YC|
00001DA0: 4D 2B 2D 54 22 00 B5 25 24 04 81 49 B2 31 A4 32 |M+-T"..%$..I.1.2|
00001DB0: 30 30 30 3A 82 00 E2 25 29 04 55 47 24 B2 22 49 |000:...%).UG$."I|
00001DC0: 4E 54 52 4F 44 55 43 54 49 4F 4E 22 3A 55 50 B2 |NTRODUCTION":UP.|
00001DD0: 31 3A 8D 38 35 30 3A 99 22 11 11 1D 4E 4F 54 45 |1:.850:."...NOTE|
00001DE0: 3A 22 00 F0 25 2A 04 99 22 1D B7 B7 B7 B7 B7 22 |:"..%*.."......"|
00001DF0: 00 28 26 2E 04 54 24 B2 22 4B 22 3A 99 20 22 11 |.(&..T$."K":. ".|
00001E00: 11 1D 54 48 45 20 4D 41 58 49 4D 55 4D 20 44 49 |..THE MAXIMUM DI|
00001E10: 4D 45 4E 53 49 4F 4E 20 4F 46 20 41 4E 59 20 4D |MENSION OF ANY M|
00001E20: 41 54 52 49 43 45 53 22 00 57 26 2F 04 99 22 11 |ATRICES".W&/..".|
00001E30: 1D 57 48 49 43 48 20 59 4F 55 20 4D 41 59 20 57 |.WHICH YOU MAY W|
00001E40: 4F 52 4B 20 57 49 54 48 20 49 53 20 22 3B B5 28 |ORK WITH IS ";.(|
00001E50: 47 29 3A 8D 38 33 35 00 7B 26 38 04 55 47 24 B2 |G):.835.{&8.UG$.|
00001E60: 22 4F 50 45 52 41 54 49 4F 4E 53 22 3A 55 48 B2 |"OPERATIONS":UH.|
00001E70: 31 3A 55 50 B2 30 3A 8D 38 35 30 00 A8 26 6A 04 |1:UP.0:.850..&j.|
00001E80: 99 22 11 1D 1D 1D 1D 1D 12 45 92 3A 20 45 4E 54 |.".......E.: ENT|
00001E90: 45 52 20 20 20 20 20 20 20 20 12 2A 92 3A 20 4D |ER .*.: M|
00001EA0: 55 4C 54 49 50 4C 59 22 00 D5 26 6F 04 99 22 11 |ULTIPLY"..&o..".|
00001EB0: 1D 1D 1D 1D 1D 12 2B 92 3A 20 41 44 44 20 20 20 |......+.: ADD |
00001EC0: 20 20 20 20 20 20 20 12 2D 92 3A 20 53 55 42 54 | .-.: SUBT|
00001ED0: 52 41 43 54 22 00 05 27 70 04 99 22 11 1D 1D 1D |RACT"..'p.."....|
00001EE0: 1D 1D 12 4D 92 3A 20 52 45 4E 41 4D 45 20 20 20 |...M.: RENAME |
00001EF0: 20 20 20 20 12 44 92 3A 20 44 45 54 45 52 4D 49 | .D.: DETERMI|
00001F00: 4E 41 4E 54 22 00 30 27 71 04 99 22 11 1D 1D 1D |NANT".0'q.."....|
00001F10: 1D 1D 12 43 92 3A 20 43 48 41 4E 47 45 20 20 20 |...C.: CHANGE |
00001F20: 20 20 20 20 12 59 92 3A 20 44 49 53 50 4C 41 59 | .Y.: DISPLAY|
00001F30: 00 46 27 72 04 99 22 11 1D 1D 1D 1D 1D 12 51 92 |.F'r..".......Q.|
00001F40: 3A 20 51 55 49 54 00 84 27 9C 04 99 22 11 1D 1D |: QUIT..'..."...|
00001F50: 1D 1D 1D 45 4E 54 45 52 20 41 4E 20 4F 50 45 52 |...ENTER AN OPER|
00001F60: 41 54 49 4F 4E 20 43 4F 44 45 3A 20 22 3B 3A 55 |ATION CODE: ";:U|
00001F70: 4C B2 31 3A 55 53 24 B2 22 59 45 4D 2B 2D 2A 54 |L.1:US$."YEM+-*T|
00001F80: 44 43 51 22 00 94 27 9D 04 8D 33 35 3A 41 4E 24 |DCQ"..'...35:AN$|
00001F90: B2 55 52 24 00 BA 27 B0 04 3A 58 5A B2 30 3A 81 |.UR$..'..:XZ.0:.|
00001FA0: 49 B2 31 A4 39 3A 8B 41 4E 24 B2 CA 28 4C 54 24 |I.1.9:.AN$..(LT$|
00001FB0: 2C 49 2C 31 29 A7 58 5A B2 49 00 CB 27 BA 04 82 |,I,1).XZ.I..'...|
00001FC0: 3A 8B 58 5A B2 30 A7 31 32 33 30 00 06 28 C4 04 |:.XZ.0.1230..(..|
00001FD0: 91 58 5A 8D 31 32 36 30 2C 32 30 32 30 2C 31 39 |.XZ.1260,2020,19|
00001FE0: 35 30 2C 31 36 37 30 2C 31 34 34 30 2C 32 34 35 |50,1670,1440,245|
00001FF0: 30 2C 31 38 35 30 2C 31 38 35 30 2C 33 35 30 30 |0,1850,1850,3500|
00002000: 3A 89 31 30 38 30 00 15 28 CE 04 8B 41 4E 24 B2 |:.1080..(...AN$.|
00002010: 22 51 22 A7 8E 00 37 28 EC 04 55 47 24 B2 22 45 |"Q"...7(..UG$."E|
00002020: 4E 54 45 52 20 4D 41 54 52 49 58 22 3A 55 50 B2 |NTER MATRIX":UP.|
00002030: 30 3A 8D 38 35 30 3A 00 55 28 ED 04 99 22 11 1D |0:.850:.U(..."..|
00002040: 43 48 4F 4F 53 45 20 46 52 4F 4D 20 28 41 2C 42 |CHOOSE FROM (A,B|
00002050: 2C 43 29 2D 22 00 95 28 EE 04 99 22 11 1D 57 48 |,C)-"..(..."..WH|
00002060: 49 43 48 20 4D 41 54 52 49 58 20 57 4F 55 4C 44 |ICH MATRIX WOULD|
00002070: 20 59 4F 55 20 4C 49 4B 45 20 54 4F 20 45 4E 54 | YOU LIKE TO ENT|
00002080: 45 52 3F 22 3B 3A 55 4C B2 31 3A 55 53 24 B2 22 |ER?";:UL.1:US$."|
00002090: 48 41 42 43 22 00 A4 28 EF 04 8D 33 35 3A 4D 24 |HABC"..(...35:M$|
000020A0: B2 55 52 24 00 B9 28 00 05 8D 32 34 32 30 3A 8B |.UR$..(...2420:.|
000020B0: 45 46 B2 31 A7 31 32 36 30 00 F1 28 0A 05 99 22 |EF.1.1260..(..."|
000020C0: 11 1D 45 4E 54 45 52 20 4E 55 4D 42 45 52 20 4F |..ENTER NUMBER O|
000020D0: 46 20 52 4F 57 53 3A 20 22 3B 3A 55 4C B2 32 3A |F ROWS: ";:UL.2:|
000020E0: 55 53 24 B2 22 48 30 31 32 33 34 35 36 37 38 39 |US$."H0123456789|
000020F0: 22 00 04 29 0B 05 8D 33 35 3A 52 B2 C5 28 55 52 |"..)...35:R..(UR|
00002100: 24 29 AB 31 00 31 29 0C 05 8B 52 B1 28 47 AB 31 |$).1.1)...R.(G.1|
00002110: 29 A7 99 22 11 1D 44 49 4D 45 4E 53 49 4F 4E 20 |).."..DIMENSION |
00002120: 54 4F 4F 20 4C 41 52 47 45 22 3A 89 31 34 30 30 |TOO LARGE":.1400|
00002130: 30 00 55 29 14 05 99 22 11 1D 45 4E 54 45 52 20 |0.U)..."..ENTER |
00002140: 4E 55 4D 42 45 52 20 4F 46 20 43 4F 4C 55 4D 4E |NUMBER OF COLUMN|
00002150: 53 3A 20 22 3B 00 68 29 15 05 8D 33 35 3A 43 B2 |S: ";.h)...35:C.|
00002160: C5 28 55 52 24 29 AB 31 00 94 29 1E 05 8B 43 B1 |.(UR$).1..)...C.|
00002170: 47 AB 31 A7 99 3A 99 22 1D 44 49 4D 45 4E 53 49 |G.1..:.".DIMENSI|
00002180: 4F 4E 20 54 4F 4F 20 4C 41 52 47 45 22 3A 89 31 |ON TOO LARGE":.1|
00002190: 34 30 30 30 00 B2 29 28 05 8B 52 B1 47 A7 99 22 |4000..)(..R.G.."|
000021A0: 11 1D 44 49 4D 20 45 52 52 4F 52 22 3A 89 31 32 |..DIM ERROR":.12|
000021B0: 39 30 00 D0 29 32 05 8B 43 B1 47 A7 99 22 11 1D |90..)2..C.G.."..|
000021C0: 44 49 4D 20 45 52 52 4F 52 22 3A 89 31 32 39 30 |DIM ERROR":.1290|
000021D0: 00 E3 29 3C 05 8B 20 54 24 B2 22 4B 22 20 89 31 |..)<.. T$."K" .1|
000021E0: 33 35 30 00 EF 29 41 05 99 22 13 11 11 11 22 00 |350..)A.."....".|
000021F0: FD 29 46 05 55 48 B2 31 3A 8D 38 35 30 00 30 2A |.)F.UH.1:.850.0*|
00002200: 4B 05 81 4A B2 30 A4 43 3A 55 4C B2 32 3A 99 22 |K..J.0.C:UL.2:."|
00002210: 13 11 1D 22 3A 8D 31 35 30 30 30 3A 99 22 13 11 |...":.15000:."..|
00002220: 1D 22 3A 99 22 11 1D 45 4E 54 45 52 20 3A 20 22 |.":."..ENTER : "|
00002230: 00 5E 2A 50 05 81 49 B2 30 A4 52 3A 99 3A 99 22 |.^*P..I.0.R:.:."|
00002240: 1D 43 4F 4C 2E 20 22 3B 4A AA 31 3B 22 2C 52 4F |.COL. ";J.1;",RO|
00002250: 57 20 22 3B 49 AA 31 3B 22 3A 20 20 22 3B 00 93 |W ";I.1;": ";..|
00002260: 2A 5A 05 8B 4D 24 B2 22 41 22 A7 55 4C B2 32 3A |*Z..M$."A".UL.2:|
00002270: 55 53 24 B2 22 2D 30 31 32 33 34 35 36 37 38 39 |US$."-0123456789|
00002280: 22 3A 8D 33 35 3A 41 28 49 2C 4A 29 B2 C5 28 55 |":.35:A(I,J)..(U|
00002290: 52 24 29 00 C8 2A 64 05 8B 4D 24 B2 22 42 22 A7 |R$)..*d..M$."B".|
000022A0: 55 4C B2 32 3A 55 53 24 B2 22 2D 30 31 32 33 34 |UL.2:US$."-01234|
000022B0: 35 36 37 38 39 22 3A 8D 33 35 3A 53 28 49 2C 4A |56789":.35:S(I,J|
000022C0: 29 B2 C5 28 55 52 24 29 00 FD 2A 6E 05 8B 4D 24 |)..(UR$)..*n..M$|
000022D0: B2 22 43 22 A7 55 4C B2 32 3A 55 53 24 B2 22 2D |."C".UL.2:US$."-|
000022E0: 30 31 32 33 34 35 36 37 38 39 22 3A 8D 33 35 3A |0123456789":.35:|
000022F0: 4D 28 49 2C 4A 29 B2 C5 28 55 52 24 29 00 19 2B |M(I,J)..(UR$)..+|
00002300: 78 05 82 3A 82 3A 8B 4D 24 B2 22 41 22 A7 52 31 |x..:.:.M$."A".R1|
00002310: 25 B2 52 3A 43 31 25 B2 43 00 31 2B 82 05 8B 4D |%.R:C1%.C.1+...M|
00002320: 24 B2 22 42 22 A7 52 32 25 B2 52 3A 43 32 25 B2 |$."B".R2%.R:C2%.|
00002330: 43 00 49 2B 8C 05 8B 4D 24 B2 22 43 22 A7 52 33 |C.I+...M$."C".R3|
00002340: 25 B2 52 3A 43 33 25 B2 43 00 52 2B 91 05 8D 38 |%.R:C3%.C.R+...8|
00002350: 33 35 00 58 2B 96 05 8E 00 78 2B A0 05 55 47 24 |35.X+....x+..UG$|
00002360: B2 22 43 48 41 4E 47 45 22 3A 55 50 B2 30 3A 55 |."CHANGE":UP.0:U|
00002370: 48 B2 31 3A 8D 38 35 30 00 96 2B AA 05 99 22 11 |H.1:.850..+...".|
00002380: 1D 43 48 4F 4F 53 45 20 46 52 4F 4D 20 28 41 2C |.CHOOSE FROM (A,|
00002390: 42 2C 43 29 2D 22 00 B7 2B AB 05 99 22 11 1D 4D |B,C)-"..+..."..M|
000023A0: 41 54 52 49 58 20 54 4F 20 42 45 20 43 48 41 4E |ATRIX TO BE CHAN|
000023B0: 47 45 44 3F 20 22 3B 00 CE 2B AC 05 55 53 24 B2 |GED? ";..+..US$.|
000023C0: 22 41 42 43 22 3A 55 4C B2 31 3A 8D 33 35 00 D9 |"ABC":UL.1:.35..|
000023D0: 2B B4 05 4D 24 B2 55 52 24 00 FA 2B BE 05 55 48 |+..M$.UR$..+..UH|
000023E0: B2 31 3A 8D 38 35 30 3A 99 22 1D 4D 41 54 52 49 |.1:.850:.".MATRI|
000023F0: 58 20 22 3B 4D 24 3B 22 11 22 00 10 2C C8 05 8D |X ";M$;"."..,...|
00002400: 31 36 33 30 3A 46 4A B2 31 3A 20 8D 31 37 31 30 |1630:FJ.1: .1710|
00002410: 00 52 2C D2 05 99 22 11 1D 57 4F 55 4C 44 20 59 |.R,..."..WOULD Y|
00002420: 4F 55 20 4C 49 4B 45 20 54 4F 20 4D 41 4B 45 20 |OU LIKE TO MAKE |
00002430: 41 20 43 48 41 4E 47 45 3F 28 59 2F 4E 29 22 3B |A CHANGE?(Y/N)";|
00002440: 3A 55 4C B2 31 3A 55 53 24 B2 22 59 4E 22 3A 8D |:UL.1:US$."YN":.|
00002450: 33 35 00 64 2C D3 05 8B 55 52 24 B2 22 4E 22 A7 |35.d,...UR$."N".|
00002460: 31 35 31 30 00 6E 2C DC 05 89 31 35 31 31 00 74 |1510.n,...1511.t|
00002470: 2C E6 05 8E 00 BA 2C E7 05 99 22 11 1D 43 48 41 |,.....,..."..CHA|
00002480: 4E 47 45 20 49 53 20 49 4E 20 43 4F 4C 55 4D 4E |NGE IS IN COLUMN|
00002490: 20 23 20 22 3B 3A 55 4C B2 32 3A 55 53 24 B2 22 | # ";:UL.2:US$."|
000024A0: 30 31 32 33 34 35 36 37 38 39 22 3A 8D 33 35 3A |0123456789":.35:|
000024B0: 4A B2 C5 28 55 52 24 29 AB 31 00 E2 2C E8 05 8B |J..(UR$).1..,...|
000024C0: 4A B1 43 A7 99 22 11 1D 4E 4F 20 53 55 43 48 20 |J.C.."..NO SUCH |
000024D0: 43 4F 4C 55 4D 4E 22 3A 8D 38 33 35 3A 89 31 34 |COLUMN":.835:.14|
000024E0: 37 30 00 0F 2D F0 05 3A 8B 4A B1 43 25 B0 4A B2 |70..-..:.J.C%.J.|
000024F0: AB 31 A7 99 22 11 1D 12 4E 4F 4E 2D 45 58 49 53 |.1.."...NON-EXIS|
00002500: 54 45 4E 54 20 43 4F 4C 22 3A 89 31 35 30 30 00 |TENT COL":.1500.|
00002510: 52 2D FA 05 99 22 11 1D 43 48 41 4E 47 45 20 49 |R-..."..CHANGE I|
00002520: 53 20 49 4E 20 52 4F 57 20 23 20 22 3B 3A 55 4C |S IN ROW # ";:UL|
00002530: B2 32 3A 55 53 24 B2 22 30 31 32 33 34 35 36 37 |.2:US$."01234567|
00002540: 38 39 22 3A 8D 33 35 3A 44 B2 C5 28 55 52 24 29 |89":.35:D..(UR$)|
00002550: AB 31 00 77 2D FB 05 8B 44 B1 43 25 A7 99 22 1D |.1.w-...D.C%..".|
00002560: 4E 4F 20 53 55 43 48 20 52 4F 57 22 3A 8D 38 33 |NO SUCH ROW":.83|
00002570: 35 3A 89 31 34 37 30 00 A5 2D 2C 06 99 22 11 1D |5:.1470..-,.."..|
00002580: 57 48 41 54 20 49 53 20 54 48 45 20 4E 45 57 20 |WHAT IS THE NEW |
00002590: 56 41 4C 55 45 20 4F 46 20 54 48 45 20 45 4C 45 |VALUE OF THE ELE|
000025A0: 4D 45 4E 54 22 00 EB 2D 2D 06 99 22 11 1D 49 4E |MENT"..--.."..IN|
000025B0: 20 43 4F 4C 55 4D 4E 20 22 3B 4A AA 31 3B 22 2C | COLUMN ";J.1;",|
000025C0: 20 52 4F 57 20 22 3B 44 AA 31 3B 22 3F 20 22 3B | ROW ";D.1;"? ";|
000025D0: 3A 55 4C B2 32 3A 55 53 24 B2 22 30 31 2D 32 33 |:UL.2:US$."01-23|
000025E0: 34 35 36 37 38 39 22 3A 8D 33 35 00 09 2E 36 06 |456789":.35...6.|
000025F0: 58 B2 C5 28 55 52 24 29 3A 8B 4D 24 B2 22 41 22 |X..(UR$):.M$."A"|
00002600: A7 41 28 44 2C 4A 29 B2 58 00 1E 2E 40 06 8B 4D |.A(D,J).X...@..M|
00002610: 24 B2 22 42 22 A7 53 28 44 2C 4A 29 B2 58 00 33 |$."B".S(D,J).X.3|
00002620: 2E 4A 06 8B 4D 24 B2 22 43 22 A7 4D 28 44 2C 4A |.J..M$."C".M(D,J|
00002630: 29 B2 58 00 3D 2E 54 06 89 31 34 37 30 00 57 2E |).X.=.T..1470.W.|
00002640: 5E 06 8B 4D 24 B2 22 41 22 A7 52 25 B2 52 31 25 |^..M$."A".R%.R1%|
00002650: 3A 43 25 B2 43 31 25 00 71 2E 68 06 8B 4D 24 B2 |:C%.C1%.q.h..M$.|
00002660: 22 42 22 A7 52 25 B2 52 32 25 3A 43 25 B2 43 32 |"B".R%.R2%:C%.C2|
00002670: 25 00 8B 2E 72 06 8B 4D 24 B2 22 43 22 A7 52 25 |%...r..M$."C".R%|
00002680: B2 52 33 25 3A 43 25 B2 43 33 25 00 91 2E 7C 06 |.R3%:C%.C3%...|.|
00002690: 8E 00 B2 2E 86 06 55 47 24 B2 22 44 49 53 50 4C |......UG$."DISPL|
000026A0: 41 59 22 3A 55 48 B2 31 3A 55 50 B2 30 3A 8D 38 |AY":UH.1:UP.0:.8|
000026B0: 35 30 00 D9 2E 8B 06 99 22 11 1D 44 49 53 50 4C |50......"..DISPL|
000026C0: 41 59 20 57 48 41 54 20 4D 41 54 52 49 58 28 41 |AY WHAT MATRIX(A|
000026D0: 2C 42 2C 43 29 3F 20 22 3B 00 F7 2E 90 06 55 4C |,B,C)? ";.....UL|
000026E0: B2 31 3A 55 53 24 B2 22 41 42 43 22 3A 8D 33 35 |.1:US$."ABC":.35|
000026F0: 3A 4D 24 B2 55 52 24 00 0B 2F A4 06 8D 31 36 33 |:M$.UR$../...163|
00002700: 30 3A 55 48 B2 31 3A 8D 38 35 30 00 23 2F A9 06 |0:UH.1:.850.#/..|
00002710: 99 22 11 1D 4D 41 54 52 49 58 20 22 3B 4D 24 3B |."..MATRIX ";M$;|
00002720: 22 11 22 00 2F 2F AE 06 81 49 B2 30 A4 52 25 00 |".".//...I.0.R%.|
00002730: 3D 2F B8 06 3A 20 81 4A B2 30 A4 43 25 00 58 2F |=/..: .J.0.C%.X/|
00002740: B9 06 8B 4D 24 B2 22 41 22 A7 99 A3 4A AC 35 29 |...M$."A"...J.5)|
00002750: 3B 41 28 49 2C 4A 29 3B 00 73 2F BA 06 8B 4D 24 |;A(I,J);.s/...M$|
00002760: B2 22 42 22 A7 99 A3 4A AC 35 29 3B 53 28 49 2C |."B"...J.5);S(I,|
00002770: 4A 29 3B 00 8E 2F BB 06 8B 4D 24 B2 22 43 22 A7 |J);../...M$."C".|
00002780: 99 A3 4A AC 35 29 3B 4D 28 49 2C 4A 29 3B 00 96 |..J.5);M(I,J);..|
00002790: 2F CC 06 3A 20 82 00 A1 2F D6 06 3A 20 99 22 11 |/..: .../..: .".|
000027A0: 22 00 A7 2F E0 06 82 00 BC 2F E5 06 8B 46 4A B2 |"../...../...FJ.|
000027B0: 31 A7 46 4A B2 30 3A 89 31 37 38 30 00 C5 2F EA |1.FJ.0:.1780../.|
000027C0: 06 8D 38 33 35 00 CB 2F F4 06 8E 00 03 30 FE 06 |..835../.....0..|
000027D0: 81 49 B2 30 A4 52 25 3A 99 A6 49 AC 32 29 20 20 |.I.0.R%:..I.2) |
000027E0: 20 20 3A 8D 32 38 37 30 3A 82 3A 8B 4B B3 B2 43 | :.2870:.:.K..C|
000027F0: 25 A7 4B B2 4B AA 31 3A 4A B2 4A AA 31 3A 89 31 |%.K.K.1:J.J.1:.1|
00002800: 38 31 30 00 0D 30 08 07 89 31 38 34 30 00 38 30 |810..0...1840.80|
00002810: 12 07 99 22 11 1D 50 52 45 53 53 20 52 45 54 55 |..."..PRESS RETU|
00002820: 52 4E 20 54 4F 20 43 4F 4E 54 49 4E 55 45 20 4C |RN TO CONTINUE L|
00002830: 49 53 54 49 4E 47 11 22 00 4C 30 1C 07 A1 42 24 |ISTING.".L0...B$|
00002840: 3A 8B 42 24 B2 22 22 A7 31 38 32 30 00 56 30 26 |:.B$."".1820.V0&|
00002850: 07 89 31 37 32 30 00 78 30 30 07 99 22 11 1D 12 |..1720.x00.."...|
00002860: 45 4E 44 20 4F 46 20 4D 41 54 52 49 58 22 3A 8D |END OF MATRIX":.|
00002870: 38 33 35 3A 20 20 20 8E 00 96 30 3A 07 53 25 B2 |835: ...0:.S%.|
00002880: 31 3A 8B 41 4E 24 B2 22 2D 22 A7 53 25 B2 AB 31 |1:.AN$."-".S%..1|
00002890: 3A 89 31 38 37 30 00 BE 30 44 07 55 47 24 B2 22 |:.1870..0D.UG$."|
000028A0: 41 44 44 49 54 49 4F 4E 22 3A 55 50 B2 30 3A 55 |ADDITION":UP.0:U|
000028B0: 48 B2 31 3A 8D 38 35 30 3A 89 31 39 31 30 00 E3 |H.1:.850:.1910..|
000028C0: 30 4E 07 55 47 24 B2 22 53 55 42 54 52 41 43 54 |0N.UG$."SUBTRACT|
000028D0: 49 4F 4E 22 3A 55 50 B2 30 3A 55 48 B2 31 3A 8D |ION":UP.0:UH.1:.|
000028E0: 38 35 30 00 0A 31 58 07 99 22 11 1D 54 48 45 20 |850..1X.."..THE |
000028F0: 43 4F 4D 50 55 54 45 52 20 57 49 4C 4C 20 43 41 |COMPUTER WILL CA|
00002900: 4C 43 55 4C 41 54 45 20 3A 22 00 3A 31 59 07 99 |LCULATE :".:1Y..|
00002910: 22 11 1D 4D 41 54 52 49 58 20 41 2D 4D 41 54 52 |"..MATRIX A-MATR|
00002920: 49 58 20 42 20 41 4E 44 20 53 54 4F 52 45 20 54 |IX B AND STORE T|
00002930: 48 45 20 52 45 53 55 4C 54 22 00 50 31 5A 07 99 |HE RESULT".P1Z..|
00002940: 22 11 1D 41 53 20 4D 41 54 52 49 58 20 43 2E 22 |"..AS MATRIX C."|
00002950: 00 7D 31 5B 07 99 22 11 1D 48 41 56 45 20 59 4F |.}1[.."..HAVE YO|
00002960: 55 20 53 54 4F 52 45 44 20 54 48 45 20 4D 41 54 |U STORED THE MAT|
00002970: 52 49 43 45 53 20 49 4E 20 54 48 45 22 00 BB 31 |RICES IN THE"..1|
00002980: 5C 07 99 22 11 1D 50 52 4F 50 45 52 20 4F 52 44 |\.."..PROPER ORD|
00002990: 45 52 3F 28 59 2F 4E 29 20 22 3B 3A 55 4C B2 31 |ER?(Y/N) ";:UL.1|
000029A0: 3A 55 53 24 B2 22 59 4E 22 3A 8D 33 35 3A 8B 55 |:US$."YN":.35:.U|
000029B0: 52 24 B2 22 4E 22 A7 31 39 34 32 00 C5 31 5D 07 |R$."N".1942..1].|
000029C0: 89 31 39 32 35 00 EC 31 76 07 99 22 11 1D 54 48 |.1925..1v.."..TH|
000029D0: 45 20 43 4F 4D 50 55 54 45 52 20 57 49 4C 4C 20 |E COMPUTER WILL |
000029E0: 43 41 4C 43 55 4C 41 54 45 20 3A 22 00 1C 32 77 |CALCULATE :"..2w|
000029F0: 07 99 22 11 1D 4D 41 54 52 49 58 20 41 2B 4D 41 |.."..MATRIX A+MA|
00002A00: 54 52 49 58 20 42 20 41 4E 44 20 53 54 4F 52 45 |TRIX B AND STORE|
00002A10: 20 54 48 45 20 52 45 53 55 4C 54 22 00 32 32 78 | THE RESULT".22x|
00002A20: 07 99 22 11 1D 41 53 20 4D 41 54 52 49 58 20 43 |.."..AS MATRIX C|
00002A30: 2E 22 00 3C 32 79 07 89 31 38 38 33 00 7C 32 85 |.".<2y..1883.|2.|
00002A40: 07 8B 43 31 25 B3 B1 43 32 25 B0 52 31 25 B3 B1 |..C1%..C2%.R1%..|
00002A50: 52 32 25 A7 99 22 11 1D 43 41 4E 4E 4F 54 20 43 |R2%.."..CANNOT C|
00002A60: 4F 4E 54 49 4E 55 45 3A 20 4D 41 54 52 49 43 45 |ONTINUE: MATRICE|
00002A70: 53 20 4D 55 53 54 20 48 41 56 45 22 00 AF 32 86 |S MUST HAVE"..2.|
00002A80: 07 8B 43 31 25 B3 B1 43 32 25 B0 52 31 25 B3 B1 |..C1%..C2%.R1%..|
00002A90: 52 32 25 A7 99 22 11 1D 53 41 4D 45 20 44 49 4D |R2%.."..SAME DIM|
00002AA0: 45 4E 53 49 4F 4E 53 2E 22 3A 89 31 39 34 31 00 |ENSIONS.":.1941.|
00002AB0: E1 32 8A 07 81 49 B2 30 A4 52 31 25 3A 81 4A B2 |.2...I.0.R1%:.J.|
00002AC0: 30 A4 43 31 25 3A 4D 28 49 2C 4A 29 B2 41 28 49 |0.C1%:M(I,J).A(I|
00002AD0: 2C 4A 29 AA 53 25 AC 53 28 49 2C 4A 29 3A 82 3A |,J).S%.S(I,J):.:|
00002AE0: 82 00 F6 32 94 07 43 33 25 B2 43 31 25 3A 52 33 |...2..C3%.C1%:R3|
00002AF0: 25 B2 52 31 25 3A 00 FF 32 95 07 8D 38 33 35 00 |%.R1%:..2...835.|
00002B00: 05 33 96 07 8E 00 2E 33 9E 07 55 47 24 B2 22 4D |.3.....3..UG$."M|
00002B10: 55 4C 54 49 50 4C 49 43 41 54 49 4F 4E 22 3A 55 |ULTIPLICATION":U|
00002B20: 50 B2 30 3A 55 48 B2 31 3A 8D 38 35 30 3A 00 59 |P.0:UH.1:.850:.Y|
00002B30: 33 9F 07 99 22 11 1D 54 48 45 20 43 4F 4D 50 55 |3..."..THE COMPU|
00002B40: 54 45 52 20 57 49 4C 4C 20 43 41 4C 43 55 4C 41 |TER WILL CALCULA|
00002B50: 54 45 20 41 20 58 20 42 22 00 89 33 A0 07 99 22 |TE A X B"..3..."|
00002B60: 11 1D 52 45 4D 45 4D 42 45 52 20 54 48 41 54 20 |..REMEMBER THAT |
00002B70: 4D 41 54 52 49 58 20 4D 55 4C 54 49 50 4C 49 43 |MATRIX MULTIPLIC|
00002B80: 41 54 49 4F 4E 20 49 53 22 00 B9 33 A1 07 99 22 |ATION IS"..3..."|
00002B90: 11 1D 4E 4F 54 20 41 20 43 4F 4D 4D 55 54 41 54 |..NOT A COMMUTAT|
00002BA0: 49 56 45 20 4F 50 45 52 41 54 49 4F 4E 2E 20 4D |IVE OPERATION. M|
00002BB0: 41 4B 45 20 53 55 52 45 22 00 E9 33 A2 07 99 22 |AKE SURE"..3..."|
00002BC0: 11 1D 54 48 41 54 20 54 48 45 20 46 49 52 53 54 |..THAT THE FIRST|
00002BD0: 20 4D 41 54 52 49 58 20 48 41 53 20 42 45 45 4E | MATRIX HAS BEEN|
00002BE0: 20 45 4E 54 45 52 45 44 22 00 17 34 A3 07 99 22 | ENTERED"..4..."|
00002BF0: 11 1D 41 53 20 27 41 27 20 41 4E 44 20 54 48 45 |..AS 'A' AND THE|
00002C00: 20 53 45 43 4F 4E 44 20 41 53 20 27 42 27 2E 22 | SECOND AS 'B'."|
00002C10: 3A 8D 35 30 30 30 30 00 58 34 A4 07 99 22 11 1D |:.50000.X4..."..|
00002C20: 52 45 4E 41 4D 45 20 4D 41 54 52 49 43 45 53 3F |RENAME MATRICES?|
00002C30: 28 59 2F 4E 29 20 22 3B 3A 55 4C B2 31 3A 55 53 |(Y/N) ";:UL.1:US|
00002C40: 24 B2 22 59 4E 22 3A 8D 33 35 3A 8B 55 52 24 B2 |$."YN":.35:.UR$.|
00002C50: 22 59 22 A7 32 30 30 39 00 8E 34 A8 07 8B 43 31 |"Y".2009..4...C1|
00002C60: 25 B3 B1 52 32 25 A7 99 22 11 1D 43 41 4E 4E 4F |%..R2%.."..CANNO|
00002C70: 54 20 43 4F 4E 54 49 4E 55 45 3A 20 20 54 48 45 |T CONTINUE: THE|
00002C80: 20 46 49 52 53 54 20 52 4F 57 20 4F 46 22 00 CA | FIRST ROW OF"..|
00002C90: 34 A9 07 8B 43 31 25 B3 B1 52 32 25 A7 20 99 22 |4...C1%..R2%. ."|
00002CA0: 11 1D 4D 41 54 52 49 58 20 27 41 27 20 4D 55 53 |..MATRIX 'A' MUS|
00002CB0: 54 20 48 41 56 45 20 54 48 45 20 53 41 4D 45 20 |T HAVE THE SAME |
00002CC0: 4E 55 4D 42 45 52 20 4F 46 22 00 0A 35 AA 07 8B |NUMBER OF"..5...|
00002CD0: 43 31 25 B3 B1 52 32 25 A7 99 22 1D 45 4E 54 52 |C1%..R2%..".ENTR|
00002CE0: 49 45 53 20 41 53 20 54 48 45 20 46 49 52 53 54 |IES AS THE FIRST|
00002CF0: 20 43 4F 4C 55 4D 4E 20 4F 46 20 4D 41 54 52 49 | COLUMN OF MATRI|
00002D00: 58 20 42 22 3A 89 32 30 30 38 00 44 35 B2 07 54 |X B":.2008.D5..T|
00002D10: B2 30 3A 4E B2 30 3A 4D B2 30 3A 81 20 4B B2 30 |.0:N.0:M.0:. K.0|
00002D20: A4 52 31 25 3A 81 49 B2 30 A4 43 3A 81 4A B2 30 |.R1%:.I.0.C:.J.0|
00002D30: A4 43 31 25 3A 42 B2 41 28 4B 2C 4A 29 AC 53 28 |.C1%:B.A(K,J).S(|
00002D40: 4A 2C 49 29 00 5B 35 BC 07 4D 28 4E 2C 4D 29 B2 |J,I).[5..M(N,M).|
00002D50: 54 AA 42 3A 54 B2 54 AA 42 3A 82 00 77 35 C6 07 |T.B:T.T.B:..w5..|
00002D60: 54 B2 30 3A 4D B2 4D AA 31 3A 82 3A 4D B2 30 3A |T.0:M.M.1:.:M.0:|
00002D70: 4E B2 4E AA 31 3A 82 00 8C 35 D0 07 43 33 25 B2 |N.N.1:...5..C3%.|
00002D80: 43 32 25 3A 52 33 25 B2 52 31 25 3A 00 95 35 D8 |C2%:R3%.R1%:..5.|
00002D90: 07 8D 38 33 35 00 9B 35 D9 07 8E 00 B8 35 DA 07 |..835..5.....5..|
00002DA0: 8B 4D 24 B2 22 42 22 A7 53 28 49 2C 4A 29 B2 43 |.M$."B".S(I,J).C|
00002DB0: 43 AC 53 28 49 2C 4A 29 00 E7 35 DF 07 99 22 11 |C.S(I,J)..5...".|
00002DC0: 1D 48 41 56 45 20 59 4F 55 20 45 4E 54 45 52 45 |.HAVE YOU ENTERE|
00002DD0: 44 20 54 48 45 20 4D 41 54 52 49 58 20 59 4F 55 |D THE MATRIX YOU|
00002DE0: 20 57 4F 55 4C 44 22 00 14 36 E0 07 99 22 11 1D | WOULD"..6..."..|
00002DF0: 4C 49 4B 45 20 54 4F 20 46 49 4E 44 20 54 48 45 |LIKE TO FIND THE|
00002E00: 20 44 45 54 45 52 4D 49 4E 41 4E 54 20 4F 46 20 | DETERMINANT OF |
00002E10: 41 53 20 22 00 50 36 E1 07 99 22 11 1D 4D 41 54 |AS ".P6..."..MAT|
00002E20: 52 49 58 20 27 41 27 3F 28 59 2F 4E 29 20 22 3B |RIX 'A'?(Y/N) ";|
00002E30: 55 4C B2 31 3A 55 53 24 B2 22 59 4E 22 3A 8D 33 |UL.1:US$."YN":.3|
00002E40: 35 3A 8B 55 52 24 B2 22 4E 22 A7 89 31 32 36 30 |5:.UR$."N"..1260|
00002E50: 00 75 36 E4 07 55 47 24 B2 22 44 45 54 45 52 4D |.u6..UG$."DETERM|
00002E60: 49 4E 41 4E 54 22 3A 55 50 B2 30 3A 55 48 B2 31 |INANT":UP.0:UH.1|
00002E70: 3A 8D 38 35 30 00 A4 36 E9 07 99 22 11 1D 48 41 |:.850..6..."..HA|
00002E80: 56 45 20 59 4F 55 20 45 4E 54 45 52 45 44 20 54 |VE YOU ENTERED T|
00002E90: 48 45 20 4D 41 54 52 49 58 20 59 4F 55 20 57 4F |HE MATRIX YOU WO|
00002EA0: 55 4C 44 22 00 D1 36 EA 07 99 22 11 1D 4C 49 4B |ULD"..6..."..LIK|
00002EB0: 45 20 54 4F 20 46 49 4E 44 20 54 48 45 20 44 45 |E TO FIND THE DE|
00002EC0: 54 45 52 4D 49 4E 41 4E 54 20 4F 46 20 41 53 20 |TERMINANT OF AS |
00002ED0: 22 00 0A 37 EB 07 99 22 11 1D 4D 41 54 52 49 58 |"..7..."..MATRIX|
00002EE0: 20 27 41 27 3F 28 59 2F 4E 29 20 22 3B 3A 55 4C | 'A'?(Y/N) ";:UL|
00002EF0: B2 31 3A 55 53 24 B2 22 59 4E 22 3A 8D 33 35 3A |.1:US$."YN":.35:|
00002F00: 8B 55 52 24 B2 22 4E 22 A7 8E 00 3B 37 16 08 8B |.UR$."N"...;7...|
00002F10: 52 B3 B1 43 A7 99 22 11 1D 54 48 45 20 43 4F 4D |R..C.."..THE COM|
00002F20: 50 55 54 45 52 20 43 41 4E 4E 4F 54 20 43 41 4C |PUTER CANNOT CAL|
00002F30: 43 55 4C 41 54 45 20 54 48 45 22 00 6C 37 17 08 |CULATE THE".l7..|
00002F40: 8B 52 B3 B1 43 A7 99 22 11 1D 44 45 54 45 52 4D |.R..C.."..DETERM|
00002F50: 49 4E 41 4E 54 20 4F 46 20 41 20 4D 41 54 52 49 |INANT OF A MATRI|
00002F60: 58 20 54 48 41 54 20 44 4F 45 53 22 00 9C 37 18 |X THAT DOES"..7.|
00002F70: 08 8B 52 B3 B1 43 A7 99 22 11 1D 4E 4F 54 20 48 |..R..C.."..NOT H|
00002F80: 41 56 45 20 54 48 45 20 53 41 4D 45 20 4E 55 4D |AVE THE SAME NUM|
00002F90: 42 45 52 20 4F 46 20 52 4F 57 53 22 00 CC 37 19 |BER OF ROWS"..7.|
00002FA0: 08 8B 52 B3 B1 43 A7 99 22 11 1D 41 53 20 20 43 |..R..C.."..AS C|
00002FB0: 4F 4C 55 4D 4E 53 2E 20 20 45 4E 54 45 52 20 41 |OLUMNS. ENTER A|
00002FC0: 47 41 49 4E 2E 22 3A 89 32 31 39 35 00 F9 37 20 |GAIN.":.2195..7 |
00002FD0: 08 8B 52 B2 31 A7 4B B2 41 28 30 2C 30 29 AC 41 |..R.1.K.A(0,0).A|
00002FE0: 28 31 2C 31 29 AB 41 28 30 2C 31 29 AC 41 28 31 |(1,1).A(0,1).A(1|
00002FF0: 2C 30 29 3A 89 32 31 39 30 00 15 38 2A 08 8B 52 |,0):.2190..8*..R|
00003000: B2 30 AF 43 B2 30 A7 4B B2 41 28 30 2C 30 29 3A |.0.C.0.K.A(0,0):|
00003010: 89 32 31 39 30 00 3D 38 34 08 8B 52 31 25 B1 B2 |.2190.=84..R1%..|
00003020: 34 A7 99 22 11 1D 12 42 45 20 49 4E 20 46 4F 52 |4.."...BE IN FOR|
00003030: 20 41 20 4C 4F 4E 47 20 57 41 49 54 22 00 61 38 | A LONG WAIT".a8|
00003040: 3E 08 81 49 B2 30 A4 52 3A 81 4A B2 30 A4 43 3A |>..I.0.R:.J.0.C:|
00003050: 53 28 49 2C 4A 29 B2 41 28 49 2C 4A 29 3A 82 3A |S(I,J).A(I,J):.:|
00003060: 82 00 93 38 48 08 4D 4D B2 30 3A 43 31 B2 30 3A |...8H.MM.0:C1.0:|
00003070: 52 31 B2 30 3A 46 43 B2 52 3A 46 B2 31 3A 81 49 |R1.0:FC.R:F.1:.I|
00003080: B2 30 A4 52 3A 46 B2 46 AC 28 46 43 AB 49 AA 31 |.0.R:F.F.(FC.I.1|
00003090: 29 3A 82 00 B1 38 52 08 8B 52 B3 B1 43 A7 99 22 |):...8R..R..C.."|
000030A0: 1D 44 49 4D 20 45 52 52 4F 52 22 3A 89 32 32 30 |.DIM ERROR":.220|
000030B0: 30 00 D2 38 5C 08 8D 32 32 35 30 3A 42 42 25 B2 |0..8\..2250:BB%.|
000030C0: 52 3A 8D 32 32 32 30 3A 8B 4B B3 B1 30 A7 32 31 |R:.2220:.K..0.21|
000030D0: 39 30 00 F6 38 66 08 81 49 B2 30 A4 52 3A 81 4A |90..8f..I.0.R:.J|
000030E0: B2 30 A4 43 3A 41 28 49 2C 4A 29 B2 53 28 49 2C |.0.C:A(I,J).S(I,|
000030F0: 4A 29 3A 82 3A 82 00 08 39 70 08 8D 32 36 36 30 |J):.:...9p..2660|
00003100: 3A 8B 45 52 B2 31 A7 8E 00 12 39 7A 08 89 32 31 |:.ER.1....9z..21|
00003110: 34 30 00 34 39 84 08 99 22 11 1D 44 45 54 3D 30 |40.49..."..DET=0|
00003120: 2E 53 49 4E 47 55 4C 41 52 20 4D 41 54 52 49 58 |.SINGULAR MATRIX|
00003130: 2E 22 3A 8E 00 4F 39 8E 08 99 A6 34 29 22 11 11 |.":..O9....4)"..|
00003140: 12 44 45 54 45 52 4D 49 4E 41 4E 54 3D 22 4B 00 |.DETERMINANT="K.|
00003150: 58 39 93 08 8D 38 33 35 00 5E 39 98 08 8E 00 85 |X9...835.^9.....|
00003160: 39 A2 08 99 22 1D 52 45 41 52 52 41 4E 47 49 4E |9...".REARRANGIN|
00003170: 47 2E 20 46 41 54 41 4C 20 45 52 52 4F 52 2E 22 |G. FATAL ERROR."|
00003180: 3A 4B 52 B2 31 00 96 39 AC 08 4B B2 31 3A 81 49 |:KR.1..9..K.1:.I|
00003190: B2 30 A4 42 42 25 00 A0 39 B6 08 45 58 B2 43 43 |.0.BB%..9..EX.CC|
000031A0: 00 BD 39 C0 08 4B B2 28 28 AB 31 29 AE 43 43 29 |..9..K.((.1).CC)|
000031B0: AC 4B AC 41 28 49 2C 49 29 3A 82 3A 8E 00 CA 39 |.K.A(I,I):.:...9|
000031C0: CA 08 4B B2 30 3A 5A 46 B2 30 00 E0 39 D4 08 49 |..K.0:ZF.0..9..I|
000031D0: B2 4B AA 31 3A 8B 41 28 4B 2C 4B 29 B2 30 A7 8E |.K.1:.A(K,K).0..|
000031E0: 00 FD 39 DE 08 4D B2 41 28 49 2C 4B 29 AD 41 28 |..9..M.A(I,K).A(|
000031F0: 4B 2C 4B 29 3A 41 28 49 2C 4B 29 B2 30 00 07 3A |K,K):A(I,K).0..:|
00003200: E8 08 4A B2 4B AA 31 00 22 3A F2 08 41 28 49 2C |..J.K.1.":..A(I,|
00003210: 4A 29 B2 41 28 49 2C 4A 29 AB 4D AC 41 28 4B 2C |J).A(I,J).M.A(K,|
00003220: 4A 29 00 37 3A FC 08 56 B2 31 3A 8B 41 4E 24 B2 |J).7:..V.1:.AN$.|
00003230: 22 44 22 A7 56 B2 30 00 51 3A 06 09 8B 4A B3 B1 |"D".V.0.Q:...J..|
00003240: 52 31 25 AA 56 A7 4A B2 4A AA 31 3A 89 32 32 39 |R1%.V.J.J.1:.229|
00003250: 30 00 69 3A 10 09 8B 49 B3 B1 52 31 25 A7 49 B2 |0.i:...I..R1%.I.|
00003260: 49 AA 31 3A 89 32 32 37 30 00 83 3A 1A 09 8B 4B |I.1:.2270..:...K|
00003270: B3 B1 52 31 25 AB 31 A7 4B B2 4B AA 31 3A 89 32 |..R1%.1.K.K.1:.2|
00003280: 32 36 30 00 89 3A 24 09 8E 00 B4 3A 2E 09 45 B2 |260..:$....:..E.|
00003290: 47 3A 4E B2 52 31 25 3A 4D 28 4E 2C 45 29 B2 41 |G:N.R1%:M(N,E).A|
000032A0: 28 4E 2C 4E AA 31 29 AD 41 28 4E 2C 4E 29 3A 49 |(N,N.1).A(N,N):I|
000032B0: B2 4E AB 31 00 C2 3A 38 09 4A B2 49 AA 31 3A 53 |.N.1..:8.J.I.1:S|
000032C0: B2 30 00 DC 3A 42 09 45 B2 47 3A 53 B2 53 AA 41 |.0..:B.E.G:S.S.A|
000032D0: 28 49 2C 4A 29 AC 4D 28 4A 2C 45 29 00 F3 3A 4C |(I,J).M(J,E)..:L|
000032E0: 09 8B 20 4A B3 B1 4E A7 4A B2 4A AA 31 3A 89 32 |.. J..N.J.J.1:.2|
000032F0: 33 37 30 00 12 3B 56 09 4D 28 49 2C 45 29 B2 28 |370..;V.M(I,E).(|
00003300: 41 28 49 2C 4E AA 31 29 AB 53 29 AD 41 28 49 2C |A(I,N.1).S).A(I,|
00003310: 49 29 00 28 3B 60 09 8B 49 B3 B1 30 A7 49 B2 49 |I).(;`..I..0.I.I|
00003320: AB 31 3A 89 32 33 36 30 00 33 3B 6A 09 8D 38 33 |.1:.2360.3;j..83|
00003330: 35 3A 8E 00 58 3B 74 09 45 46 B2 30 3A 58 5A B2 |5:..X;t.EF.0:XZ.|
00003340: C6 28 4D 24 29 AB 36 34 3A 8B 58 5A B3 34 AF 58 |.(M$).64:.XZ.4.X|
00003350: 5A B1 30 A7 32 34 34 30 00 73 3B 7E 09 99 22 1D |Z.0.2440.s;~..".|
00003360: 57 52 4F 4E 47 20 45 4E 54 52 59 22 3A 45 46 B2 |WRONG ENTRY":EF.|
00003370: 31 3A 8E 00 8B 3B 88 09 99 22 1D 4D 41 54 52 49 |1:...;...".MATRI|
00003380: 58 20 22 4D 24 3B 22 3A 22 3A 8E 00 AD 3B 92 09 |X "M$;":":...;..|
00003390: 55 47 24 B2 22 52 45 4E 41 4D 49 4E 47 22 3A 55 |UG$."RENAMING":U|
000033A0: 50 B2 30 3A 55 48 B2 31 3A 8D 38 35 30 00 CB 3B |P.0:UH.1:.850..;|
000033B0: 93 09 99 22 11 1D 43 48 4F 4F 53 45 20 46 52 4F |..."..CHOOSE FRO|
000033C0: 4D 20 28 41 2C 42 2C 43 29 2D 22 00 06 3C 94 09 |M (A,B,C)-"..<..|
000033D0: 99 22 11 1D 4D 41 54 52 49 58 20 54 4F 20 42 45 |."..MATRIX TO BE|
000033E0: 20 52 45 4E 41 4D 45 44 3F 20 22 3B 3A 55 4C B2 | RENAMED? ";:UL.|
000033F0: 31 3A 55 53 24 B2 22 41 42 43 22 3A 8D 33 35 3A |1:US$."ABC":.35:|
00003400: 4D 24 B2 55 52 24 00 38 3C 95 09 99 22 11 1D 4E |M$.UR$.8<..."..N|
00003410: 45 57 20 4E 41 4D 45 20 46 4F 52 20 4D 41 54 52 |EW NAME FOR MATR|
00003420: 49 58 20 22 3B 4D 24 3B 22 3F 20 22 3B 3A 8D 33 |IX ";M$;"? ";:.3|
00003430: 35 3A 57 24 B2 55 52 24 00 42 3C A6 09 8D 31 36 |5:W$.UR$.B<...16|
00003440: 33 30 00 5F 3C B0 09 91 C6 28 4D 24 29 AB 36 34 |30._<....(M$).64|
00003450: 89 32 35 30 30 2C 32 35 34 30 2C 32 35 38 30 00 |.2500,2540,2580.|
00003460: 84 3C BA 09 99 22 1D 49 4E 43 4F 52 52 45 43 54 |.<...".INCORRECT|
00003470: 20 46 49 52 53 54 20 4D 41 54 52 49 58 22 3A 89 | FIRST MATRIX":.|
00003480: 32 34 35 30 00 98 3C C4 09 81 49 B2 30 A4 52 25 |2450..<...I.0.R%|
00003490: 3A 81 4A B2 30 A4 43 25 00 B2 3C CE 09 8B 57 24 |:.J.0.C%..<...W$|
000034A0: B2 22 42 22 A7 53 28 49 2C 4A 29 B2 41 28 49 2C |."B".S(I,J).A(I,|
000034B0: 4A 29 00 CC 3C D8 09 8B 57 24 B2 22 43 22 A7 4D |J)..<...W$."C".M|
000034C0: 28 49 2C 4A 29 B2 41 28 49 2C 4A 29 00 DA 3C E2 |(I,J).A(I,J)..<.|
000034D0: 09 82 3A 82 3A 89 32 36 32 30 00 EE 3C EC 09 81 |..:.:.2620..<...|
000034E0: 49 B2 30 A4 52 25 3A 81 4A B2 30 A4 43 25 00 08 |I.0.R%:.J.0.C%..|
000034F0: 3D F6 09 8B 57 24 B2 22 41 22 A7 41 28 49 2C 4A |=...W$."A".A(I,J|
00003500: 29 B2 53 28 49 2C 4A 29 00 22 3D 00 0A 8B 57 24 |).S(I,J)."=...W$|
00003510: B2 22 43 22 A7 4D 28 49 2C 4A 29 B2 53 28 49 2C |."C".M(I,J).S(I,|
00003520: 4A 29 00 30 3D 0A 0A 82 3A 82 3A 89 32 36 32 30 |J).0=...:.:.2620|
00003530: 00 44 3D 14 0A 81 49 B2 30 A4 52 25 3A 81 4A B2 |.D=...I.0.R%:.J.|
00003540: 30 A4 43 25 00 5E 3D 1E 0A 8B 57 24 B2 22 41 22 |0.C%.^=...W$."A"|
00003550: A7 41 28 49 2C 4A 29 B2 4D 28 49 2C 4A 29 00 78 |.A(I,J).M(I,J).x|
00003560: 3D 28 0A 8B 57 24 B2 22 42 22 A7 53 28 49 2C 4A |=(..W$."B".S(I,J|
00003570: 29 B2 4D 28 49 2C 4A 29 00 80 3D 32 0A 82 3A 82 |).M(I,J)..=2..:.|
00003580: 00 9A 3D 3C 0A 8B 57 24 B2 22 41 22 A7 52 31 25 |..=<..W$."A".R1%|
00003590: B2 52 25 3A 43 31 25 B2 43 25 00 B4 3D 46 0A 8B |.R%:C1%.C%..=F..|
000035A0: 57 24 B2 22 42 22 A7 52 32 25 B2 52 25 3A 43 32 |W$."B".R2%.R%:C2|
000035B0: 25 B2 43 25 00 CE 3D 50 0A 8B 57 24 B2 22 43 22 |%.C%..=P..W$."C"|
000035C0: A7 52 33 25 B2 52 25 3A 43 33 25 B2 43 25 00 D4 |.R3%.R%:C3%.C%..|
000035D0: 3D 5A 0A 8E 00 0F 3E 64 0A 45 52 B2 30 3A 43 43 |=Z....>d.ER.0:CC|
000035E0: B2 43 43 AA 31 3A 8B 43 43 B1 46 A7 99 22 11 1D |.CC.1:.CC.F.."..|
000035F0: 12 53 49 4E 47 55 4C 41 52 20 4D 41 54 52 49 58 |.SINGULAR MATRIX|
00003600: 2E 20 44 45 54 3D 30 22 3A 45 52 B2 31 3A 8E 00 |. DET=0":ER.1:..|
00003610: 29 3E 6E 0A 8B 52 B2 31 A7 99 22 1D 44 45 54 3D |)>n..R.1..".DET=|
00003620: 30 22 3A 45 52 B2 31 3A 8E 00 5E 3E 78 0A 81 49 |0":ER.1:..^>x..I|
00003630: B2 30 A4 43 3A 5A B2 41 28 52 31 2C 49 29 3A 41 |.0.C:Z.A(R1,I):A|
00003640: 28 52 31 2C 49 29 B2 41 28 52 31 AA 32 2C 49 29 |(R1,I).A(R1.2,I)|
00003650: 3A 41 28 52 31 AA 32 2C 49 29 B2 5A 3A 82 00 77 |:A(R1.2,I).Z:..w|
00003660: 3E 82 0A 52 31 B2 52 31 AA 31 3A 8B 52 31 B1 52 |>..R1.R1.1:.R1.R|
00003670: AB 32 A7 52 31 B2 30 00 A2 3E 8C 0A 81 49 B2 30 |.2.R1.0..>...I.0|
00003680: A4 52 3A 81 4A B2 30 A4 43 3A 53 28 49 2C 4A 29 |.R:.J.0.C:S(I,J)|
00003690: B2 41 28 49 2C 4A 29 3A 82 3A 82 3A 8D 38 33 35 |.A(I,J):.:.:.835|
000036A0: 3A 8E 00 BD 3E 96 0A 99 22 93 22 A6 31 32 29 22 |:...>...".".12)"|
000036B0: 11 11 11 54 52 41 4E 53 50 4F 53 45 22 00 E9 3E |...TRANSPOSE"..>|
000036C0: A0 0A 99 22 11 1D 54 52 41 4E 53 50 4F 53 45 20 |..."..TRANSPOSE |
000036D0: 4F 46 20 57 48 41 54 20 4D 41 54 52 49 58 20 28 |OF WHAT MATRIX (|
000036E0: 41 2C 42 2C 43 29 3F 22 3B 00 08 3F AA 0A 55 53 |A,B,C)?";..?..US|
000036F0: 24 B2 22 41 42 43 48 22 3A 55 4C B2 31 3A 8D 33 |$."ABCH":UL.1:.3|
00003700: 35 3A 4D 24 B2 55 52 24 00 22 3F BE 0A 8D 32 34 |5:M$.UR$."?...24|
00003710: 32 30 3A 8B 45 46 B2 31 A7 99 4D 24 3A 89 32 37 |20:.EF.1..M$:.27|
00003720: 32 30 00 2C 3F C8 0A 8D 31 36 33 30 00 55 3F D2 |20.,?...1630.U?.|
00003730: 0A 99 22 11 1D 4D 41 54 52 49 58 20 22 4D 24 22 |.."..MATRIX "M$"|
00003740: 20 57 49 4C 4C 20 42 45 20 54 52 41 4E 53 50 4F | WILL BE TRANSPO|
00003750: 53 45 44 2E 22 00 7F 3F DC 0A 81 49 B2 30 A4 52 |SED."..?...I.0.R|
00003760: 25 3A 81 4A B2 30 A4 43 25 3A 8B 4D 24 B2 22 41 |%:.J.0.C%:.M$."A|
00003770: 22 A7 53 28 49 2C 4A 29 B2 41 28 49 2C 4A 29 00 |".S(I,J).A(I,J).|
00003780: 99 3F E6 0A 8B 4D 24 B2 22 42 22 A7 4D 28 49 2C |.?...M$."B".M(I,|
00003790: 4A 29 B2 53 28 49 2C 4A 29 00 B3 3F F0 0A 8B 4D |J).S(I,J)..?...M|
000037A0: 24 B2 22 43 22 A7 53 28 49 2C 4A 29 B2 4D 28 49 |$."C".S(I,J).M(I|
000037B0: 2C 4A 29 00 BB 3F FA 0A 82 3A 82 00 CF 3F 04 0B |,J)..?...:...?..|
000037C0: 81 49 B2 30 A4 52 25 3A 81 4A B2 30 A4 43 25 00 |.I.0.R%:.J.0.C%.|
000037D0: E9 3F 0E 0B 8B 4D 24 B2 22 41 22 A7 41 28 49 2C |.?...M$."A".A(I,|
000037E0: 4A 29 B2 53 28 4A 2C 49 29 00 03 40 18 0B 8B 4D |J).S(J,I)..@...M|
000037F0: 24 B2 22 42 22 A7 53 28 49 2C 4A 29 B2 4D 28 4A |$."B".S(I,J).M(J|
00003800: 2C 49 29 00 1D 40 22 0B 8B 4D 24 B2 22 43 22 A7 |,I)..@"..M$."C".|
00003810: 4D 28 49 2C 4A 29 B2 53 28 4A 2C 49 29 00 27 40 |M(I,J).S(J,I).'@|
00003820: 2C 0B 82 3A 82 3A 8E 00 42 40 36 0B 8B 4D 24 B2 |,..:.:..B@6..M$.|
00003830: 22 41 22 A7 99 A3 49 AC 32 29 3B 20 41 28 49 2C |"A"...I.2); A(I,|
00003840: 4A 29 00 64 40 40 0B 8B 4D 24 B2 22 42 22 A7 99 |J).d@@..M$."B"..|
00003850: A3 49 AC 32 29 3B 20 20 20 20 20 20 20 20 53 28 |.I.2); S(|
00003860: 49 2C 4A 29 00 87 40 4A 0B 8B 4D 24 B2 22 43 22 |I,J)..@J..M$."C"|
00003870: A7 99 A3 49 AC 32 29 3B 20 20 20 20 20 20 20 20 |...I.2); |
00003880: 20 4D 28 49 2C 4A 29 00 8D 40 54 0B 8E 00 A9 40 | M(I,J)..@T....@|
00003890: AC 0D 55 47 24 B2 22 49 4E 56 45 52 53 45 22 3A |..UG$."INVERSE":|
000038A0: 55 50 B2 30 3A 8D 38 35 30 00 D0 40 B0 36 99 22 |UP.0:.850..@.6."|
000038B0: 11 1D 4D 41 59 20 4E 4F 54 20 42 45 20 47 52 45 |..MAY NOT BE GRE|
000038C0: 41 54 45 52 20 54 48 41 4E 20 22 3B B5 28 47 29 |ATER THAN ";.(G)|
000038D0: 00 DA 40 BA 36 89 31 34 32 35 00 0B 41 98 3A 42 |..@.6.1425..A.:B|
000038E0: 4C 24 B2 22 20 20 20 20 20 20 20 20 20 20 20 20 |L$." |
000038F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003900: 20 20 20 20 20 20 20 20 20 20 22 00 1E 41 A2 3A | "..A.:|
00003910: 81 49 B2 31 A4 32 31 3A 99 42 4C 24 3A 82 00 24 |.I.1.21:.BL$:..$|
00003920: 41 AC 3A 8E 00 54 41 50 C3 99 22 11 1D 54 48 45 |A.:..TAP.."..THE|
00003930: 20 52 45 53 55 4C 54 53 20 57 49 4C 4C 20 42 45 | RESULTS WILL BE|
00003940: 20 53 54 4F 52 45 44 20 41 53 20 4D 41 54 52 49 | STORED AS MATRI|
00003950: 58 20 43 22 00 5A 41 5A C3 8E 00 00 00 |X C".ZAZ..... |
.......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 +++
...(.UR$."":UI$."":.UO,0...*..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.." -
-------------------------------------".W
.;..".. 1. BEGIN MATRIX...@.."..
2. STUDENT INSTRUCTIONS".+.E.."
.. 3. TEACHER INSTRUCTIONS".G.O.
.".. 4. QUIT..".V.T.." ---------
-----------------------------"...Y.."..
PRESS A NUMBER KEY (1-4) ";.I.^.UL
.1:US$."1234":.35:. INPUT ROUTINE.T.`.US
$.""...C..E(UR$).1000,400,500,396...H..3
00.!.... ** RE-ENABLE STOP KEY AND END *
*.P....B(50003)..1.B(50003)..160.B(50003
)..0.399.Z....UU.71:.B(50003).0..53281,6
:.53280,14......"..":.......875:.......
** STUDENT INSTRUCTIONS **......".":.UT,
UL%:.B(50003).0..53281,0:.53280,0.....UP
.0:UT$." MATRIX":UG$."STUDENT INST":.850
.4...."..EXPLANATION OF OPERATIONS:".W..
.."..........................."......".E
NTER: USED FOR ENTERING THE MATRICES....
..."..THE FIRST STEP IS TO GIVE THE MATR
IX"......"..DIMENSIONS (NO. OF COLUMNS A
ND NO. OF"... .."..ROWS). NEXT YOU WILL
BE ASKED TO ENTER".:...."..THE MATRIX EL
EMENT BY ELEMENT.".H...."..ADD/SUBTRACT:
CALCULATES A+B OR A-B."......"..MATRIX
A AND MATRIX B MUST FIRST BE".C...."..EN
TERED. MATRIX A AND MATRIX B MUST".....
."..HAVE THE SAME DIMENSIONS.":.835:.850
......"..MULTIPLICATION: CALCULATES AXB.
".J...."..THE NUMBER OF COLUMNS IN MATR
IX A MUST".R...."..EQUAL THE NUMBER OF R
OWS IN B."......"..RENAME: MAKES IT POSS
IBLE TO CHANGE.D...."..THE LETTER NAME O
F A MATRIX."......"..DETERMINANT: CALCUL
ATES THE DETER-......"..MINANT OF MATRIX
A. THE MATRIX MUST.9...."..BE A SQUARE
MATRIX.".G...."..DISPLAY: DISPLAYS THE
MATRIX OF YOUR"......"..CHOICE.":.835:.8
50......".....NOTE: AFTER OPERATIONS SUC
H AS......"..ADDITION, SUBTRACTION OR MU
LTIPLICATION......".THE RESULT WILL BE S
TORED IN MATRIX C.".7...."..TO SEE THE R
ESULT, ASK TO SEE THE ".G...."..DISPLAY
WHEN YOU ARE ASKED TO ENTER AN"......"..
OPERATION CODE."......835...G..850.A.L..
"...NOTE:...TO ADVANCE FROM ONE QUESTION
"...V.."..TO THE NEXT PRESS THE <SPACE B
AR>."......".......IF AT ANY TIME YOU WI
SH TO RETURN".D...."..TO THE MENU PRESS
H <RETURN>.".[....835:UT$." MATRIX".O...
.UZ.1..UP%:.217.U.......... ** TEACHER I
NSTRUCTIONS **.F....".":.UT,UL%:.B(50003
).0..53281,2:.53280,10.....UP.0:UT$." MA
TRIX":UG$."TEACHER INST":.850.#...."..
TO THE BEST OF OUR KNOWLEDGE,.".L...
." THIS PROGRAM IS IN THE PUBLIC.".X..
.." DOMAIN. IF THIS IS NOT THE CASE."
......" PLEASE CONTACT:..."......"
COMMODORE BUSINESS MACHINES."......"
3370 PHARMACY AVE......."
AGINCOURT, ONTARIO".(...." C
ANADA M1W 2K4".H...." (416) 4
99-4292".^...UP.1:. 835:. 850:......"
..PROGRAM NAME: MATRIX......." WRI
TTEN BY : UNKNOWN......." UPGRADED
BY : ......." .THIS PROGRAM WILL RUN
ON ANY........" PET 64 COMPUTER
.-...." COMMODORE 64 COMPUTER.D.
D..835:UT$." MATRIX".X.N..UZ.1..UP%:.217
.^.W.....X.. ** PROGRAM MODIFICATION INS
T **...Y..".":.UT,UL%...].UP.0:UG$."PROG
RAM MOD":.850......835.R....UZ.1..UP%:.2
17.X.......... ** TO USE 8032 LOAD CBM40
32 **.3.F..".....BEFORE RUNNING THIS PRO
GRAM ON AN 8032 ...I.P.." LOAD THE
'CBM 4032' PROGRAM.............".T.Z..U
U.71.Z.......... ** TO USE 8032 LOAD CBM
4032 **......"....BEFORE RUNNING THIS PR
OGRAM ON AN 8032 ..LOAD CBM 4032 PROGRA
M"......1093:.... .. ** T I T L E P A
G E **.J.".."....";:.UT,UU%:.B(50003).0.
.53280,14:.53281,6.`.$..I.1.38:."...";:.
.X.&..I.1.22:.".....";:....(..I.1.37:.".
....";:....*..I.1.22:.".....";:..M.,..".
.......................... ......."....
............... . . .....0.."..........
......... . ......2..".................
... ..V.4.."..............C O M M O D O
R E...Y.6.."...............EDUCATIONAL.
....8.."................SOFTWARE...:.. *
* COMMODORE LOGO **...;..H(UD$,24);"....
......PRESS SPACE BAR OR WAIT.":I.0...<.
.A$:.A$.." ".I.I.1:.I.250.828.1.>.T1$.""
:T2$."":T3$."":T4$."":I.0.:.@..300.V.C..
** SPACE BAR PRESS **...H..H(UD$,24);".
......PRESS SPACE BAR TO CONTINUE.":.UO,
0...L..UI$:.UI$.." ".844...N...N.R.. **
PAGE DESIGN ROUTINE **.Z.T.UP.UP.1...W..
"."H(UT$.UP$,21);I(UP$.UG$.D(UP),18).3.\
.." ------------------------------------
--".E.^..FT.FT.0:.870.T.`..UH..0.870...A
..H(UD$,24);H(UP$,7);"HELP - PRESS H <
RETURN>"...F.UH.0:."..":....K.. ** PLEAS
E WAIT REMARK **...P..H(UD$,24);"
ONE MOMENT PLEASE... "...U......
.. ** SET UP VARIABLES **.\...UX$."H":.U
Q%(1000):UB.32768:U1.196:U2.197:U3.198:U
4.216:UC.167:UU.1024.....UT.59468:UU%.12
:UL%.14:UP%.1146:UM.32768:. 50003,0:UO.1
58......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$."..................
.......".R ..UP$."
".. ..UT$." MATRIX
":. PLACE PROGRAM TITLE HERE !!!!!!
!!!!!!!!!!!***.. ..G.10:.A(G,G),M(G,G),S
(G,G).. ..... ... ** SET VARIABLES **..!
...900..!..:..!..:.-!... ** CHECK FOR 80
32 **.K!...".":." ":. SHIFTED SPACE.B!..
.B(UB.40)..96..700.{!... ** MEMORY CHECK
**..!... .(0).2000.937..!..."....THIS M
ACHINE DOES NOT HAVE ENOUGH."..!..."MEMO
RY TO RUN THIS PROGRAM !"..!...UU.71..!.
...."..."..":.B(50003).0.962.;"... ** BA
SIC 2.0 OR 4.0 OR C-64 SETUP **.Y"..
.1075,133:.1076,144:.1077,234:.1079,4:.1
080,133:.1081,145.."...1091,155:.1098,13
3:.1099,144:.1100,234:.1103,133.Q"...110
4,145:.1105,234:.1082,234.."...B(50003).
.160.955..#...1093,88:.1094,228:.1097,85
:.1102,228:.965.,#...B(50003)..1.990.[#.
..1093,49:.1094,230:.1097,46:.1102,230:.
965..#B..2099,141:.2100,20:.2101,3:.2103
,8:.2104,141:.2105,21.Q#C..2106,3:.2115,
145:.2117,52:.2118,234:.2121,49:.2122,14
1..$D..2123,20:.2124,3:.2126,234:.2127,1
41:.2128,21:.2129,3.)$E..UU.48:. DISABLE
STOP KEY.:$J..800:. TITLE.J$T..300:. ME
NU.{$...".THE PGM WILL NOT WORK ON THIS
MACHINE!":...$...UZ.1..UP%:.UP%:UZ.0:. *
* PROGRAM STARTS HERE **..$..."..";:.:.B
(50003).0..53281,6:.53280,14..$..G..((.(
O).588).16):.G.8 .G.8..%..UG$."INTRODUCT
ION":UP.0.*%..FT.1: .850.I%... ".
....".13)".MATRIX MATH":."..".12)"COPYRI
GHT 1978"..%....4)".COMMODORE BUSINESS M
ACHINES,INC.":LT$."ED*YCM+-T"..%$..I.1.2
000:...%).UG$."INTRODUCTION":UP.1:.850:.
"...NOTE:"..%*.."......".(&..T$."K":. ".
..THE MAXIMUM DIMENSION OF ANY MATRICES"
.W&/.."..WHICH YOU MAY WORK WITH IS ";.(
G):.835.{&8.UG$."OPERATIONS":UH.1:UP.0:.
850..&J..".......E.: ENTER .*.: M
ULTIPLY".U&O..".......+.: ADD .
-.: SUBTRACT"..'P..".......M.: RENAME
.D.: DETERMINANT".0'Q..".......C.: C
HANGE .Y.: DISPLAY.F'R..".......Q.
: QUIT..'..."......ENTER AN OPERATION CO
DE: ";:UL.1:US$."YEM+-*TDCQ"..'...35:AN$
.UR$..'..:XZ.0:.I.1.9:.AN$.J(LT$,I,1).XZ
.I.K'...:.XZ.0.1230..(D..XZ.1260,2020,19
50,1670,1440,2450,1850,1850,3500:.1080..
(N..AN$."Q"...7(..UG$."ENTER MATRIX":UP.
0:.850:.U(..."..CHOOSE FROM (A,B,C)-"..(
..."..WHICH MATRIX WOULD YOU LIKE TO ENT
ER?";:UL.1:US$."HABC"..(...35:M$.UR$..(.
..2420:.EF.1.1260..(..."..ENTER NUMBER O
F ROWS: ";:UL.2:US$."H0123456789"..)...3
5:R.E(UR$).1.1)...R.(G.1).."..DIMENSION
TOO LARGE":.14000.U)..."..ENTER NUMBER O
F COLUMNS: ";.H)...35:C.E(UR$).1..)...C.
G.1..:.".DIMENSION TOO LARGE":.14000..)(
..R.G.."..DIM ERROR":.1290.P)2..C.G.."..
DIM ERROR":.1290..)<.. T$."K" .1350..)A.
."...."..)F.UH.1:.850.0*K..J.0.C:UL.2:."
...":.15000:."...":."..ENTER : ".^*P..I.
0.R:.:.".COL. ";J.1;",ROW ";I.1;": ";..
*Z..M$."A".UL.2:US$."-0123456789":.35:A(
I,J).E(UR$).H*D..M$."B".UL.2:US$."-01234
56789":.35:S(I,J).E(UR$)..*N..M$."C".UL.
2:US$."-0123456789":.35:M(I,J).E(UR$)..+
X..:.:.M$."A".R1%.R:C1%.C.1+...M$."B".R2
%.R:C2%.C.I+...M$."C".R3%.R:C3%.C.R+...8
35.X+....X+ .UG$."CHANGE":UP.0:UH.1:.850
..+..."..CHOOSE FROM (A,B,C)-"..+..."..M
ATRIX TO BE CHANGED? ";.N+..US$."ABC":UL
.1:.35.Y+..M$.UR$..+..UH.1:.850:.".MATRI
X ";M$;"."..,H..1630:FJ.1: .1710.R,R..".
.WOULD YOU LIKE TO MAKE A CHANGE?(Y/N)";
:UL.1:US$."YN":.35.D,S..UR$."N".1510.N,.
..1511.T,.....,..."..CHANGE IS IN COLUMN
# ";:UL.2:US$."0123456789":.35:J.E(UR$)
.1..,...J.C.."..NO SUCH COLUMN":.835:.14
70..-..:.J.C%.J..1.."...NON-EXISTENT COL
":.1500.R-..."..CHANGE IS IN ROW # ";:UL
.2:US$."0123456789":.35:D.E(UR$).1.W-...
D.C%..".NO SUCH ROW":.835:.1470..-,.."..
WHAT IS THE NEW VALUE OF THE ELEMENT"..-
-.."..IN COLUMN ";J.1;", ROW ";D.1;"? ";
:UL.2:US$."01-23456789":.35...6.X.E(UR$)
:.M$."A".A(D,J).X...@..M$."B".S(D,J).X.3
.J..M$."C".M(D,J).X.=.T..1470.W.^..M$."A
".R%.R1%:C%.C1%.Q.H..M$."B".R%.R2%:C%.C2
%...R..M$."C".R%.R3%:C%.C3%...|.......UG
$."DISPLAY":UH.1:UP.0:.850.Y...."..DISPL
AY WHAT MATRIX(A,B,C)? ";.....UL.1:US$."
ABC":.35:M$.UR$../...1630:UH.1:.850.#/..
."..MATRIX ";M$;".".//...I.0.R%.=/..: .J
.0.C%.X/...M$."A"...J.5);A(I,J);.S/...M$
."B"...J.5);S(I,J);../...M$."C"...J.5);M
(I,J);../L.: .../V.: ."."../...../...FJ.
1.FJ.0:.1780.E/...835.K/.....0...I.0.R%:
..I.2) :.2870:.:.K..C%.K.K.1:J.J.1:.1
810..0...1840.80..."..PRESS RETURN TO CO
NTINUE LISTING.".L0...B$:.B$."".1820.V0&
..1720.X00.."...END OF MATRIX":.835: .
..0:.S%.1:.AN$."-".S%..1:.1870..0D.UG$."
ADDITION":UP.0:UH.1:.850:.1910..0N.UG$."
SUBTRACTION":UP.0:UH.1:.850..1X.."..THE
COMPUTER WILL CALCULATE :".:1Y.."..MATRI
X A-MATRIX B AND STORE THE RESULT".P1Z..
"..AS MATRIX C.".}1[.."..HAVE YOU STORED
THE MATRICES IN THE"..1\.."..PROPER ORD
ER?(Y/N) ";:UL.1:US$."YN":.35:.UR$."N".1
942.E1]..1925..1V.."..THE COMPUTER WILL
CALCULATE :"..2W.."..MATRIX A+MATRIX B A
ND STORE THE RESULT".22X.."..AS MATRIX C
.".<2Y..1883.|2...C1%..C2%.R1%..R2%.."..
CANNOT CONTINUE: MATRICES MUST HAVE"..2.
..C1%..C2%.R1%..R2%.."..SAME DIMENSIONS.
":.1941..2...I.0.R1%:.J.0.C1%:M(I,J).A(I
,J).S%.S(I,J):.:...2..C3%.C1%:R3%.R1%:..
2...835..3.....3..UG$."MULTIPLICATION":U
P.0:UH.1:.850:.Y3..."..THE COMPUTER WILL
CALCULATE A X B"..3 .."..REMEMBER THAT
MATRIX MULTIPLICATION IS"..3..."..NOT A
COMMUTATIVE OPERATION. MAKE SURE"..3..."
..THAT THE FIRST MATRIX HAS BEEN ENTERED
"..4..."..AS 'A' AND THE SECOND AS 'B'."
:.50000.X4..."..RENAME MATRICES?(Y/N) ";
:UL.1:US$."YN":.35:.UR$."Y".2009..4...C1
%..R2%.."..CANNOT CONTINUE: THE FIRST R
OW OF".J4...C1%..R2%. ."..MATRIX 'A' MUS
T HAVE THE SAME NUMBER OF"..5...C1%..R2%
..".ENTRIES AS THE FIRST COLUMN OF MATRI
X B":.2008.D5..T.0:N.0:M.0:. K.0.R1%:.I.
0.C:.J.0.C1%:B.A(K,J).S(J,I).[5..M(N,M).
T.B:T.T.B:..W5F.T.0:M.M.1:.:M.0:N.N.1:..
.5P.C3%.C2%:R3%.R1%:..5X..835..5Y....5Z.
.M$."B".S(I,J).CC.S(I,J)..5..."..HAVE YO
U ENTERED THE MATRIX YOU WOULD"..6..."..
LIKE TO FIND THE DETERMINANT OF AS ".P6.
.."..MATRIX 'A'?(Y/N) ";UL.1:US$."YN":.3
5:.UR$."N"..1260.U6..UG$."DETERMINANT":U
P.0:UH.1:.850..6..."..HAVE YOU ENTERED T
HE MATRIX YOU WOULD".Q6..."..LIKE TO FIN
D THE DETERMINANT OF AS "..7..."..MATRIX
'A'?(Y/N) ";:UL.1:US$."YN":.35:.UR$."N"
...;7...R..C.."..THE COMPUTER CANNOT CAL
CULATE THE".L7...R..C.."..DETERMINANT OF
A MATRIX THAT DOES"..7...R..C.."..NOT H
AVE THE SAME NUMBER OF ROWS".L7...R..C..
"..AS COLUMNS. ENTER AGAIN.":.2195..7
..R.1.K.A(0,0).A(1,1).A(0,1).A(1,0):.219
0..8*..R.0.C.0.K.A(0,0):.2190.=84..R1%..
4.."...BE IN FOR A LONG WAIT".A8>..I.0.R
:.J.0.C:S(I,J).A(I,J):.:...8H.MM.0:C1.0:
R1.0:FC.R:F.1:.I.0.R:F.F.(FC.I.1):...8R.
.R..C..".DIM ERROR":.2200.R8\..2250:BB%.
R:.2220:.K..0.2190..8F..I.0.R:.J.0.C:A(I
,J).S(I,J):.:...9P..2660:.ER.1....9Z..21
40.49..."..DET=0.SINGULAR MATRIX.":..O9.
...4)"...DETERMINANT="K.X9...835.^9.....
9...".REARRANGING. FATAL ERROR.":KR.1..9
..K.1:.I.0.BB%. 9..EX.CC..9..K.((.1).CC)
.K.A(I,I):.:..J9J.K.0:ZF.0..9T.I.K.1:.A(
K,K).0....9..M.A(I,K).A(K,K):A(I,K).0..:
..J.K.1.":..A(I,J).A(I,J).M.A(K,J).7:..V
.1:.AN$."D".V.0.Q:...J..R1%.V.J.J.1:.229
0.I:...I..R1%.I.I.1:.2270..:...K..R1%.1.
K.K.1:.2260..:$....:..E.G:N.R1%:M(N,E).A
(N,N.1).A(N,N):I.N.1.B:8.J.I.1:S.0..:B.E
.G:S.S.A(I,J).M(J,E)..:L.. J..N.J.J.1:.2
370..;V.M(I,E).(A(I,N.1).S).A(I,I).(;`..
I..0.I.I.1:.2360.3;J..835:..X;T.EF.0:XZ.
F(M$).64:.XZ.4.XZ.0.2440.S;~..".WRONG EN
TRY":EF.1:...;...".MATRIX "M$;":":...;..
UG$."RENAMING":UP.0:UH.1:.850.K;..."..CH
OOSE FROM (A,B,C)-"..<..."..MATRIX TO BE
RENAMED? ";:UL.1:US$."ABC":.35:M$.UR$.8
<..."..NEW NAME FOR MATRIX ";M$;"? ";:.3
5:W$.UR$.B<...1630._<...F(M$).64.2500,25
40,2580..<...".INCORRECT FIRST MATRIX":.
2450..<D..I.0.R%:.J.0.C%..<N..W$."B".S(I
,J).A(I,J).L<X..W$."C".M(I,J).A(I,J).Z<.
..:.:.2620..<...I.0.R%:.J.0.C%..=...W$."
A".A(I,J).S(I,J)."=...W$."C".M(I,J).S(I,
J).0=...:.:.2620.D=...I.0.R%:.J.0.C%.^=.
..W$."A".A(I,J).M(I,J).X=(..W$."B".S(I,J
).M(I,J)..=2..:...=<..W$."A".R1%.R%:C1%.
C%..=F..W$."B".R2%.R%:C2%.C%.N=P..W$."C"
.R3%.R%:C3%.C%.T=Z....>D.ER.0:CC.CC.1:.C
C.F.."...SINGULAR MATRIX. DET=0":ER.1:..
)>N..R.1..".DET=0":ER.1:..^>X..I.0.C:Z.A
(R1,I):A(R1,I).A(R1.2,I):A(R1.2,I).Z:..W
>..R1.R1.1:.R1.R.2.R1.0..>...I.0.R:.J.0.
C:S(I,J).A(I,J):.:.:.835:...>...".".12)"
...TRANSPOSE"..> .."..TRANSPOSE OF WHAT
MATRIX (A,B,C)?";..?..US$."ABCH":UL.1:.3
5:M$.UR$."?...2420:.EF.1..M$:.2720.,?H..
1630.U?R.."..MATRIX "M$" WILL BE TRANSPO
SED.".?...I.0.R%:.J.0.C%:.M$."A".S(I,J)
.A(I,J)..?...M$."B".M(I,J).S(I,J)..?...M
$."C".S(I,J).M(I,J)..?...:..O?...I.0.R%:
.J.0.C%..?...M$."A".A(I,J).S(J,I)..@...M
$."B".S(I,J).M(J,I)..@"..M$."C".M(I,J).S
(J,I).'@,..:.:..B@6..M$."A"...I.2); A(I,
J).D@@..M$."B"...I.2); S(I,J)..@J
..M$."C"...I.2); M(I,J)..@T....@
..UG$."INVERSE":UP.0:.850.P@.6."..MAY NO
T BE GREATER THAN ";.(G).Z@.6.1425..A.:B
L$."
"..A.:.I.1.21:.BL$:..$A.:..TAPC."..THE
RESULTS WILL BE STORED AS MATRIX C".ZAZ
C....
> CLICK IMAGE PREVIEW FOR FULL MODAL