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

SELECT'SORT.PROC

FILE INFORMATION

FILENAME(S): SELECT'SORT.PROC

FILE TYPE(S): SEQ

FILE SIZE: 298b

FIRST SEEN: 2025-11-30 01:07:52

APPEARS ON: 4 disk(s)

FILE HASH

daa0716fcb641e90a1ce9baedbe71d70cc06459a44139f4b1e56d6236b11b88b

FOUND ON DISKS (4 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
FREEWARE DISK NR SELECT'SORT.PROC SEQ Treasure Chest - Wolfgang Rauprich 33 6 DOWNLOAD FILE
FREESOFT DISK NR SELECT'SORT.PROC SEQ Treasure Chest - Wolfgang Rauprich 33 6 DOWNLOAD FILE
C OMAL SELECT'SORT.PROC SEQ Treasure Chest - Wolfgang Rauprich 33 6 DOWNLOAD FILE
C OMAL SELECT'SORT.PROC SEQ Treasure Chest - Wolfgang Rauprich 33 6 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 39 30 38 35 20 50 52 4F  43 20 53 45 4C 45 43 54  |9085 PROC SELECT|
00000010: 27 53 4F 52 54 20 0D 39  30 39 30 20 20 20 46 4F  |'SORT .9090   FO|
00000020: 52 20 53 54 41 52 54 3A  3D 31 20 54 4F 20 31 30  |R START:=1 TO 10|
00000030: 20 44 4F 0D 39 30 39 35  20 20 20 20 20 4D 49 4E  | DO.9095     MIN|
00000040: 3A 3D 53 54 41 52 54 0D  39 31 30 30 20 20 20 20  |:=START.9100    |
00000050: 20 46 4F 52 20 54 45 53  54 3A 3D 53 54 41 52 54  | FOR TEST:=START|
00000060: 20 54 4F 20 31 31 20 44  4F 0D 39 31 30 35 20 20  | TO 11 DO.9105  |
00000070: 20 20 20 20 20 49 46 20  4E 41 4D 45 24 28 54 45  |     IF NAME$(TE|
00000080: 53 54 29 3C 4E 41 4D 45  24 28 4D 49 4E 29 20 54  |ST)<NAME$(MIN) T|
00000090: 48 45 4E 0D 39 31 31 30  20 20 20 20 20 20 20 20  |HEN.9110        |
000000A0: 20 4D 49 4E 3A 3D 54 45  53 54 0D 39 31 31 35 20  | MIN:=TEST.9115 |
000000B0: 20 20 20 20 20 20 45 4E  44 49 46 20 0D 39 31 32  |      ENDIF .912|
000000C0: 30 20 20 20 20 20 45 4E  44 46 4F 52 20 54 45 53  |0     ENDFOR TES|
000000D0: 54 0D 39 31 32 35 20 20  20 20 20 45 58 43 48 41  |T.9125     EXCHA|
000000E0: 4E 47 45 28 4E 41 4D 45  24 28 53 54 41 52 54 29  |NGE(NAME$(START)|
000000F0: 2C 4E 41 4D 45 24 28 4D  49 4E 29 29 0D 39 31 33  |,NAME$(MIN)).913|
00000100: 30 20 20 20 45 4E 44 46  4F 52 20 53 54 41 52 54  |0   ENDFOR START|
00000110: 0D 39 31 33 35 20 45 4E  44 50 52 4F 43 20 53 45  |.9135 ENDPROC SE|
00000120: 4C 45 43 54 27 53 4F 52  54 0D                    |LECT'SORT.      |

9085 PROC SELECT'SORT .9090   FOR START:
=1 TO 10 DO.9095     MIN:=START.9100    
 FOR TEST:=START TO 11 DO.9105       IF 
NAME$(TEST)<NAME$(MIN) THEN.9110        
 MIN:=TEST.9115       ENDIF .9120     EN
DFOR TEST.9125     EXCHANGE(NAME$(START)
,NAME$(MIN)).9130   ENDFOR START.9135 EN
DPROC SELECT'SORT.
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL