V39.MERGE.C
FILE INFORMATION
FILENAME(S): V39.MERGE.C
FILE TYPE(S): PRG
FILE SIZE: 1.9K
FIRST SEEN: 2025-11-30 16:28:12
APPEARS ON: 1 disk(s)
FILE HASH
f973d2c17fffd8600611bc14af3cb23d7b698ff6fa7c8536dc4654d363df7b25
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| RED WOLFGANG 204 | V39.MERGE.C | PRG | BrainSkull, Wolfgang Red | 16 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 15 08 0A 00 97 34 33 2C 30 30 31 3A 97 34 |.......43,001:.4|
00000010: 34 2C 30 30 38 00 29 08 14 00 97 34 35 2C 31 37 |4,008.)....45,17|
00000020: 30 3A 97 34 36 2C 30 31 35 00 3D 08 1E 00 97 34 |0:.46,015.=....4|
00000030: 37 2C 31 37 37 3A 97 34 38 2C 30 31 35 00 51 08 |7,177:.48,015.Q.|
00000040: 28 00 97 34 39 2C 31 37 37 3A 97 35 30 2C 30 31 |(..49,177:.50,01|
00000050: 35 00 65 08 32 00 97 35 31 2C 30 30 30 3A 97 35 |5.e.2..51,000:.5|
00000060: 32 2C 31 36 30 00 79 08 3C 00 97 35 33 2C 30 30 |2,160.y.<..53,00|
00000070: 30 3A 97 35 34 2C 31 36 30 00 8D 08 46 00 97 35 |0:.54,160...F..5|
00000080: 35 2C 30 30 30 3A 97 35 36 2C 31 36 30 00 98 08 |5,000:.56,160...|
00000090: 50 00 9E 35 31 37 34 30 00 D5 08 64 00 8F 20 53 |P..51740...d.. S|
000000A0: 45 54 55 50 20 53 41 4E 49 54 41 54 49 4F 4E 20 |ETUP SANITATION |
000000B0: 45 4E 47 49 4E 45 45 52 20 46 52 4F 4D 20 20 20 |ENGINEER FROM |
000000C0: 20 20 20 20 20 20 20 54 48 45 20 54 52 41 4E 53 | THE TRANS|
000000D0: 41 43 54 4F 52 00 FD 08 6E 00 5A 24 B2 22 2C 22 |ACTOR...n.Z$.","|
000000E0: 3A 43 4D B2 30 3A 46 24 B2 22 20 20 C6 49 4C 45 |:CM.0:F$." .ILE|
000000F0: 4E 41 4D 45 3D 22 3A 99 C7 28 31 34 29 00 42 09 |NAME=":..(14).B.|
00000100: 78 00 99 22 9F 93 11 11 20 CD 45 52 47 45 20 42 |x..".... .ERGE B|
00000110: 59 20 28 4E 29 41 4D 45 20 4F 52 20 28 49 29 44 |Y (N)AME OR (I)D|
00000120: 2E 20 4E 4F 2E 20 28 CD 30 31 34 29 22 3A 99 22 |. NO. (.014)":."|
00000130: 20 20 28 4E 29 4F 52 28 49 29 20 5E 3D 45 58 49 | (N)OR(I) ^=EXI|
00000140: 54 22 00 57 09 82 00 A1 53 41 24 3A 8B 53 41 24 |T".W....SA$:.SA$|
00000150: B2 22 22 A7 31 33 30 00 70 09 8C 00 8B 53 41 24 |."".130.p....SA$|
00000160: B2 22 5E 22 A7 36 30 30 3A 8F 20 41 42 4F 52 54 |."^".600:. ABORT|
00000170: 00 AE 09 96 00 85 22 20 20 C9 4E 50 55 54 20 C6 |......" .NPUT .|
00000180: 49 4C 45 20 31 3D 4C 49 42 2E 22 3B 54 24 3A 54 |ILE 1=LIB.";T$:T|
00000190: 24 B2 C8 28 54 24 2C 31 32 29 3A 8B 54 24 B2 22 |$..(T$,12):.T$."|
000001A0: 5E 22 A7 36 30 30 3A 8F 20 41 42 4F 52 54 00 CC |^".600:. ABORT..|
000001B0: 09 A0 00 9F 33 2C 38 2C 36 2C 22 30 3A 4C 49 42 |....3,8,6,"0:LIB|
000001C0: 2E 22 AA 54 24 AA 22 2C 53 2C 52 22 00 E9 09 AA |.".T$.",S,R"....|
000001D0: 00 84 33 2C 42 31 3A 8F 20 43 4F 55 4E 54 3D 42 |..3,B1:. COUNT=B|
000001E0: 31 20 52 45 43 4F 52 44 53 00 27 0A B4 00 85 22 |1 RECORDS.'...."|
000001F0: 20 20 C9 4E 50 55 54 20 C6 49 4C 45 20 32 3D 4C | .NPUT .ILE 2=L|
00000200: 49 42 2E 22 3B 54 24 3A 54 24 B2 C8 28 54 24 2C |IB.";T$:T$..(T$,|
00000210: 31 32 29 3A 8B 54 24 B2 22 5E 22 A7 36 30 30 3A |12):.T$."^".600:|
00000220: 8F 20 41 42 4F 52 54 00 45 0A BE 00 9F 34 2C 38 |. ABORT.E....4,8|
00000230: 2C 37 2C 22 30 3A 4C 49 42 2E 22 AA 54 24 AA 22 |,7,"0:LIB.".T$."|
00000240: 2C 53 2C 52 22 00 62 0A C8 00 84 34 2C 42 32 3A |,S,R".b....4,B2:|
00000250: 8F 20 43 4F 55 4E 54 3D 42 32 20 52 45 43 4F 52 |. COUNT=B2 RECOR|
00000260: 44 53 00 A0 0A D2 00 85 22 20 20 CF 55 54 50 55 |DS......" .UTPU|
00000270: 54 20 C6 49 4C 45 20 3D 4C 49 42 2E 22 3B 54 24 |T .ILE =LIB.";T$|
00000280: 3A 54 24 B2 C8 28 54 24 2C 31 32 29 3A 8B 54 24 |:T$..(T$,12):.T$|
00000290: B2 22 5E 22 A7 36 30 30 3A 8F 20 41 42 4F 52 54 |."^".600:. ABORT|
000002A0: 00 AD 0A DC 00 42 54 B2 42 31 AA 42 32 00 CB 0A |.....BT.B1.B2...|
000002B0: E6 00 9F 35 2C 38 2C 38 2C 22 30 3A 4C 49 42 2E |...5,8,8,"0:LIB.|
000002C0: 22 AA 54 24 AA 22 2C 53 2C 57 22 00 EA 0A F0 00 |".T$.",S,W".....|
000002D0: 98 35 2C 42 54 3A 8F 20 43 4F 55 4E 54 3D 42 31 |.5,BT:. COUNT=B1|
000002E0: 20 2B 20 42 32 20 52 43 44 53 00 0E 0B FA 00 3A | + B2 RCDS.....:|
000002F0: 8F 20 2D 2D 2D 20 52 45 41 44 20 46 49 52 53 54 |. --- READ FIRST|
00000300: 20 32 20 52 45 43 4F 52 44 53 20 2D 2D 2D 00 2A | 2 RECORDS ---.*|
00000310: 0B 04 01 8D 33 34 30 3A 43 31 B2 43 31 AA 31 3A |....340:C1.C1.1:|
00000320: 8F 20 52 45 41 44 20 53 31 24 00 46 0B 0E 01 8D |. READ S1$.F....|
00000330: 33 36 30 3A 43 32 B2 43 32 AA 31 3A 8F 20 52 45 |360:C2.C2.1:. RE|
00000340: 41 44 20 53 32 24 00 66 0B 18 01 8B 20 43 31 B1 |AD S2$.f.... C1.|
00000350: 42 31 20 20 20 20 A7 33 32 30 3A 8F 20 45 4F 46 |B1 .320:. EOF|
00000360: 20 46 49 4C 45 31 00 9E 0B 22 01 8B 20 53 31 24 | FILE1...".. S1$|
00000370: B3 B2 53 32 24 20 B0 20 43 32 B1 42 32 20 A7 20 |..S2$ . C2.B2 . |
00000380: 53 49 24 B2 53 31 24 3A 8D 34 38 30 3A 8D 33 34 |SI$.S1$:.480:.34|
00000390: 30 3A 43 31 B2 43 31 AA 31 3A 89 32 38 30 00 CF |0:C1.C1.1:.280..|
000003A0: 0B 2C 01 3A 20 20 20 20 20 20 20 20 20 20 20 20 |.,.: |
000003B0: 20 53 49 24 B2 53 32 24 3A 8D 34 38 30 3A 8D 33 | SI$.S2$:.480:.3|
000003C0: 36 30 3A 43 32 B2 43 32 AA 31 3A 89 32 38 30 00 |60:C2.C2.1:.280.|
000003D0: D5 0B 36 01 3A 00 F2 0B 40 01 8B 20 43 32 B1 42 |..6.:...@.. C2.B|
000003E0: 32 20 A7 34 30 30 3A 8F 20 45 4F 46 20 46 49 4C |2 .400:. EOF FIL|
000003F0: 45 32 00 FB 0B 4A 01 89 33 30 30 00 1F 0C 54 01 |E2...J..300...T.|
00000400: 8B 43 31 B3 42 31 A7 20 84 33 2C 49 44 24 2C 42 |.C1.B1. .3,ID$,B|
00000410: 45 24 3A 8D 34 31 30 3A 53 31 24 B2 53 49 24 00 |E$:.410:S1$.SI$.|
00000420: 25 0C 5E 01 8E 00 49 0C 68 01 8B 43 32 B3 42 32 |%.^...I.h..C2.B2|
00000430: A7 20 84 34 2C 49 44 24 2C 42 45 24 3A 8D 34 31 |. .4,ID$,BE$:.41|
00000440: 30 3A 53 32 24 B2 53 49 24 00 4F 0C 72 01 8E 00 |0:S2$.SI$.O.r...|
00000450: 55 0C 7C 01 3A 00 5B 0C 86 01 3A 00 6D 0C 90 01 |U.|.:.[...:.m...|
00000460: A0 33 3A A0 34 3A A0 35 3A 89 36 30 30 00 92 0C |.3:.4:.5:.600...|
00000470: 9A 01 3A 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..:. ***********|
00000480: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000490: 2A 2A 00 C1 0C A4 01 8B 53 41 24 B2 22 4E 22 A7 |**......SA$."N".|
000004A0: 53 49 24 B2 42 45 24 AA 22 20 20 20 22 AA C9 28 |SI$.BE$." "..(|
000004B0: 22 20 20 20 22 AA 49 44 24 2C 33 29 3A 89 34 34 |" ".ID$,3):.44|
000004C0: 30 00 DC 0C AE 01 53 49 24 B2 C9 28 22 20 20 20 |0.....SI$..(" |
000004D0: 22 AA 49 44 24 2C 33 29 AA 42 45 24 00 E2 0C B8 |".ID$,3).BE$....|
000004E0: 01 8E 00 08 0D C2 01 3A 8F 20 2A 2A 2A 45 4E 44 |.......:. ***END|
000004F0: 20 4F 46 20 53 55 42 20 54 4F 20 43 52 45 41 54 | OF SUB TO CREAT|
00000500: 45 20 53 49 24 2A 2A 2A 00 0E 0D CC 01 3A 00 14 |E SI$***.....:..|
00000510: 0D D6 01 3A 00 39 0D E0 01 3A 8F 20 2A 2A 2A 2A |...:.9...:. ****|
00000520: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000530: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 63 0D EA 01 8B 53 |*********.c....S|
00000540: 41 24 B2 22 4E 22 A7 53 49 24 B2 C9 28 53 49 24 |A$."N".SI$..(SI$|
00000550: 2C 33 29 AA C8 28 53 49 24 2C C3 28 53 49 24 29 |,3)..(SI$,.(SI$)|
00000560: AB 36 29 00 8A 0D F4 01 8B C8 28 53 49 24 2C 32 |.6).......(SI$,2|
00000570: 29 B2 22 20 20 22 A7 49 44 24 B2 CA 28 53 49 24 |)." ".ID$..(SI$|
00000580: 2C 33 2C 31 29 3A 89 35 33 30 00 B0 0D FE 01 8B |,3,1):.530......|
00000590: C8 28 53 49 24 2C 31 29 B2 22 20 22 A7 49 44 24 |.(SI$,1)." ".ID$|
000005A0: B2 CA 28 53 49 24 2C 32 2C 32 29 3A 89 35 33 30 |..(SI$,2,2):.530|
000005B0: 00 C1 0D 08 02 49 44 24 B2 C8 28 53 49 24 2C 33 |.....ID$..(SI$,3|
000005C0: 29 00 D5 0D 12 02 42 45 24 B2 CA 28 53 49 24 2C |).....BE$..(SI$,|
000005D0: 34 2C 32 38 29 00 E7 0D 1C 02 98 35 2C 49 44 24 |4,28)......5,ID$|
000005E0: 20 5A 24 20 42 45 24 00 ED 0D 26 02 8E 00 13 0E | Z$ BE$...&.....|
000005F0: 30 02 3A 8F 20 2A 2A 2A 45 4E 44 20 4F 46 20 53 |0.:. ***END OF S|
00000600: 55 42 20 54 4F 20 4F 55 54 50 55 54 20 53 49 24 |UB TO OUTPUT SI$|
00000610: 2A 2A 2A 00 19 0E 3A 02 3A 00 36 0E 58 02 99 22 |***...:.:.6.X.."|
00000620: 93 11 11 11 11 11 11 20 20 20 C5 58 49 54 20 CD |....... .XIT .|
00000630: 45 4E 55 3A 11 22 00 6C 0E 62 02 99 22 20 20 20 |ENU:.".l.b.." |
00000640: 31 2E 20 C2 C1 D3 C9 C3 22 3A 99 22 20 20 20 32 |1. .....":." 2|
00000650: 2E 20 CD 41 49 4E 20 50 52 4F 47 2E 20 22 3A 99 |. .AIN PROG. ":.|
00000660: 22 20 20 20 33 2E 20 D3 4F 52 54 22 00 8D 0E 6C |" 3. .ORT"...l|
00000670: 02 99 22 20 20 20 34 2E 20 CC 49 53 54 22 3A 99 |.." 4. .IST":.|
00000680: 22 20 20 20 35 2E 20 CD 41 54 43 48 22 00 A3 0E |" 5. .ATCH"...|
00000690: 71 02 A0 31 35 3A 9F 31 35 2C 38 2C 31 35 2C 22 |q..15:.15,8,15,"|
000006A0: 55 4A 22 00 B6 0E 76 02 A1 41 24 3A 8B 41 24 B2 |UJ"...v..A$:.A$.|
000006B0: 22 22 A7 36 33 30 00 C4 0E 80 02 8B 41 24 B2 22 |"".630......A$."|
000006C0: 31 22 A7 80 00 E4 0E 8A 02 8B 41 24 B2 22 32 22 |1"........A$."2"|
000006D0: A7 4C 24 B2 22 56 33 39 2E 4F 42 4A 2E 43 22 3A |.L$."V39.OBJ.C":|
000006E0: 89 37 30 30 00 04 0F 94 02 8B 41 24 B2 22 33 22 |.700......A$."3"|
000006F0: A7 4C 24 B2 22 56 33 39 2E 53 4F 52 54 2A 22 3A |.L$."V39.SORT*":|
00000700: 89 37 30 30 00 24 0F 9E 02 8B 41 24 B2 22 34 22 |.700.$....A$."4"|
00000710: A7 4C 24 B2 22 56 33 39 2E 4C 49 53 54 2A 22 3A |.L$."V39.LIST*":|
00000720: 89 37 30 30 00 44 0F A8 02 8B 41 24 B2 22 35 22 |.700.D....A$."5"|
00000730: A7 4C 24 B2 22 56 33 39 2E 4D 41 54 43 2A 22 3A |.L$."V39.MATC*":|
00000740: 89 37 30 30 00 4D 0F B2 02 89 31 32 30 00 7E 0F |.700.M....120.~.|
00000750: BC 02 99 22 90 93 11 11 4C CF 22 3B C7 28 33 34 |..."....L.";.(34|
00000760: 29 3B 4C 24 3B C7 28 33 34 29 3B 22 2C 38 2C 31 |);L$;.(34);",8,1|
00000770: 11 11 20 20 22 3A 99 22 52 55 4E 13 22 3B 00 8B |.. ":."RUN.";..|
00000780: 0F D0 02 99 22 20 20 20 13 22 3B 00 A8 0F DA 02 |...." .";.....|
00000790: 97 36 33 31 2C 31 33 3A 97 36 33 32 2C 31 33 3A |.631,13:.632,13:|
000007A0: 97 31 39 38 2C 32 3A 80 00 00 00 |.198,2:.... |
.......43,001:.44,008.)....45,170:.46,01
5.=....47,177:.48,015.Q.(..49,177:.50,01
5.E.2..51,000:.52,160.Y.<..53,000:.54,16
0...F..55,000:.56,160...P..51740.U.D.. S
ETUP SANITATION ENGINEER FROM T
HE TRANSACTOR...N.Z$.",":CM.0:F$." FILE
NAME=":.G(14).B.X..".... MERGE BY (N)AME
OR (I)D. NO. (M014)":." (N)OR(I) ^=EXI
T".W....SA$:.SA$."".130.P....SA$."^".600
:. ABORT......" INPUT FILE 1=LIB.";T$:T
$.H(T$,12):.T$."^".600:. ABORT.L. ..3,8,
6,"0:LIB.".T$.",S,R"......3,B1:. COUNT=B
1 RECORDS.'...." INPUT FILE 2=LIB.";T$:
T$.H(T$,12):.T$."^".600:. ABORT.E....4,8
,7,"0:LIB.".T$.",S,R".B.H..4,B2:. COUNT=
B2 RECORDS. .R.." OUTPUT FILE =LIB.";T$
:T$.H(T$,12):.T$."^".600:. ABORT.....BT.
B1.B2.K....5,8,8,"0:LIB.".T$.",S,W".....
.5,BT:. COUNT=B1 + B2 RCDS.....:. --- RE
AD FIRST 2 RECORDS ---.*....340:C1.C1.1:
. READ S1$.F....360:C2.C2.1:. READ S2$.F
.... C1.B1 .320:. EOF FILE1...".. S1$
..S2$ . C2.B2 . SI$.S1$:.480:.340:C1.C1.
1:.280.O.,.: SI$.S2$:.480:.3
60:C2.C2.1:.280.U.6.:...@.. C2.B2 .400:.
EOF FILE2...J..300...T..C1.B1. .3,ID$,B
E$:.410:S1$.SI$.%.^...I.H..C2.B2. .4,ID$
,BE$:.410:S2$.SI$.O.R...U.|.:.[...:.M...
3: 4: 5:.600.....:. *******************
**********.A....SA$."N".SI$.BE$." ".I(
" ".ID$,3):.440.....SI$.I(" ".ID$,3)
.BE$.........B.:. ***END OF SUB TO CREAT
E SI$***...L.:...V.:.9...:. ************
*****************.C....SA$."N".SI$.I(SI$
,3).H(SI$,C(SI$).6)......H(SI$,2)." ".I
D$.J(SI$,3,1):.530......H(SI$,1)." ".ID$
.J(SI$,2,2):.530.A...ID$.H(SI$,3).U...BE
$.J(SI$,4,28)......5,ID$ Z$ BE$...&.....
0.:. ***END OF SUB TO OUTPUT SI$***...:.
:.6.X.."....... EXIT MENU:.".L.B.."
1. BASIC":." 2. MAIN PROG. ":." 3. S
ORT"...L.." 4. LIST":." 5. MATCH"...
Q. 15:.15,8,15,"UJ"...V..A$:.A$."".630.D
....A$."1"........A$."2".L$."V39.OBJ.C":
.700......A$."3".L$."V39.SORT*":.700.$..
..A$."4".L$."V39.LIST*":.700.D....A$."5"
.L$."V39.MATC*":.700.M....120.~...."....
LO";G(34);L$;G(34);",8,1.. ":."RUN.";..
.P.." .";...Z..631,13:.632,13:.198,2:.
...
> CLICK IMAGE PREVIEW FOR FULL MODAL