PROGRAM MERGE
FILE INFORMATION
FILENAME(S): PROGRAM MERGE
FILE TYPE(S): PRG
FILE SIZE: 1.1K
FIRST SEEN: 2025-11-30 18:12:50
APPEARS ON: 1 disk(s)
FILE HASH
f3ece88a85aaa6a259782ce1ed8866def9b21390893c17f1ce12d193ef84629f
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| UTILITIES | PROGRAM MERGE | PRG | Sailor, Ganheden | 13 | 20 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1D 08 0A 00 8F 20 50 52 4F 47 52 41 4D 20 |....... PROGRAM | 00000010: 4D 45 52 47 45 20 52 4F 55 54 49 4E 45 00 43 08 |MERGE ROUTINE.C.| 00000020: 14 00 8F 20 52 55 4E 20 4D 41 47 41 5A 49 4E 45 |... RUN MAGAZINE| 00000030: 20 41 50 52 49 4C 20 31 39 38 34 20 50 41 47 45 | APRIL 1984 PAGE| 00000040: 20 39 34 00 5E 08 64 00 86 20 41 28 35 30 30 29 | 94.^.d.. A(500)| 00000050: 2C 41 24 28 35 30 30 29 2C 4E 24 28 31 29 00 6A |,A$(500),N$(1).j| 00000060: 08 6E 00 4D 50 B2 32 30 34 39 00 79 08 F4 01 99 |.n.MP.2049.y....| 00000070: 22 93 4D 45 52 47 45 11 22 00 9F 08 FE 01 85 22 |".MERGE."......"| 00000080: 4E 41 4D 45 20 4F 46 20 4F 52 49 47 49 4E 41 4C |NAME OF ORIGINAL| 00000090: 20 50 52 4F 47 52 41 4D 22 3B 4E 24 28 30 29 00 | PROGRAM";N$(0).| 000000A0: C5 08 08 02 85 22 4E 41 4D 45 20 4F 46 20 50 52 |....."NAME OF PR| 000000B0: 4F 47 52 41 4D 20 54 4F 20 4D 45 52 47 45 22 3B |OGRAM TO MERGE";| 000000C0: 4E 24 28 31 29 00 D2 08 12 02 53 24 B2 4E 24 28 |N$(1).....S$.N$(| 000000D0: 30 29 00 F2 08 1C 02 85 22 11 53 41 56 45 20 55 |0)......".SAVE U| 000000E0: 4E 44 45 52 20 57 48 41 54 20 4E 41 4D 45 22 3B |NDER WHAT NAME";| 000000F0: 53 24 00 00 09 E8 03 9F 20 31 35 2C 38 2C 31 35 |S$...... 15,8,15| 00000100: 00 0C 09 F2 03 98 31 35 2C 22 49 22 00 14 09 D0 |......15,"I"....| 00000110: 07 58 B2 30 00 1F 09 34 08 8D 20 36 30 30 30 00 |.X.0...4.. 6000.| 00000120: 2A 09 98 08 45 31 B2 50 AB 31 00 33 09 B8 0B 50 |*...E1.P.1.3...P| 00000130: 32 B2 50 00 3B 09 1C 0C 58 B2 31 00 46 09 80 0C |2.P.;...X.1.F...| 00000140: 8D 20 36 30 30 30 00 51 09 E4 0C 45 32 B2 50 AB |. 6000.Q...E2.P.| 00000150: 31 00 64 09 A0 0F 99 22 11 53 41 56 49 4E 47 20 |1.d....".SAVING | 00000160: 22 3B 53 24 00 80 09 AA 0F 9F 20 32 2C 38 2C 32 |";S$...... 2,8,2| 00000170: 2C 22 40 30 3A 22 AA 53 24 AA 22 2C 50 2C 57 22 |,"@0:".S$.",P,W"| 00000180: 00 8B 09 B4 0F 8D 20 38 30 30 30 00 9D 09 BE 0F |...... 8000.....| 00000190: 98 32 2C C7 28 31 29 3B C7 28 38 29 3B 00 CD 09 |.2,.(1);.(8);...| 000001A0: 88 13 8B 20 41 28 50 32 29 B2 41 28 50 31 29 20 |... A(P2).A(P1) | 000001B0: A7 20 5A B2 50 31 3A 50 31 B2 50 31 AA 31 3A 50 |. Z.P1:P1.P1.1:P| 000001C0: 32 B2 50 32 AA 31 3A 89 20 35 31 30 30 00 F5 09 |2.P2.1:. 5100...| 000001D0: 92 13 8B 20 41 28 50 32 29 B3 41 28 50 31 29 20 |... A(P2).A(P1) | 000001E0: A7 20 5A B2 50 32 3A 50 32 B2 50 32 AA 31 3A 89 |. Z.P2:P2.P2.1:.| 000001F0: 20 35 31 30 30 00 16 0A 9C 13 8B 20 41 28 50 32 | 5100...... A(P2| 00000200: 29 B1 41 28 50 31 29 20 A7 20 5A B2 50 31 3A 50 |).A(P1) . Z.P1:P| 00000210: 31 B2 50 31 AA 31 00 2B 0A EC 13 4D 50 B2 4D 50 |1.P1.1.+...MP.MP| 00000220: AA C3 28 41 24 28 5A 29 29 AA 32 00 3B 0A F6 13 |..(A$(Z)).2.;...| 00000230: 58 B2 B5 28 4D 50 AD 32 35 36 29 00 4A 0A 00 14 |X..(MP.256).J...| 00000240: 59 B2 4D 50 AB 32 35 36 AC 58 00 62 0A 0A 14 98 |Y.MP.256.X.b....| 00000250: 32 2C C7 28 59 29 3B C7 28 58 29 3B 41 24 28 5A |2,.(Y);.(X);A$(Z| 00000260: 29 3B 00 7D 0A 50 14 8B 20 50 31 B3 45 31 20 B0 |);.}.P.. P1.E1 .| 00000270: 20 50 32 B3 45 32 20 A7 20 35 30 30 30 00 8F 0A | P2.E2 . 5000...| 00000280: B4 14 98 32 2C C7 28 30 29 3B C7 28 30 29 3B 00 |...2,.(0);.(0);.| 00000290: 96 0A BE 14 A0 32 00 9E 0A C8 14 A0 31 35 00 A4 |.....2......15..| 000002A0: 0A D2 14 80 00 BB 0A 70 17 99 22 11 4C 4F 41 44 |.......p..".LOAD| 000002B0: 49 4E 47 20 22 3B 4E 24 28 58 29 00 D9 0A 7A 17 |ING ";N$(X)...z.| 000002C0: 9F 20 32 2C 38 2C 32 2C 22 30 3A 22 AA 4E 24 28 |. 2,8,2,"0:".N$(| 000002D0: 58 29 AA 22 2C 50 2C 52 22 00 E4 0A 84 17 8D 20 |X).",P,R"...... | 000002E0: 38 30 30 30 00 F2 0A 58 1B A1 23 32 2C 41 24 2C |8000...X..#2,A$,| 000002F0: 42 24 00 00 0B 62 1B A1 23 32 2C 41 24 2C 42 24 |B$...b..#2,A$,B$| 00000300: 00 2C 0B 6C 1B 8B 20 41 24 B2 22 22 20 AF 20 42 |.,.l.. A$."" . B| 00000310: 24 B2 22 22 20 A7 20 41 28 50 29 B2 36 35 30 30 |$."" . A(P).6500| 00000320: 30 3A 50 B2 50 AA 31 3A A0 32 3A 8E 00 37 0B 76 |0:P.P.1:.2:..7.v| 00000330: 1B A1 23 32 2C 41 24 00 4D 0B 80 1B 8B 20 41 24 |..#2,A$.M.... A$| 00000340: B2 22 22 20 A7 20 41 24 B2 C7 28 30 29 00 59 0B |."" . A$..(0).Y.| 00000350: 8A 1B 58 B2 C6 28 41 24 29 00 66 0B 94 1B 41 24 |..X..(A$).f...A$| 00000360: 28 50 29 B2 41 24 00 71 0B 9E 1B A1 23 32 2C 41 |(P).A$.q....#2,A| 00000370: 24 00 87 0B A8 1B 8B 20 41 24 B2 22 22 20 A7 20 |$...... A$."" . | 00000380: 41 24 B2 C7 28 30 29 00 9C 0B B2 1B 41 28 50 29 |A$..(0).....A(P)| 00000390: B2 58 AA 32 35 36 AC C6 28 41 24 29 00 AF 0B BC |.X.256..(A$)....| 000003A0: 1B 41 24 28 50 29 B2 41 24 28 50 29 AA 41 24 00 |.A$(P).A$(P).A$.| 000003B0: BA 0B C6 1B A1 23 32 2C 41 24 00 D0 0B D0 1B 8B |.....#2,A$......| 000003C0: 20 41 24 B2 22 22 20 A7 20 41 24 B2 C7 28 30 29 | A$."" . A$..(0)| 000003D0: 00 E3 0B DA 1B 41 24 28 50 29 B2 41 24 28 50 29 |.....A$(P).A$(P)| 000003E0: AA 41 24 00 F9 0B E4 1B 8B 20 41 24 B3 B1 C7 28 |.A$...... A$...(| 000003F0: 30 29 20 A7 20 37 31 31 30 00 03 0C EE 1B 50 B2 |0) . 7110.....P.| 00000400: 50 AA 31 00 0E 0C F8 1B 89 20 37 30 31 30 00 23 |P.1...... 7010.#| 00000410: 0C 40 1F 84 31 35 2C 45 4E 2C 45 4D 24 2C 45 54 |.@..15,EN,EM$,ET| 00000420: 2C 45 53 00 32 0C 4A 1F 8B 20 45 4E B2 30 20 A7 |,ES.2.J.. EN.0 .| 00000430: 20 8E 00 44 0C 54 1F 99 22 44 49 53 4B 20 45 52 | ..D.T.."DISK ER| 00000440: 52 4F 52 22 00 5A 0C 5E 1F 99 20 45 4E 3B 20 45 |ROR".Z.^.. EN; E| 00000450: 4D 24 3B 20 45 54 2C 20 45 53 00 61 0C 68 1F A0 |M$; ET, ES.a.h..| 00000460: 32 00 69 0C 72 1F A0 31 35 00 00 00 |2.i.r..15... |
....... PROGRAM MERGE ROUTINE.C.... RUN MAGAZINE APRIL 1984 PAGE 94.^.D.. A(500) ,A$(500),N$(1).J.N.MP.2049.Y....".MERGE. "......"NAME OF ORIGINAL PROGRAM";N$(0). E...."NAME OF PROGRAM TO MERGE";N$(1).R. ..S$.N$(0)......".SAVE UNDER WHAT NAME"; S$...... 15,8,15......15,"I"...P.X.0...4 .. 6000.*...E1.P.1.3...P2.P.;...X.1.F... . 6000.Q...E2.P.1.D. ..".SAVING ";S$.... .. 2,8,2,"@0:".S$.",P,W"...... 8000..... .2,G(1);G(8);.M.... A(P2).A(P1) . Z.P1:P 1.P1.1:P2.P2.1:. 5100...... A(P2).A(P1) . Z.P2:P2.P2.1:. 5100...... A(P2).A(P1) . Z.P1:P1.P1.1.+...MP.MP.C(A$(Z)).2.;... X..(MP.256).J...Y.MP.256.X.B....2,G(Y);G (X);A$(Z);.}.P.. P1.E1 . P2.E2 . 5000... ...2,G(0);G(0);..... 2...H. 15...R.....P ..".LOADING ";N$(X).Y.Z.. 2,8,2,"0:".N$( X).",P,R"...... 8000...X..#2,A$,B$...B.. #2,A$,B$.,.L.. A$."" . B$."" . A(P).6500 0:P.P.1: 2:..7.V..#2,A$.M.... A$."" . A$ .G(0).Y...X.F(A$).F...A$(P).A$.Q....#2,A $...... A$."" . A$.G(0).....A(P).X.256.F (A$).....A$(P).A$(P).A$...F..#2,A$.P.P.. A$."" . A$.G(0)...Z.A$(P).A$(P).A$..... . A$..G(0) . 7110.....P.P.1...... 7010.# .@..15,EN,EM$,ET,ES.2.J.. EN.0 . ..D.T.. "DISK ERROR".Z.^.. EN; EM$; ET, ES.A.H. 2.I.R. 15...
> CLICK IMAGE PREVIEW FOR FULL MODAL