MISCHSORT
FILE INFORMATION
FILENAME(S): MISCHSORT
FILE TYPE(S): PRG
FILE SIZE: 2.1K
FIRST SEEN: 2025-11-30 01:12:36
APPEARS ON: 2 disk(s)
FILE HASH
cbeb812c6d777b688e0ddc7ed7bb8114c773cd4a49a4b0d6dce543239cd56341
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MASTER 64 9 | MISCHSORT | PRG | C64er, DuncanTwain | 23 | 9 | DOWNLOAD FILE |
| MASTER 64 9 | MISCHSORT | PRG | DuncanTwain | 23 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 22 08 0A 00 8F 20 45 52 53 54 45 4C 4C 45 |..".... ERSTELLE|
00000010: 4E 20 45 49 4E 45 53 20 46 45 4C 44 45 53 20 5A |N EINES FELDES Z|
00000020: 55 4D 00 33 08 14 00 8F 20 53 4F 52 54 49 45 52 |UM.3.... SORTIER|
00000030: 45 4E 2E 00 56 08 1E 00 8F 20 44 41 53 20 45 52 |EN..V.... DAS ER|
00000040: 53 54 45 4C 4C 45 4E 20 4B 41 4E 4E 20 5A 55 46 |STELLEN KANN ZUF|
00000050: 41 45 4C 4C 49 47 00 7A 08 28 00 8F 20 4F 44 45 |AELLIG.z.(.. ODE|
00000060: 52 20 47 45 5A 49 45 48 4C 54 20 28 44 55 52 43 |R GEZIEHLT (DURC|
00000070: 48 20 45 49 4E 47 41 42 45 29 00 8A 08 32 00 8F |H EINGABE)...2..|
00000080: 20 45 52 46 4F 4C 47 45 4E 2E 00 90 08 3C 00 8F | ERFOLGEN....<..|
00000090: 00 B6 08 46 00 8F 20 53 4F 52 54 49 45 52 41 4C |...F.. SORTIERAL|
000000A0: 47 4F 52 49 54 48 4D 45 4E 20 45 52 48 41 4C 54 |GORITHMEN ERHALT|
000000B0: 45 4E 20 44 49 45 00 DE 08 50 00 8F 20 5A 45 49 |EN DIE...P.. ZEI|
000000C0: 4C 45 4E 4E 55 4D 4D 45 52 4E 20 56 4F 4E 20 31 |LENNUMMERN VON 1|
000000D0: 30 30 30 30 20 42 49 53 20 35 30 30 30 30 00 02 |0000 BIS 50000..|
000000E0: 09 5A 00 8F 20 53 49 45 20 42 45 4E 4F 45 54 49 |.Z.. SIE BENOETI|
000000F0: 47 45 4E 20 4A 45 57 45 49 4C 53 20 44 49 45 53 |GEN JEWEILS DIES|
00000100: 45 4E 00 22 09 63 00 8F 20 56 4F 52 53 50 41 4E |EN.".c.. VORSPAN|
00000110: 4E 20 5A 55 52 20 41 55 53 46 55 45 48 52 55 4E |N ZUR AUSFUEHRUN|
00000120: 47 2E 00 42 09 64 00 8F 20 48 45 52 53 54 45 4C |G..B.d.. HERSTEL|
00000130: 4C 55 4E 47 20 45 49 4E 45 53 20 41 52 52 41 59 |LUNG EINES ARRAY|
00000140: 53 3A 00 60 09 6E 00 8F 20 41 52 52 41 59 56 41 |S:.`.n.. ARRAYVA|
00000150: 52 49 41 42 4C 45 20 20 20 20 20 20 2D 20 41 24 |RIABLE - A$|
00000160: 00 83 09 78 00 8F 20 53 43 48 4C 45 49 46 45 4E |...x.. SCHLEIFEN|
00000170: 56 41 52 49 41 42 4C 45 4E 20 2D 20 58 2C 20 59 |VARIABLEN - X, Y|
00000180: 2C 20 5A 00 A9 09 82 00 8F 20 48 49 4C 46 53 56 |, Z...... HILFSV|
00000190: 41 52 49 41 42 4C 45 4E 20 20 20 20 20 2D 20 42 |ARIABLEN - B|
000001A0: 24 2C 20 43 24 2C 20 44 24 00 C7 09 8C 00 8F 20 |$, C$, D$...... |
000001B0: 44 52 45 49 45 43 4B 54 41 55 53 43 48 20 4D 49 |DREIECKTAUSCH MI|
000001C0: 54 20 20 2D 20 53 24 00 D2 09 96 00 99 22 93 22 |T - S$......"."|
000001D0: 3A 9C 00 05 0A A0 00 99 22 53 4F 4C 4C 20 56 4F |:......."SOLL VO|
000001E0: 4E 20 12 48 92 41 4E 44 20 4F 44 45 52 20 12 5A |N .H.AND ODER .Z|
000001F0: 92 55 46 41 45 4C 4C 49 47 20 45 52 53 54 45 4C |.UFAELLIG ERSTEL|
00000200: 4C 54 22 3A 99 00 17 0A AA 00 85 22 57 45 52 44 |LT":......."WERD|
00000210: 45 4E 20 22 3B 58 24 00 30 0A B4 00 8B 58 24 B3 |EN ";X$.0....X$.|
00000220: B1 22 48 22 AF 58 24 B3 B1 22 5A 22 A7 31 35 30 |."H".X$.."Z".150|
00000230: 00 4C 0A BE 00 8B 58 24 B2 22 48 22 A7 8D 32 32 |.L....X$."H"..22|
00000240: 30 3A 8D 31 30 30 30 3A 89 32 31 30 00 5B 0A C8 |0:.1000:.210.[..|
00000250: 00 8D 32 32 30 3A 8D 32 30 30 30 00 75 0A D2 00 |..220:.2000.u...|
00000260: 89 34 30 30 30 3A 20 8F 20 57 45 49 54 45 52 4D |.4000: . WEITERM|
00000270: 41 43 48 45 4E 00 99 0A DC 00 8F 20 41 4E 5A 41 |ACHEN...... ANZA|
00000280: 48 4C 20 44 45 52 20 45 4C 45 4D 45 4E 54 45 20 |HL DER ELEMENTE |
00000290: 42 45 53 54 49 4D 4D 45 4E 00 B9 0A E6 00 99 3A |BESTIMMEN......:|
000002A0: 85 22 41 4E 5A 41 48 4C 20 44 45 52 20 45 4C 45 |."ANZAHL DER ELE|
000002B0: 4D 45 4E 54 45 20 22 3B 41 00 E3 0A F0 00 8B 20 |MENTE ";A...... |
000002C0: 41 B1 31 30 30 30 30 A7 99 3A 99 22 5A 55 20 56 |A.10000..:."ZU V|
000002D0: 49 45 4C 45 20 45 4C 45 4D 45 4E 54 45 22 3A 89 |IELE ELEMENTE":.|
000002E0: 32 33 30 00 0A 0B FA 00 8B 41 B3 31 30 A7 99 3A |230......A.10..:|
000002F0: 99 22 5A 55 20 57 45 4E 49 47 45 20 45 4C 45 4D |."ZU WENIGE ELEM|
00000300: 45 4E 54 45 22 3A 89 32 33 30 00 16 0B FF 00 86 |ENTE":.230......|
00000310: 20 41 24 28 41 29 00 3F 0B 04 01 85 22 11 11 12 | A$(A).?...."...|
00000320: 44 92 52 55 43 4B 45 52 20 4F 44 45 52 20 12 42 |D.RUCKER ODER .B|
00000330: 92 49 4C 44 53 43 48 49 52 4D 20 22 3B 59 24 00 |.ILDSCHIRM ";Y$.|
00000340: 58 0B 0E 01 8B 59 24 B3 B1 22 44 22 AF 59 24 B3 |X....Y$.."D".Y$.|
00000350: B1 22 42 22 A7 32 36 30 00 6D 0B 18 01 8B 59 24 |."B".260.m....Y$|
00000360: B2 22 44 22 A7 44 B2 34 3A 89 33 30 30 00 75 0B |."D".D.4:.300.u.|
00000370: 22 01 44 B2 33 00 7B 0B 2C 01 8E 00 92 0B E8 03 |".D.3.{.,.......|
00000380: 8F 20 45 49 4E 47 41 42 45 20 56 4F 4E 20 48 41 |. EINGABE VON HA|
00000390: 4E 44 00 B6 0B F2 03 99 22 93 56 4F 52 57 41 45 |ND......".VORWAE|
000003A0: 52 54 53 20 4F 44 45 52 20 52 55 45 43 4B 57 41 |RTS ODER RUECKWA|
000003B0: 45 52 54 53 22 3B 00 D4 0B FC 03 85 58 24 3A 8B |ERTS";......X$:.|
000003C0: 58 24 B3 B1 22 52 22 AF 58 24 B3 B1 22 56 22 A7 |X$.."R".X$.."V".|
000003D0: 31 30 32 30 00 E6 0B 06 04 52 B2 31 3A 58 31 B2 |1020.....R.1:X1.|
000003E0: 31 3A 58 32 B2 41 00 01 0C 10 04 8B 58 24 B2 22 |1:X2.A......X$."|
000003F0: 52 22 A7 52 B2 AB 31 3A 58 31 B2 41 3A 58 32 B2 |R".R..1:X1.A:X2.|
00000400: 31 00 14 0C 1A 04 59 B2 30 3A 81 58 B2 58 31 A4 |1.....Y.0:.X.X1.|
00000410: 58 32 A9 52 00 2C 0C 24 04 59 B2 59 AA 31 3A 41 |X2.R.,.$.Y.Y.1:A|
00000420: 24 28 59 29 B2 C4 28 58 AA 39 39 29 00 33 0C 2E |$(Y)..(X.99).3..|
00000430: 04 82 58 00 39 0C 38 04 8E 00 52 0C D0 07 8F 20 |..X.9.8...R.... |
00000440: 5A 55 46 41 45 4C 4C 49 47 45 20 45 49 4E 47 41 |ZUFAELLIGE EINGA|
00000450: 42 45 00 5B 0C DA 07 99 22 93 22 00 9B 0C E4 07 |BE.[....".".....|
00000460: 99 3A 99 22 45 53 20 57 45 52 44 45 4E 20 4A 45 |.:."ES WERDEN JE|
00000470: 54 5A 54 22 41 22 20 45 4C 45 4D 45 4E 54 45 20 |TZT"A" ELEMENTE |
00000480: 5A 55 46 41 45 4C 4C 49 47 22 3A 99 3A 99 22 41 |ZUFAELLIG":.:."A|
00000490: 55 53 47 45 57 41 45 48 4C 54 22 00 CD 0C EE 07 |USGEWAEHLT".....|
000004A0: 99 3A 99 22 4A 45 44 45 53 20 45 4C 45 4D 45 4E |.:."JEDES ELEMEN|
000004B0: 54 20 42 45 53 54 45 48 54 20 41 55 53 20 33 20 |T BESTEHT AUS 3 |
000004C0: 5A 45 49 43 48 45 4E 2E 22 3A 99 3A 99 00 D8 0C |ZEICHEN.":.:....|
000004D0: F8 07 81 58 B2 31 A4 41 00 E5 0C 02 08 41 24 28 |...X.1.A.....A$(|
000004E0: 58 29 B2 22 22 00 11 0D 0C 08 81 59 B2 31 A4 33 |X).""......Y.1.3|
000004F0: 3A 41 24 28 58 29 B2 41 24 28 58 29 AA C7 28 B5 |:A$(X).A$(X)..(.|
00000500: 28 BB 28 54 49 29 AC 32 35 29 AA 36 35 29 3A 82 |(.(TI).25).65):.|
00000510: 59 00 18 0D 16 08 82 58 00 1E 0D 20 08 8E 00 41 |Y......X... ...A|
00000520: 0D B8 0B 8F 20 5A 57 49 53 43 48 45 4E 41 55 53 |.... ZWISCHENAUS|
00000530: 47 41 42 45 20 44 45 52 20 45 4C 45 4D 45 4E 54 |GABE DER ELEMENT|
00000540: 45 00 52 0D C2 0B 81 20 49 B2 31 A4 41 AB 39 A9 |E.R.... I.1.A.9.|
00000550: 31 30 00 70 0D CC 0B 81 20 4A B2 49 A4 49 AA 39 |10.p.... J.I.I.9|
00000560: 3A 98 31 2C 41 24 28 4A 29 22 20 22 3B 3A 82 4A |:.1,A$(J)" ";:.J|
00000570: 00 7A 0D D6 0B 98 31 3A 82 49 00 80 0D E0 0B 8E |.z....1:.I......|
00000580: 00 93 0D A0 0F 8F 20 57 45 49 54 45 52 4D 41 43 |...... WEITERMAC|
00000590: 48 45 4E 00 9C 0D A5 0F 9F 31 2C 44 00 C2 0D AA |HEN......1,D....|
000005A0: 0F 99 22 93 41 55 53 47 41 42 45 20 44 45 53 20 |..".AUSGABE DES |
000005B0: 45 52 53 54 45 4C 4C 54 45 4E 20 46 45 4C 44 45 |ERSTELLTEN FELDE|
000005C0: 53 22 00 C8 0D B4 0F 99 00 D2 0D BE 0F 8D 33 30 |S"............30|
000005D0: 30 30 00 EB 0D C8 0F 8F 20 53 4F 52 54 49 45 52 |00...... SORTIER|
000005E0: 55 4E 47 20 53 54 41 52 54 45 54 00 F1 0D D2 0F |UNG STARTET.....|
000005F0: 8F 00 02 0E 38 27 54 49 24 B2 22 30 30 30 30 30 |....8'TI$."00000|
00000600: 30 22 00 1C 0E 42 27 5A 46 B2 B5 28 41 AD 32 AA |0"...B'ZF..(A.2.|
00000610: 2E 35 29 3A 86 54 56 24 28 5A 46 29 00 29 0E 4C |.5):.TV$(ZF).).L|
00000620: 27 81 58 B2 32 A4 41 A9 32 00 66 0E 56 27 8B 41 |'.X.2.A.2.f.V'.A|
00000630: 24 28 58 AB 31 29 B1 41 24 28 58 29 A7 54 56 24 |$(X.1).A$(X).TV$|
00000640: 28 30 29 B2 41 24 28 58 AB 31 29 3A 41 24 28 58 |(0).A$(X.1):A$(X|
00000650: AB 31 29 B2 41 24 28 58 29 3A 41 24 28 58 29 B2 |.1).A$(X):A$(X).|
00000660: 54 56 24 28 30 29 00 79 0E 60 27 82 58 3A 8B 41 |TV$(0).y.`'.X:.A|
00000670: B3 33 A7 20 35 30 30 30 30 00 97 0E 6A 27 4C 46 |.3. 50000...j'LF|
00000680: B2 31 3A 81 4D 5A B2 31 A4 B5 28 BC 28 41 AB 31 |.1:.MZ.1..(.(A.1|
00000690: 29 AD BC 28 32 29 29 00 B1 0E 74 27 5A 46 B2 B5 |)..(2))...t'ZF..|
000006A0: 28 5A 46 AD 32 AA 2E 35 29 3A 4C 46 B2 32 AC 4C |(ZF.2..5):LF.2.L|
000006B0: 46 00 E9 0E 7E 27 81 46 5A B2 31 A4 5A 46 3A 41 |F...~'.FZ.1.ZF:A|
000006C0: 31 B2 31 AA 32 AC 4C 46 AC 28 46 5A AB 31 29 3A |1.1.2.LF.(FZ.1):|
000006D0: 41 32 B2 41 31 AA 4C 46 3A 45 31 B2 41 32 AB 31 |A2.A1.LF:E1.A2.1|
000006E0: 3A 45 32 B2 45 31 AA 4C 46 00 01 0F 88 27 8B 45 |:E2.E1.LF....'.E|
000006F0: 32 B3 B2 41 A7 45 54 B2 4C 46 3A 89 31 30 31 35 |2..A.ET.LF:.1015|
00000700: 30 00 11 0F 92 27 8B 41 B3 41 32 A7 31 30 32 33 |0....'.A.A2.1023|
00000710: 30 00 24 0F 9C 27 45 32 B2 41 3A 45 54 B2 41 AA |0.$..'E2.A:ET.A.|
00000720: 31 AB 41 32 00 42 0F A6 27 81 58 B2 31 A4 45 54 |1.A2.B..'.X.1.ET|
00000730: 3A 54 56 24 28 58 29 B2 41 24 28 58 AA 45 31 29 |:TV$(X).A$(X.E1)|
00000740: 3A 82 00 52 0F B0 27 81 58 B2 45 32 A4 41 31 A9 |:..R..'.X.E2.A1.|
00000750: AB 31 00 6C 0F BA 27 8B 41 24 28 45 31 29 B3 54 |.1.l..'.A$(E1).T|
00000760: 56 24 28 45 54 29 A7 31 30 32 30 30 00 93 0F C4 |V$(ET).10200....|
00000770: 27 41 24 28 58 29 B2 41 24 28 45 31 29 3A 45 31 |'A$(X).A$(E1):E1|
00000780: B2 45 31 AB 31 3A 8B 45 31 B1 B2 41 31 A7 31 30 |.E1.1:.E1..A1.10|
00000790: 32 32 30 00 C4 0F CE 27 81 59 B2 58 AB 31 A4 41 |220....'.Y.X.1.A|
000007A0: 31 A9 AB 31 3A 41 24 28 59 29 B2 54 56 24 28 45 |1..1:A$(Y).TV$(E|
000007B0: 54 29 3A 45 54 B2 45 54 AB 31 3A 82 59 3A 89 31 |T):ET.ET.1:.Y:.1|
000007C0: 30 32 31 30 00 EB 0F D8 27 41 24 28 58 29 B2 54 |0210....'A$(X).T|
000007D0: 56 24 28 45 54 29 3A 45 54 B2 45 54 AB 31 3A 8B |V$(ET):ET.ET.1:.|
000007E0: 45 54 B1 B2 31 A7 31 30 32 32 30 00 F4 0F E2 27 |ET..1.10220....'|
000007F0: 58 B2 41 31 00 FB 0F EC 27 82 58 00 06 10 F6 27 |X.A1....'.X....'|
00000800: 82 46 5A 2C 4D 5A 00 22 10 50 C3 54 24 B2 54 49 |.FZ,MZ.".P.T$.TI|
00000810: 24 3A 8F 20 45 4E 44 45 42 45 48 41 4E 44 4C 55 |$:. ENDEBEHANDLU|
00000820: 4E 47 00 29 10 5A C3 98 31 00 34 10 64 C3 8D 20 |NG.).Z..1.4.d.. |
00000830: 33 30 30 30 00 49 10 6E C3 98 31 2C 41 3B 22 20 |3000.I.n..1,A;" |
00000840: 45 4C 45 4D 45 4E 54 45 22 00 5C 10 78 C3 98 31 |ELEMENTE".\.x..1|
00000850: 3A 98 31 3A 98 31 2C 54 24 3A A0 31 00 62 10 82 |:.1:.1,T$:.1.b..|
00000860: C3 80 00 00 00 |..... |
..".... ERSTELLEN EINES FELDES ZUM.3....
SORTIEREN..V.... DAS ERSTELLEN KANN ZUF
AELLIG.Z.(.. ODER GEZIEHLT (DURCH EINGAB
E)...2.. ERFOLGEN....<.....F.. SORTIERAL
GORITHMEN ERHALTEN DIE...P.. ZEILENNUMME
RN VON 10000 BIS 50000...Z.. SIE BENOETI
GEN JEWEILS DIESEN.".C.. VORSPANN ZUR AU
SFUEHRUNG..B.D.. HERSTELLUNG EINES ARRAY
S:.`.N.. ARRAYVARIABLE - A$...X.. S
CHLEIFENVARIABLEN - X, Y, Z...... HILFSV
ARIABLEN - B$, C$, D$.G.... DREIECKT
AUSCH MIT - S$.R....".":.... .."SOLL VO
N .H.AND ODER .Z.UFAELLIG ERSTELLT":....
..."WERDEN ";X$.0....X$.."H".X$.."Z".150
.L....X$."H"..220:.1000:.210.[.H..220:.2
000.U.R..4000: . WEITERMACHEN...... ANZA
HL DER ELEMENTE BESTIMMEN......:."ANZAHL
DER ELEMENTE ";A...... A.10000..:."ZU V
IELE ELEMENTE":.230......A.10..:."ZU WEN
IGE ELEMENTE":.230...... A$(A).?...."...
D.RUCKER ODER .B.ILDSCHIRM ";Y$.X....Y$.
."D".Y$.."B".260.M....Y$."D".D.4:.300.U.
".D.3.{.,........ EINGABE VON HAND......
".VORWAERTS ODER RUECKWAERTS";.T....X$:.
X$.."R".X$.."V".1020.....R.1:X1.1:X2.A..
....X$."R".R..1:X1.A:X2.1.....Y.0:.X.X1.
X2.R.,.$.Y.Y.1:A$(Y).D(X.99).3....X.9.8.
..R.P.. ZUFAELLIGE EINGABE.[.Z..".".....
.:."ES WERDEN JETZT"A" ELEMENTE ZUFAELLI
G":.:."AUSGEWAEHLT".M....:."JEDES ELEMEN
T BESTEHT AUS 3 ZEICHEN.":.:..X....X.1.A
.....A$(X).""......Y.1.3:A$(X).A$(X).G(.
(.(TI).25).65):.Y......X... ...A.... ZWI
SCHENAUSGABE DER ELEMENTE.R.B.. I.1.A.9.
10.P.L.. J.I.I.9:.1,A$(J)" ";:.J.Z.V..1:
.I......... .. WEITERMACHEN......1,D.B..
..".AUSGABE DES ERSTELLTEN FELDES".H....
.R....3000...H.. SORTIERUNG STARTET...R.
....8'TI$."000000"...B'ZF..(A.2..5):.TV$
(ZF).).L'.X.2.A.2.F.V'.A$(X.1).A$(X).TV$
(0).A$(X.1):A$(X.1).A$(X):A$(X).TV$(0).Y
.`'.X:.A.3. 50000...J'LF.1:.MZ.1..(.(A.1
)..(2))...T'ZF..(ZF.2..5):LF.2.LF...~'.F
Z.1.ZF:A1.1.2.LF.(FZ.1):A2.A1.LF:E1.A2.1
:E2.E1.LF....'.E2..A.ET.LF:.10150....'.A
.A2.10230.$..'E2.A:ET.A.1.A2.B..'.X.1.ET
:TV$(X).A$(X.E1):..R..'.X.E2.A1..1.L..'.
A$(E1).TV$(ET).10200...D'A$(X).A$(E1):E1
.E1.1:.E1..A1.10220.D.N'.Y.X.1.A1..1:A$(
Y).TV$(ET):ET.ET.1:.Y:.10210...X'A$(X).T
V$(ET):ET.ET.1:.ET..1.10220....'X.A1....
'.X....'.FZ,MZ.".PCT$.TI$:. ENDEBEHANDLU
NG.).ZC.1.4.DC. 3000.I.NC.1,A;" ELEMENTE
".\.XC.1:.1:.1,T$: 1.B..C....
> CLICK IMAGE PREVIEW FOR FULL MODAL