> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 2A 08 0A 00 8F 20 2A 2A 2A 2A 2A 20 4D 41 |..*.... ***** MA|
00000010: 54 52 49 5A 45 4E 4D 55 4C 54 49 50 4C 49 4B 41 |TRIZENMULTIPLIKA|
00000020: 54 49 4F 4E 20 2A 2A 2A 2A 2A 00 42 08 14 00 97 |TION *****.B....|
00000030: 20 35 33 32 38 30 2C 30 3A 97 20 35 33 32 38 31 | 53280,0:. 53281|
00000040: 2C 30 00 6A 08 1E 00 8F 20 2D 2D 2D 2D 2D 20 45 |,0.j.... ----- E|
00000050: 49 4E 47 41 42 45 20 44 45 52 20 50 41 52 41 4D |INGABE DER PARAM|
00000060: 45 54 45 52 20 2D 2D 2D 2D 2D 00 9E 08 28 00 99 |ETER -----...(..|
00000070: C7 28 31 34 37 29 C7 28 31 37 29 C7 28 31 37 29 |.(147).(17).(17)|
00000080: C7 28 31 38 29 22 50 41 52 41 4D 45 54 45 52 20 |.(18)"PARAMETER |
00000090: 44 45 52 20 4D 41 54 52 49 5A 45 4E 3A 22 00 CA |DER MATRIZEN:"..|
000000A0: 08 32 00 99 C7 28 31 37 29 C7 28 31 37 29 22 4E |.2...(17).(17)"N|
000000B0: 41 4D 45 20 44 45 52 20 31 2E 4D 41 54 52 49 58 |AME DER 1.MATRIX|
000000C0: 22 A3 33 32 29 3B 3A 85 41 24 00 FE 08 3C 00 99 |".32);:.A$...<..|
000000D0: 22 41 4E 5A 41 48 4C 20 53 50 41 4C 54 45 4E 28 |"ANZAHL SPALTEN(|
000000E0: 53 31 29 20 55 2E 20 5A 45 49 4C 45 4E 28 5A 31 |S1) U. ZEILEN(Z1|
000000F0: 29 22 A3 33 31 29 3B 3A 85 53 31 2C 5A 31 00 25 |)".31);:.S1,Z1.%|
00000100: 09 46 00 99 C7 28 31 37 29 22 4E 41 4D 45 20 44 |.F...(17)"NAME D|
00000110: 45 52 20 32 2E 4D 41 54 52 49 58 22 A3 33 32 29 |ER 2.MATRIX".32)|
00000120: 3B 3A 85 42 24 00 59 09 50 00 99 22 41 4E 5A 41 |;:.B$.Y.P.."ANZA|
00000130: 48 4C 20 53 50 41 4C 54 45 4E 28 53 32 29 20 55 |HL SPALTEN(S2) U|
00000140: 2E 20 5A 45 49 4C 45 4E 28 5A 32 29 22 A3 33 31 |. ZEILEN(Z2)".31|
00000150: 29 3B 3A 85 53 32 2C 5A 32 00 9A 09 5A 00 99 C7 |);:.S2,Z2...Z...|
00000160: 28 31 37 29 C7 28 31 37 29 22 46 55 45 52 20 44 |(17).(17)"FUER D|
00000170: 49 45 20 41 55 53 47 41 42 45 20 44 45 52 20 4D |IE AUSGABE DER M|
00000180: 41 54 52 49 58 20 47 45 42 45 4E 20 53 49 45 20 |ATRIX GEBEN SIE |
00000190: 42 49 54 54 45 20 41 4E 3A 22 00 D1 09 64 00 99 |BITTE AN:"...d..|
000001A0: 22 56 45 52 57 45 4E 44 45 4E 20 53 49 45 20 45 |"VERWENDEN SIE E|
000001B0: 49 4E 45 4E 20 38 30 2D 5A 45 49 43 48 45 4E 2D |INEN 80-ZEICHEN-|
000001C0: 42 49 4C 44 53 43 48 49 52 4D 20 28 4A 2F 4E 29 |BILDSCHIRM (J/N)|
000001D0: 22 00 F3 09 6E 00 A1 44 24 3A 8B 20 44 24 B3 B1 |"...n..D$:. D$..|
000001E0: 22 4A 22 20 AF 20 44 24 B3 B1 22 4E 22 20 A7 20 |"J" . D$.."N" . |
000001F0: 31 31 30 00 06 0A 78 00 8B 20 44 24 B2 22 4A 22 |110...x.. D$."J"|
00000200: 20 A7 20 53 B2 32 00 0E 0A 82 00 53 B2 31 00 3B | . S.2.....S.1.;|
00000210: 0A 8C 00 8F 20 2D 2D 2D 2D 2D 20 50 52 55 45 46 |.... ----- PRUEF|
00000220: 55 4E 47 20 41 55 46 20 5A 55 4C 41 45 53 53 49 |UNG AUF ZULAESSI|
00000230: 47 4B 45 49 54 20 2D 2D 2D 2D 2D 00 77 0A 96 00 |GKEIT -----.w...|
00000240: 8B 53 31 B3 B1 5A 32 A7 20 99 C7 28 31 37 29 C7 |.S1..Z2. ..(17).|
00000250: 28 31 37 29 C7 28 31 38 29 22 53 31 20 4D 55 53 |(17).(18)"S1 MUS|
00000260: 53 20 47 4C 45 49 43 48 20 5A 32 20 53 45 49 4E |S GLEICH Z2 SEIN|
00000270: 20 21 22 3A 89 35 30 00 9A 0A A0 00 8F 20 2D 2D | !":.50...... --|
00000280: 2D 2D 20 41 52 52 41 59 2D 44 45 46 49 4E 49 54 |-- ARRAY-DEFINIT|
00000290: 49 4F 4E 45 4E 20 2D 2D 2D 2D 00 BA 0A AA 00 86 |IONEN ----......|
000002A0: 41 28 5A 31 2C 53 31 29 2C 42 28 5A 32 2C 53 32 |A(Z1,S1),B(Z2,S2|
000002B0: 29 2C 43 28 5A 31 2C 53 32 29 00 E9 0A B4 00 8F |),C(Z1,S2)......|
000002C0: 20 2D 2D 2D 2D 20 45 49 4E 47 41 42 45 20 44 45 | ---- EINGABE DE|
000002D0: 52 20 45 4C 45 4D 45 4E 54 45 3A 20 31 2E 4D 41 |R ELEMENTE: 1.MA|
000002E0: 54 52 49 58 20 2D 2D 2D 2D 00 F5 0A BE 00 99 C7 |TRIX ----.......|
000002F0: 28 31 34 37 29 00 12 0B C8 00 81 20 49 B2 31 20 |(147)...... I.1 |
00000300: A4 20 5A 31 3A 8F 20 5A 45 49 4C 45 4E 49 4E 44 |. Z1:. ZEILENIND|
00000310: 45 58 00 31 0B D2 00 3A 81 20 4A B2 31 20 A4 20 |EX.1...:. J.1 . |
00000320: 53 31 3A 8F 20 53 50 41 4C 54 45 4E 49 4E 44 45 |S1:. SPALTENINDE|
00000330: 58 00 55 0B DC 00 3A 3A 99 41 24 22 28 22 49 22 |X.U...::.A$"("I"|
00000340: 2C 22 4A 22 29 20 3D 22 A3 32 30 29 3B 3A 85 41 |,"J") =".20);:.A|
00000350: 28 49 2C 4A 29 00 5E 0B E6 00 3A 82 20 4A 00 66 |(I,J).^...:. J.f|
00000360: 0B F0 00 82 20 49 00 95 0B FA 00 8F 20 2D 2D 2D |.... I...... ---|
00000370: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000380: 2D 2D 2D 2D 2D 2D 20 20 32 2E 4D 41 54 52 49 58 |------ 2.MATRIX|
00000390: 20 2D 2D 2D 2D 00 A5 0B 04 01 99 C7 28 31 37 29 | ----.......(17)|
000003A0: C7 28 31 37 29 00 B4 0B 0E 01 81 20 49 B2 31 20 |.(17)...... I.1 |
000003B0: A4 20 5A 32 00 C4 0B 18 01 3A 81 20 4A B2 31 20 |. Z2.....:. J.1 |
000003C0: A4 20 53 32 00 E8 0B 22 01 3A 3A 99 42 24 22 28 |. S2...".::.B$"(|
000003D0: 22 49 22 2C 22 4A 22 29 20 3D 22 A3 32 30 29 3B |"I","J") =".20);|
000003E0: 3A 85 42 28 49 2C 4A 29 00 F1 0B 2C 01 3A 82 20 |:.B(I,J)...,.:. |
000003F0: 4A 00 F9 0B 36 01 82 20 49 00 23 0C 40 01 8F 20 |J...6.. I.#.@.. |
00000400: 2D 2D 2D 2D 20 42 45 52 45 43 48 4E 55 4E 47 20 |---- BERECHNUNG |
00000410: 45 52 47 45 42 4E 49 53 4D 41 54 52 49 58 20 2D |ERGEBNISMATRIX -|
00000420: 2D 2D 2D 00 32 0C 4A 01 81 20 49 B2 31 20 A4 20 |---.2.J.. I.1 . |
00000430: 5A 31 00 4B 0C 54 01 3A 81 20 4A B2 31 20 A4 20 |Z1.K.T.:. J.1 . |
00000440: 53 32 3A 43 28 49 2C 4A 29 B2 30 00 5C 0C 5E 01 |S2:C(I,J).0.\.^.|
00000450: 3A 3A 81 20 4B B2 31 20 A4 20 53 31 00 7F 0C 68 |::. K.1 . S1...h|
00000460: 01 3A 3A 3A 43 28 49 2C 4A 29 B2 43 28 49 2C 4A |.:::C(I,J).C(I,J|
00000470: 29 AA 41 28 49 2C 4B 29 AC 42 28 4B 2C 4A 29 00 |).A(I,K).B(K,J).|
00000480: 89 0C 72 01 3A 3A 82 20 4B 00 92 0C 7C 01 3A 82 |..r.::. K...|.:.|
00000490: 20 4A 00 9A 0C 86 01 82 20 49 00 BE 0C 90 01 8F | J...... I......|
000004A0: 20 2D 2D 2D 2D 20 4D 41 54 52 49 58 41 4E 5A 45 | ---- MATRIXANZE|
000004B0: 49 47 45 20 4D 45 4E 55 45 20 2D 2D 2D 2D 00 CA |IGE MENUE ----..|
000004C0: 0C 9A 01 99 C7 28 31 34 37 29 00 F4 0C A4 01 99 |.....(147)......|
000004D0: C7 28 31 37 29 C7 28 31 37 29 C7 28 31 37 29 C7 |.(17).(17).(17).|
000004E0: 28 31 38 29 22 4D 41 54 52 49 58 20 5A 45 49 47 |(18)"MATRIX ZEIG|
000004F0: 45 4E 3A 22 00 19 0D AE 01 99 C7 28 31 37 29 C7 |EN:".......(17).|
00000500: 28 31 37 29 22 4D 41 54 52 49 58 22 A3 31 32 29 |(17)"MATRIX".12)|
00000510: 41 24 A3 32 35 29 22 31 22 00 39 0D B8 01 99 C7 |A$.25)"1".9.....|
00000520: 28 31 37 29 22 4D 41 54 52 49 58 22 A3 31 32 29 |(17)"MATRIX".12)|
00000530: 42 24 A3 32 35 29 22 32 22 00 5C 0D C2 01 99 C7 |B$.25)"2".\.....|
00000540: 28 31 37 29 22 45 52 47 45 42 4E 49 53 2D 4D 41 |(17)"ERGEBNIS-MA|
00000550: 54 52 49 58 22 A3 32 35 29 22 33 22 00 7C 0D CC |TRIX".25)"3".|..|
00000560: 01 99 C7 28 31 37 29 22 50 52 4F 47 52 41 4D 4D |...(17)"PROGRAMM|
00000570: 45 4E 44 45 22 A3 32 35 29 22 34 22 00 AA 0D D6 |ENDE".25)"4"....|
00000580: 01 99 C7 28 31 37 29 C7 28 31 37 29 C7 28 31 37 |...(17).(17).(17|
00000590: 29 C7 28 31 38 29 22 42 49 54 54 45 20 41 55 53 |).(18)"BITTE AUS|
000005A0: 57 41 45 48 4C 45 4E 20 21 22 00 CA 0D E0 01 A1 |WAEHLEN !"......|
000005B0: 43 24 3A 8B 20 43 24 B3 22 31 22 20 B0 20 43 24 |C$:. C$."1" . C$|
000005C0: B1 22 34 22 20 A7 20 34 38 30 00 E8 0D EA 01 91 |."4" . 480......|
000005D0: 20 C5 28 43 24 29 20 8D 20 35 37 30 2C 36 37 30 | .(C$) . 570,670|
000005E0: 2C 37 37 30 2C 35 35 30 00 10 0E F4 01 99 C7 28 |,770,550.......(|
000005F0: 31 37 29 C7 28 31 38 29 22 5A 55 4D 20 4D 45 4E |17).(18)"ZUM MEN|
00000600: 55 45 20 20 20 5F 20 44 52 55 45 43 4B 45 4E 22 |UE _ DRUECKEN"|
00000610: 00 28 0E FE 01 A1 43 24 3A 8B 20 43 24 B3 B1 22 |.(....C$:. C$.."|
00000620: 5F 22 20 A7 20 35 31 30 00 32 0E 08 02 89 20 34 |_" . 510.2.... 4|
00000630: 32 30 00 53 0E 12 02 8F 20 2A 2A 2A 2A 2A 20 55 |20.S.... ***** U|
00000640: 4E 54 45 52 50 52 4F 47 52 41 4D 4D 45 20 2A 2A |NTERPROGRAMME **|
00000650: 2A 2A 2A 00 70 0E 1C 02 8F 20 2D 2D 2D 2D 20 50 |***.p.... ---- P|
00000660: 52 4F 47 52 41 4D 4D 45 4E 44 45 20 2D 2D 2D 2D |ROGRAMMENDE ----|
00000670: 00 76 0E 26 02 80 00 9B 0E 30 02 8F 20 2D 2D 2D |.v.&.....0.. ---|
00000680: 2D 20 41 55 53 47 41 42 45 20 44 45 52 20 31 2E |- AUSGABE DER 1.|
00000690: 4D 41 54 52 49 58 20 2D 2D 2D 2D 00 B2 0E 3A 02 |MATRIX ----...:.|
000006A0: 99 C7 28 31 37 29 C7 28 31 37 29 C7 28 31 38 29 |..(17).(17).(18)|
000006B0: 41 24 00 C2 0E 44 02 99 C7 28 31 37 29 C7 28 31 |A$...D...(17).(1|
000006C0: 37 29 00 D1 0E 4E 02 81 20 49 B2 31 20 A4 20 5A |7)...N.. I.1 . Z|
000006D0: 31 00 E0 0E 58 02 3A 81 20 4A B2 31 A4 20 53 31 |1...X.:. J.1. S1|
000006E0: 00 05 0F 62 02 3A 3A 99 A3 B5 28 28 53 AC 34 30 |...b.::...((S.40|
000006F0: AB 35 29 AD 53 31 29 AC 28 4A AB 31 29 29 41 28 |.5).S1).(J.1))A(|
00000700: 49 2C 4A 29 3B 00 0E 0F 6C 02 3A 82 20 4A 00 17 |I,J);...l.:. J..|
00000710: 0F 76 02 3A 99 3A 99 00 1F 0F 80 02 82 20 49 00 |.v.:.:....... I.|
00000720: 25 0F 8A 02 8E 00 4A 0F 94 02 8F 20 2D 2D 2D 2D |%.....J.... ----|
00000730: 20 41 55 53 47 41 42 45 20 44 45 52 20 32 2E 4D | AUSGABE DER 2.M|
00000740: 41 54 52 49 58 20 2D 2D 2D 2D 00 61 0F 9E 02 99 |ATRIX ----.a....|
00000750: C7 28 31 37 29 C7 28 31 37 29 C7 28 31 38 29 42 |.(17).(17).(18)B|
00000760: 24 00 71 0F A8 02 99 C7 28 31 37 29 C7 28 31 37 |$.q.....(17).(17|
00000770: 29 00 80 0F B2 02 81 20 49 B2 31 20 A4 20 5A 32 |)...... I.1 . Z2|
00000780: 00 90 0F BC 02 3A 81 20 4A B2 31 20 A4 20 53 32 |.....:. J.1 . S2|
00000790: 00 B5 0F C6 02 3A 3A 99 A3 B5 28 28 53 AC 34 30 |.....::...((S.40|
000007A0: AB 35 29 AD 53 32 29 AC 28 4A AB 31 29 29 42 28 |.5).S2).(J.1))B(|
000007B0: 49 2C 4A 29 3B 00 BE 0F D0 02 3A 82 20 4A 00 C7 |I,J);.....:. J..|
000007C0: 0F DA 02 3A 99 3A 99 00 CF 0F E4 02 82 20 49 00 |...:.:....... I.|
000007D0: D5 0F EE 02 8E 00 00 10 F8 02 8F 20 2D 2D 2D 2D |........... ----|
000007E0: 20 41 55 53 47 41 42 45 20 44 45 52 20 45 52 47 | AUSGABE DER ERG|
000007F0: 45 42 4E 49 53 4D 41 54 52 49 58 20 2D 2D 2D 2D |EBNISMATRIX ----|
00000800: 00 27 10 02 03 99 C7 28 31 37 29 C7 28 31 37 29 |.'.....(17).(17)|
00000810: 3B 3A 43 24 B2 41 24 AA 22 2A 22 AA 42 24 3A 99 |;:C$.A$."*".B$:.|
00000820: C7 28 31 38 29 43 24 00 37 10 0C 03 99 C7 28 31 |.(18)C$.7.....(1|
00000830: 37 29 C7 28 31 37 29 00 46 10 16 03 81 20 49 B2 |7).(17).F.... I.|
00000840: 31 20 A4 20 5A 31 00 56 10 20 03 3A 81 20 4A B2 |1 . Z1.V. .:. J.|
00000850: 31 20 A4 20 53 32 00 7B 10 2A 03 3A 3A 99 A3 B5 |1 . S2.{.*.::...|
00000860: 28 28 53 AC 34 30 AB 35 29 AD 53 32 29 AC 28 4A |((S.40.5).S2).(J|
00000870: AB 31 29 29 43 28 49 2C 4A 29 3B 00 84 10 34 03 |.1))C(I,J);...4.|
00000880: 3A 82 20 4A 00 8D 10 3E 03 3A 99 3A 99 00 95 10 |:. J...>.:.:....|
00000890: 48 03 82 20 49 00 9B 10 52 03 8E 00 00 00 |H.. I...R..... |
..*.... ***** MATRIZENMULTIPLIKATION ***
**.B.... 53280,0:. 53281,0.J.... ----- E
INGABE DER PARAMETER -----...(..G(147)G(
17)G(17)G(18)"PARAMETER DER MATRIZEN:".J
.2..G(17)G(17)"NAME DER 1.MATRIX".32);:.
A$...<.."ANZAHL SPALTEN(S1) U. ZEILEN(Z1
)".31);:.S1,Z1.%.F..G(17)"NAME DER 2.MAT
RIX".32);:.B$.Y.P.."ANZAHL SPALTEN(S2) U
. ZEILEN(Z2)".31);:.S2,Z2...Z..G(17)G(17
)"FUER DIE AUSGABE DER MATRIX GEBEN SIE
BITTE AN:".Q.D.."VERWENDEN SIE EINEN 80-
ZEICHEN-BILDSCHIRM (J/N)"...N..D$:. D$..
"J" . D$.."N" . 110...X.. D$."J" . S.2..
...S.1.;.... ----- PRUEFUNG AUF ZULAESSI
GKEIT -----.W....S1..Z2. .G(17)G(17)G(18
)"S1 MUSS GLEICH Z2 SEIN !":.50... .. --
-- ARRAY-DEFINITIONEN ----......A(Z1,S1)
,B(Z2,S2),C(Z1,S2)...... ---- EINGABE DE
R ELEMENTE: 1.MATRIX ----......G(147)...
H.. I.1 . Z1:. ZEILENINDEX.1.R.:. J.1 .
S1:. SPALTENINDEX.U...::.A$"("I","J") ="
.20);:.A(I,J).^...:. J.F.... I...... ---
---------------------- 2.MATRIX ----...
...G(17)G(17)...... I.1 . Z2.D...:. J.1
. S2...".::.B$"("I","J") =".20);:.B(I,J)
...,.:. J...6.. I.#.@.. ---- BERECHNUNG
ERGEBNISMATRIX ----.2.J.. I.1 . Z1.K.T.:
. J.1 . S2:C(I,J).0.\.^.::. K.1 . S1..H
.:::C(I,J).C(I,J).A(I,K).B(K,J)...R.::.
K...|.:. J...... I...... ---- MATRIXANZE
IGE MENUE ----.J....G(147)......G(17)G(1
7)G(17)G(18)"MATRIX ZEIGEN:"......G(17)G
(17)"MATRIX".12)A$.25)"1".9....G(17)"MAT
RIX".12)B$.25)"2".\.B..G(17)"ERGEBNIS-MA
TRIX".25)"3".|.L..G(17)"PROGRAMMENDE".25
)"4"...V..G(17)G(17)G(17)G(18)"BITTE AUS
WAEHLEN !".J....C$:. C$."1" . C$."4" . 4
80...... E(C$) . 570,670,770,550......G(
17)G(18)"ZUM MENUE _ DRUECKEN".(....C$
:. C$.."_" . 510.2.... 420.S.... ***** U
NTERPROGRAMME *****.P.... ---- PROGRAMME
NDE ----.V.&.....0.. ---- AUSGABE DER 1.
MATRIX ----...:..G(17)G(17)G(18)A$.B.D..
G(17)G(17).Q.N.. I.1 . Z1...X.:. J.1. S1
...B.::...((S.40.5).S1).(J.1))A(I,J);...
L.:. J...V.:.:....... I.%.....J.... ----
AUSGABE DER 2.MATRIX ----.A....G(17)G(1
7)G(18)B$.Q....G(17)G(17)...... I.1 . Z2
.....:. J.1 . S2...F.::...((S.40.5).S2).
(J.1))B(I,J);...P.:. J.G.Z.:.:..O.... I.
U.......... ---- AUSGABE DER ERGEBNISMAT
RIX ----.'....G(17)G(17);:C$.A$."*".B$:.
G(18)C$.7....G(17)G(17).F.... I.1 . Z1.V
. .:. J.1 . S2.{.*.::...((S.40.5).S2).(J
.1))C(I,J);...4.:. J...>.:.:....H.. I...
R.....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL