MERGE TWO TO ONE
FILE INFORMATION
FILENAME(S): MERGE TWO TO ONE
FILE TYPE(S): PRG
FILE SIZE: 962b
FIRST SEEN: 2025-11-30 19:47:26
APPEARS ON: 1 disk(s)
FILE HASH
b7ccc6608cec74c3d9be89dd4b3b070d5da4d20ddaba826fc940c84b08ac32d5
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| HJ LPEDISK A3 2 | MERGE TWO TO ONE | PRG | Curtcool, Frank | 24 | 15 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 18 08 64 00 99 22 12 50 52 4F 47 52 41 4D |....d..".PROGRAM| 00000010: 20 4D 45 52 47 45 52 22 00 35 08 6E 00 86 20 41 | MERGER".5.n.. A| 00000020: 24 28 32 29 2C 42 24 28 32 29 2C 43 24 28 32 29 |$(2),B$(2),C$(2)| 00000030: 2C 4E 28 32 29 00 43 08 78 00 9F 20 31 35 2C 38 |,N(2).C.x.. 15,8| 00000040: 2C 31 35 00 57 08 82 00 85 22 50 52 4F 47 52 41 |,15.W...."PROGRA| 00000050: 4D 20 31 22 3B 58 24 00 6D 08 8C 00 9F 20 31 2C |M 1";X$.m.... 1,| 00000060: 38 2C 32 2C 58 24 AA 22 2C 50 2C 52 22 00 80 08 |8,2,X$.",P,R"...| 00000070: 96 00 84 31 35 2C 45 2C 45 24 2C 45 31 2C 45 32 |...15,E,E$,E1,E2| 00000080: 00 97 08 A0 00 8B 20 45 20 A7 20 99 20 45 24 3A |...... E . . E$:| 00000090: A0 20 31 35 20 3A 80 00 B0 08 AA 00 A1 23 31 2C |. 15 :.......#1,| 000000A0: 41 24 2C 41 24 3A 20 4A B2 31 3A 8D 20 34 32 30 |A$,A$: J.1:. 420| 000000B0: 00 CD 08 B4 00 85 22 50 52 4F 47 52 41 4D 20 32 |......"PROGRAM 2| 000000C0: 20 28 4F 52 20 27 4E 27 29 22 3B 58 24 00 EB 08 | (OR 'N')";X$...| 000000D0: BE 00 8B 20 58 24 B2 22 4E 22 20 A7 20 4E 28 32 |... X$."N" . N(2| 000000E0: 29 B2 31 45 39 3A 89 20 32 34 30 00 01 09 C8 00 |).1E9:. 240.....| 000000F0: 9F 20 32 2C 38 2C 33 2C 58 24 AA 22 2C 50 2C 52 |. 2,8,3,X$.",P,R| 00000100: 22 00 14 09 D2 00 84 31 35 2C 45 2C 45 24 2C 45 |"......15,E,E$,E| 00000110: 31 2C 45 32 00 2A 09 DC 00 8B 20 45 20 A7 20 99 |1,E2.*.... E . .| 00000120: 20 45 24 3A A0 20 31 35 3A 80 00 42 09 E6 00 A1 | E$:. 15:..B....| 00000130: 23 32 2C 41 24 2C 41 24 3A 4A B2 32 3A 8D 20 34 |#2,A$,A$:J.2:. 4| 00000140: 32 30 00 55 09 F0 00 85 22 4E 45 57 20 46 49 4C |20.U...."NEW FIL| 00000150: 45 22 3B 58 24 00 71 09 FA 00 9F 20 20 38 2C 38 |E";X$.q.... 8,8| 00000160: 2C 38 2C 22 30 3A 22 AA 58 24 AA 22 2C 50 2C 57 |,8,"0:".X$.",P,W| 00000170: 22 00 84 09 04 01 84 31 35 2C 45 2C 45 24 2C 45 |"......15,E,E$,E| 00000180: 31 2C 45 32 00 9A 09 0E 01 8B 20 45 20 A7 20 99 |1,E2...... E . .| 00000190: 20 45 24 3A A0 20 31 35 3A 80 00 AC 09 18 01 98 | E$:. 15:.......| 000001A0: 38 2C C7 28 31 29 3B C7 28 34 29 3B 00 C9 09 22 |8,.(1);.(4);..."| 000001B0: 01 8F 20 2A 2A 2A 20 43 4F 4D 50 41 52 45 20 4C |.. *** COMPARE L| 000001C0: 49 4E 45 53 20 48 45 52 45 00 D1 09 2C 01 58 B2 |INES HERE...,.X.| 000001D0: 32 00 E7 09 36 01 8B 20 4E 28 31 29 B3 4E 28 32 |2...6.. N(1).N(2| 000001E0: 29 20 A7 20 58 B2 31 00 00 0A 40 01 4E B2 4E 28 |) . X.1...@.N.N(| 000001F0: 58 29 3A 8B 20 4E B1 31 45 38 20 A7 20 33 38 30 |X):. N.1E8 . 380| 00000200: 00 29 0A 4A 01 98 38 2C C7 28 31 29 3B C7 28 31 |.).J..8,.(1);.(1| 00000210: 29 3B 41 24 28 58 29 3B 42 24 28 58 29 3B 43 24 |);A$(X);B$(X);C$| 00000220: 28 58 29 3B C7 28 30 29 3B 00 37 0A 54 01 81 20 |(X);.(0);.7.T.. | 00000230: 4A B2 31 20 A4 20 32 00 4C 0A 5E 01 8B 20 4E 28 |J.1 . 2.L.^.. N(| 00000240: 4A 29 B2 4E 20 A7 20 8D 20 34 32 30 00 54 0A 68 |J).N . . 420.T.h| 00000250: 01 82 20 4A 00 5E 0A 72 01 89 20 33 30 30 00 70 |.. J.^.r.. 300.p| 00000260: 0A 7C 01 98 38 2C C7 28 30 29 3B C7 28 30 29 3B |.|..8,.(0);.(0);| 00000270: 00 85 0A 86 01 A0 20 31 3A A0 20 32 3A A0 20 38 |...... 1:. 2:. 8| 00000280: 3A A0 20 31 35 00 8B 0A 90 01 80 00 A4 0A 9A 01 |:. 15...........| 00000290: 8F 20 52 45 41 44 20 4C 49 4E 45 20 4F 46 20 42 |. READ LINE OF B| 000002A0: 41 53 49 43 00 B2 0A A4 01 A1 23 4A 2C 41 24 2C |ASIC......#J,A$,| 000002B0: 42 24 00 CC 0A AE 01 8B 20 41 24 B2 22 22 20 AF |B$...... A$."" .| 000002C0: 20 42 24 B2 22 22 20 89 20 35 34 30 00 E0 0A B8 | B$."" . 540....| 000002D0: 01 A1 23 4A 2C 41 24 28 4A 29 2C 42 24 28 4A 29 |..#J,A$(J),B$(J)| 000002E0: 00 FC 0A C2 01 8B 20 41 24 28 4A 29 B2 22 22 20 |...... A$(J)."" | 000002F0: A7 20 41 24 28 4A 29 B2 C7 28 30 29 00 18 0B CC |. A$(J)..(0)....| 00000300: 01 8B 20 42 24 28 4A 29 B2 22 22 20 A7 20 42 24 |.. B$(J)."" . B$| 00000310: 28 4A 29 B2 C7 28 30 29 00 37 0B D6 01 4E 28 4A |(J)..(0).7...N(J| 00000320: 29 B2 C6 28 41 24 28 4A 29 29 AA C6 28 42 24 28 |)..(A$(J))..(B$(| 00000330: 4A 29 29 AC 32 35 36 00 44 0B E0 01 43 24 28 4A |J)).256.D...C$(J| 00000340: 29 B2 22 22 00 4F 0B EA 01 A1 23 4A 2C 41 24 00 |)."".O....#J,A$.| 00000350: 61 0B F4 01 8B 20 41 24 B2 22 22 20 A7 20 35 35 |a.... A$."" . 55| 00000360: 30 00 74 0B FE 01 43 24 28 4A 29 B2 43 24 28 4A |0.t...C$(J).C$(J| 00000370: 29 AA 41 24 00 94 0B 08 02 8B 20 53 54 B2 30 20 |).A$...... ST.0 | 00000380: AF 20 C3 28 43 24 28 4A 29 29 B3 32 35 34 20 89 |. .(C$(J)).254 .| 00000390: 20 34 39 30 00 AB 0B 12 02 99 20 22 50 52 4F 42 | 490...... "PROB| 000003A0: 4C 45 4D 20 46 49 4C 45 22 3B 4A 00 B8 0B 1C 02 |LEM FILE";J.....| 000003B0: 4E 28 4A 29 B2 31 45 39 00 BE 0B 26 02 8E 00 00 |N(J).1E9...&....| 000003C0: 00 FE |.. |
....D..".PROGRAM MERGER".5.N.. A$(2),B$( 2),C$(2),N(2).C.X.. 15,8,15.W...."PROGRA M 1";X$.M.... 1,8,2,X$.",P,R"......15,E, E$,E1,E2... .. E . . E$: 15 :.......#1, A$,A$: J.1:. 420.M...."PROGRAM 2 (OR 'N' )";X$...... X$."N" . N(2).1E9:. 240...H. . 2,8,3,X$.",P,R"...R..15,E,E$,E1,E2.*.. .. E . . E$: 15:..B....#2,A$,A$:J.2:. 4 20.U...."NEW FILE";X$.Q.... 8,8,8,"0:". X$.",P,W"......15,E,E$,E1,E2...... E . . E$: 15:.......8,G(1);G(4);.I.".. *** C OMPARE LINES HERE.Q.,.X.2...6.. N(1).N(2 ) . X.1...@.N.N(X):. N.1E8 . 380.).J..8, G(1);G(1);A$(X);B$(X);C$(X);G(0);.7.T.. J.1 . 2.L.^.. N(J).N . . 420.T.H.. J.^.R .. 300.P.|..8,G(0);G(0);..... 1: 2: 8 : 15............ READ LINE OF BASIC.... ..#J,A$,B$.L.... A$."" . B$."" . 540.... ..#J,A$(J),B$(J)...B.. A$(J)."" . A$(J). G(0)...L.. B$(J)."" . B$(J).G(0).7.V.N(J ).F(A$(J)).F(B$(J)).256.D...C$(J)."".O.. ..#J,A$.A.... A$."" . 550.T...C$(J).C$(J ).A$...... ST.0 . C(C$(J)).254 . 490.... .. "PROBLEM FILE";J.....N(J).1E9...&.... ..
> CLICK IMAGE PREVIEW FOR FULL MODAL