00000000: 01 04 21 04 64 00 99 20 22 4D 41 54 52 49 58 20 |..!.d.. "MATRIX |
00000010: 4D 55 4C 54 49 50 4C 49 43 41 54 49 4F 4E 22 3A |MULTIPLICATION":|
00000020: 99 00 4C 04 6E 00 99 22 54 48 49 53 20 50 52 4F |..L.n.."THIS PRO|
00000030: 47 52 41 4D 20 46 49 4E 44 53 20 54 48 45 20 50 |GRAM FINDS THE P|
00000040: 52 4F 44 55 43 54 20 4F 46 20 41 22 00 74 04 78 |RODUCT OF A".t.x|
00000050: 00 99 22 53 45 54 20 4F 46 20 54 57 4F 20 4D 41 |.."SET OF TWO MA|
00000060: 54 52 49 43 45 53 20 48 41 56 49 4E 47 20 55 50 |TRICES HAVING UP|
00000070: 20 54 4F 22 00 8C 04 82 00 99 22 32 30 2A 32 30 | TO"......"20*20|
00000080: 20 44 49 4D 45 4E 53 49 4F 4E 53 22 00 9F 04 8C | DIMENSIONS"....|
00000090: 00 99 22 11 12 4D 41 54 52 49 58 20 C1 3A 22 00 |.."..MATRIX .:".|
000000A0: CB 04 96 00 99 22 48 4F 57 20 4D 41 4E 59 20 52 |....."HOW MANY R|
000000B0: 4F 57 53 20 41 4E 44 20 48 4F 57 20 4D 41 4E 59 |OWS AND HOW MANY|
000000C0: 20 43 4F 4C 55 4D 4E 53 20 3F 22 00 DB 04 A0 00 | COLUMNS ?".....|
000000D0: 85 22 20 52 4F 57 53 22 3B 52 31 00 EE 04 AA 00 |." ROWS";R1.....|
000000E0: 85 22 20 43 4F 4C 55 4D 4E 53 22 3B 43 31 00 01 |." COLUMNS";C1..|
000000F0: 05 B4 00 99 22 11 12 4D 41 54 52 49 58 20 C2 3A |...."..MATRIX .:|
00000100: 22 00 2D 05 BE 00 99 22 48 4F 57 20 4D 41 4E 59 |".-...."HOW MANY|
00000110: 20 52 4F 57 53 20 41 4E 44 20 48 4F 57 20 4D 41 | ROWS AND HOW MA|
00000120: 4E 59 20 43 4F 4C 55 4D 4E 53 20 3F 22 00 3D 05 |NY COLUMNS ?".=.|
00000130: C8 00 85 22 20 52 4F 57 53 22 3B 52 32 00 50 05 |..." ROWS";R2.P.|
00000140: D2 00 85 22 20 43 4F 4C 55 4D 4E 53 22 3B 43 32 |..." COLUMNS";C2|
00000150: 00 8F 05 DC 00 8B 20 52 31 B1 32 30 20 B0 20 43 |...... R1.20 . C|
00000160: 31 B1 32 30 20 B0 20 52 32 B1 32 30 20 B0 20 43 |1.20 . R2.20 . C|
00000170: 32 B1 32 30 20 A7 20 99 22 12 4D 41 54 52 49 43 |2.20 . .".MATRIC|
00000180: 45 53 20 54 4F 4F 20 4C 41 52 47 45 22 3A 80 00 |ES TOO LARGE":..|
00000190: D0 05 E6 00 8B 20 43 31 B3 B1 52 32 20 A7 20 99 |..... C1..R2 . .|
000001A0: 20 22 12 23 20 4F 46 20 43 4F 4C 53 20 49 4E 20 | ".# OF COLS IN |
000001B0: C1 20 4E 4F 54 20 45 51 55 41 4C 20 54 4F 20 23 |. NOT EQUAL TO #|
000001C0: 20 4F 46 20 52 4F 57 53 20 49 4E 20 C2 22 3A 80 | OF ROWS IN .":.|
000001D0: 00 D6 05 F0 00 8F 00 E5 05 FA 00 86 20 41 28 52 |............ A(R|
000001E0: 31 2C 43 31 29 00 EB 05 04 01 99 00 06 06 0E 01 |1,C1)...........|
000001F0: 81 20 52 B2 31 20 A4 20 52 31 3A 20 81 20 43 B2 |. R.1 . R1: . C.|
00000200: 31 20 A4 20 43 31 00 27 06 18 01 99 22 45 4E 54 |1 . C1.'...."ENT|
00000210: 45 52 20 4D 41 54 52 49 58 20 C1 20 56 41 4C 55 |ER MATRIX . VALU|
00000220: 45 22 3B 52 3B 43 3B 00 34 06 22 01 85 20 41 28 |E";R;C;.4.".. A(|
00000230: 52 2C 43 29 00 3E 06 2C 01 82 20 43 2C 52 00 4D |R,C).>.,.. C,R.M|
00000240: 06 36 01 86 20 42 28 52 32 2C 43 32 29 00 53 06 |.6.. B(R2,C2).S.|
00000250: 40 01 99 00 6E 06 4A 01 81 20 52 B2 31 20 A4 20 |@...n.J.. R.1 . |
00000260: 52 32 3A 20 81 20 43 B2 31 20 A4 20 43 32 00 8F |R2: . C.1 . C2..|
00000270: 06 54 01 99 22 45 4E 54 45 52 20 4D 41 54 52 49 |.T.."ENTER MATRI|
00000280: 58 20 C2 20 56 41 4C 55 45 22 3B 52 3B 43 3B 00 |X . VALUE";R;C;.|
00000290: 9C 06 5E 01 85 20 42 28 52 2C 43 29 00 A6 06 68 |..^.. B(R,C)...h|
000002A0: 01 82 20 43 2C 52 00 AC 06 72 01 99 00 D3 06 7C |.. C,R...r.....||
000002B0: 01 99 22 54 48 45 20 52 45 53 55 4C 54 49 4E 47 |.."THE RESULTING|
000002C0: 20 4D 41 54 52 49 58 20 57 49 4C 4C 20 48 41 56 | MATRIX WILL HAV|
000002D0: 45 3A 22 00 F1 06 86 01 99 20 52 31 22 52 4F 57 |E:"...... R1"ROW|
000002E0: 53 20 41 4E 44 22 43 32 22 43 4F 4C 55 4D 4E 53 |S AND"C2"COLUMNS|
000002F0: 22 00 F7 06 90 01 99 00 14 07 9A 01 99 22 4D 55 |"............"MU|
00000300: 4C 54 49 50 4C 49 43 41 54 49 4F 4E 20 42 45 47 |LTIPLICATION BEG|
00000310: 49 4E 53 22 00 23 07 A4 01 86 20 43 28 52 31 2C |INS".#.... C(R1,|
00000320: 43 32 29 00 32 07 AE 01 81 20 52 B2 31 20 A4 20 |C2).2.... R.1 . |
00000330: 52 31 00 47 07 B8 01 81 20 43 B2 31 20 A4 20 43 |R1.G.... C.1 . C|
00000340: 32 3A 20 43 53 B2 30 00 56 07 C2 01 81 20 55 B2 |2: CS.0.V.... U.|
00000350: 31 20 A4 20 43 31 00 6E 07 CC 01 43 53 B2 41 28 |1 . C1.n...CS.A(|
00000360: 52 2C 55 29 AC 42 28 55 2C 43 29 AA 43 53 00 76 |R,U).B(U,C).CS.v|
00000370: 07 D6 01 82 20 55 00 8B 07 E0 01 43 28 52 2C 43 |.... U.....C(R,C|
00000380: 29 B2 43 53 3A 20 82 20 43 2C 52 00 93 07 EA 01 |).CS: . C,R.....|
00000390: 82 20 43 00 9B 07 F4 01 82 20 52 00 AD 07 FE 01 |. C...... R.....|
000003A0: 81 20 43 B2 31 20 A4 20 43 32 3A 20 99 00 BC 07 |. C.1 . C2: ....|
000003B0: 08 02 81 20 52 B2 31 20 A4 20 52 31 00 DA 07 12 |... R.1 . R1....|
000003C0: 02 99 20 22 20 C3 20 22 3B 52 3B 22 2C 22 3B 43 |.. " . ";R;",";C|
000003D0: 3B 22 3D 22 43 28 52 2C 43 29 00 E2 07 1C 02 82 |;"="C(R,C)......|
000003E0: 20 52 00 09 08 26 02 99 3A 99 22 48 49 54 20 52 | R...&..:."HIT R|
000003F0: 45 54 55 52 4E 20 54 4F 20 53 45 45 20 4E 45 58 |ETURN TO SEE NEX|
00000400: 54 20 43 4F 4C 55 4D 4E 22 00 24 08 30 02 A1 20 |T COLUMN".$.0.. |
00000410: 41 24 3A 8B 20 41 24 B3 B1 C7 28 31 33 29 20 A7 |A$:. A$...(13) .|
00000420: 20 35 36 30 00 2C 08 3A 02 82 20 43 00 56 08 44 | 560.,.:.. C.V.D|
00000430: 02 85 20 22 52 45 51 55 49 52 45 20 43 48 45 43 |.. "REQUIRE CHEC|
00000440: 4B 20 56 49 45 57 20 28 59 2F 4E 29 20 20 4E 9D |K VIEW (Y/N) N.|
00000450: 9D 9D 22 3B 41 24 00 67 08 4E 02 8B 20 41 24 B2 |..";A$.g.N.. A$.|
00000460: 22 4E 22 20 A7 20 80 00 71 08 58 02 89 20 35 31 |"N" . ..q.X.. 51|
00000470: 30 00 00 00 |0... |
..!.D.. "MATRIX MULTIPLICATION":..L.N.."
THIS PROGRAM FINDS THE PRODUCT OF A".T.X
.."SET OF TWO MATRICES HAVING UP TO"....
.."20*20 DIMENSIONS"......"..MATRIX A:".
K...."HOW MANY ROWS AND HOW MANY COLUMNS
?"... .." ROWS";R1......" COLUMNS";C1..
...."..MATRIX B:".-...."HOW MANY ROWS AN
D HOW MANY COLUMNS ?".=.H.." ROWS";R2.P.
R.." COLUMNS";C2...... R1.20 . C1.20 . R
2.20 . C2.20 . .".MATRICES TOO LARGE":..
P.... C1..R2 . . ".# OF COLS IN A NOT EQ
UAL TO # OF ROWS IN B":..V.......... A(R
1,C1)............ R.1 . R1: . C.1 . C1.'
...."ENTER MATRIX A VALUE";R;C;.4.".. A(
R,C).>.,.. C,R.M.6.. B(R2,C2).S.@...N.J.
. R.1 . R2: . C.1 . C2...T.."ENTER MATRI
X B VALUE";R;C;...^.. B(R,C)...H.. C,R..
.R...S.|.."THE RESULTING MATRIX WILL HAV
E:"...... R1"ROWS AND"C2"COLUMNS".......
....."MULTIPLICATION BEGINS".#.... C(R1,
C2).2.... R.1 . R1.G.... C.1 . C2: CS.0.
V.B.. U.1 . C1.N.L.CS.A(R,U).B(U,C).CS.V
.V.. U.....C(R,C).CS: . C,R...... C.....
. R...... C.1 . C2: ....... R.1 . R1.Z..
.. " C ";R;",";C;"="C(R,C)...... R...&..
:."HIT RETURN TO SEE NEXT COLUMN".$.0..
A$:. A$..G(13) . 560.,.:.. C.V.D.. "REQU
IRE CHECK VIEW (Y/N) N...";A$.G.N.. A$.
"N" . ..Q.X.. 510...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL