_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

SORT

FILE INFORMATION

FILENAME(S): SORT

FILE TYPE(S): PRG

FILE SIZE: 564b

FIRST SEEN: 2025-11-30 01:13:00

APPEARS ON: 2 disk(s)

FILE HASH

fb32009dbfa1215bf272092232bd1dfba9a43103f277b2dd4630373211708b50

FOUND ON DISKS (2 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
10208 SEITE A SORT PRG C64er 28 8 DOWNLOAD FILE
10208 SEITE A SORT PRG earthshaker 28 8 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 1F 08 0A 37 8F 20  45 49 4E 46 41 43 48 45  |.....7. EINFACHE|
00000010: 20 53 4F 52 54 49 45 52  52 4F 55 54 49 4E 45 00  | SORTIERROUTINE.|
00000020: 42 08 0B 37 8F 20 5A 55  4E 41 45 43 48 53 54 20  |B..7. ZUNAECHST |
00000030: 5A 41 45 48 4C 45 52 53  54 41 4E 44 20 41 55 46  |ZAEHLERSTAND AUF|
00000040: 20 30 00 4C 08 98 3A 46  20 B2 20 30 00 73 08 9D  | 0.L..:F . 0.s..|
00000050: 3A 8F 20 48 49 45 52 20  42 45 47 49 4E 4E 54 20  |:. HIER BEGINNT |
00000060: 44 49 45 20 53 4F 52 54  49 45 52 53 43 48 4C 45  |DIE SORTIERSCHLE|
00000070: 49 46 45 00 83 08 A2 3A  81 20 41 20 B2 20 30 20  |IFE....:. A . 0 |
00000080: A4 20 39 00 AB 08 A7 3A  3A 20 20 8F 20 54 45 58  |. 9....::  . TEX|
00000090: 54 20 49 4E 20 52 49 43  48 54 49 47 45 52 20 52  |T IN RICHTIGER R|
000000A0: 45 49 48 45 4E 46 4F 4C  47 45 3F 00 CC 08 AC 3A  |EIHENFOLGE?....:|
000000B0: 3A 20 20 8B 20 41 24 28  41 29 20 B3 20 41 24 28  |:  . A$(A) . A$(|
000000C0: 41 AA 31 29 20 A7 20 31  35 30 37 30 00 EF 08 B1  |A.1) . 15070....|
000000D0: 3A 3A 20 20 8F 20 57 45  4E 4E 20 4E 49 43 48 54  |::  . WENN NICHT|
000000E0: 2C 20 44 41 4E 4E 20 54  41 55 53 43 48 45 4E 00  |, DANN TAUSCHEN.|
000000F0: 01 09 B6 3A 3A 20 20 42  24 20 B2 20 41 24 28 41  |...::  B$ . A$(A|
00000100: 29 00 18 09 C0 3A 3A 20  20 41 24 28 41 29 20 B2  |)....::  A$(A) .|
00000110: 20 41 24 28 41 AA 31 29  00 2C 09 CA 3A 3A 20 20  | A$(A.1).,..::  |
00000120: 41 24 28 41 AA 31 29 20  B2 20 42 24 00 58 09 CF  |A$(A.1) . B$.X..|
00000130: 3A 3A 20 20 8F 20 57 45  4E 4E 20 47 45 54 41 55  |::  . WENN GETAU|
00000140: 53 43 48 54 2C 20 44 41  4E 4E 20 46 45 48 4C 45  |SCHT, DANN FEHLE|
00000150: 52 20 4D 45 52 4B 45 4E  00 65 09 D4 3A 3A 20 20  |R MERKEN.e..::  |
00000160: 46 20 B2 20 31 00 84 09  D9 3A 3A 20 20 8F 20 4E  |F . 1....::  . N|
00000170: 41 45 43 48 53 54 45 53  20 57 4F 52 54 20 54 45  |AECHSTES WORT TE|
00000180: 53 54 45 4E 00 8C 09 DE  3A 82 20 41 00 B3 09 E3  |STEN....:. A....|
00000190: 3A 8F 20 57 45 4E 4E 20  4B 45 49 4E 20 46 45 48  |:. WENN KEIN FEH|
000001A0: 4C 45 52 20 41 55 46 54  52 41 54 2C 20 46 45 52  |LER AUFTRAT, FER|
000001B0: 54 49 47 00 C7 09 E8 3A  8B 20 46 20 B2 20 30 20  |TIG....:. F . 0 |
000001C0: A7 20 31 35 31 31 30 00  ED 09 ED 3A 8F 20 53 4F  |. 15110....:. SO|
000001D0: 4E 53 54 20 5A 55 4E 41  45 43 48 53 54 20 46 45  |NST ZUNAECHST FE|
000001E0: 48 4C 45 52 20 4C 4F 45  53 43 48 45 4E 00 F7 09  |HLER LOESCHEN...|
000001F0: F2 3A 46 20 B2 20 30 00  1F 0A F7 3A 8F 20 44 41  |.:F . 0....:. DA|
00000200: 4E 4E 20 4E 4F 43 48 4D  41 4C 20 53 43 48 4C 45  |NN NOCHMAL SCHLE|
00000210: 49 46 45 20 44 55 52 43  48 4C 41 55 46 45 4E 00  |IFE DURCHLAUFEN.|
00000220: 2B 0A FC 3A 89 20 31 35  30 31 30 00 31 0A 06 3B  |+..:. 15010.1..;|
00000230: 8E 00 00 00                                       |....            |
.....7. EINFACHE SORTIERROUTINE.B..7. ZU
NAECHST ZAEHLERSTAND AUF 0.L..:F . 0.S..
:. HIER BEGINNT DIE SORTIERSCHLEIFE....:
. A . 0 . 9....::  . TEXT IN RICHTIGER R
EIHENFOLGE?.L..::  . A$(A) . A$(A.1) . 1
5070....::  . WENN NICHT, DANN TAUSCHEN.
...::  B$ . A$(A)....::  A$(A) . A$(A.1)
.,.J::  A$(A.1) . B$.X.O::  . WENN GETAU
SCHT, DANN FEHLER MERKEN.E.T::  F . 1...
Y::  . NAECHSTES WORT TESTEN....:. A....
:. WENN KEIN FEHLER AUFTRAT, FERTIG.G..:
. F . 0 . 15110....:. SONST ZUNAECHST FE
HLER LOESCHEN....:F . 0....:. DANN NOCHM
AL SCHLEIFE DURCHLAUFEN.+..:. 15010.1..;
....
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL