!FS-DEMO
FILE INFORMATION
FILENAME(S): !FS-DEMO
FILE TYPE(S): PRG
FILE SIZE: 1.2K
FIRST SEEN: 2025-12-02 23:47:08
APPEARS ON: 1 disk(s)
FILE HASH
ccbdde9905554100cffe0d7dd76145b5c9cfe0cfb53a9b3c0e132f29062d75a8
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 013 VERONIKA | !FS-DEMO | PRG | swasti, flohmarkt | 6 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 45 08 01 00 8F 20 53 4F 52 54 49 45 52 45 |..E.... SORTIERE| 00000010: 4E 20 32 2D 44 49 4D 45 4E 53 49 4F 4E 41 4C 45 |N 2-DIMENSIONALE| 00000020: 52 20 46 45 4C 44 45 52 20 41 55 46 20 43 2D 36 |R FELDER AUF C-6| 00000030: 34 20 28 4E 41 43 48 20 4D 49 43 52 4F 20 4D 41 |4 (NACH MICRO MA| 00000040: 47 20 32 30 29 00 4B 08 02 00 3A 00 72 08 03 00 |G 20).K...:.r...| 00000050: 8F 20 44 41 53 20 50 52 4F 47 52 2E 20 27 46 45 |. DAS PROGR. 'FE| 00000060: 4C 44 45 52 2D 53 4F 52 54 27 20 20 52 45 49 43 |LDER-SORT' REIC| 00000070: 48 54 00 99 08 04 00 8F 20 56 4F 4E 20 24 30 38 |HT...... VON $08| 00000080: 37 38 20 42 49 53 20 24 30 41 39 39 20 55 4E 44 |78 BIS $0A99 UND| 00000090: 20 49 53 54 20 46 52 45 49 00 C0 08 05 00 8F 20 | IST FREI...... | 000000A0: 56 45 52 53 43 48 49 45 42 42 41 52 2E 20 45 53 |VERSCHIEBBAR. ES| 000000B0: 20 57 49 52 44 20 4E 41 43 48 20 53 54 41 52 54 | WIRD NACH START| 000000C0: 00 E7 08 06 00 8F 20 41 55 54 4F 4D 41 54 49 53 |...... AUTOMATIS| 000000D0: 43 48 20 49 4D 20 4F 42 45 52 45 4E 20 52 41 4D |CH IM OBEREN RAM| 000000E0: 42 45 52 45 49 43 48 00 06 09 07 00 8F 20 41 42 |BEREICH...... AB| 000000F0: 47 45 4C 45 47 54 20 55 4E 44 20 47 45 53 43 48 |GELEGT UND GESCH| 00000100: 55 45 54 5A 54 2E 00 0C 09 0A 00 3A 00 2C 09 0B |UETZT......:.,..| 00000110: 00 8F 20 20 20 20 20 53 4F 52 54 49 45 52 54 20 |.. SORTIERT | 00000120: 57 49 52 44 20 58 24 28 41 2C 42 29 00 49 09 0C |WIRD X$(A,B).I..| 00000130: 00 8F 20 20 20 20 20 20 20 4D 49 54 20 12 20 53 |.. MIT . S| 00000140: 59 53 28 37 38 34 29 53 20 00 6A 09 0D 00 8F 20 |YS(784)S .j.... | 00000150: 20 20 20 20 57 4F 42 45 49 20 27 53 27 20 44 49 | WOBEI 'S' DI| 00000160: 45 20 5A 41 48 4C 20 44 45 52 00 8B 09 0E 00 8F |E ZAHL DER......| 00000170: 20 20 20 20 20 45 42 45 4E 45 20 49 4E 20 27 42 | EBENE IN 'B| 00000180: 27 20 49 53 54 2C 20 4E 41 43 48 00 A8 09 0F 00 |' IST, NACH.....| 00000190: 8F 20 20 20 20 20 44 45 52 20 53 4F 52 54 49 45 |. DER SORTIE| 000001A0: 52 54 20 57 49 52 44 2E 00 AE 09 11 00 3A 00 B4 |RT WIRD......:..| 000001B0: 09 13 00 3A 00 D9 09 14 00 99 22 93 20 20 20 20 |...:......". | 000001C0: 20 20 54 20 45 20 53 20 54 20 50 20 52 20 4F 20 | T E S T P R O | 000001D0: 47 20 52 20 41 20 4D 20 4D 00 0D 0A 19 00 99 22 |G R A M M......"| 000001E0: 11 20 20 45 52 5A 45 55 47 54 20 55 4E 44 20 53 |. ERZEUGT UND S| 000001F0: 4F 52 54 49 45 52 54 20 5A 49 46 46 45 52 4E 46 |ORTIERT ZIFFERNF| 00000200: 4F 4C 47 45 4E 22 3A 8D 32 30 30 3A 99 00 30 0A |OLGEN":.200:..0.| 00000210: 1E 00 41 B2 B5 28 BB 28 54 49 29 AC 39 39 29 AA |..A..(.(TI).99).| 00000220: 35 3A 42 B2 B5 28 BB 28 54 49 29 AC 35 29 AA 32 |5:B..(.(TI).5).2| 00000230: 00 5E 0A 23 00 99 22 31 2E 44 49 4D 45 4E 53 49 |.^.#.."1.DIMENSI| 00000240: 4F 4E 20 28 5A 41 48 4C 20 44 45 52 20 45 4C 45 |ON (ZAHL DER ELE| 00000250: 4D 45 4E 54 45 29 20 41 20 3D 20 22 3B 41 00 8C |MENTE) A = ";A..| 00000260: 0A 28 00 99 22 32 2E 44 49 4D 45 4E 53 49 4F 4E |.(.."2.DIMENSION| 00000270: 20 28 5A 41 48 4C 20 44 45 52 20 45 42 45 4E 45 | (ZAHL DER EBENE| 00000280: 4E 29 20 20 20 42 20 3D 20 22 3B 42 00 C0 0A 32 |N) B = ";B...2| 00000290: 00 8D 32 30 30 3A 99 3A 85 22 23 20 53 4F 52 54 |..200:.:."# SORT| 000002A0: 49 45 52 53 43 48 4C 55 45 53 53 45 4C 20 20 53 |IERSCHLUESSEL S| 000002B0: 20 20 20 20 49 4E 20 20 20 20 42 20 3D 22 3B 53 | IN B =";S| 000002C0: 00 D4 0A 6E 00 86 41 24 28 41 29 3A 86 58 24 28 |...n..A$(A):.X$(| 000002D0: 41 2C 42 29 00 01 0B 78 00 99 22 22 3A 81 49 B2 |A,B)...x.."":.I.| 000002E0: 30 A4 41 3A 81 4A B2 31 A4 42 3A 58 24 28 49 2C |0.A:.J.1.B:X$(I,| 000002F0: 4A 29 B2 C4 28 B5 28 BB 28 54 49 29 AC 31 30 29 |J)..(.(.(TI).10)| 00000300: 29 00 32 0B 82 00 58 24 28 49 2C 30 29 B2 58 24 |).2...X$(I,0).X$| 00000310: 28 49 2C 30 29 AA C9 28 58 24 28 49 2C 4A 29 2C |(I,0)..(X$(I,J),| 00000320: 31 29 3A 82 3A 41 24 28 49 29 B2 58 24 28 49 2C |1):.:A$(I).X$(I,| 00000330: 30 29 00 4F 0B 8C 00 81 4A B2 30 A4 42 3A 99 58 |0).O....J.0.B:.X| 00000340: 24 28 49 2C 4A 29 3B 3A 82 3A 99 3A 82 3A 99 00 |$(I,J);:.:.:.:..| 00000350: 58 0B 91 00 54 B2 54 49 00 5E 0B 95 00 3A 00 AA |X...T.TI.^...:..| 00000360: 0B 96 00 9E 28 37 38 34 29 53 3A 8F 20 53 4F 52 |....(784)S:. SOR| 00000370: 54 49 45 52 54 20 58 24 28 41 2C 42 29 20 4E 41 |TIERT X$(A,B) NA| 00000380: 43 48 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |CH | 00000390: 20 20 20 20 20 45 42 45 4E 45 20 27 53 27 20 49 | EBENE 'S' I| 000003A0: 4D 20 46 45 4C 44 20 27 42 27 00 B0 0B 97 00 3A |M FELD 'B'.....:| 000003B0: 00 C5 0B 98 00 54 B2 B5 28 28 54 49 AB 54 29 AD |.....T..((TI.T).| 000003C0: 36 29 AD 31 30 00 DD 0B 9B 00 99 22 93 41 24 28 |6).10......".A$(| 000003D0: 41 29 22 2C 22 58 24 28 41 2C 42 29 22 00 0B 0C |A)","X$(A,B)"...| 000003E0: A0 00 81 49 B2 30 A4 41 3A 99 41 24 28 49 29 2C |...I.0.A:.A$(I),| 000003F0: 3A 81 4A B2 30 A4 42 3A 99 58 24 28 49 2C 4A 29 |:.J.0.B:.X$(I,J)| 00000400: 3B 22 20 22 3B 3A 82 3A 99 3A 82 00 31 0C A6 00 |;" ";:.:.:..1...| 00000410: 8D 32 30 30 3A 99 2C 22 20 30 22 3B A6 42 AB 31 |.200:.," 0";.B.1| 00000420: 29 3B 3A 81 4A B2 31 A4 42 3A 99 4A 3B 3A 82 3A |);:.J.1.B:.J;:.:| 00000430: 99 00 6B 0C AA 00 99 2C 22 58 24 28 41 2C 42 29 |..k....,"X$(A,B)| 00000440: 20 53 4F 52 54 49 45 52 54 20 4E 41 43 48 3A 22 | SORTIERT NACH:"| 00000450: 3B 53 3A 99 22 41 24 28 41 29 20 55 4E 53 4F 52 |;S:."A$(A) UNSOR| 00000460: 54 49 45 52 54 22 3A 8D 32 30 30 00 B0 0C B4 00 |TIERT":.200.....| 00000470: 99 22 4A 45 22 3B 41 AA 31 3B 22 45 4C 45 4D 45 |."JE";A.1;"ELEME| 00000480: 4E 54 45 20 49 4E 22 3B 42 AA 31 3B 22 45 42 45 |NTE IN";B.1;"EBE| 00000490: 4E 45 4E 22 3A 99 22 53 4F 52 54 49 45 52 54 20 |NEN":."SORTIERT | 000004A0: 49 4E 22 3B 54 3B 22 53 45 4B 55 4E 44 45 4E 22 |IN";T;"SEKUNDEN"| 000004B0: 00 BB 0C BE 00 8D 32 30 30 3A 80 00 D3 0C C8 00 |......200:......| 000004C0: 81 49 B2 30 A4 33 38 3A 99 22 2D 22 3B 3A 82 3A |.I.0.38:."-";:.:| 000004D0: 99 3A 8E 00 00 00 AA |.:..... |
..E.... SORTIEREN 2-DIMENSIONALER FELDER AUF C-64 (NACH MICRO MAG 20).K...:.R... . DAS PROGR. 'FELDER-SORT' REICHT...... VON $0878 BIS $0A99 UND IST FREI...... VERSCHIEBBAR. ES WIRD NACH START...... A UTOMATISCH IM OBEREN RAMBEREICH...... AB GELEGT UND GESCHUETZT......:.,.... S ORTIERT WIRD X$(A,B).I.... MIT . S YS(784)S .J.... WOBEI 'S' DIE ZAHL D ER...... EBENE IN 'B' IST, NACH..... . DER SORTIERT WIRD......:.....:.Y.. ..". T E S T P R O G R A M M......" . ERZEUGT UND SORTIERT ZIFFERNFOLGEN":. 200:..0...A..(.(TI).99).5:B..(.(TI).5).2 .^.#.."1.DIMENSION (ZAHL DER ELEMENTE) A = ";A...(.."2.DIMENSION (ZAHL DER EBENE N) B = ";B...2..200:.:."# SORTIERSCHLU ESSEL S IN B =";S.T.N..A$(A):.X$( A,B)...X.."":.I.0.A:.J.1.B:X$(I,J).D(.(. (TI).10)).2...X$(I,0).X$(I,0).I(X$(I,J), 1):.:A$(I).X$(I,0).O....J.0.B:.X$(I,J);: .:.:.:..X...T.TI.^...:......(784)S:. SOR TIERT X$(A,B) NACH EBE NE 'S' IM FELD 'B'.....:.E...T..((TI.T). 6).10......".A$(A)","X$(A,B)"... ..I.0.A :.A$(I),:.J.0.B:.X$(I,J);" ";:.:.:..1... .200:.," 0";.B.1);:.J.1.B:.J;:.:..K...., "X$(A,B) SORTIERT NACH:";S:."A$(A) UNSOR TIERT":.200......"JE";A.1;"ELEMENTE IN"; B.1;"EBENEN":."SORTIERT IN";T;"SEKUNDEN" ......200:..S.H..I.0.38:."-";:.:.:.....
> CLICK IMAGE PREVIEW FOR FULL MODAL