V39.MATCH.C
FILE INFORMATION
FILENAME(S): V39.MATCH.C
FILE TYPE(S): PRG
FILE SIZE: 2K
FIRST SEEN: 2025-11-30 16:28:12
APPEARS ON: 1 disk(s)
FILE HASH
41398d051f944b010c6d91ac7cb30cb8bacb1ea1cd1ad028aa08cb459a47f249
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| RED WOLFGANG 204 | V39.MATCH.C | PRG | BrainSkull, Wolfgang Red | 16 | 0 | 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 30 31 |4,008.)....45,01|
00000020: 34 3A 97 34 36 2C 30 31 36 00 3D 08 1E 00 97 34 |4:.46,016.=....4|
00000030: 37 2C 30 32 31 3A 97 34 38 2C 30 31 36 00 51 08 |7,021:.48,016.Q.|
00000040: 28 00 97 34 39 2C 30 32 31 3A 97 35 30 2C 30 31 |(..49,021:.50,01|
00000050: 36 00 65 08 32 00 97 35 31 2C 30 30 30 3A 97 35 |6.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 EF 08 6E 00 86 20 49 44 24 28 |ACTOR...n.. ID$(|
000000E0: 31 30 30 30 29 2C 42 45 24 28 31 30 30 30 29 00 |1000),BE$(1000).|
000000F0: 32 09 78 00 5A 24 B2 22 2C 22 3A 43 4D B2 30 3A |2.x.Z$.",":CM.0:|
00000100: 46 24 B2 22 20 20 C6 49 4C 45 4E 41 4D 45 3D 22 |F$." .ILENAME="|
00000110: 3A 99 C7 28 31 34 29 3A 9E 35 31 37 34 30 3A 8F |:..(14):.51740:.|
00000120: 20 49 4E 49 54 49 41 54 45 20 53 41 4E 2E 45 4E | INITIATE SAN.EN|
00000130: 47 2E 00 65 09 82 00 99 22 9F 93 11 11 20 20 CD |G..e....".... .|
00000140: 41 54 43 48 20 CE 41 4D 45 53 20 C1 4C 50 48 41 |ATCH .AMES .LPHA|
00000150: 42 45 54 49 43 41 4C 4C 59 20 2D 20 28 D6 31 31 |BETICALLY - (.11|
00000160: 2E 30 29 20 22 00 8F 09 8C 00 99 22 20 20 D3 45 |.0) "......" .E|
00000170: 4C 45 43 54 20 CE 41 4D 45 53 20 46 52 4F 4D 20 |LECT .AMES FROM |
00000180: C6 49 4C 45 20 31 20 28 5E 3D 45 58 49 54 29 00 |.ILE 1 (^=EXIT).|
00000190: A4 09 96 00 A1 53 41 24 3A 8B 53 41 24 B2 22 22 |.....SA$:.SA$.""|
000001A0: A7 31 35 30 00 B5 09 A0 00 8B 53 41 24 B2 22 5E |.150......SA$."^|
000001B0: 22 A7 36 36 30 00 F3 09 AA 00 85 22 20 20 C9 4E |".660......" .N|
000001C0: 50 55 54 20 C6 49 4C 45 20 31 3D 4C 49 42 2E 22 |PUT .ILE 1=LIB."|
000001D0: 3B 54 24 3A 54 24 B2 C8 28 54 24 2C 31 32 29 3A |;T$:T$..(T$,12):|
000001E0: 8B 54 24 B2 22 5E 22 A7 36 36 30 3A 8F 20 41 42 |.T$."^".660:. AB|
000001F0: 4F 52 54 00 11 0A B4 00 9F 33 2C 38 2C 36 2C 22 |ORT......3,8,6,"|
00000200: 30 3A 4C 49 42 2E 22 AA 54 24 AA 22 2C 53 2C 52 |0:LIB.".T$.",S,R|
00000210: 22 00 2E 0A BE 00 84 33 2C 42 31 3A 8F 20 43 4F |"......3,B1:. CO|
00000220: 55 4E 54 3D 42 31 20 52 45 43 4F 52 44 53 00 6C |UNT=B1 RECORDS.l|
00000230: 0A C8 00 85 22 20 20 C9 4E 50 55 54 20 C6 49 4C |...." .NPUT .IL|
00000240: 45 20 32 3D 4C 49 42 2E 22 3B 54 24 3A 54 24 B2 |E 2=LIB.";T$:T$.|
00000250: C8 28 54 24 2C 31 32 29 3A 8B 54 24 B2 22 5E 22 |.(T$,12):.T$."^"|
00000260: A7 36 36 30 3A 8F 20 41 42 4F 52 54 00 8A 0A D2 |.660:. ABORT....|
00000270: 00 9F 34 2C 38 2C 37 2C 22 30 3A 4C 49 42 2E 22 |..4,8,7,"0:LIB."|
00000280: AA 54 24 AA 22 2C 53 2C 52 22 00 A7 0A DC 00 84 |.T$.",S,R"......|
00000290: 34 2C 42 32 3A 8F 20 43 4F 55 4E 54 3D 42 32 20 |4,B2:. COUNT=B2 |
000002A0: 52 45 43 4F 52 44 53 00 E5 0A E6 00 85 22 20 20 |RECORDS......" |
000002B0: CF 55 54 50 55 54 20 C6 49 4C 45 20 3D 4C 49 42 |.UTPUT .ILE =LIB|
000002C0: 2E 22 3B 54 24 3A 54 24 B2 C8 28 54 24 2C 31 32 |.";T$:T$..(T$,12|
000002D0: 29 3A 8B 54 24 B2 22 5E 22 A7 36 36 30 3A 8F 20 |):.T$."^".660:. |
000002E0: 41 42 4F 52 54 00 EE 0A F0 00 42 54 B2 30 00 0C |ABORT.....BT.0..|
000002F0: 0B FA 00 9F 35 2C 38 2C 38 2C 22 30 3A 4C 49 42 |....5,8,8,"0:LIB|
00000300: 2E 22 AA 54 24 AA 22 2C 53 2C 57 22 00 36 0B 04 |.".T$.",S,W".6..|
00000310: 01 8F 20 20 20 50 52 49 4E 54 23 35 2C 42 54 3A |.. PRINT#5,BT:|
00000320: 52 45 4D 20 43 4F 55 4E 54 3D 42 31 20 2B 20 42 |REM COUNT=B1 + B|
00000330: 32 20 52 43 44 53 00 3C 0B 0E 01 99 00 42 0B 18 |2 RCDS.<.....B..|
00000340: 01 8F 00 5D 0B 22 01 8D 33 38 30 3A 43 31 B2 43 |...]."..380:C1.C|
00000350: 31 AA 31 3A 8F 20 52 45 41 44 53 31 24 00 78 0B |1.1:. READS1$.x.|
00000360: 2C 01 8D 34 30 30 3A 43 32 B2 43 32 AA 31 3A 8F |,..400:C2.C2.1:.|
00000370: 20 52 45 41 44 53 32 24 00 98 0B 36 01 8B 20 43 | READS2$...6.. C|
00000380: 31 B1 42 31 20 20 20 20 A7 34 32 30 3A 8F 20 45 |1.B1 .420:. E|
00000390: 4F 46 20 46 49 4C 45 31 00 CF 0B 40 01 8B 20 53 |OF FILE1...@.. S|
000003A0: 31 24 B3 53 32 24 20 B0 20 43 32 B1 42 32 20 A7 |1$.S2$ . C2.B2 .|
000003B0: 20 53 49 24 B2 57 31 24 3A 8D 35 36 30 3A 8D 33 | SI$.W1$:.560:.3|
000003C0: 38 30 3A 43 31 B2 43 31 AA 31 3A 89 33 31 30 00 |80:C1.C1.1:.310.|
000003D0: F9 0B 4A 01 8B 20 53 31 24 B2 53 32 24 20 B0 20 |..J.. S1$.S2$ . |
000003E0: 43 32 B1 42 32 20 A7 20 8D 33 38 30 3A 43 31 B2 |C2.B2 . .380:C1.|
000003F0: 43 31 AA 31 3A 89 33 31 30 00 0F 0C 54 01 8D 34 |C1.1:.310...T..4|
00000400: 30 30 3A 43 32 B2 43 32 AA 31 3A 89 33 31 30 00 |00:C2.C2.1:.310.|
00000410: 15 0C 5E 01 3A 00 32 0C 68 01 8B 20 43 32 B1 42 |..^.:.2.h.. C2.B|
00000420: 32 20 A7 34 32 30 3A 8F 20 45 4F 46 20 46 49 4C |2 .420:. EOF FIL|
00000430: 45 32 00 3B 0C 72 01 89 33 34 30 00 67 0C 7C 01 |E2.;.r..340.g.|.|
00000440: 8B 43 31 B3 42 31 A7 20 84 33 2C 49 44 24 2C 42 |.C1.B1. .3,ID$,B|
00000450: 45 24 3A 8D 34 39 30 3A 53 31 24 B2 42 45 24 3A |E$:.490:S1$.BE$:|
00000460: 57 31 24 B2 53 49 24 00 6D 0C 86 01 8E 00 99 0C |W1$.SI$.m.......|
00000470: 90 01 8B 43 32 B3 42 32 A7 20 84 34 2C 49 44 24 |...C2.B2. .4,ID$|
00000480: 2C 42 45 24 3A 8D 34 39 30 3A 53 32 24 B2 42 45 |,BE$:.490:S2$.BE|
00000490: 24 3A 57 32 24 B2 53 49 24 00 9F 0C 9A 01 8E 00 |$:W2$.SI$.......|
000004A0: A9 0C A4 01 A0 33 3A A0 34 00 B3 0C AE 01 98 35 |.....3:.4......5|
000004B0: 2C 42 54 00 BF 0C B8 01 81 49 B2 31 A4 42 54 00 |,BT......I.1.BT.|
000004C0: D7 0C C2 01 98 35 2C 49 44 24 28 49 29 20 5A 24 |.....5,ID$(I) Z$|
000004D0: 20 42 45 24 28 49 29 00 DE 0C CC 01 82 49 00 E5 | BE$(I)......I..|
000004E0: 0C D6 01 A0 35 00 EE 0C E0 01 89 36 36 30 00 FA |....5......660..|
000004F0: 0C EA 01 3A 8F 20 2A 2A 2A 2A 00 29 0D F4 01 8B |...:. ****.)....|
00000500: 53 41 24 B2 22 4E 22 A7 53 49 24 B2 42 45 24 AA |SA$."N".SI$.BE$.|
00000510: 22 20 20 20 22 AA C9 28 22 20 20 20 22 AA 49 44 |" "..(" ".ID|
00000520: 24 2C 33 29 3A 89 35 32 30 00 44 0D FE 01 53 49 |$,3):.520.D...SI|
00000530: 24 B2 C9 28 22 20 20 20 22 AA 49 44 24 2C 33 29 |$..(" ".ID$,3)|
00000540: AA 42 45 24 00 4A 0D 08 02 8E 00 55 0D 12 02 3A |.BE$.J.....U...:|
00000550: 8F 20 2A 2A 2A 00 7F 0D 1C 02 8B 53 41 24 B2 22 |. ***......SA$."|
00000560: 4E 22 A7 53 49 24 B2 C9 28 53 49 24 2C 33 29 AA |N".SI$..(SI$,3).|
00000570: C8 28 53 49 24 2C C3 28 53 49 24 29 AB 36 29 00 |.(SI$,.(SI$).6).|
00000580: A6 0D 26 02 8B C8 28 53 49 24 2C 32 29 B2 22 20 |..&...(SI$,2)." |
00000590: 20 22 A7 49 44 24 B2 CA 28 53 49 24 2C 33 2C 31 | ".ID$..(SI$,3,1|
000005A0: 29 3A 89 35 38 30 00 CC 0D 30 02 8B C8 28 53 49 |):.580...0...(SI|
000005B0: 24 2C 31 29 B2 22 20 22 A7 49 44 24 B2 CA 28 53 |$,1)." ".ID$..(S|
000005C0: 49 24 2C 32 2C 32 29 3A 89 35 38 30 00 DD 0D 3A |I$,2,2):.580...:|
000005D0: 02 49 44 24 B2 C8 28 53 49 24 2C 33 29 00 F1 0D |.ID$..(SI$,3)...|
000005E0: 44 02 42 45 24 B2 CA 28 53 49 24 2C 34 2C 32 38 |D.BE$..(SI$,4,28|
000005F0: 29 00 0C 0E 4E 02 8F 20 20 20 50 52 49 4E 54 23 |)...N.. PRINT#|
00000600: 35 2C 49 44 24 20 5A 24 20 42 45 24 00 30 0E 58 |5,ID$ Z$ BE$.0.X|
00000610: 02 42 54 B2 42 54 AA 31 3A 49 44 24 28 42 54 29 |.BT.BT.1:ID$(BT)|
00000620: B2 49 44 24 3A 42 45 24 28 42 54 29 B2 42 45 24 |.ID$:BE$(BT).BE$|
00000630: 00 6E 0E 62 02 99 22 91 20 20 20 20 20 20 20 20 |.n.b..". |
00000640: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000650: 20 20 20 20 20 20 20 20 20 22 3A 99 22 91 22 42 | ":."."B|
00000660: 54 22 20 20 22 49 44 24 22 20 22 42 45 24 00 74 |T" "ID$" "BE$.t|
00000670: 0E 6C 02 8E 00 7F 0E 76 02 3A 8F 20 2A 2A 2A 00 |.l.....v.:. ***.|
00000680: 9C 0E 94 02 99 22 93 11 11 11 11 11 11 20 20 20 |....."....... |
00000690: C5 58 49 54 20 CD 45 4E 55 3A 11 22 00 D3 0E 9E |.XIT .ENU:."....|
000006A0: 02 99 22 20 20 20 31 2E 20 C2 C1 D3 C9 C3 22 3A |.." 1. .....":|
000006B0: 99 22 20 20 20 32 2E 20 CD 41 49 4E 20 50 52 4F |." 2. .AIN PRO|
000006C0: 47 2E 20 22 3A 99 22 20 20 20 33 2E 20 CD 45 52 |G. ":." 3. .ER|
000006D0: 47 45 22 00 F3 0E A8 02 99 22 20 20 20 34 2E 20 |GE"......" 4. |
000006E0: CC 49 53 54 22 3A 99 22 20 20 20 35 2E 20 D3 4F |.IST":." 5. .O|
000006F0: 52 54 22 00 09 0F AD 02 A0 31 35 3A 9F 31 35 2C |RT"......15:.15,|
00000700: 38 2C 31 35 2C 22 55 4A 22 00 1C 0F B2 02 A1 41 |8,15,"UJ"......A|
00000710: 24 3A 8B 41 24 B2 22 22 A7 36 39 30 00 2A 0F BC |$:.A$."".690.*..|
00000720: 02 8B 41 24 B2 22 31 22 A7 80 00 4A 0F C6 02 8B |..A$."1"...J....|
00000730: 41 24 B2 22 32 22 A7 4C 24 B2 22 56 33 39 2E 4F |A$."2".L$."V39.O|
00000740: 42 4A 2E 43 22 3A 89 37 36 30 00 6A 0F D0 02 8B |BJ.C":.760.j....|
00000750: 41 24 B2 22 33 22 A7 4C 24 B2 22 56 33 39 2E 4D |A$."3".L$."V39.M|
00000760: 45 52 47 2A 22 3A 89 37 36 30 00 8A 0F DA 02 8B |ERG*":.760......|
00000770: 41 24 B2 22 34 22 A7 4C 24 B2 22 56 33 39 2E 4C |A$."4".L$."V39.L|
00000780: 49 53 54 2A 22 3A 89 37 36 30 00 AA 0F E4 02 8B |IST*":.760......|
00000790: 41 24 B2 22 35 22 A7 4C 24 B2 22 56 33 39 2E 53 |A$."5".L$."V39.S|
000007A0: 4F 52 54 2A 22 3A 89 37 36 30 00 B3 0F EE 02 89 |ORT*":.760......|
000007B0: 31 33 30 00 E2 0F F8 02 99 22 90 93 11 11 4C CF |130......"....L.|
000007C0: 22 3B C7 28 33 34 29 3B 4C 24 3B C7 28 33 34 29 |";.(34);L$;.(34)|
000007D0: 3B 22 2C 38 11 11 20 20 22 3A 99 22 52 55 4E 13 |;",8.. ":."RUN.|
000007E0: 22 3B 00 EF 0F 02 03 99 22 20 20 20 13 22 3B 00 |";......" .";.|
000007F0: 0C 10 0C 03 97 36 33 31 2C 31 33 3A 97 36 33 32 |.....631,13:.632|
00000800: 2C 31 33 3A 97 31 39 38 2C 32 3A 80 00 00 00 |,13:.198,2:.... |
.......43,001:.44,008.)....45,014:.46,01
6.=....47,021:.48,016.Q.(..49,021:.50,01
6.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.. ID$(1000),BE$(1000).
2.X.Z$.",":CM.0:F$." FILENAME=":.G(14):
.51740:. INITIATE SAN.ENG..E....".... M
ATCH NAMES ALPHABETICALLY - (V11.0) "...
..." SELECT NAMES FROM FILE 1 (^=EXIT).
.....SA$:.SA$."".150... ..SA$."^".660...
..." INPUT FILE 1=LIB.";T$:T$.H(T$,12):
.T$."^".660:. ABORT......3,8,6,"0:LIB.".
T$.",S,R"......3,B1:. COUNT=B1 RECORDS.L
.H.." INPUT FILE 2=LIB.";T$:T$.H(T$,12)
:.T$."^".660:. ABORT...R..4,8,7,"0:LIB."
.T$.",S,R"......4,B2:. COUNT=B2 RECORDS.
....." OUTPUT FILE =LIB.";T$:T$.H(T$,12
):.T$."^".660:. ABORT.....BT.0......5,8,
8,"0:LIB.".T$.",S,W".6.... PRINT#5,BT:
REM COUNT=B1 + B2 RCDS.<.....B.....]."..
380:C1.C1.1:. READS1$.X.,..400:C2.C2.1:.
READS2$...6.. C1.B1 .420:. EOF FILE1
.O.@.. S1$.S2$ . C2.B2 . SI$.W1$:.560:.3
80:C1.C1.1:.310...J.. S1$.S2$ . C2.B2 .
.380:C1.C1.1:.310...T..400:C2.C2.1:.310.
..^.:.2.H.. C2.B2 .420:. EOF FILE2.;.R..
340.G.|..C1.B1. .3,ID$,BE$:.490:S1$.BE$:
W1$.SI$.M..........C2.B2. .4,ID$,BE$:.49
0:S2$.BE$:W2$.SI$........... 3: 4......5
,BT......I.1.BT.W.B..5,ID$(I) Z$ BE$(I).
..L..I...V. 5......660.....:. ****.)....
SA$."N".SI$.BE$." ".I(" ".ID$,3):.52
0.D...SI$.I(" ".ID$,3).BE$.J.....U...:
. ***.....SA$."N".SI$.I(SI$,3).H(SI$,C(
SI$).6)...&..H(SI$,2)." ".ID$.J(SI$,3,1
):.580.L.0..H(SI$,1)." ".ID$.J(SI$,2,2):
.580...:.ID$.H(SI$,3)...D.BE$.J(SI$,4,28
)...N.. PRINT#5,ID$ Z$ BE$.0.X.BT.BT.1
:ID$(BT).ID$:BE$(BT).BE$.N.B..".
":."."BT" "ID$
" "BE$.T.L....V.:. ***......".......
EXIT MENU:.".S...." 1. BASIC":." 2.
MAIN PROG. ":." 3. MERGE"......" 4.
LIST":." 5. SORT"..... 15:.15,8,15,"UJ
"......A$:.A$."".690.*....A$."1"...J.F..
A$."2".L$."V39.OBJ.C":.760.J.P..A$."3".L
$."V39.MERG*":.760...Z..A$."4".L$."V39.L
IST*":.760......A$."5".L$."V39.SORT*":.7
60......130......"....LO";G(34);L$;G(34)
;",8.. ":."RUN.";......" .";......631
,13:.632,13:.198,2:....
> CLICK IMAGE PREVIEW FOR FULL MODAL