INVERT
FILE INFORMATION
FILENAME(S): INVERT
FILE TYPE(S): PRG
FILE SIZE: 1.6K
FIRST SEEN: 2025-11-30 21:12:26
APPEARS ON: 2 disk(s)
FILE HASH
a6b19e047f1de77bf1ce544ae54867b62a629ba5c0c66863500d836ab1e1446e
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOTUS SOFT | INVERT | PRG | DuncanTwain | 16 | 7 | DOWNLOAD FILE |
| PROG 64 WEST | INVERT | PRG | DuncanTwain | 16 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 28 08 00 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..(.... ********| 00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000020: 2A 2A 2A 2A 2A 2A 2A 2A 00 4F 08 01 00 8F 20 2A |********.O.... *| 00000030: 20 32 2D 44 49 4D 45 4E 53 49 4F 4E 41 4C 20 41 | 2-DIMENSIONAL A| 00000040: 52 52 41 59 20 45 58 41 4D 50 4C 45 2E 20 2A 00 |RRAY EXAMPLE. *.| 00000050: 76 08 02 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |v.... **********| 00000060: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000070: 2A 2A 2A 2A 2A 2A 00 9D 08 03 00 8F 20 2A 20 54 |******...... * T| 00000080: 48 49 53 20 50 52 4F 47 52 41 4D 20 49 4E 56 45 |HIS PROGRAM INVE| 00000090: 52 54 53 20 41 52 52 41 59 53 2C 20 2A 00 C4 08 |RTS ARRAYS, *...| 000000A0: 04 00 8F 20 2A 20 48 45 4C 50 49 4E 47 20 53 4F |... * HELPING SO| 000000B0: 4C 56 45 20 53 49 4D 55 4C 54 41 4E 45 4F 55 53 |LVE SIMULTANEOUS| 000000C0: 20 20 20 2A 00 EB 08 05 00 8F 20 2A 20 45 51 55 | *...... * EQU| 000000D0: 41 54 49 4F 4E 53 2E 20 28 4D 55 4C 54 49 50 4C |ATIONS. (MULTIPL| 000000E0: 59 20 54 48 45 20 20 20 20 20 2A 00 12 09 06 00 |Y THE *.....| 000000F0: 8F 20 2A 20 49 4E 56 45 52 53 45 20 42 59 20 54 |. * INVERSE BY T| 00000100: 48 45 20 45 51 55 41 54 49 4F 4E 53 27 20 20 20 |HE EQUATIONS' | 00000110: 20 2A 00 39 09 07 00 8F 20 2A 20 41 4E 53 57 45 | *.9.... * ANSWE| 00000120: 52 53 20 54 4F 20 53 4F 4C 56 45 20 56 41 52 49 |RS TO SOLVE VARI| 00000130: 41 42 4C 45 53 29 2E 20 2A 00 60 09 08 00 8F 20 |ABLES). *.`.... | 00000140: 2A 20 20 20 20 20 47 4F 54 4F 20 37 30 30 20 52 |* GOTO 700 R| 00000150: 45 49 4E 56 45 52 54 53 2E 20 20 20 20 20 20 2A |EINVERTS. *| 00000160: 00 87 09 09 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |...... *********| 00000170: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000180: 2A 2A 2A 2A 2A 2A 2A 00 A5 09 0A 00 85 20 22 44 |*******...... "D| 00000190: 49 4D 45 4E 53 49 4F 4E 20 4F 46 20 4D 41 54 52 |IMENSION OF MATR| 000001A0: 49 58 22 3B 4E 00 CC 09 14 00 86 20 4D 28 4E 2C |IX";N...... M(N,| 000001B0: 4E 29 2C 49 28 4E 2C 4E 29 3A 20 8F 20 53 45 54 |N),I(N,N): . SET| 000001C0: 20 55 50 20 32 20 41 52 52 41 59 53 00 09 0A 64 | UP 2 ARRAYS...d| 000001D0: 00 99 20 22 49 4E 50 55 54 20 41 4C 4C 20 4D 41 |.. "INPUT ALL MA| 000001E0: 54 52 49 58 20 56 41 4C 55 45 53 2C 20 53 54 41 |TRIX VALUES, STA| 000001F0: 52 54 49 4E 47 20 41 54 20 54 48 45 20 54 4F 50 |RTING AT THE TOP| 00000200: 20 52 4F 57 2E 22 3A 20 99 00 3E 0A 6E 00 81 20 | ROW.": ..>.n.. | 00000210: 59 B2 31 20 A4 20 4E 3A 20 99 20 22 52 4F 57 22 |Y.1 . N: . "ROW"| 00000220: 20 59 3A 20 81 20 58 B2 31 20 A4 20 4E 3A 20 85 | Y: . X.1 . N: .| 00000230: 20 4D 28 58 2C 59 29 3A 20 82 20 58 2C 59 00 77 | M(X,Y): . X,Y.w| 00000240: 0A 78 00 81 20 59 B2 31 20 A4 20 4E 3A 20 81 20 |.x.. Y.1 . N: . | 00000250: 58 B2 31 20 A4 20 4E 3A 20 99 20 4D 28 58 2C 59 |X.1 . N: . M(X,Y| 00000260: 29 3B 3A 20 82 3A 20 99 3A 20 82 20 3A 8F 20 50 |);: .: .: . :. P| 00000270: 52 49 4E 54 20 49 54 00 B9 0A 82 00 81 20 59 B2 |RINT IT...... Y.| 00000280: 31 20 A4 20 4E 3A 20 81 20 58 B2 31 20 A4 20 4E |1 . N: . X.1 . N| 00000290: 3A 20 49 28 58 2C 59 29 B2 AB 28 58 B2 59 29 3A |: I(X,Y)..(X.Y):| 000002A0: 20 82 20 58 2C 59 20 3A 8F 20 53 45 54 20 55 50 | . X,Y :. SET UP| 000002B0: 20 49 44 45 4E 54 49 54 59 00 EB 0A C8 00 8F 20 | IDENTITY...... | 000002C0: 2A 2A 20 46 49 52 53 54 20 53 54 41 47 45 3A 20 |** FIRST STAGE: | 000002D0: 44 49 41 47 4F 4E 41 4C 20 41 4E 44 20 42 45 4C |DIAGONAL AND BEL| 000002E0: 4F 57 20 41 4C 4C 20 4F 4E 45 53 00 F9 0A D2 00 |OW ALL ONES.....| 000002F0: 81 20 58 B2 31 20 A4 20 4E 00 08 0B D7 00 3A 81 |. X.1 . N.....:.| 00000300: 20 59 B2 58 20 A4 20 4E 00 2A 0B DC 00 3A 3A 44 | Y.X . N.*...::D| 00000310: B2 4D 28 58 2C 59 29 3A 20 8B 20 44 B2 30 20 B0 |.M(X,Y): . D.0 .| 00000320: 20 44 B2 31 20 89 20 32 35 35 00 3B 0B E1 00 3A | D.1 . 255.;...:| 00000330: 3A 3A 81 20 4B B2 58 20 A4 20 4E 00 53 0B E6 00 |::. K.X . N.S...| 00000340: 3A 3A 3A 3A 4D 28 4B 2C 59 29 B2 4D 28 4B 2C 59 |::::M(K,Y).M(K,Y| 00000350: 29 AD 44 00 5E 0B EB 00 3A 3A 3A 82 20 4B 00 6F |).D.^...:::. K.o| 00000360: 0B F0 00 3A 3A 3A 81 20 4B B2 31 20 A4 20 4E 00 |...:::. K.1 . N.| 00000370: 87 0B F5 00 3A 3A 3A 3A 49 28 4B 2C 59 29 B2 49 |....::::I(K,Y).I| 00000380: 28 4B 2C 59 29 AD 44 00 92 0B FA 00 3A 3A 3A 82 |(K,Y).D.....:::.| 00000390: 20 4B 00 9B 0B FF 00 3A 82 20 59 00 AB 0B 04 01 | K.....:. Y.....| 000003A0: 8B 20 58 B2 4E 20 89 20 34 30 30 00 D2 0B 2C 01 |. X.N . 400...,.| 000003B0: 8F 20 2A 2A 2A 20 4E 4F 57 20 50 55 54 20 5A 45 |. *** NOW PUT ZE| 000003C0: 52 4F 53 20 42 45 4C 4F 57 20 44 49 41 47 4F 4E |ROS BELOW DIAGON| 000003D0: 41 4C 00 E3 0B 36 01 3A 81 20 59 B2 58 AA 31 20 |AL...6.:. Y.X.1 | 000003E0: A4 20 4E 00 FA 0B 3B 01 3A 3A 8B 20 4D 28 58 2C |. N...;.::. M(X,| 000003F0: 59 29 B2 30 20 89 20 33 35 30 00 0B 0C 40 01 3A |Y).0 . 350...@.:| 00000400: 3A 3A 81 20 4B B2 58 20 A4 20 4E 00 24 0C 45 01 |::. K.X . N.$.E.| 00000410: 4D 28 4B 2C 59 29 B2 4D 28 4B 2C 59 29 AB 4D 28 |M(K,Y).M(K,Y).M(| 00000420: 4B 2C 58 29 00 2F 0C 4A 01 3A 3A 3A 82 20 4B 00 |K,X)./.J.:::. K.| 00000430: 40 0C 4F 01 3A 3A 3A 81 20 4B B2 31 20 A4 20 4E |@.O.:::. K.1 . N| 00000440: 00 5D 0C 54 01 3A 3A 3A 3A 49 28 4B 2C 59 29 B2 |.].T.::::I(K,Y).| 00000450: 49 28 4B 2C 59 29 AB 49 28 4B 2C 58 29 00 68 0C |I(K,Y).I(K,X).h.| 00000460: 59 01 3A 3A 3A 82 20 4B 00 71 0C 5E 01 3A 82 20 |Y.:::. K.q.^.:. | 00000470: 59 00 79 0C 63 01 82 20 58 00 A4 0C 90 01 8F 20 |Y.y.c.. X...... | 00000480: 2A 2A 2A 20 54 45 53 54 20 44 49 41 47 4F 4E 41 |*** TEST DIAGONA| 00000490: 4C 20 45 4C 45 4D 45 4E 54 53 20 41 52 45 20 41 |L ELEMENTS ARE A| 000004A0: 4C 4C 20 31 00 C2 0C 9A 01 81 20 58 B2 31 20 A4 |LL 1...... X.1 .| 000004B0: 20 4E 3A 20 8B 20 4D 28 58 2C 58 29 B2 31 20 A7 | N: . M(X,X).1 .| 000004C0: 20 82 00 E3 0C A4 01 8B 20 58 B3 B1 4E AA 31 20 | ....... X..N.1 | 000004D0: A7 20 99 20 22 4E 4F 20 49 4E 56 45 52 53 45 22 |. . "NO INVERSE"| 000004E0: 3A 20 80 00 F9 0C F4 01 8F 20 2A 2A 2A 20 46 49 |: ....... *** FI| 000004F0: 4E 41 4C 20 53 54 41 47 45 00 0C 0D F9 01 81 20 |NAL STAGE...... | 00000500: 58 B2 4E 20 A4 20 32 20 A9 20 AB 31 00 22 0D FE |X.N . 2 . .1."..| 00000510: 01 3A 81 20 59 B2 58 AB 31 20 A4 20 31 20 A9 20 |.:. Y.X.1 . 1 . | 00000520: AB 31 00 31 0D 03 02 3A 3A 44 B2 4D 28 58 2C 59 |.1.1...::D.M(X,Y| 00000530: 29 00 42 0D 08 02 3A 3A 3A 81 20 4B B2 58 20 A4 |).B...:::. K.X .| 00000540: 20 4E 00 61 0D 0D 02 3A 3A 3A 3A 4D 28 4B 2C 59 | N.a...::::M(K,Y| 00000550: 29 B2 4D 28 4B 2C 59 29 AB 4D 28 4B 2C 58 29 AC |).M(K,Y).M(K,X).| 00000560: 44 00 6C 0D 12 02 3A 3A 3A 82 20 4B 00 7D 0D 17 |D.l...:::. K.}..| 00000570: 02 3A 3A 3A 81 20 4B B2 31 20 A4 20 4E 00 9C 0D |.:::. K.1 . N...| 00000580: 1C 02 3A 3A 3A 3A 49 28 4B 2C 59 29 B2 49 28 4B |..::::I(K,Y).I(K| 00000590: 2C 59 29 AB 49 28 4B 2C 58 29 AC 44 00 A7 0D 21 |,Y).I(K,X).D...!| 000005A0: 02 3A 3A 3A 82 20 4B 00 B0 0D 26 02 3A 82 20 59 |.:::. K...&.:. Y| 000005B0: 00 B8 0D 2B 02 82 20 58 00 D9 0D 58 02 8F 20 2A |...+.. X...X.. *| 000005C0: 2A 20 50 52 49 4E 54 20 49 4E 56 45 52 53 45 20 |* PRINT INVERSE | 000005D0: 4F 46 20 4D 41 54 52 49 58 00 0A 0E 62 02 81 20 |OF MATRIX...b.. | 000005E0: 59 B2 31 20 A4 20 4E 3A 20 81 20 58 B2 31 20 A4 |Y.1 . N: . X.1 .| 000005F0: 20 4E 3A 20 99 20 49 28 58 2C 59 29 3B 3A 20 82 | N: . I(X,Y);: .| 00000600: 20 58 3A 20 99 3A 20 82 20 59 00 10 0E 6C 02 80 | X: .: . Y...l..| 00000610: 00 36 0E BC 02 8F 20 2A 2A 20 52 45 49 4E 56 45 |.6.... ** REINVE| 00000620: 52 54 20 54 4F 20 54 45 53 54 20 43 4F 52 52 45 |RT TO TEST CORRE| 00000630: 43 54 4E 45 53 53 00 6C 0E C6 02 81 20 59 B2 31 |CTNESS.l.... Y.1| 00000640: 20 A4 20 4E 3A 20 81 20 58 B2 31 20 A4 20 4E 3A | . N: . X.1 . N:| 00000650: 20 4D 28 58 2C 59 29 B2 49 28 58 2C 59 29 3A 20 | M(X,Y).I(X,Y): | 00000660: 82 20 58 2C 59 3A 20 89 20 31 33 30 00 00 00 |. X,Y: . 130... |
..(.... ******************************** .O.... * 2-DIMENSIONAL ARRAY EXAMPLE. *. V.... ********************************.. .... * THIS PROGRAM INVERTS ARRAYS, *.D. ... * HELPING SOLVE SIMULTANEOUS *.... .. * EQUATIONS. (MULTIPLY THE *..... . * INVERSE BY THE EQUATIONS' *.9.... * ANSWERS TO SOLVE VARIABLES). *.`.... * GOTO 700 REINVERTS. *...... * *******************************...... "D IMENSION OF MATRIX";N.L.... M(N,N),I(N,N ): . SET UP 2 ARRAYS...D.. "INPUT ALL MA TRIX VALUES, STARTING AT THE TOP ROW.": ..>.N.. Y.1 . N: . "ROW" Y: . X.1 . N: . M(X,Y): . X,Y.W.X.. Y.1 . N: . X.1 . N: . M(X,Y);: .: .: . :. PRINT IT...... Y. 1 . N: . X.1 . N: I(X,Y)..(X.Y): . X,Y : . SET UP IDENTITY...H.. ** FIRST STAGE: DIAGONAL AND BELOW ALL ONES...R.. X.1 . N...W.:. Y.X . N.*...::D.M(X,Y): . D.0 . D.1 . 255.;...:::. K.X . N.S...::::M(K, Y).M(K,Y).D.^...:::. K.O...:::. K.1 . N. ....::::I(K,Y).I(K,Y).D.....:::. K.....: . Y...... X.N . 400.R.,.. *** NOW PUT ZE ROS BELOW DIAGONAL...6.:. Y.X.1 . N...;. ::. M(X,Y).0 . 350...@.:::. K.X . N.$.E. M(K,Y).M(K,Y).M(K,X)./.J.:::. K.@.O.:::. K.1 . N.].T.::::I(K,Y).I(K,Y).I(K,X).H. Y.:::. K.Q.^.:. Y.Y.C.. X...... *** TEST DIAGONAL ELEMENTS ARE ALL 1.B.... X.1 . N: . M(X,X).1 . ....... X..N.1 . . "NO INVERSE": ....... *** FINAL STAGE...... X.N . 2 . .1."...:. Y.X.1 . 1 . .1.1...: :D.M(X,Y).B...:::. K.X . N.A...::::M(K,Y ).M(K,Y).M(K,X).D.L...:::. K.}...:::. K. 1 . N.....::::I(K,Y).I(K,Y).I(K,X).D...! .:::. K...&.:. Y...+.. X.Y.X.. ** PRINT INVERSE OF MATRIX...B.. Y.1 . N: . X.1 . N: . I(X,Y);: . X: .: . Y...L...6.... * * REINVERT TO TEST CORRECTNESS.L.F.. Y.1 . N: . X.1 . N: M(X,Y).I(X,Y): . X,Y: . 130...
> CLICK IMAGE PREVIEW FOR FULL MODAL