SHELL-METZNER
FILE INFORMATION
FILENAME(S): SHELL-METZNER
FILE TYPE(S): PRG
FILE SIZE: 1.1K
FIRST SEEN: 2025-11-30 19:38:38
APPEARS ON: 1 disk(s)
FILE HASH
bb2446afd229a27068e0dda13572b1dccc16b898250962859f410d7300418335
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TEST DISK | SHELL-METZNER | PRG | Curtcool, Brian | 14 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 07 08 E8 03 8F 00 1B 08 E9 03 8F 43 4F 4E |.............CON| 00000010: 54 52 4F 4C 20 52 55 54 49 4E 45 00 2B 08 EA 03 |TROL RUTINE.+...| 00000020: 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 35 08 F2 03 |.**********.5...| 00000030: 8D 35 30 30 30 00 63 08 FC 03 8D 34 30 30 30 3A |.5000.c....4000:| 00000040: 54 49 24 B2 22 30 30 30 30 30 30 22 3A 8D 38 30 |TI$."000000":.80| 00000050: 30 30 3A 99 54 49 24 3A 8D 36 30 30 30 3A 8D 37 |00:.TI$:.6000:.7| 00000060: 30 30 30 00 91 08 06 04 8D 34 30 30 30 3A 54 49 |000......4000:TI| 00000070: 24 B2 22 30 30 30 30 30 30 22 3A 8D 39 30 30 30 |$."000000":.9000| 00000080: 3A 99 54 49 24 3A 8D 36 30 30 30 3A 8D 37 30 30 |:.TI$:.6000:.700| 00000090: 30 00 C0 08 10 04 8D 34 30 30 30 3A 54 49 24 B2 |0......4000:TI$.| 000000A0: 22 30 30 30 30 30 30 22 3A 8D 31 30 30 30 30 3A |"000000":.10000:| 000000B0: 99 54 49 24 3A 8D 36 30 30 30 3A 8D 37 30 30 30 |.TI$:.6000:.7000| 000000C0: 00 D7 08 4C 04 99 22 4C 49 53 54 20 4E 4F 57 20 |...L.."LIST NOW | 000000D0: 53 4F 52 54 45 44 22 00 DD 08 AF 04 90 00 ED 08 |SORTED".........| 000000E0: A0 0F 8F 2A 43 4F 50 59 20 4C 49 53 54 00 F9 08 |...*COPY LIST...| 000000F0: AA 0F 81 49 B2 30 A4 39 39 00 09 09 B4 0F 42 24 |...I.0.99.....B$| 00000100: 28 49 29 B2 41 24 28 49 29 00 10 09 BE 0F 82 49 |(I).A$(I)......I| 00000110: 00 16 09 C8 0F 8E 00 2A 09 88 13 8F 2A 47 45 4E |.......*....*GEN| 00000120: 45 52 41 54 45 20 4C 49 53 54 00 48 09 92 13 49 |ERATE LIST.H...I| 00000130: 54 B2 31 30 30 3A 86 41 24 28 49 54 AB 31 29 2C |T.100:.A$(IT.1),| 00000140: 42 24 28 49 54 AB 31 29 00 57 09 9C 13 81 49 B2 |B$(IT.1).W....I.| 00000150: 30 A4 20 49 54 AB 31 00 61 09 A6 13 54 24 B2 22 |0. IT.1.a...T$."| 00000160: 22 00 77 09 B0 13 81 4A B2 31 A4 20 34 AA B5 28 |".w....J.1. 4..(| 00000170: 39 AC BB 28 30 29 29 00 8F 09 BA 13 54 24 B2 54 |9..(0)).....T$.T| 00000180: 24 AA C7 28 36 35 AA 32 39 AC BB 28 30 29 29 00 |$..(65.29..(0)).| 00000190: 96 09 C4 13 82 4A 00 A3 09 CE 13 41 24 28 49 29 |.....J.....A$(I)| 000001A0: B2 54 24 00 AA 09 D8 13 82 49 00 B0 09 E2 13 8E |.T$......I......| 000001B0: 00 C1 09 70 17 8F 2A 50 52 49 4E 54 20 4C 49 53 |...p..*PRINT LIS| 000001C0: 54 00 CF 09 7A 17 81 49 B2 30 A4 49 54 AB 31 00 |T...z..I.0.IT.1.| 000001D0: DA 09 84 17 99 42 24 28 49 29 00 FD 09 8E 17 8B |.....B$(I)......| 000001E0: 49 AD 31 30 B2 B5 28 49 AD 31 30 29 A7 20 A1 54 |I.10..(I.10). .T| 000001F0: 24 3A 8B 54 24 B2 22 22 A7 36 30 33 30 00 04 0A |$:.T$."".6030...| 00000200: 98 17 82 49 00 0A 0A A2 17 8E 00 1C 0A 58 1B 8F |...I.........X..| 00000210: 2A 43 48 45 43 4B 20 4F 52 44 45 52 00 2A 0A 62 |*CHECK ORDER.*.b| 00000220: 1B 81 49 B2 30 A4 49 54 AB 32 00 54 0A 6C 1B 8B |..I.0.IT.2.T.l..| 00000230: 42 24 28 49 29 B1 42 24 28 49 AA 31 29 A7 20 99 |B$(I).B$(I.1). .| 00000240: 22 4F 55 54 20 4F 46 20 4F 52 44 45 52 22 20 41 |"OUT OF ORDER" A| 00000250: 54 22 3B 49 00 5C 0A 76 1B 82 20 49 00 62 0A 80 |T";I.\.v.. I.b..| 00000260: 1B 8E 00 74 0A 40 1F 8F 2A 42 55 42 42 4C 45 20 |...t.@..*BUBBLE | 00000270: 53 4F 52 54 00 88 0A 4A 1F 81 20 49 B2 49 54 AB |SORT...J.. I.IT.| 00000280: 31 A4 20 31 A9 20 AB 31 00 95 0A 54 1F 81 4A B2 |1. 1. .1...T..J.| 00000290: 30 A4 49 AB 31 00 AE 0A 5E 1F 8B 42 24 28 4A 29 |0.I.1...^..B$(J)| 000002A0: B3 B2 42 24 28 4A AA 31 29 A7 38 30 37 30 00 BB |..B$(J.1).8070..| 000002B0: 0A 68 1F 54 24 B2 42 24 28 4A 29 00 CD 0A 72 1F |.h.T$.B$(J)...r.| 000002C0: 42 24 28 4A 29 B2 42 24 28 4A AA 31 29 00 DC 0A |B$(J).B$(J.1)...| 000002D0: 7C 1F 42 24 28 4A AA 31 29 B2 54 24 00 E3 0A 86 ||.B$(J.1).T$....| 000002E0: 1F 82 4A 00 EA 0A 90 1F 82 49 00 F0 0A 9A 1F 8E |..J......I......| 000002F0: 00 0F 0B 28 23 8F 2A 44 45 4C 41 59 45 44 20 52 |...(#.*DELAYED R| 00000300: 45 50 4C 41 43 45 4D 45 4E 54 20 53 4F 52 54 00 |EPLACEMENT SORT.| 00000310: 20 0B 32 23 81 49 B2 49 54 AB 31 A4 31 A9 AB 31 | .2#.I.IT.1.1..1| 00000320: 00 29 0B 3C 23 4E 4E B2 30 00 34 0B 46 23 81 4A |.).<#NN.0.4.F#.J| 00000330: B2 31 A4 49 00 4B 0B 50 23 8B 42 24 28 4A 29 B1 |.1.I.K.P#.B$(J).| 00000340: 42 24 28 4E 4E 29 A7 4E 4E B2 4A 00 52 0B 5A 23 |B$(NN).NN.J.R.Z#| 00000350: 82 4A 00 5F 0B 64 23 54 24 B2 42 24 28 49 29 00 |.J._.d#T$.B$(I).| 00000360: 70 0B 6E 23 42 24 28 49 29 B2 42 24 28 4E 4E 29 |p.n#B$(I).B$(NN)| 00000370: 00 7E 0B 78 23 42 24 28 4E 4E 29 B2 54 24 00 85 |.~.x#B$(NN).T$..| 00000380: 0B 82 23 82 49 00 8B 0B 8C 23 8E 00 A4 0B 10 27 |..#.I....#.....'| 00000390: 8F 2A 53 48 45 4C 4C 2D 4D 45 54 5A 4E 45 52 20 |.*SHELL-METZNER | 000003A0: 53 4F 52 54 00 C2 0B 1A 27 47 41 50 B2 32 AE 28 |SORT....'GAP.2.(| 000003B0: B5 28 BC 28 49 54 AB 31 29 AD BC 28 32 29 29 AA |.(.(IT.1)..(2)).| 000003C0: 31 29 00 D0 0B 24 27 47 41 50 B2 47 41 50 AD 32 |1)...$'GAP.GAP.2| 000003D0: 00 EC 0B 2E 27 43 B2 49 54 AB 47 41 50 AB 31 3A |....'C.IT.GAP.1:| 000003E0: 42 B2 30 3A 8B 47 41 50 B3 31 A7 8E 00 F4 0B 38 |B.0:.GAP.1.....8| 000003F0: 27 41 B2 42 00 13 0C 42 27 44 B2 41 AA 47 41 50 |'A.B...B'D.A.GAP| 00000400: 3A 8B 42 24 28 41 29 B1 42 24 28 44 29 A7 31 30 |:.B$(A).B$(D).10| 00000410: 30 38 30 00 28 0C 4C 27 42 B2 42 AA 31 3A 8B 42 |080.(.L'B.B.1:.B| 00000420: B1 43 A7 31 30 30 32 30 00 33 0C 56 27 89 31 30 |.C.10020.3.V'.10| 00000430: 30 34 30 00 40 0C 60 27 54 24 B2 42 24 28 41 29 |040.@.`'T$.B$(A)| 00000440: 00 50 0C 6A 27 42 24 28 41 29 B2 42 24 28 44 29 |.P.j'B$(A).B$(D)| 00000450: 00 5D 0C 74 27 42 24 28 44 29 B2 54 24 00 74 0C |.].t'B$(D).T$.t.| 00000460: 7E 27 41 B2 41 AB 47 41 50 3A 8B 41 B3 30 A7 31 |~'A.A.GAP:.A.0.1| 00000470: 30 30 36 30 00 7F 0C 88 27 89 31 30 30 35 30 00 |0060....'.10050.| 00000480: 00 00 |.. |
.............CONTROL RUTINE.+....******* ***.5....5000.C....4000:TI$."000000":.80 00:.TI$:.6000:.7000......4000:TI$."00000 0":.9000:.TI$:.6000:.7000......4000:TI$. "000000":.10000:.TI$:.6000:.7000.W.L.."L IST NOW SORTED"......... ..*COPY LIST... ...I.0.99.....B$(I).A$(I)......I...H...* ....*GENERATE LIST.H...IT.100:.A$(IT.1), B$(IT.1).W....I.0. IT.1.A...T$."".W....J .1. 4..(9..(0)).....T$.T$.G(65.29..(0)). ..D..J...N.A$(I).T$...X..I.......A.P..*P RINT LIST.O.Z..I.0.IT.1.Z....B$(I)...... I.10..(I.10). .T$:.T$."".6030......I.... .....X..*CHECK ORDER.*.B..I.0.IT.2.T.L.. B$(I).B$(I.1). ."OUT OF ORDER" AT";I.\.V .. I.B.....T.@..*BUBBLE SORT...J.. I.IT. 1. 1. .1...T..J.0.I.1...^..B$(J)..B$(J.1 ).8070...H.T$.B$(J).M.R.B$(J).B$(J.1)... |.B$(J.1).T$......J......I.........(#.*D ELAYED REPLACEMENT SORT. .2#.I.IT.1.1..1 .).<#NN.0.4.F#.J.1.I.K.P#.B$(J).B$(NN).N N.J.R.Z#.J._.D#T$.B$(I).P.N#B$(I).B$(NN) .~.X#B$(NN).T$....#.I....#.....'.*SHELL- METZNER SORT.B..'GAP.2.(.(.(IT.1)..(2)). 1).P.$'GAP.GAP.2....'C.IT.GAP.1:B.0:.GAP .1.....8'A.B...B'D.A.GAP:.B$(A).B$(D).10 080.(.L'B.B.1:.B.C.10020.3.V'.10040.@.`' T$.B$(A).P.J'B$(A).B$(D).].T'B$(D).T$.T. ~'A.A.GAP:.A.0.10060...'.10050...
> CLICK IMAGE PREVIEW FOR FULL MODAL